Angelbot

09/13/2008 19:31 KenanX#1
Hi erstmal,
ich wollte mal nachfragen wie ich in nem angelbot script:
If $Fish1 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish1 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
...


machen kann dass der von f1 f2 und f3 die köder nacheinander nimmt...also dass der immer nacheinander die 3 tasten drückt.
THX schon mal
09/14/2008 12:38 mardin_47#2
könntest du mal den ganzen bot rein machn..dann is es einfacher!!!
09/14/2008 12:39 mardin_47#3
...
09/14/2008 12:41 KenanX#4
HotKeySet ( "{End}" , "Start" )
HotKeySet ( "{Escape}" , "Ende" )

Opt('PixelCoordMode', 2)
Opt('MouseCoordMode', 2)

While (1)
Sleep (1000)
Wend

Func Start ()
While (1)
Sleep (2000)
Send ( "{F3 down}" , 0 )
Sleep (500)
Send ( "{F3 up}" , 0 )
Sleep (1000)
Send ( "{F4 down}" , 0 )
Sleep (500)
Send ( "{F4 up}" , 0 )
Sleep (1000)
While (1)
$Fish1 = Pixelgetcolor ( 511, 283 )
$Fish2 = PixelgetColor ( 517, 274 )
$Fish3 = Pixelgetcolor ( 514, 291 )
$Fish4 = PixelgetColor ( 501, 245 )
$Fish5 = Pixelgetcolor ( 509, 283 )
$Fish6 = PixelgetColor ( 506, 289 )
$Fish7 = Pixelgetcolor ( 505, 290 )
$Fish8 = PixelgetColor ( 506, 284 )
$Fish9 = Pixelgetcolor ( 509, 266 )
$Fish10 = PixelgetColor ( 505, 246 )
$Fish11 = Pixelgetcolor ( 509, 271 )
$Fish12 = PixelgetColor ( 511, 312 )
$Fish13 = Pixelgetcolor ( 505, 287 )
$Fish14 = PixelgetColor ( 507, 297 )
$Fish15 = Pixelgetcolor ( 504, 308 )
$Fish16 = Pixelgetcolor ( 513, 326 )
$Fish17 = Pixelgetcolor ( 525, 302 )
$Fish18 = Pixelgetcolor ( 520, 293 )
If $Fish1 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish1 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish2 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish2 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish3 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish3 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish4 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish4 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish5 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish5 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish6 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish6 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish7 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish7 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish8 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish8 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish9 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish9 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish10 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish10 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish11 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish11 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish12 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish12 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish13 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish13 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish14 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish14 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish15 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish15 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish16 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish16 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish17 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish17 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish18 = 0xF6F2F6 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
If $Fish18 = 0xF9F5F9 Then
Sleep ( 2500 )
Send("{F4 down}")
Sleep(500)
Send("{F4 up}")
ExitLoop
EndIf
Sleep(500)
Wend
Sleep(1000)
Wend
Endfunc

Func Ende ()
Exit
EndFunc
09/14/2008 15:35 laksenluke#5
bitte benutz quotes
das is der nach marcos anleitung oder?
wegen dem köderproblem könntest du machen:
1. EIN BOT DER MIT DER MAUS KÖDER STAPELT, aso er zieht köder auf die anderen köder bei jedem mal, würde ich am anfang platzieren. So hättest du 600 köder
Quote:
Mouseclick ("", x,y) ; auf 1. köderklickn
Sleep (200)
Mouseclick ("",x,y) ; auf den köderklickn der auf F3 liegt
Sleep (200)
Mouseclick ("",x,y); auf 2. köderklickn
Sleep(200)
Mouseclick ("",x,y) ; auf den köderklickn der auf F3 liegt
Oder du könntest schauen ob es noch köder hat auf F3 und wenn nich dann F2 benutzen
aso ich würde die letzte stelle die untere ecke nachschaun

Quote:
If PixelGetColor (x,y) = farbe (nicht mehr weiss)
Then
Send (F4) ; weiss grad nich mehr wie Send befehl geht
hoffe habe geholfen
09/14/2008 18:58 KenanX#6
könntest du des gleich in meinen angelbot reinschreiben??...ich blick deine erklärung nich ganz sry.
09/14/2008 19:55 Marabunta#7
so wie ich das seh ist das ja keine endlosschleife oder hab die stelle nicht gesehn wos so is halt...kenn mich da nich so aus aber als einer bei mir meinem bot eine endlosschleife gegeben hat wars viel kürzer(ach wasn wunderxD) naja dann könntest du ja sowas machen das du 3endlosschleifen einbaust die eine beginnt beim start die 2.beginnt wen die erste stoppt dann die dritte wen die 2.stoppt dann wieder von vorne und jedes mal mit ner andern taste kenn mich da aber nich so aus ich würds mal so vorschlagen(*gedankenblitzxD*)
ACHTUNG DAS IST "KLARTEXT" NICHT SO WIES SEIN SOLLTE...

start
drück f1
wen fischsymb.kommt ;sleep; drück f4
sleep etwas
drück f2
wen fischsymb.kommt ;sleep; drück f4
sleep etwas
drück f3
wen fischsymb.kommt ;sleep; drück f4
sleep etwas
dann set von vorne starten....
09/14/2008 20:25 KenanX#8
Ah jetzt hab ich deine erklärung gecheckt...thx laksenluke....gute idee mit wenn es auf f4 keine köder mehr hat dass der dann f3 benutzt
09/15/2008 15:40 Marabunta#9
hey meine idee is doch auch gut xD
09/16/2008 12:46 KenanX#10
jo...is ok....fast genausogut XD

EDIT: deide version is sogar besser...hab sie gerade getestet!!!!!!
THX
09/17/2008 00:34 iMer#11
also würd das ganze so machen dass er die einzelnen stellen scannt ob die leer sind also :
$koderf1 = Pixelgetcolor (x,y) ;bei mir geht das script mit dem 'ö' nicht ^^
$koderf2 = Pixelgetcolor (x,y) ;für x,y die krods einsetzen
$koderf3 = Pixelgetcolor (x,y)
If $koderf1 = 'die farbe von dem leeren platz' Then;da kommt das autoit window infotool zum einsatz =)
;omg an der stelle bin ich zum nachdenken gekommen ka obs geht ^^ '
;also nach exel *kack info verdrängt autoit^^* dürfte es gehen =P
If $koderf2 = 'die farbe von dem leeren platz' Then
If $koderf3 = 'die farbe von dem leeren platz' Then
MsgBox (0, "Köder alle", "Keine Köder mehr der Bot wird beendet")
exit
else
$koderplatz={f3}
else
$koderplatz={f2}
else
$koderplatz={f1}
endif
endif
endif
;und dann am start:
Func Start ()
While (1)
Sleep (2000)
Send ( $koderplatz , 0 )
Sleep (1000)
Send ( "{F4 down}" , 0 )
Sleep (500)
Send ( "{F4 up}" , 0 )
Sleep (1000)


dürfte gehen ^-^

*mit arbeit zufrieden sei und brav pennen geh*

iMer
€dit pööösen fehler gefixxt ^-^
joa ich glaub meine is diie bste wenn sie funzt =)
09/17/2008 16:38 KenanX#12
Ich find die is zu aufwendig...die von marabunta is besser und funktionieren tut sie perfekt!!!
09/17/2008 17:39 laksenluke#13
mach wie du willst¨¨
eine frage: macht es allgemein etwas aus wo man Variablen : plaziert?

Und noch was ich suche schon lange einen Counter bzw. Zähler für meinen fischbot^^
nix funzt¨¨ er hört immer so nach 30min- 5h auf. Sonst könnte mein fischöffner mehr bringen