CLEO Help HELP

CLEO related
Status
Not open for further replies.

Dzey

Active member
Joined
Feb 1, 2018
Messages
30
Reaction score
1
THEN I getting error

Incorrect number of the conditions. 8 max.

i know its max 8, but this is needed to me


Code:
{$CLEO .cs}

0000: NOP

REPEAT
wait 0
UNTIL 0AFA:

0B34: "zbot" @table1 /// ACTIVATE and DE - ACTIVE with same command

0AC8: 2@ = allocate_memory_size 258
0AC8: 3@ = allocate_memory_size 258

WHILE TRUE
wait 0

FOR 1@ = 98 TO 99 /// Read line - almost last and last
0B75: samp get_chat_string 1@ text_to 2@ prefix_to 3@ color_to 4@ prefix_color_to 5@

IF
0@ == TRUE
THEN
    IF or
    0C29: $NOT_USED = strstr string1 2@ string2 "Ištraukiai nemažą raudę"
    0C29: $NOT_USED = strstr string1 2@ string2 "Nukando žilką... Pataisyk meškerę ir mes iš naujo"
    0C29: $NOT_USED = strstr string1 2@ string2 "Ant kabliuko pakibo supuvę batai,kuriuos iškart išmetei"
    0C29: $NOT_USED = strstr string1 2@ string2 "Niekas neužkibo..."
    0C29: $NOT_USED = strstr string1 2@ string2 "Dėja niekas neužkibo, turbūt bloga vieta. Pamėgink paplaukti toliau "
    0C29: $NOT_USED = strstr string1 2@ string2 "Gaila, tačiau šiandien ne tavo diena."
    0C29: $NOT_USED = strstr string1 2@ string2 "Slieka nuėdė,bet neužkibo,užmesk meškerę iš naujo"
    0C29: $NOT_USED = strstr string1 2@ string2 "Pamėgink savo laimę vėliau"
    0C29: $NOT_USED = strstr string1 2@ string2 "Ištraukiai seną piniginę"
    0C29: $NOT_USED = strstr string1 2@ string2 "Ištraukiai neblogo dydžio ešerį"
    0C29: $NOT_USED = strstr string1 2@ string2 "Po sunkios dvikovos, pavyko ištraukti lydeką."
    0C29: $NOT_USED = strstr string1 2@ string2 "Šaunuolis, šamas jau tavo kuprinėje."
    0C29: $NOT_USED = strstr string1 2@ string2 "Ohoho koks laimikis,ištraukiai 2kg lašišą"
    THEN
        say "/zvejoti"
        wait 1000
    END
END
end
END /// END FOR 1@ = 98 TO 99

END /// END WHILE TRUE



:table1
if
0@ == 0
then
    wait 500
    0ACD: show_text_highpriority "ZVEJYBA ~g~ONN~w~" time 1337
    018C: play_sound 1083 at 0.0 0.0 0.0
    0@ = 1
else
    wait 500
    0ACD: show_text_highpriority "ZVEJYBA ~r~OFF~w~" time 1337
    018C: play_sound 1084 at 0.0 0.0 0.0
    0@ = 0
end
0B43: samp cmd_ret
 

Krc

Active member
Joined
Mar 30, 2018
Messages
193
Reaction score
25
Location
Lithuania
Imk
Code:
{$CLEO .cs}
0000: NOP
REPEAT
Wait 0
Until 0AFA: is_samp_structures_available
0B34: "zbot" @Zvejyba
0@ = FALSE

0AC8: 1@ = allocate_memory_size 260
0AC8: 2@ = allocate_memory_size 260

While True
Wait 0
If
0@ == TRUE
Then
0B75: samp get_chat_string 99 text_to 1@ prefix_to 2@ color_to 3@ prefix_color_to 4@
If or
0C29: $NOT_USED = strstr string1 1@ string2 "Iðtraukiai nemaþà raudæ"
0C29: $NOT_USED = strstr string1 1@ string2 "Nukando þilkà... Pataisyk meðkeræ ir mes ið naujo"
0C29: $NOT_USED = strstr string1 1@ string2 "Ant kabliuko pakibo supuvæ batai,kuriuos iðkart iðmetei"
0C29: $NOT_USED = strstr string1 1@ string2 "Niekas neuþkibo..."
0C29: $NOT_USED = strstr string1 1@ string2 "Dëja niekas neuþkibo, turbût bloga vieta. Pamëgink paplaukti toliau "
0C29: $NOT_USED = strstr string1 1@ string2 "Gaila, taèiau ðiandien ne tavo diena."
0C29: $NOT_USED = strstr string1 1@ string2 "Slieka nuëdë,bet neuþkibo,uþmesk meðkeræ ið naujo"
0C29: $NOT_USED = strstr string1 1@ string2 "Pamëgink savo laimæ vëliau"
Then
say "/zvejoti"
wait 1000
end

If or
0C29: $NOT_USED = strstr string1 1@ string2 "Iðtraukiai senà piniginæ"
0C29: $NOT_USED = strstr string1 1@ string2 "Iðtraukiai neblogo dydþio eðerá"
0C29: $NOT_USED = strstr string1 1@ string2 "Po sunkios dvikovos, pavyko iðtraukti lydekà."
0C29: $NOT_USED = strstr string1 1@ string2 "Ðaunuolis, ðamas jau tavo kuprinëje."
0C29: $NOT_USED = strstr string1 1@ string2 "Ohoho koks laimikis,iðtraukiai 2kg laðiðà"
Then
say "/zvejoti"
wait 1000
end
    
end
END

:Zvejyba
0B12: 0@ = 0@ XOR TRUE
If
0@ == TRUE
Then
0ACD: show_text_highpriority "~W~Zuvu botas: ~G~ON~W~" time 1000
else
0ACD: show_text_highpriority "~W~Zuvu botas: ~R~OFF~W~" time 1000
end
CmdRet
 

Attachments

  • Botas.cs
    19.7 KB · Views: 4
Status
Not open for further replies.
Top