Hallo,
Würde gerne einen Angelbot machen,
Jedoch bräuchte ich etwas hilfe
C
SetWorkingDir %A_ScriptDir%
#SingleInstance force
#include %A_ScriptDir%\SAMP.ahk
PosX := 822
PosY := 907
cBGR := 0x21CC5F
togglefish := false
flt := Round(1000 / fishleertick,0)
SetTimer, Fischbot, 500
F10::
MouseGetPos, PosX, PosY
PixelGetColor, cBGR , %PosX%, %PosY%
SoundBeep, 1500, 500
Return
F11::
if (togglefish == true){
SoundBeep, 500, 500
}
if (togglefish == false){
SoundBeep, 1000, 500
}
togglefish := !togglefish
Return
Fischbot:
While togglefish
{
currentheal := getPlayerHealth()
startleer1 := A_TickCount
while (currentheal == -1 and startleer1-A_TickCount <= 500){
currentheal := getPlayerHealth()
}
if (currentheal <= 10 and currentheal != -1){
SendInput t/use donut{enter}
}
Random, sleepfish, %fishwaitmin%, %fishwaitmax%
SendInput t/fish{enter}
Sleep, 350
GetChatLine(0, fspotcheck)
if InStr(fspotcheck, "FEHLER: Hier kannst du nicht angeln."){
SoundBeep, 400, 500
SoundBeep, 300, 500
SoundBeep, 150, 2000
togglefish := !togglefish
break
}
if (InStr(fspotcheck, "Du angelst bereits") and color != cBGR){
Sleep, 350
break
}
loop
{
PixelGetColor, color, %PosX%, %PosY%
if(color == cBGR)
break
Sleep, 100
if (!togglefish){
break, 2
}
GetChatLine(0, shit)
if InStr(shit, "Du hattest nur Algen am Haken.") or InStr(shit, "Du hast das Fischen abgebrochen.") or InStr(shit, "Du hattest nur eine Dose am Haken") or InStr(shit, "Du hattest nur einen toten Fisch am Haken.") or InStr(shit, "Du hattest nur einen kaputten Gartenschlauch am Haken") or InStr(shit, "Du hast ein rostiges Fahrrad geangelt") or InStr(shit, "Du hattest nur einen Autoreifen am Haken.") or InStr(shit, "Du hattest nur ein Nova-eSports Fanshirt am Haken.") or InStr(shit, "Es hat nichts angebissen."){
Sleep, %sleepfish%
continue, 2
}
}
startleer := A_TickCount
while (A_TickCount-startleer <= 45000){
if (!togglefish){
break, 2
}
PixelGetColor, colorrechts1, 987, 318
PixelGetColor, colorrechts2, 939, 295
PixelGetColor, colorrechts3, 935, 341
PixelGetColor, colorlinks1, 921, 315
PixelGetColor, colorlinks2, 969, 293
PixelGetColor, colorlinks3, 967, 340
PixelGetColor, colorunten1, 953, 343
PixelGetColor, colorunten2, 925, 302
PixelGetColor, colorunten3, 978, 299
PixelGetColor, coloroben1, 955, 284
PixelGetColor, coloroben2, 926, 332
PixelGetColor, coloroben3, 981, 333
if (colorrechts1 == 0x5F5E5F and colorrechts2 == 0x706C6A and colorrechts3 == 0x7B7A7B){
SendInput {Right down}
Sleep, 25
SendInput {Right up}
Sleep, 100
}
if (colorlinks1 == 0xA3A5A3 and colorlinks2 == 0x6E6A6E and colorlinks3 == 0x6B696B){
SendInput {Left down}
Sleep, 25
SendInput {Left up}
Sleep, 100
}
if (colorunten1 == 0x797B79 and colorunten2 == 0x6B696B and colorunten3 == 0x949294){
SendInput {Down down}
Sleep, 25
SendInput {Down up}
Sleep, 100
}
if (coloroben1 == 0xB0AFB0 and coloroben2 == 0x706C70 and coloroben3 == 0x7D7E7D){
SendInput {Up down}
Sleep, 25
SendInput {Up up}
Sleep, 100
}
GetChatLine(0, fischgef)
If InStr(fischgef, "Abgabe beim Wettbewerbsveranstalter") or InStr(fischgef, "Du hast ein") or InStr(fischgef, "Du hattest nur") or InStr(shit, "Du hast das Fischen abgebrochen."){
Sleep, %sleepfish%
break
}
}
}
Return
Alles anzeigen
der funktioniert nicht ganz, der schreibt zwar /fish wen man ihn einschaltet oder erkennt auch ob er an der falschen position ist, aber er drückt nichts und glaub sogar er ließt die Pfeile nicht aus.. Kann mir jemand da behilflich sein? Wäre dankbar.
Screen von den Pfeilen Ingame:
Pfeil OBEN:
Pfeil Unten:
Pfeil Rechts:
Pfeil Links:
Zur Info: (Ich habe diesen Angelbot.ahk gefunden aber er war leider nicht genau funktionstüchtig, mit der hoffnung das mir jemand hilft ihn zu voll enden )
Gruß