|
hey
ich suche auch gerade einen source script hatte mal einen aber gelöscht.
sehr kompliziert sieht der aus^^
KJ
edit hab nen script von marco polo
hier:
#cs ----------------------------------------------------------------------------
Bot Version: v 1.04
Author: MarcoPolo
Script Function:
Dieser Bot angelt automatisch für euch
#ce ----------------------------------------------------------------------------
HotKeySet ( "{Numpad7}" , "Start" ) ; Der Taste Numpad7 ist nun die Info Start hinzugefügt
HotKeySet ( "{Numpad8}" , "Ende" ) ; Der Taste Numpad8 ist nun die Info Ende hinzugefügt
Opt('PixelCoordMode', 2) ; falls window als option gewählt wurde
Opt('MouseCoordMode', 2) ; falls window als option gewählt wurde
While (1) ; Endlosschleife anfang und 1 für an
Sleep (1000) ; Überprüft jetzt jede Sekunde ob die oben genannten Tasten/Infos gedrückt worden sind
Wend ; Endlosschleife ende
Func Start () ; Das Zeil für die Info Start
While (1) ; die vorher fehlende While funktion sry xD
Sleep (5000) ; Wartet 5 sekunden bis er anfängt
Send ( "{F3 down}" , 0 ) ; hält die Taste F3 runter
Sleep (500) ; hält die taste 0,5 Sekunden
Send ( "{F3 up}" , 0 ) ; lässt die Taste F3 wieder los
Sleep (1000) ; Wartet 1ne Sekunde
Send ( "{F4 down}" , 0 ) ; hält die Taste F4 runter
Sleep (500) ; Hält die Taste 0,5 Sekunden
Send ( "{F4 up}" , 0 ) ; lässt die Taste F4 wieder los
Sleep (1000) ; Wartet wieder 1ne Sekunde
While (1)
$Fish1 = Pixelgetcolor ( 449, 131 )
$Fish2 = PixelgetColor ( 340, 109 )
$Fish3 = Pixelgetcolor ( 448, 133 )
$Fish4 = PixelgetColor ( 342, 108 )
$Fish5 = Pixelgetcolor ( 447, 130 )
$Fish6 = PixelgetColor ( 339, 107 )
$Fish7 = Pixelgetcolor ( 450, 134 )
$Fish8 = PixelgetColor ( 343, 110 )
$Fish9 = Pixelgetcolor ( 455, 104 )
$Fish10 = PixelgetColor ( 454, 100 )
$Fish11 = Pixelgetcolor ( 447, 132 )
$Fish12 = PixelgetColor ( 333, 104 )
$Fish13 = Pixelgetcolor ( 457, 130 )
$Fish14 = PixelgetColor ( 340, 119 )
$Fish15 = Pixelgetcolor ( 452, 100 )
If $Fish1 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish1 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish2 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish2 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish3 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish3 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish4 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish4 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish5 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish5 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish6 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish6 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish7 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish7 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish8 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish8 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish9 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish9 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish10 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish10 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish11 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish11 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish12 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish12 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish13 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish13 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish14 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish14 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish15 = 0xFBFBFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish15 = 0xFCFCFB Then
Sleep ( 3000 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
Sleep(500) ; Da der While Befehl ist muss auch ein Sleep befehl drin sein sonst überlastet das den PC unnötig
Wend
Sleep(3000) ; wartezeit , bevor er wieder von vorne anfängt
Wend ; die vorher fehlende Wend Funktion sry xD
Endfunc
Func Ende ()
Exit ; Programm beendet sich
EndFunc
thx sind sehr erwünscht
ich will noch mal benoten der ist NICHT (NICHT) von mir
sondern vom marco thx sind trotzdem erwünscht
|
