Nestlinge Farmen - semi automatic

10/06/2008 23:51 Dexos#1
so ich hab mal ein bisschen rumgebastelt und bin zu folgendem ergebnis gekommen


PHP Code:
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("Guild Wars","")
WinActivate("Guild Wars")
WinActivate("Guild Wars")

Global 
$Paused
Global $mousespeed = 4
Global $koordchecksumx1 = 375
Global $koordchecksumx2 = 627
Global $koordchecksumy1 = 28
Global $koordchecksumy2 = 44
Global $check
Global $start
Global $RDY = InputBox("RDY?", "Wenn du bereit bist zu farmen schreib ne ""1"" wenn nicht dann ne ""2""" , "Hier rein damit!")

If 
$RDY = 1 Then
If Not WinActivate("Guild Wars") Then
WinActivate
("Guild Wars")
EndIf
Sleep(2000)
If 
$RDY = 2 Then
    
EXIT
EndIf
EndIf

;- 
START HOTKEY mit HOME könnt ihr den bot starten
HotKeySet
("{HOME}", "_fight")
;-
ENDE HOTKEY mit HOME könnt ihr den bot starten

;- START HOTKEY mit PAUSE Taste könnt ihr den bot Pausieren lassen
HotKeySet
("{PAUSE}", "TogglePause")

Global 
$Paused


Func TogglePause
()
$Paused = NOT $Paused
While $Paused
sleep
(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip
("Script is running")
If 
Not WinActivate("Guild Wars") Then
WinActivate
("Guild Wars")
EndIf
Sleep(2000)
EndFunc
;- ENDE HOTKEY mit PAUSE Taste könnt ihr den bot Pausieren lassen

;- START HOTKEY mit F8 beendet ihr das Script
hotkeyset
("{F8}", "end")

func end()
    Exit
EndFunc
;- ENDE HOTKEY mit F8 beendet ihr das Script

;-Start Function RandomSleep
func RandomSleep
($min, $max)
    
$time = Random($min, $max)
    
Sleep($time)
endfunc
;-Ende Function RandomSleep

;-start wait if Window is open
RandomSleep
(4000, 4200)
;-
end wait if Window is open
    
    
Func _fight
()
    
send("v")
    
RandomSleep(500, 600)
    
send("{SPACE}")
    
randomSleep(7200, 7500)
    
$a = Random(373,641)
    
$b = Random(443,483)
    
MouseClick("left" ,$a, $b,1)
    
RandomSLeep(2000, 2200)
    
send("r")
    
RandomSLeep(2000, 2200)
    
Send("{d down}")
    
RandomSleep(600, 700)
    
Send("{d up}")
    
RandomSleep(5000, 5500)
    
Send("{d down}")
    
RandomSleep(300, 320)
    
Send("{d up}")
    
RandomSleep(4000, 4500)
    
send("7")
    
send("r")
    
RandomSLeep(1000, 1200)
    
send("8")
    
RandomSLeep(1200, 1300)
    
Send("{w down}")
    
RandomSLeep(2000, 2200)
    
Send("{d down}")
    
RandomSleep(300, 400)
    
Send("{d up}")
    
RandomSleep(300, 400)
    
Send("{w up}")
    
RandomSleep(1000, 1200)
    
send("6")
    
RandomSLeep(1200, 1300)
    
send("2")
    
RandomSLeep(2500, 2600)
    
Send("{w down}")
    
RandomSleep(11000, 11200)
    
send("3")
    
RandomSLeep(3000, 3200)
    
Send("{w up}")
    
RandomSleep(2000, 2100)
    
send("2")
    
RandomSLeep(2000, 2100)
    
Send("{w down}")
    
RandomSleep(300, 350)
    
Send("{a down}")
    
RandomSleep(300, 400)
    
Send("{a up}")
    
RandomSleep(8000, 8050)
    
Send("{w up}")
    
RandomSLeep(1000, 1100)
    
send("3")
    
RandomSleep(1200, 1300)
    
send("1")
    
RandomSleep(4500, 4600)
    
send("2")
    
RandomSLeep(2500, 2600)
    
send("6")
    
RandomSleep(5000, 5300)
    
send("7")
    
send("8")
    
RandomSLeep(7000, 7200)
    
send("4")
    
RandomSLeep(1500, 1600)
    
send("5")
    
RandomSleep(3000, 3100)
    
send("2")
    
RandomSleep(2500, 2600)
    
send("6")
    
RandomSleep(1500, 1600)
    
send("7")
    
RandomSleep(3000, 3100)
    
send("4")
    
RandomSLeep(2000, 2150)
    
send("5")
    
RandomSleep(8000, 8200)
    
send("2")
    
RandomSleep(2500, 2600)
    
send("3")
    
RandomSLeep(1500, 1600)
    
send("4")
    
RandomSLeep(7500, 7800)
    
send("5")
    
RandomSleep(4000, 4200)
    
send("2")
    
RandomSleep(2500, 2600)
    
send("3")
    
RandomSLeep(2500, 2600)
    
send("4")
    
RandomSLeep(1500, 1600)
    
send("5")
    
RandomSleep(4000, 4200)
    
send("2")
    
RandomSleep(2500, 2600)
    
_Loot_Items() 
            
_giveup()
EndFunc

Func _Loot_Items
() 
    For 
$loot = 1 to 6
    Send
("y") 
        
Sleep(300)
    
Send("{SPACE}") 
        
sleep(1000)
    
Next
EndFunc

Func _giveup
()
    
send("{ENTER}")
    
RandomSleep(500, 700)
    
send("/")
    
RandomSleep(400, 600)
    
send("giveup")
    
RandomSleep(1000, 1200)
    
send("{ENTER}")
    
RandomSLeep(7700, 8000)
EndFunc 

meine frage nun: is es so möglich den bot semi-automatisch laufen zu lassen, das heißt der bot macht "nur" den run und sämtliche anderen sachen wie verkaufen wird von mir selbst gesteuert.

nachdem das mein allererster versuch ist bitte ich um verbesserungen ;-)
10/28/2008 19:53 densivilla#2
Setz eine while-Schleife ans Ende und definiere einen Hotkey für die Fight-Funktion dann sollte es funktionieren. Einige Variablen sind überflüssig.