Erbitte Hilfe bei einfachem Script!

10/25/2008 11:47 AdvancedNewbie#1
Zur Vorgeschichte... Ich farme Vaettiere im HM in der Jaga Moräne mit Budger Schwarzpulver. Ich muss dafür relativ schnell die Fässer von Budger nehmen und wieder ablegen. Da dieses wilde auf der Tastatur gehämmere meine Frau aber ein wenig stört habe ich mir gedacht ich mache mir ein Script das nur die Funktion hat die Fässer anzunehmen und abzulegen.
Nun besitzte ich aber leider nur "sehr rudimentäre" Programmierkenntnisse.
Also habe ich aus dem Publicscript von Master Gunners HFFF mir die Zeilen rausgesucht die mir für diese Aufgabe wichtig erschienen.
Wenn ich nun allerdings Budger in GW anwähle und Pos1 (Home) auf meiner Tastatur drücke passiert gar nix.
Numpad 7 ist Aktion Ausführen (annehmen) und Numpad 8 ist Gegenstand wegwerfen zugewiesen. Per Hand funktioniert das ganze auch... Nur das Script will irgendwie nicht... Gebt mir doch bitte mal einen Tipp was ich falschmache. Bin auch lernwillig ^^

Hier mal mein Script


HotKeySet("{HOME}", "_startrun")


Func _startrun()
Send("{NUMPAD7}")
$rndnumber = Random(1000, 2000)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(1000, 2000)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD7}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)
Send("{NUMPAD8}")
$rndnumber = Random(200, 300)
Sleep($rndnumber)

EndFunc

If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
EndIf



If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
EndIf


Danke jetzt schoneinmal für Hilfe!!!
10/25/2008 11:53 xSharkoonX#2
unten an script

while 1
sleep(10)
wend

dran weil wenn du nur die func hast bleibt das prog nicht offen ...es macht nur das winactivate und schließt sich wieder

mfg
10/25/2008 11:59 _revo#3
und noch dazu kannst du die func sehr verkürzen :) :

Code:
Func _startrun()
    Send("{NUMPAD7}")
    Sleep(Random(1000, 2000))
    Send("{NUMPAD8}")
    Sleep(Random(1000, 2000))
    for $i=0 to 32 ;32 = Anzahl der Wiederholungen
        Send("{NUMPAD7}")
        Sleep(Random(200, 300))
        Send("{NUMPAD8}")
        Sleep (Random(200, 300))
    next
EndFunc
10/25/2008 12:04 AdvancedNewbie#4
Ich danke euch ^^ ... Nun funktionierts! Und schon hab ich wieder was gelernt.
Vielen Dank nochmals!!!!