Sho
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Sho

Sho Clan Forum (BFD:R)
 
rodiklisIeškotiLatest imagesRegistruotisPrisijungti

Sho :: M I S C :: Off Topic
 

 FarmVille bot su AutoIt

Go down 
AutoriusPranešimas
HaxLi

HaxLi


Pranešimų skaičius : 169
Age : 38
Miestas : Šiauliai
L2 Profs : HRP ES BS WC [NOBL]
Registration date : 2007-05-16

FarmVille bot su AutoIt Empty
RašytiTemos pavadinimas: FarmVille bot su AutoIt   FarmVille bot su AutoIt Icon_minitime2010-01-28, 12:33
Gal kas norit GUI pagaminti?;D

F9 ir alt+F9 spaudinėja langelius
F10 sustabdo
F7 spaudinėt gyvūnams

Kodas:
;   :::Opts::::::::
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("MouseCoordMode",0)
Opt("MouseClickDownDelay", 100)   ;For effective click (lower can not work)

$name="FarmVille Facebook'e - Mozilla Firefox"

;~ WinWait($name,"")
;~ If Not WinActive($name,"") Then WinActivate($name,"")
;~ WinWaitActive($name,"")

WinActivate($name,"")

;   :::HotKeys:::::
HotKeySet("{F7}", "ClickA")
HotKeySet("{F10}", "Wait")
HotKeySet("{F9}", "Click1")
HotKeySet("!{F9}", "Click2")

TrayTip(": : : FarmVille Bot Info : : :", "F7 - Givūnų derliui" & @CRLF & "F9 - Laukų psaudinėjimas 10x10" & @CRLF & "F10 - Stop" & @CRLF & @CRLF & "2010.01.26  ©HaxLi", 20, 1)

$ix=20
$iy=20   ;Laukų kraštinės ilgis

$s=0   ;pelės greitis

$time=1083*$ix*$iy-120*$ix*$iy
Dim $c

;   :::Viskas:::::::
Func ClickA()   ;Kad nenervintų tas vištas spaudinėt ;D
   $m = MouseGetPos()
   MouseClick("left",$m[0],$m[1],1,$s)
   MouseClick("left",$m[0]+10,$m[1]+50,1,$s)
   MouseMove($m[0],$m[1],$s)
EndFunc

Func Click1()
   $c = MouseGetPos()
   Square()
EndFunc

Func Click2()
   $c = MouseGetPos()
   Square()
   Square()
EndFunc

Func Square()
For $f=1 to $ix
   For $i=1 to $iy
;~       If $f&"."&$i=6.7 OR $f&"."&$i=1.12 Then
;~       Else
         MouseClick("left",$c[0]+25*-($i-1)+25*-($f-1),$c[1]+12*-($i-1)+12*($f-1),1,$s)
;~       EndIf
   Next
Next
   TrayTip(": : FarmVille Bot Info : :", "~" & int($time/60/1000) & " min", 10, 1)
   Sleep($time)
   TrayTip(": : FarmVille Bot Info : :", "Baigta", 10, 3)
EndFunc

Func Wait()   ;Main Loop func
While 1
   Sleep(200)
WEnd
EndFunc

;   :::Loop::::::::
Wait()


Paskutinį kartą redagavo HaxLi, 2010-01-28, 13:37. Redaguota 1 kartą
Atgal į viršų Go down
http://Priekalas.lt
HaxLi

HaxLi


Pranešimų skaičius : 169
Age : 38
Miestas : Šiauliai
L2 Profs : HRP ES BS WC [NOBL]
Registration date : 2007-05-16

FarmVille bot su AutoIt Empty
RašytiTemos pavadinimas: Cafe World Bot   FarmVille bot su AutoIt Icon_minitime2010-01-28, 13:36
Kodas:
;   :::Opts::::::::
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("MouseCoordMode",0)
Opt("MouseClickDownDelay", 100)   ;For effective click (lower can not work)

$name="Café World Facebook'e - Mozilla Firefox"

WinWait($name,"")
If Not WinActive($name,"") Then WinActivate($name,"")
WinWaitActive($name,"")

;   :::HotKeys:::::
HotKeySet("{F6}", "Coord")
HotKeySet("!{F6}", "BuyC")
HotKeySet("{F7}", "Wait")
HotKeySet("{F9}", "Darbas")
HotKeySet("{F10}", "Darbas2")
HotKeySet("{F11}", "Darbas3")

TrayTip(": : : Cafe World Bot Info : : :", "F6 - Kepyklos Coord" & @CRLF & "Alt+F6 - Buy Coord" & @CRLF & "F9 - Start1" & @CRLF & "F10 - Start2" & @CRLF & "F11 - Start3" & @CRLF & "F7 - Stop" & @CRLF & @CRLF & "2010.01.25  ©HaxLi", 15, 1)

$k=14            ;keptuvių skaičius

$s=0            ;pelės greitis

Dim $c[2]=[375,582], $Bc[2]=[690,620]   ;pirmos keptuvės koordinatė

$laikas = 600000   ;kepimo laikas

$l1=800*$k
$l2=2750*$k         ;laikas tarp ciklų dieną
$l3=2250*$k

$l2x=2780*$k      ;dieninis laikas
$delyx=50


;~ $l1=900*$k
;~ $l2=2950*$k      ;laikas tarp ciklų naktį
;~ $l3=2400*$k

;~ $l2x=1000      ;naktinis laikas
;~ $delyx=3500



$d1=1300         ;pirkimo laikas tarp paspaudimų
$dely=50         ;laikas tarp paspaudimų

Func Keptuve($dely)
   K1($dely)
   K2($dely)
   K3($dely)
   K4($dely)
   K5($dely)
   K6($dely)
   K7($dely)
   K8($dely)
   K9($dely)
   K10($dely)
   K11($dely)
   K12($dely)
;~    K13($dely)
   K14($dely)
;~    K15($dely)
   K16($dely)
EndFunc

Func Laukimas($laukti)
   MouseMove($c[0]+10,$c[1]-50,$s)
   if $laukti>5000 Then
      Sleep($laukti-5000)
      TrayTip(": : Cafe World Bot Info : :", "Liko 5s", 1, 1)
      Sleep(1000)
      TrayTip(": : Cafe World Bot Info : :", "Liko 4s", 1, 1)
      Sleep(1000)
      TrayTip(": : Cafe World Bot Info : :", "Liko 3s", 1, 1)
      Sleep(1000)
      TrayTip(": : Cafe World Bot Info : :", "Liko 2s", 1, 1)
      Sleep(1000)
      TrayTip(": : Cafe World Bot Info : :", "Liko 1s", 1, 1)
      Sleep(1000)
      TrayTip(": : Cafe World Bot Info : :", "Laikas", 15, 3)
   Else
      Sleep($laukti)
   EndIf
EndFunc

Func Laikas()
   Sleep($laikas+$l2x+1000)
   TrayTip(": : Cafe World Bot Info : :", "Liko 15s", 6, 1)
   Sleep(5000)
   TrayTip(": : Cafe World Bot Info : :", "Liko 10s", 6, 1)
   Sleep(5000)
   TrayTip(": : Cafe World Bot Info : :", "Liko 5s", 1, 1)
   Sleep(1000)
   TrayTip(": : Cafe World Bot Info : :", "Liko 4s", 1, 1)
   Sleep(1000)
   TrayTip(": : Cafe World Bot Info : :", "Liko 3s", 1, 1)
   Sleep(1000)
   TrayTip(": : Cafe World Bot Info : :", "Liko 2s", 1, 1)
   Sleep(1000)
   TrayTip(": : Cafe World Bot Info : :", "Liko 1s", 1, 1)
   Sleep(1000)
   TrayTip(": : Cafe World Bot Info : :", "Laikas", 15, 3)
EndFunc

;   :::Keptuvių koordinatės:::::::
Func K1($dely)
   MouseClick("left",$c[0],$c[1],1,$s)
   Sleep($dely)
EndFunc

Func K2($dely)
   MouseClick("left",$c[0]-40,$c[1]+20,1,$s)
   Sleep($dely)
EndFunc

Func K3($dely)
   MouseClick("left",$c[0]+40,$c[1]+20,1,$s)
   Sleep($dely)
EndFunc

Func K4($dely)
   MouseClick("left",$c[0],$c[1]+40,1,$s)
   Sleep($dely)
EndFunc

Func K5($dely)
   MouseClick("left",$c[0]+80,$c[1]+40,1,$s)
   Sleep($dely)
EndFunc

Func K6($dely)
   MouseClick("left",$c[0]+40,$c[1]+60,1,$s)
   Sleep($dely)
EndFunc

Func K7($dely)
   MouseClick("left",$c[0]+120,$c[1]+60,1,$s)
   Sleep($dely)
EndFunc

Func K8($dely)
   MouseClick("left",$c[0]+80,$c[1]+80,1,$s)
   Sleep($dely)
EndFunc

Func K9($dely)
   MouseClick("left",$c[0]+160,$c[1]+80,1,$s)
   Sleep($dely)
EndFunc

Func K10($dely)
   MouseClick("left",$c[0]+120,$c[1]+100,1,$s)
   Sleep($dely)
EndFunc

Func K11($dely)
   MouseClick("left",$c[0]+200,$c[1]+100,1,$s)
   Sleep($dely)
EndFunc

Func K12($dely)
   MouseClick("left",$c[0]+160,$c[1]+120,1,$s)
   Sleep($dely)
EndFunc

Func K13($dely)
   MouseClick("left",$c[0]+240,$c[1]+120,1,$s)
   Sleep($dely)
EndFunc

Func K14($dely)
   MouseClick("left",$c[0]+200,$c[1]+140,1,$s)
   Sleep($dely)
EndFunc

Func K15($dely)
   MouseClick("left",$c[0]+280,$c[1]+140,1,$s)
   Sleep($dely)
EndFunc

Func K16($dely)
   MouseClick("left",$c[0]+240,$c[1]+160,1,$s)
   Sleep($dely)
EndFunc

Func Buy()
;~    MouseMove(905,238)
   MouseClick("left",$Bc[0],$Bc[1],1,$s)
;~    MouseClick("left",427,587,1,$s)
;~    MouseClick("left",460,453,1,$s)
   Sleep(600)
EndFunc

Func BuyC()
   $Bc = MouseGetPos()
EndFunc

Func Coord()
   $c = MouseGetPos()
EndFunc

Func D1($dely)   ;maisto užsakymas
   WinWaitActive("Café World Facebook'e - Mozilla Firefox","")
   Laukimas(0)
   K1($dely)
   Buy()
   K2($dely)
   Buy()
   MouseMove($c[0]+40,$c[1]+10,1)
   K3($dely)
   Buy()
   K4($dely)
   Buy()
   MouseMove($c[0]+80,$c[1]+30,1)
   K5($dely)
   Buy()
   K6($dely)
   Buy()
   K7($dely)
   Buy()
   K8($dely)
   Buy()
   MouseMove($c[0]+160,$c[1]+70,1)
   K9($dely)
   Buy()
   K10($dely)
   Buy()
   K11($dely)
   Buy()
   K12($dely)
   Buy()
;~    K13($dely)
;~    Buy()
   K14($dely)
   Buy()
;~    K15($dely)
;~    Buy()
   K16($dely)
   Buy()
EndFunc

Func D2()   ;produktų paruošimas
   Laukimas($l1)
   WinWaitActive("Café World Facebook'e - Mozilla Firefox","")
   Laukimas(0)
   Keptuve($dely)
   Laukimas($l2)
   WinWaitActive("Café World Facebook'e - Mozilla Firefox","")
   Laukimas(0)
   Keptuve($dely)
   Laukimas($l2)
   WinWaitActive("Café World Facebook'e - Mozilla Firefox","")
   Laukimas(0)
   Keptuve($dely)
EndFunc

Func D3()   ;kepimo laikas, patiekimas ir valymas
   Laikas()
   WinWaitActive("Café World Facebook'e - Mozilla Firefox","")
   Laukimas(0)
   Keptuve($delyx)
   Laukimas($l2x)
   WinWaitActive("Café World Facebook'e - Mozilla Firefox","")
   Laukimas(0)
   Keptuve($dely)
   Laukimas($l3)
EndFunc

Func Darbas()   ;užsakymas, paruošimas, patiekimas
While(1)
   D1($d1)
   D2()
   D3()
WEnd
EndFunc

Func Darbas2()   ;kepimo laikas, patiekimas, paruošimas
   TrayTip(": : Cafe World Bot Info : :", "Laukiama ~" & $laikas/60/1000 & "min", 6, 1)
While(1)
   D3()
   D1($d1)
   D2()
WEnd
EndFunc

Func Darbas3()   ;patiekimas, valymas
   Laukimas(0)
   Keptuve($dely)
   Laukimas($l2)
   WinWaitActive("Café World Facebook'e - Mozilla Firefox","")
   Keptuve($dely)
   Laukimas($l2)
   WinWaitActive("Café World Facebook'e - Mozilla Firefox","")
   Keptuve($dely)
EndFunc


Func Wait()   ;Main Loop func
While(1)
   Sleep(200)
WEnd
EndFunc

;   :::Loop::::::::
Wait()
Atgal į viršų Go down
http://Priekalas.lt
 
FarmVille bot su AutoIt
Atgal į viršų 
Puslapis 1 iš 1

Permissions in this forum:Jūs negalite atsakinėti į pranešimus šiame forume
Sho :: M I S C :: Off Topic-
Pereiti į: