CLEO Help Little Help

CLEO related
Status
Not open for further replies.
shanker

shanker

Well-known member
Joined
Sep 18, 2016
Messages
291
Reaction score
16
Location
Romania
Code: 
{$CLEO .cs}

/* Source: http://www.versuri.ro/artist/gjdj_colinde-de-craciun.html */

0000: NOP

:Noname_2
0001: wait 0 ms 

13@ = 1000



:Noname_6
0256:   player $PLAYER_CHAR defined 
004D: jump_if_false @Noname_492 
0B34: samp register_client_command "Colinde" to_label @Colinde
0B34: samp register_client_command "View" to_label @View
0B34: samp register_client_command "SetTime" to_label @SetTime
0B34: samp register_client_command "SetChat" to_label @SetChat
0001: wait 0 ms 
IF
3@ == 1
THEN 
SAY "%s Astazi s-a nascut Hristos" 17@v
WAIT 13@
SAY "%s Mesia chip luminos" 17@v
WAIT 13@
SAY "%s Laudati si cantati" 17@v
WAIT 13@
SAY "%s Si va bucurati !!!!!" 17@v
WAIT 13@
SAY "%s Mititel infasatel" 17@v
WAIT 13@
SAY "%s In scutec de bumbacel"  17@v
WAIT 13@
SAY "%s Laudati si cantati" 17@v
WAIT 13@   
SAY "%s Si va bucurati" 17@v
WAIT 13@   
SAY "%s Neaua ninge" 17@v
WAIT 13@   
SAY "%s Nu-l atinge" 17@v
WAIT 13@   
SAY "%s Vantul bate" 17@v
WAIT 13@   
SAY "%s Nu-l razbate" 17@v
WAIT 13@   
SAY "%s Laudati si cantati" 17@v
WAIT 13@   
SAY "%s Si va bucurati !!!!!" 17@v
WAIT 13@   
SAY "%s Si de acum" 17@v
WAIT 13@
SAY "%s Pana-n vecie" 17@v
WAIT 13@   
SAY "%s Mila domnului sa fie" 17@v
WAIT 13@   
SAY "%s Laudati si cantati" 17@v
WAIT 13@   
SAY "%s Si va bucurati !!!!! | [Shanker  iti ureazã sãrbãtori fericite!]" 17@v
3@ = 0
ELSE
IF 
3@ == 2
THEN
SAY "%s Buna seara la Mos Ajun!" 17@v
WAIT 13@ 
SAY "%s Si cu bine la Mos Craciun." 17@v 
WAIT 13@ 
SAY "%s Am venit si noi odata" 17@v
WAIT 13@ 
SAY "%s La un an cu sanatate," 17@v
WAIT 13@ 
SAY "%s Si la anu cand venim" 17@v
WAIT 13@ 
SAY "%s Sanatosi sa va gasim." 17@v
WAIT 13@ 
SAY "%s Cu paharul" 17@v
WAIT 13@ 
SAY "%s Plin de vin," 17@v
WAIT 13@ 
SAY "%s Si-n fundul paharului" 17@v
WAIT 13@ 
SAY "%s Floricica Raiului." 17@v
WAIT 13@ 
SAY "%s La Anul si La Multi Ani! | [Shanker  iti ureazã sãrbãtori fericite!]" 17@v
3@ = 0
ELSE
IF
3@ == 3
THEN
SAY "%s Am plecat sa colindam" 17@v
WAIT 13@ 
SAY "%s Domn, Domn sa-naltam" 17@v
WAIT 13@ 
SAY "%s Cand boierii nu-s acasa" 17@v
WAIT 13@ 
SAY "%s Domn, Domn sa-naltam" 17@v
WAIT 13@ 
SAY "%s C-au plecat la vanatoare" 17@v
WAIT 13@ 
SAY "%s Domn, Domn sa-naltam" 17@v
WAIT 13@ 
SAY "%s Sa vaneze caprioare" 17@v
WAIT 13@ 
SAY "%s Domn, Domn sa-naltam" 17@v
WAIT 13@ 
SAY "%s Caprioare n-au vanat" 17@v
WAIT 13@ 
SAY "%s Domn, Domn sa-naltam" 17@v
WAIT 13@ 
SAY "%s Si-au vanat un iepuras" 17@v
WAIT 13@ 
SAY "%s Domn, Domn sa-naltam" 17@v
WAIT 13@ 
SAY "%s Sa faca din pielea lui" 17@v
WAIT 13@ 
SAY "%s Domn, Domn sa-naltam" 17@v
WAIT 13@ 
SAY "%s Vesmant frumos Domnului" 17@v
WAIT 13@ 
SAY "%s Domn, Domn sa-naltam | [Shanker  iti ureazã sãrbãtori fericite!]" 17@v
3@ = 0
ELSE
IF 3@ == 4
THEN
SAY "%s Leru-i ler si leru-i Doamne" 17@v
WAIT 13@ 
SAY "%s Leru-i ler copil stingher" 17@v
WAIT 13@ 
SAY "%s Pripasit intr-un ungher" 17@v
WAIT 13@ 
SAY "%s Zdrentuit si necajit" 17@v
WAIT 13@ 
SAY "%s Si cu sufletu-mpietrit" 17@v
WAIT 13@ 
SAY "%s Pentru tine n-am nimic" 17@v
WAIT 13@ 
SAY "%s Decat casele cu fig" 17@v
WAIT 13@ 
SAY "%s Si asteptarile-n zadar" 17@v
WAIT 13@ 
SAY "%s Si un an si mai amar" 17@v
WAIT 13@ 
SAY "%s Leru-i ler si leru-i Doamne" 17@v
WAIT 13@ 
SAY "%s Lerui ler copil stinger" 17@v
WAIT 13@ 
SAY "%s Pripasit intr-un ungher" 17@v
WAIT 13@ 
SAY "%s Zdrentuit si necajit" 17@v
WAIT 13@ 
SAY "%s Si cu sufletu-mpietrit" 17@v
WAIT 13@ 
SAY "%s Azi iti dau mere si nuci" 17@v
WAIT 13@ 
SAY "%s Si-o pereche de papuci" 17@v
WAIT 13@ 
SAY "%s Si din luna o felie" 17@v
WAIT 13@ 
SAY "%s Si din viata cine stie" 17@v
WAIT 13@ 
SAY "%s Leru-i ler si leru-i Doamne | [Shanker  iti ureazã sãrbãtori fericite!]" 17@v
3@ = 0 
ELSE
IF 3@ == 5
THEN
SAY "%s O, ce veste minunata," 17@v
WAIT 13@  
SAY "%s In Betleem ni se-arata," 17@v
WAIT 13@  
SAY "%s Ca astazi s-a nascut," 17@v
WAIT 13@ 
SAY "%s Cel far' de-nceput." 17@v
WAIT 13@ 
SAY "%s Cum au spus prorogi." 17@v
WAIT 13@ 
SAY "%s Ca, la Betleem, Maria," 17@v
WAIT 13@  
SAY "%s Savarsind calatoria," 17@v
WAIT 13@  
SAY "%s Intr-un mic salas," 17@v
WAIT 13@  
SAY "%s Langa-acel oras," 17@v
WAIT 13@  
SAY "%s S-a nascut Mesia." 17@v
WAIT 13@  
SAY "%s Pastorilor din campie" 17@v
WAIT 13@  
SAY "%s Le vesteste-o bucurie:" 17@v
WAIT 13@  
SAY "%s Astazi S-a nascut" 17@v
WAIT 13@  
SAY "%s Cel far-de-nceput," 17@v
WAIT 13@  
SAY "%s Cum au zis proorocii." 17@v
WAIT 13@ 
SAY "%s In coliba pastoreasca," 17@v
WAIT 13@  
SAY "%s Vrut-a Domnul sa se nasca" 17@v
WAIT 13@  
SAY "%s Fiul Sau cel Sfant," 17@v
WAIT 13@  
SAY "%s Noua pe pamant" 17@v
WAIT 13@  
SAY "%s Sa ne mantuiasca." 17@v
WAIT 13@ 
SAY "%s Pastorii cum auzira" 17@v
WAIT 13@  
SAY "%s Spre lacasul sfant pornira," 17@v
WAIT 13@  
SAY "%s Unde au aflat" 17@v
WAIT 13@  
SAY "%s Prunc prealuminat" 17@v
WAIT 13@  
SAY "%s Si il preamarira." 17@v
WAIT 13@ 
SAY "%s Pe Fiul in al Sau nume" 17@v
WAIT 13@  
SAY "%s Pe Fiul in al Sau nume" 17@v
WAIT 13@  
SAY "%s Sa se nasca" 17@v
WAIT 13@  
SAY "%s Si sa creasca," 17@v
WAIT 13@  
SAY "%s Sa ne mantuiasca. | [Shanker  iti ureazã sãrbãtori fericite!]" 17@v
3@ = 0
ELSE
IF 3@ == 6
THEN
SAY "%s Sus la poarta raiului" 17@v
WAIT 13@ 
SAY "%s Poarta raiului" 17@v
WAIT 13@ 
SAY "%s Paste turma tatalui" 17@v
WAIT 13@  
SAY "%s Turma tatalui" 17@v
WAIT 13@   
SAY "%s Linu-i lin si iara lin" 17@v
WAIT 13@ 
SAY "%s Bate vantul frunza lin" 17@v 
WAIT 13@ 
SAY "%s Lin si iara lin" 17@v
WAIT 13@ 
SAY "%s Linu-i lin si iara lin" 17@v
WAIT 13@ 
SAY "%s Bate vantul frunza lin" 17@v
WAIT 13@ 
SAY "%s Lin si iara lin" 17@v
WAIT 13@ 
SAY "%s Dar la poarta cine sta?" 17@v
WAIT 13@  
SAY "%s Oare cine sta?" 17@v
WAIT 13@  
SAY "%s Sta chiar Maica Precista" 17@v
WAIT 13@ 
SAY "%s Maica Precista" 17@v
WAIT 13@ 
SAY "%s Langa ea un leganel" 17@v
WAIT 13@ 
SAY "%s Da un leganel" 17@v
WAIT 13@ 
SAY "%s Cu un copilas in el" 17@v
WAIT 13@ 
SAY "%s Copilas in el" 17@v
WAIT 13@ 
SAY "%s Copilasul cand plangea" 17@v
WAIT 13@ 
SAY "%s Puiul cand plangea" 17@v
WAIT 13@                      
SAY "%s Maica Sfanta-l legana" 17@v
WAIT 13@ 
SAY "%s Maica-l legana | [Shanker  iti ureazã sãrbãtori fericite!]" 17@v
3@ = 0
ELSE
IF 3@ == 7
THEN
SAY "%s Trei pastori se intalnira" 17@v
WAIT 13@ 
SAY "%s Trei pastori se intalnira" 17@v
WAIT 13@ 
SAY "%s Raza soarelui, floarea soarelui" 17@v
WAIT 13@ 
SAY "%s Si asa se sfatuita:" 17@v
WAIT 13@ 
SAY "%s Haideti fratilor sa mergem" 17@v
WAIT 13@ 
SAY "%s Haideti fratilor sa mergem" 17@v
WAIT 13@ 
SAY "%s Raza soarelui, floarea soarelui" 17@v
WAIT 13@ 
SAY "%s Floricele sa culegem." 17@v
WAIT 13@ 
SAY "%s Si sa facem o cununa" 17@v
WAIT 13@ 
SAY "%s Si sa facem o cununa" 17@v
WAIT 13@ 
SAY "%s Raza soarelui, floarea soarelui" 17@v
WAIT 13@ 
SAY "%s S-ompletim cu voie buna." 17@v 
WAIT 13@ 
SAY "%s Si s-o ducem lui Hristos" 17@v
WAIT 13@ 
SAY "%s Si s-o ducem lui Hristos" 17@v
WAIT 13@ 
SAY "%s Raza soarelui, floarea soarelui" 17@v
WAIT 13@ 
SAY "%s Sa ne fie de folos. | [Shanker  iti ureazã sãrbãtori fericite!]" 17@v
3@ = 0
END
END
END
END
END
END
END
0002: jump @Noname_460 

:Noname_460
00D6: if and
0ADC:   test_cheat "SEXMACHINE"
8B21:   not samp is_chat_opened 
004D: jump_if_false @Noname_485 
 
:Noname_485
0002: jump @Noname_6 
 
:Noname_492
0002: jump @Noname_2

:Noname_69
wait 0
jump @Noname_69

:Colinde
SAMP.IsCommandTyped(0@)
IF 0AD4: 1@ = scan_string 0@ format "%d" 2@ //IF and SET
JF @ERROR
IF
2@ == 1
THEN 3@ = 1
ELSE
IF 
2@ == 2
THEN 3@ = 2
ELSE
IF 2@ == 3
THEN 3@ = 3
ELSE
IF 2@ == 4
THEN 3@ = 4
ELSE
IF 2@ == 5
THEN 3@ = 5
ELSE
IF 2@ == 6
THEN 3@ = 6
ELSE
IF 2@ == 7
THEN 3@ = 7
ELSE
IF OR
2@ >= 8
2@ <= 0
THEN CHATMSG "Alege un numar intre 1 si 7. " -1
END
END
END
END
END
END
END
END
0@ = 0
SAMP.CmdRet

:ERROR
CHATMSG "{e900ff}Syntax:{FFFFFF} /colinde 1-7 | Scrie {f97909}/view {FFFFFF}pentru a vedea colindele. " -1
SAMP.CmdRet

:ERROR_2
CHATMSG "Cooldown curent: %d " -1 13@
SAMP.CmdRet

:SetChat
SAMP.IsCommandTyped(16@)
0AF5: write_string 16@ to_ini_file "cleo\a.ini" section "Section" key "String"
0AF4: 17@v = read_string_from_ini_file "cleo\a.ini" section "Section" key "String"
chatmsg "Ai ales urmatorul chat: %s" -1 17@v
SAMP.CmdRet

:ERROR_3
CHATMSG "Alege un chat. " -1
SAMP.CmdRet

:SetTime
SAMP.IsCommandTyped(10@)
IF 0AD4: 11@ = scan_string 10@ format "%d" 13@ //IF and SET
JF @ERROR_2
CHATMSG "Ai pus un cooldown de %d ms intre versuri. " -1 13@
SAMP.CmdRet

 :View
 SAMP.IsCommandTyped(6@)
 0AC6: 7@ = label @View_2 offset
 SAMP.ShowDialog(7777, "{8c7299}[Colinde by Shanker] {FFFFFF}#Previzualizare", 7@, "Exit", "", 0)
 SAMP.CmdRet
 
  
  :View_2
  hex
 20 20 31 2E 20 41 73 74 61 7A 69 20 73 2D 61 20 6E 61 73 63 75 74 20 48 72 69 73 74 6F 73 20 0D 0A 20 20 32 2E 20 42 75 6E 61 20 73 65 61 72 61 20 6C 61 20 4D 6F 3F 20 41 6A 75 6E 21 0D 0A 20 20 33 2E 20 44 6F 6D 6E 2C 20 
 44 6F 6D 6E 20 73 61 2D 6E 61 6C 74 61 6D 20 0D 0A 20 20 34 2E 20 4C 65 72 75 2D 69 20 6C 65 72 2C 20 63 6F 70 69 6C 20 73 74 69 6E 67 68 65 72 0D 0A 20 20 35 2E 20 4F 2C 20 63 65 20 76 65 73 74 65 20 6D 69 6E 75 6E 61 
 74 61 0D 0A 20 20 36 2E 20 53 75 73 20 6C 61 20 70 6F 61 72 74 61 20 52 61 69 75 6C 75 69 0D 0A 20 20 37 2E 20 54 72 65 69 20 70 61 73 74 6F 72 69 0D 0A 20 20 38 2E 20 54 72 65 69 20 63 72 61 69 20 64 65 20 6C 61 20 52 
 61 73 61 72 69 74 20 7C 20
  end

 

How can I change the script so he won't repeat 0B34 all time? Because I Need Console ...

I Tried With 0C90:  samp is_client_command_defined "cmd" but it don't work, idk why.
 
Sort by date Sort by votes
Status
Not open for further replies.
Top