[Guide]Pickupbot selber scripten (mit potter)

Quote:

Originally Posted by adsaadsdassdfgh Hallo, ich habe mal mit der Sufu paar Pickupbots angeguckt und nix besonderes gefunden wie z.B: pause scripten und nur picken wenn metin2 aktiv ist. Also habe ich beschlossen selber eine Guide dazu zu erstellen. Download von Autoit: [Only registered and activated users can see links. Click Here To Register...] Zuerst kommt die Signatur die ich aber immer weglasse =) Hier nun der Queltext : ;;;;;;;;;;;;;;;;;;;;;;;; #include <GDIPlus.au3> #include <ScreenCapture.au3> #include <SendMessage.au3> Opt("TrayMenuMode", 1) Opt("WinTitleMatchMode", 4) $a=InputBox ("","Jede wievielte Millisecunde soll er die taste y drücken? (In Millisecunden schreiben) Z.B 500 Millisecunden = drückt jede halbe secunde") ; Wie schnell soll er picken? WinActivate ("METIN2") ; aktiviert Metin TrayTip ("Optionen","F5 pausiert den Bot und F6 beendet den Bot.",5,1) ; zur information hotkeyset("{F5}","pause") ; die hotkeys hotkeyset("{F6}","ende") ; die hotkeys while 1 ; startet die Endlosschleife BlockInput (1) ; Damit manche nicht auf blöde gedanken kommen =) Muss aber bei windows xp weggelassen ;werden weil sonst Maus und Keyboard geblockt sind sleep ($a) ; wiederholt so oft wie oben angegeben if WinActive ("METIN2") Then ; wenn metin2 aktiv ist dann send ("y") ; drückt er y endif ; beendet den if befehl $TP = Pixelgetcolor ( 119, 596) ; pixel für fenstermodus in auflösung 800*600 If $TP = 0x2b2b2b Then ; Die farbe send ("{1}") ; je nach dem wo die potts sind sleep (100) ; wartet 100 ms send ("{1}") ; pottet wieder sleep (300) ; wartet 300 ms weil er sonst direkt 100 mal pottet Endif wend ; beendet endosschleife func pause() ; der befehl für die pause Global $Paused $Paused = Not $Paused While $Paused Sleep(50) WEnd EndFunc ; func beenden func ende() ; befehl für exit Exit ; beendet das programm endfunc ; beendet den func Auch als download im anhang. Kommis bei bugs, fehlern usw. Ich hoffe ich hab euch geholfen. MFG SCORNI