Untitled

chat := ""
fishes := wait := currindex := 0
IniRead, AutoReleaseFishes, %INIFile%, Settings, AutoReleaseFishes, 0
if(AutoReleaseFishes)
    fishprices := [["Pike", "Seebarsch", "Thunfisch", "Schildkröte", "Aal", "Penisfisch", "Makrele", "Dorsch", "Forelle", "Lachs", "Schwertfisch", "Roter Snapper", "Zackenbarsch", "Katzenfisch", "Blauer Marlin", "Amberjack"], [7, 6, 6, 5, 5, 5, 5, 4, 4, 4, 3, 3, 3, 2, 2, 1]]
while(!(InStr(chat, "Du hast zu viele Fische gefangen") OR InStr(chat, "Tote können keine Befehle") OR InStr(chat, "Du bist nicht auf") OR InStr(chat, "Du darfst nicht") OR InStr(chat, "Mit einem Premiumaccount kannst du") OR InStr(chat, "Du musst noch etwas warten") OR InStr(chat, "Deine Taschen sind voll") OR InStr(chat, "Wirf welche weg oder verkauf") OR InStr(chat, "Angeln ist in dieser Umgebung nicht möglich"))){
    SendChat("/fish")
    currindex ++
    WaitFor()
    GetChatLine(0, chat)
    if(InStr(chat, "Als Fraktionsmitglied kannst du nur alle 2 Sekunden angeln.")){
        wait := 1
        Sleep, 2000
    }
    else if(InStr(chat, "Du hast einen ") AND InStr(chat, "Gewicht: ")){
        currindex := 0
        if(AutoReleaseFishes AND (RegExMatch(chat, "Du hast einen (.+) .+ Gewicht: (\d+) Kg", chat) AND (chat2 < 10 OR (fishprices[2, ArrayMatch(chat1, fishprices[1])] * chat2) < AutoReleaseFishes)))
            SendChat("/releasefish " fishes + 1)
        else
            fishes ++
        if(wait AND (fishes != 5 AND fishes != 10))
            Sleep, 2000
    }
    if(A_Index / (fishes+1) > 18 OR currindex > 14)
        break
}
AddChatMessage("Fischen abge" (fishes ? "schlossen" : "brochen"))
return


Carbon Venturas <maximilianbaudach@googlemail.com>
10. März

an Marcel
Daaanke :>
Noch ne kleine Sache ^^
Kannst du mir die WaitFor() Function senden ?:)

MfG


Marcel Gerber <mg.hain@gmx.de>
10. März

an mich
WaitFor(){
    global WaitFor
    ping("server.nes-reallife.de", 32, 400)
    Sleep, % WaitFor
}


Carbon Venturas <maximilianbaudach@googlemail.com>
10. März

an Marcel
Servus, ich weiß net wieso aber das ganze geht bei mir nicht :/

Wärst du so nett mir das Script zu senden so dass es geht? :)

#include API.ahk
#Persistent
#NoEnv

Gui, Show, w479 h379, Untitled GUI
return

GuiClose:
ExitApp

WaitFor(){
    global WaitFor
    ping("server.nes-reallife.de", 32, 400)
    Sleep, % WaitFor
}

!1::
#include API.ahk
#Persistent
#NoEnv

Gui, Show, w479 h379, Untitled GUI
return

GuiClose:
ExitApp

WaitFor(){
    global WaitFor
    ping("server.nes-reallife.de", 32, 400)
    Sleep, % WaitFor
}

!1::


Marcel Gerber <mg.hain@gmx.de>
11. März

an mich
Achso, hab jetzt gar nicht mehr an das Fisch-Script gedacht. WaitFor kannst du einfach durch Sleep, 500 ersetzen, SendChat entweder per API oder einfach mit SendInput ersetzen, GetChatLine entweder per API oder selber schreiben (Nö, da helf ich dir net ;)), AddChatMessage entweder per API, per SendInput oder einfach rauslassen.


Carbon Venturas <maximilianbaudach@googlemail.com>
11. März

an Marcel
Ah ok danke :D weil so wie ich's verstanden habe versucht der auf Server.nes-reallife.de den Pinguin abzufragen und wenn man die domain im Browser abruft will der ein Kennwort ^^
Danke mit dem Rest kenn ich mich ja aus


- Gesendet mit HTC


Marcel Gerber <mg.hain@gmx.de>
11. März

an mich
"den Pinguin abfragen" :D
Ping ist ein eigenes Subprotokoll (implementiert über TCP), das auf den meisten Servern verfügbar ist, ein Passwort, das du bei HTTP-Zugriff eingeben musst, ist also nicht nötig.


Carbon Venturas <maximilianbaudach@googlemail.com>
11. März

an Marcel
Noch was hahaha
Weist du was damit gemeint ist ^^

 ==> Call to nonexistent function.
     Specifically: ArrayMatch(chat1, fishprices[1])] * chat2) < AutoReleaseFishes)))

(Error aus der Zeile:)


Marcel Gerber <mg.hain@gmx.de>
11. März

an mich
Ersetze die Zuweisung oben durch fishprices := {"Pike": 7, "Seebarsch": 6, "Thunfisch": 6, "Schildkröte": 5, "Aal": 5, "Penisfisch": 5, "Makrele": 5, "Dorsch": 4, "Forelle": 4, "Lachs": 4, "Schwertfisch": 3, "Roter Snapper": 3, "Zackenbarsch": 3, "Katzenfisch": 2, "Blauer Marlin": 2, "Amberjack": 1}
Und dann unten fishprices[chat1]

(Nicht getestet)


Carbon Venturas <maximilianbaudach@googlemail.com>
11. März

an Marcel
Also ich hab es jetzt so geschrieben, dass es geht, allerdings wirft es die Fische nicht zurück.
Er fischt 10 stück und behält alle auch den mit einem Gramm.

!1::
chat := ""
fishes := wait := currindex := 0
IniRead, AutoReleaseFishes, Settings, Settings, AutoReleaseFishes, 0
if(AutoReleaseFishes)
    fishprices := {"Pike": 7, "Seebarsch": 6, "Thunfisch": 6, "Schildkröte": 5, "Aal": 5, "Penisfisch": 5, "Makrele": 5, "Dorsch": 4, "Forelle": 4, "Lachs": 4, "Schwertfisch": 3, "Roter Snapper": 3, "Zackenbarsch": 3, "Katzenfisch": 2, "Blauer Marlin": 2, "Amberjack": 1}
;    fishprices := [["Pike", "Seebarsch", "Thunfisch", "Schildkröte", "Aal", "Penisfisch", "Makrele", "Dorsch", "Forelle", "Lachs", "Schwertfisch", "Roter Snapper", "Zackenbarsch", "Katzenfisch", "Blauer Marlin", "Amberjack"], [7, 6, 6, 5, 5, 5, 5, 4, 4, 4, 3, 3, 3, 2, 2, 1]]
while(!(InStr(chat, "Du hast zu viele Fische gefangen") OR InStr(chat, "Tote können keine Befehle") OR InStr(chat, "Du bist nicht auf") OR InStr(chat, "Du darfst nicht") OR InStr(chat, "Mit einem Premiumaccount kannst du") OR InStr(chat, "Du musst noch etwas warten") OR InStr(chat, "Deine Taschen sind voll") OR InStr(chat, "Wirf welche weg oder verkauf") OR InStr(chat, "Angeln ist in dieser Umgebung nicht möglich"))){
    SendChat("/fish")
    currindex ++
    Sleep, 500
    GetChatLine(0, chat)
    if(InStr(chat, "Als Fraktionsmitglied kannst du nur alle 2 Sekunden angeln.")){
        wait := 1
        Sleep, 2000
    }
    else if(InStr(chat, "Du hast einen ") AND InStr(chat, "Gewicht: ")){
        currindex := 0
        if(AutoReleaseFishes AND (RegExMatch(chat, "Du hast einen (.+) .+ Gewicht: (\d+) Kg", chat) AND (chat2 < 10 OR (fishprices[chat1] * chat2) < AutoReleaseFishes)))

;        if(AutoReleaseFishes AND (RegExMatch(chat, "Du hast einen (.+) .+ Gewicht: (\d+) Kg", chat) AND (chat2 < 10 OR (fishprices[2, ArrayMatch(chat1, fishprices[1])] * chat2) < AutoReleaseFishes)))
            SendChat("/releasefish " fishes + 1)
        else
            fishes ++
        if(wait AND (fishes != 5 AND fishes != 10))
            Sleep, 2000
    }
    if(A_Index / (fishes+1) > 18 OR currindex > 14)
        break
}
AddChatMessage("Fischen abge" (fishes ? "schlossen" : "brochen"))
return


Und meine Settings.ini

[Settings]
AutoReleaseFishes=30


Marcel Gerber <mg.hain@gmx.de>
12. März

an mich
Englisch
Deutsch   Nachricht übersetzen
Deaktivieren für: Englisch
IniRead, AutoReleaseFishes, Settings.ini, Settings, AutoReleaseFishes, 0


Carbon Venturas <maximilianbaudach@googlemail.com>
12. März

an Marcel
ne geht immernoch nicht :(


Marcel Gerber <mg.hain@gmx.de>
12. März

an mich
Dann probier mal RegExMatch(chat, "Du hast einen ([^ ]+) .+ Gewicht: (\d+) Kg", chat)
Ansonsten solltest du auch selber debuggen können ;)