[Guide]Pickupbot selber scripten (mit potter)

[ScOrNiLiSaToR]

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:

Zuerst kommt die Signatur die ich aber immer weglasse =)


;;;;;;;;;;;;;;;;;;;;;;;;

PHP Code:



#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

[ScOrNiLiSaToR]

¤ﯤ☺urće¤ 1.das ist keine kopie. such danch und zeig mir wo es das gibt
2. ich habe daran weiter rumgetüftelt und screenshot maker zu machen (mit erfolg, aber halte das hier für überflüssig)
und habe wohl vergessen das rauszunehmen. Es stört die funktionen aber nicht (darum gelassen). wenn das jetzt nicht geklärt ist dann stell mir weitere fragen ich antworte gerne =))) *g*

[invisible]

ich tus mal in den autoit bereich..

[Shadow992]

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:

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

ich finde das Tutorial .... naja eigentlich überflüssig , da das wirklich jeder halbwegs Gescheite zusammen bringen müsste ...... aber das ist nur meine Meinung .... kann sein , dass es Leute gibt , die soetwas brauchen .....