Angelbot

[KenanX]

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

[mardin_47]

könntest du mal den ganzen bot rein machn..dann is es einfacher!!!

[mardin_47]

...

[KenanX]

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

[laksenluke]

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

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

If PixelGetColor (x,y) = farbe (nicht mehr weiss)
Then
Send (F4) ; weiss grad nich mehr wie Send befehl geht

hoffe habe geholfen

[KenanX]

könntest du des gleich in meinen angelbot reinschreiben??...ich blick deine erklärung nich ganz sry.

[Marabunta]

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....

[KenanX]

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

[Marabunta]

hey meine idee is doch auch gut xD

[KenanX]

jo...is ok....fast genausogut XD

EDIT: deide version is sogar besser...hab sie gerade getestet!!!!!!
THX

[iMer]

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 =)

[KenanX]

Ich find die is zu aufwendig...die von marabunta is besser und funktionieren tut sie perfekt!!!

[laksenluke]

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