Bot Let`s fish na fb.

[Złomek123]

Witam, poszukuje bota własnie do let`s fish, mógłby mi ktoś dać go w pliku, który otworze i będzie już gotowy do użycia?

 

Z Góry dzięki.

[KURPIQ]

mój jest praktycznie gotowy do użycia kopiujesz do programu autoit scrip editor zapisujesz i gotowe

[Złomek123]

Masz może gg albo coś, chciałbym się też popytać o szczegóły.

[WaWa.]

jak to zrobic?

[lyszka26]

Pobierasz program

AutoIt v3

 

i instalujesz go i potem klikasz na autoit scrip editor

 

wklejasz to co dam w spojlerze i zapisujesz i gotowe

 

 

Global $mp ,$gar, $dp, $var ,$ap ,$sp ,$sar, $x, $y, $aaaa, $bsad, $cp, $car, $bp
HotKeySet("{F3}", "coorde")
HotKeySet("{F4}", "coord")
HotKeySet("{F5}", "coord4")
HotKeySet("{F7}", "coord2")
HotKeySet("{F6}", "coord3")
HotKeySet("{F8}", "start")
HotKeySet("{F9}", "End")
$P1=true
MsgBox(4096, "By kurpiq", "Bot wykonany w 100% przezemnie, jeśli pobrałeś to z innego miejsca niż mpcforum to znaczy że osoba umieszczająca to bez mojej zgody jest złodziejem. zastrzegam sobię prawa do tego bota //KURPIQ", 5)
$czas = InputBox("Program", "Czas trzymania spacji w górze: ", "5")
$grass = InputBox("Program", "Czas czekania po odświerzeniu (w sek) ", "20")
$ass = InputBox("Program", "Czas co jaki ma nastąpić reset (w min): ", "10")
$aaaa= 1
$bsad= InputBox("Program", "zrobić (1) czy nie (0) branie dopalaczy ", "0")
;;;; Body of program would go here ;;;;
While 2
Sleep(1000)
WEnd
Func start()
adlibregister("zmien1", $ass*60000)
while 1
if $P1 then
vest()
else
rese()
$P1=true
endif
wend
EndFunc
Func rese()
MouseClick ( "left" , $ap[0], $ap[1],1,1 )
Sleep($grass*1000)
MouseClick ( "left" , $mp[0], $mp[1],1,1 )
Send("{ESC}")
Sleep(500)
MouseClick ( "left" , $mp[0], $mp[1],1,1 )
Sleep(500)
Send("{ESC}")
MouseClick ( "left" , $mp[0], $mp[1],1,1 )
Sleep(500)
Send("{ESC}")
MouseClick ( "left" , $mp[0], $mp[1],1,1 )
Sleep(500)
Send("{ESC}")
$aaaa=1
cap()
EndFunc
func zmien1()
$P1=false
endfunc
;;;;;;;;
Func cap()
If $bsad=2 Then
MouseClick ( "left" , $mp[0], $mp[1],1,1 )
Sleep(500)
Send("{ESC}")
MouseClick("left", $bp[0],$bp[1],1,1)
Sleep(500)
$assda = PixelSearch($cp[0] - 10 , $cp[1] - 10 , $cp[0] + 10 , $cp[1] + 10, $car)
If Not @error Then
MouseClick("left",$cp[0],$cp[1],1,1)
Sleep(500)
Else
Send("{ESC}")
Sleep(500)
$bsad=0
EndIf
MouseClick ( "left" , $mp[0], $mp[1],1,1 )
Sleep(500)
Send("{ESC}")
Sleep(500)
Send("{ESC}")
Sleep(500)
Send("{ESC}")
Sleep(500)
EndIf
EndFunc
Func coorde()
If $bsad=2 Then
$cp = MouseGetPos()
$car = PixelGetColor($cp[0], $cp[1])
TrayTip("ok 2", 2, 1)
EndIf
If $bsad=1 Then
$bp = MouseGetPos()
$bsad=2
TrayTip("ok 1", 2, 1)
EndIf
EndFunc
Func coord()
Sleep(200)
$ap = MouseGetPos()
Sleep(200)
TrayTip("ok", 2, 1)
EndFunc
Func coord4()
Sleep(200)
$sp = MouseGetPos()
$sar = PixelGetColor($sp[0], $sp[1])
Sleep(200)
TrayTip("ok", 2, 1)
EndFunc
Func coord2()
Sleep(200)
$mp = MouseGetPos()
$var = PixelGetColor($mp[0], $mp[1])
Sleep(200)
TrayTip("ok", 2, 1)
EndFunc
Func coord3()
Sleep(200)
$dp = MouseGetPos()
$gar = PixelGetColor($dp[0], $dp[1])
Sleep(200)
TrayTip("ok", 2, 1)
EndFunc
Func vest()
If $aaaa=1 Then
zarzut()
Else
work()
EndIf
EndFunc
Func Work()
$marmolada = PixelSearch($dp[0] - 100 , $dp[1] - 100 , $dp[0] + 100 , $dp[1] + 100, 0x46b434)
If Not @error Then
Send("{SPACE up}")
Sleep($czas)
Else
Send("{SPACE down}")
EndIf
$seed = PixelSearch($mp[0] - 50 , $mp[1] - 50 , $mp[0] + 50 , $mp[1] + 50 , $var)
If $seed = 0 Then
Send("{esc}")
Sleep(1000)
Send("{esc}")
Sleep(1000)
Send("{esc}")
Sleep(1000)
$aaaa=1
Else
$aaaa=0
EndIf
EndFunc
Func zarzut()
$abadar = PixelSearch($sp[0] - 30 , $sp[1] - 30 , $sp[0] + 30 , $sp[1] + 30 , $sar)
If Not @error Then
Send("{SPACE}")
$aaaa=0
Sleep(1000)
EndIf
EndFunc
Func End()
Exit 0
EndFunc

 

[Ubytek]

jak to zrobic?

Następnym razem pilnuj się daty.