CLEO Help Fishing Bot

CLEO related
Status
Not open for further replies.
C

cocalova123

New member
Joined
Apr 28, 2014
Messages
2
Reaction score
0
Hey,

I wanted to ask if someone know if there exist a Fishing bot like this or someone can help me creating a bot/creating yourself.
Below is a Youtube Video where you see what the bot should do.
Basicly you just have to wait until there comes a text message like this.

ACHTUNG: Dein Fang scheint sich zu wehren, drücke die Tasten um stärker zu ziehen!

And then the bot have to click the arrow keys that showing up in the screen like in the Video below.

So Bot have to read the text message and then click the arrows.

 
Sort by date Sort by votes
Parazitas

Parazitas

God
Joined
Jan 2, 2017
Messages
3,115
Solutions
5
Reaction score
879
Location
Lithuania
kingas18674 said:
Ant sarg.lt gali padaryt? Naudoju 0.3.7 versiją
Click to expand...
http://www.mediafire.com/file/lbi19nzpvyj5gv9/Fishing+bot.cs

PHP: 
{$CLEO .cs}

0000:

REPEAT
   WAIT 0
UNTIL 0AFA:  SAMP_IS_READY 
{
0x57 W key
0x53 S key
0x41 A key
0x44 D key
}

WHILE TRUE
   WAIT 0
   
for 1@ = 0 to 2304

if 0C5D: samp textdraw 1@ is_exists
then                            
    alloc 2@ = 1024
    0C5A: samp textdraw 1@ get_string_to 2@
    if
    0C29: $NOT_USED = stristr string1 2@ string2 "LD_BEAT:"
    then
        if
        0C29: $NOT_USED = stristr string1 2@ string2 "LD_BEAT:down"
        then
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x53 state 255
            wait 100
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x53 state 0
        end
        
        if
        0C29: $NOT_USED = stristr string1 2@ string2 "LD_BEAT:right"
        then
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x44 state 255
            wait 100
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x44 state 0
        end
        
        if
        0C29: $NOT_USED = stristr string1 2@ string2 "LD_BEAT:up"
        then
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x57 state 255
            wait 100
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x57 state 0
        end
        
        if
        0C29: $NOT_USED = stristr string1 2@ string2 "LD_BEAT:left"
        then
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x41 state 255
            wait 100
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x41 state 0
        end  
    end            
    free 2@
end

end

end

:Set_Virtual_Key
{
    255 = true
    0 = false
    0AB1: @Set_Virtual_Key 2 KeyOffSet 0x57 state 255
}
2@ = 0xB72CC8
0@ *= 2
005A: 2@ += 0@  // (int)
0A8C: write_memory 2@ size 1 value 1@ virtual_protect 0
0AB2: ret 0
 
Last edited:
Upvote 0 Downvote
K

kingas18674

Member
Joined
Oct 14, 2018
Messages
11
Reaction score
0
Parazitas said:
http://www.mediafire.com/file/lbi19nzpvyj5gv9/Fishing+bot.cs

PHP: 
{$CLEO .cs}

0000:

REPEAT
   WAIT 0
UNTIL 0AFA:  SAMP_IS_READY
{
0x57 W key
0x53 S key
0x41 A key
0x44 D key
}

WHILE TRUE
   WAIT 0
  
for 1@ = 0 to 2304

if 0C5D: samp textdraw 1@ is_exists
then                           
    alloc 2@ = 1024
    0C5A: samp textdraw 1@ get_string_to 2@
    if
    0C29: $NOT_USED = stristr string1 2@ string2 "LD_BEAT:"
    then
        if
        0C29: $NOT_USED = stristr string1 2@ string2 "LD_BEAT:down"
        then
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x53 state 255
            wait 100
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x53 state 0
        end
       
        if
        0C29: $NOT_USED = stristr string1 2@ string2 "LD_BEAT:right"
        then
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x44 state 255
            wait 100
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x44 state 0
        end
       
        if
        0C29: $NOT_USED = stristr string1 2@ string2 "LD_BEAT:up"
        then
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x57 state 255
            wait 100
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x57 state 0
        end
       
        if
        0C29: $NOT_USED = stristr string1 2@ string2 "LD_BEAT:left"
        then
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x41 state 255
            wait 100
            0AB1: @Set_Virtual_Key 2 KeyOffSet 0x41 state 0
        end 
    end           
    free 2@
end

end

end

:Set_Virtual_Key
{
    255 = true
    0 = false
    0AB1: @Set_Virtual_Key 2 KeyOffSet 0x57 state 255
}
2@ = 0xB72CC8
0@ *= 2
005A: 2@ += 0@  // (int)
0A8C: write_memory 2@ size 1 value 1@ virtual_protect 0
0AB2: ret 0
Click to expand...
Why this doesn't work?
 
Upvote 0 Downvote
Status
Not open for further replies.
Top