CLEO Help Help with bot

CLEO related
Status
Not open for further replies.

Edvincik

Well-known member
Joined
Mar 15, 2016
Messages
399
Reaction score
26
Code:
{$CLEO}
0000:
wait 5000

0AC8: 1@ = allocate_memory_size 260
0AC8: 2@ = allocate_memory_size 260
0AC8: 7@ = allocate_memory_size 260
0AC8: 15@ = allocate_memory_size 260
0AC8: 16@ = allocate_memory_size 260
0AC8: 17@ = allocate_memory_size 260

// LAUKIMO LAIKAS
15@ = 1400

:LAUKIMAS
wait 0
if
0AB0: 113
jf @LAUKIMAS
wait 500
jump @MAIN

:MAIN
wait 0 
0AB1: call @getChatEntryText 1 ID 99 to 1@
printf "~B~LAUKIAME ISKVIETIMO..." 500
if or
0AD4: $NOT_USED = 1@ format "** %s kvie%s" 2@v $NOT_USED // MECHANIKU ISKVIETIMAS
0AD4: $NOT_USED = 1@ format "[racija]: %s kvie%s" 2@v $NOT_USED // PAPRASTAS ISKVIETIMAS
0AD4: $NOT_USED = 1@ format "[racija]: %s y%s" 2@v $NOT_USED // NALOGO IR PASLAUGU ISKVIETIMAS
0AD4: $NOT_USED = 1@ format "[racija] Operatorë: %s kvie%s" 2@v $NOT_USED // MEDIKU ISKVIETIMAS
0AD4: $NOT_USED = 1@ format "[racija] %s atsijungë, perimk jo uþsakymà /vaziuoju %s" $NOT_USED 2@v // ISKVIETIMO PERIMIMAS
jf @SCREENSHOT
jump @RASYMAS_CALL

:SCREENSHOT
wait 0
if
0AB0: 119
jf @ISJUNGIMAS
printf " " 5000
wait 500
jump @MAIN

:ISJUNGIMAS
wait 0
if
0AB0: 113
jf @MAIN
printf " " 5000
wait 500
jump @LAUKIMAS

:RASYMAS_CALL
wait 0
0AD4: $NOT_USED = 2@v "%[^_]_%4[^_]" 10@v 20@v  //10@v = first name, 20@v = last name
0AD3: string_format 7@ format "/vaziuoju %s" 20@v
wait 15@
0AB1: @RASYMAS 1 7@
jump @LAUKIMAS

:RASYMAS
wait 0
IF 0AA2: 7@ = "samp.dll"
THEN
    7@ += 0x65C60
    0AA5: call 7@ num_param 1 pop 0 0@
END
0AB2: 0

{:RASYMAS
wait 15@
0AF9: "/vaziuoju %s" 2@v
wait 500     
jump @LAUKIMAS}

:getChatEntryText
0AB1: call @GetSampBase 0 1@
1@ += 0x21A0E4
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
1@ += 0x136
0@ *= 252
005A: 1@ += 0@ 
1@ += 28
0AB2: ret 1 1@

:GetSampBase
0AA2: 31@ = load_library "kernel32.dll" 
0AA4: 30@ = get_proc_address "GetModuleHandleA" library 31@ 
0AA7: call_function 30@ num_params 1 pop 0 "samp.dll" 0@
0ab2: ret 1 0@

@springfield Hi man you edited this for me if you can remember it
I have a question:
Now for example if Gerdiz_Black is calling for taxi it writes /vaziuoju Blac
So can it write like not upper case letter but lower instead? for example /vaziuoju blac? just start name from lowercase letter?
@monday man maybe you can help me too :)
 

Edvincik

Well-known member
Joined
Mar 15, 2016
Messages
399
Reaction score
26
Maybe somebody else can help me to insert that line correctly because its not working for me i may do something wrong,please help
 
Joined
Feb 18, 2005
Messages
2,963
Reaction score
267
C'mon, dude.. really? It ain't rocket science.

[shcode=cpp]
0AD3: string_format 7@ format "/vaziuoju %s" 20@v
0C28: strlwr in 7@ out 7@
[/shcode]

It's a SAMPFUNCS opcode, so you need SAMPFUNCS for it to work.
 

Edvincik

Well-known member
Joined
Mar 15, 2016
Messages
399
Reaction score
26
springfield said:
C'mon, dude.. really? It ain't rocket science.

[shcode=cpp]
0AD3: string_format 7@ format "/vaziuoju %s" 20@v
0C28: strlwr in 7@ out 7@
[/shcode]

It's a SAMPFUNCS opcode, so you need SAMPFUNCS for it to work.
Sorry man,thank you very much,i have sampfuncs btw,just putted that line in wrong place and complied in wrong format,merry xmas to everyone!!!
 

Paul159

Active member
Joined
Mar 20, 2014
Messages
87
Reaction score
0
springfield said:
C'mon, dude.. really? It ain't rocket science.

[font=arial, sans-serif]"Rockets are naturally impressive in terms of the power and the altitude they can reach, so their science[/font][font=arial, sans-serif] has been overhyped. Rocket science[/font][font=arial, sans-serif] isn't that hard[/font][font=arial, sans-serif]. It's the engineering that's hard[/font][font=arial, sans-serif]."[/font]
 
Status
Not open for further replies.
Top