Code:
#Include <File.au3>
#include <Timers.au3>
#Include <Misc.au3>
#include <ButtonConstants.au3>
;#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
;#include <StaticConstants.au3>
;#include <WindowsConstants.au3>
;#include <GDIPlus.au3>
;#include <ScreenCapture.au3>
#include <WinAPI.au3>
;#include <ComboConstants.au3>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;VERSION:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$version = 1.77
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Global $language = IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "language", "english")
Global $txtchk1,$txtchk2 ,$txtchk3, $txtchk4 , $txtchk7, $txtchk5, $txtchk6
Global $txtui1, $txtui2, $txtui3, $txtlab8, $txtg2, $txtlab3, $txtlab4, $txtlab5, $txtlab6, $txtg3, $txtlab7
Global $txtttui1,$txtttui2, $txtttui3, $txtttui4, $txtttui7, $txtttui8, $txtttui9, $txtttui5, $txtttui6, $txtttbutsetup, $txtttbutlang, $txtttbutlog, $txtttbutquick, $txtttbutrndfish, $txtttbuttausch
Global $txtbut1, $txtbutsetup, $txtbutlang, $txtbutlog, $txtbutquick, $txtbutrndfish, $txtbuttausch
Global $txtmsghead1, $txtmsghead2, $txtmsghead3, $txtmsghead4, $txtmsghead5, $txtmsghead6
Global $txtmsgbox1, $txtmsgbox2, $txtmsgbox3, $txtmsgbox4, $txtmsgbox6
Global $txtttig1, $txtttig2, $txtttig3, $txtttig4, $txtttig5, $txtttig6, $txtttig7, $txtttig8, $txtttig9, $txtttig10, $txtttig11, $txtttig12
Global $txtttcreator1, $txtttcreator2, $txtttcreator3, $txtttcreator4, $txtttcreator5, $txtttcreator6, $txtttcreator7, $txtttcreator8, $txtttcreator9, $txtttcreator10
Global $txtscan1, $txtscan2, $txtscan3, $txtscan4, $txtscan5, $trimskillup
Global $txtnamelogfile, $txtchooselog, $txtfishestriedtocatch
;funktion für alle sprachvariablen!
Func loadlanguage($lang)
Select
Case $lang = "english"
$txtchk1 = "Use lure"
$txtui1 = "Matze's Fishbot " & $version & " General Settings"
$txtttui1 = "Do you want to use lures? You can also make a macro to use different ones (type: use name of the lure)"
$txtchk2 = "Use Tent"
$txtttui2 = "Don't you like camping in a river? There is nothing more fun than being afk fishing in a water drenched bedroll or tent and getting rested bonus XP at the same time ;-)"
$txtchk3 = "Wait after catch for"
$txtttui3 = "I don't even know if there any automatic scripts by Trion to find bots and scripts. This should help to fool them. The bot waits randomly after each catch for 0-X seconds"
$txtchk4 = "Enable Tooltips"
$txtttui4 = "Tooltips are your friends, they tell you what to do. Only uncheck if you know what you are doing. So... YOU better keep them enabled. Yes, YOU! :P"
$txtchk7 = "caught fishes"
$txtttui7 = "If you enable this option you see all the caught stuff ingame in a tooltip in the upper left corner. Only works with activated tooltips for some special reasons, not sure why."
$txtttui8 = "If you only want to use a certain number of lures write it down here. Otherwise just use a big number, it should be fine, however if you are unlucky you could destroy your fishingpole (no kidding this time)"
$txtttui9 = "Insert the duration of your tent or bedroll, fire or whatever. This is for the EXP Bonus that you get while standing on those things"
$txtui2 = "Tent Duration"
$txtbut1 = "Help"
$txtui3 = "How many lures"
$txtchk5 = "Auto /log"
$txtttui5 = "Automatically enables log. Also checks, if log is enabled or not. To test this the bot will start and aborting fishing once or twice. Just don't do anything and especially don't try typing anything while you start the bot"
$txtchk6 = "PC shutdown after"
$txtttui6 = "PC shuts down after X Minutes! This is a force shutdown, so save your stuff if you use this! This PC is goin' down!"
$txtlab8 = "minutes"
$txtg2 = "Keybindings and Setup"
$txtlab3 = "Lure"
$txtlab4 = "Tent"
$txtlab5 ="Bagpack"
$txtlab6 = "Fishing pole"
$txtlab7 = "seconds"
$txtbutsetup = "Setup Lure"
$txtttbutsetup = "Saves the position of your fishing pole in your inventory to use lures. You need to do this once before you want to use lures. If you change the position of your fishing pole in your inventory you have to do this again"
$txtbutlang = "Language"
$txtttbutlang = "Change the Language of the Fishbot! You NEED to set the correct language for Rift or the bot can't read the log."
$txtbutlog = "Change log path"
$txtttbutlog = "The rift log path should be correct on default. If the path is wrong use this to set it up correctly"
$txtg3 = "Start"
$txtbutquick = "Quickfishing"
$txtttbutquick = "Always fish at exactly the same position."
$txtbutrndfish = "Randomfishing"
$txtttbutrndfish = "Mark the upper left and bottom right corner of a square. You will randomly fish in this area."
$txtmsghead1 = "Quickfishing"
$txtmsgbox1 = "LEFT CLICK on the spot where you want to fish. The game needs to in windowed or fullscreen(windowed) mode. The Rift window will open automatically."
$txtmsghead2 = "Random Fishing: Fishing in an area"
$txtmsgbox2 = "Mark the area where you want to fish by LEFT clicking on the upper left and then on the bottom right corner of an area. The game needs to be in windowed or fullscreen(windowed) mode. The Rift window will open automatically."
$txtttig1 = "LEFT click on the top left corner of your fishing area"
$txtttig2 = "LEFT click on the bottom right corner of your fishing area"
$txtttig3 = "LEFT click on the spot where you want to fish"
$txtttig4 = "F10 = exit" & @crlf & "F9 = continue" & @crlf & "F8 = toggle Tooltips"
$txtttig11 = "Paused"
$txtttig12 = "Testing if log is enabled, don't type anything!"
$txtttcreator1 = "F10 = exit" & @crlf & "F9 = pause and unlock mouse" & @crlf & "F8 = toggle Tooltips"
$txtttcreator2 = "Fishing"
$txtttcreator3 = "Shutdown in "
$txtttcreator4 = "LOG not enabled, wrong LANGUAGE, misuse of Bot or path to the log wrong!"
$txtttcreator5 = "ERROR"
$txtttcreator6 = "Auto /log failed to enable LOG"
$txtttcreator7 = "waiting for "
$txtttcreator8 = " seconds"
$txtttcreator9 = "You have caught: "
$txtmsghead3 = "Setup fishing pole position"
$txtmsgbox3 = "Click once with the RIGHT mousekey on the position of your fishing pole in your inventory!"
$txtmsghead4 = "Very good"
$txtmsgbox4 = "The lures should now be put correctly on your fishing pole. If not, then you have to repeat this setup. Now you can start fishing with Quickfishing and Randomfishing. Have fun ;-)"
$txtmsghead5 = "Instructions"
$txtmsghead6 = "Matze's Fishbot " & $version & " Help"
$txtmsgbox6 = "This is a short summary what you have to do:" & @crlf & "1. you have to play in windowed or fullscreen(windowed) mode! Just fullscreen won't work!" & @crlf & "2. Autoloot has to be enabled" & @crlf & "3. When you start for " & _
"the first time there should pop up window where you can set the language. You can always change the language by clicking on the language button (Yeah, really, who would" & _
" have thought!)" & @crlf & "4. The ingame log has to be enabled, while you are fishing or there will be long breaks after each catch. You can just let the bot enable the log automatically" & @crlf & "5. If you want to use a lure you have to " & _
"show the bot where the fishing pole is in your inventory. Click on the Setup Lure Box to show him" & @crlf & "6. Put lures, your fishing pole and tents if you want to use any in your action bar and set the keybindings accordingly"& @crlf & "7. Get "& _
"next to some water and start the fishing by clicking on the quick or randomfish button. Everything should be explained in some very smart tooltips. " & @crlf & @crlf & "Most of the stuff is explained in tooltips if you move the mouse over " & _
"the Bot's GUI. Just read it, that should explain most questions" & @crlf & @crlf & "Some questions:" & @crlf &"Why can't I move the mouse?" & @crlf & "If a fish is biting your mouse icon changes and the Bot uses this to detect that he has " & _
"to reel in. If you would move the mouse the bot would always reel in at once and start fishing again repeatedly. You wouldn't want that. Instead you can just push F9 to pause the bot and unlock the mouse. Do whatever you want and push F9 " & _
"again if you want to continue. It will resume automatically" & @crlf & @crlf & "Can I type or do anything while the bot is running?" & @crlf & "Yes, but you have to be carefull. There are two " & _
"states: One is: you have just clicked on one of the start buttons. Now the bot waits for some special input, for example he waits for a Left click after pressing the quickfishing button. As long as you don't click that, the bot "& _
"won't do anything and you can run around, type whatever you want. If the bot is already fishing I would recommend to push F9 to pause the bot. You could type in the chat, but it's likely that the bot will write the fishing key" & _
" or something in your chat at some point." & @crlf & @crlf & "What's with this weird random name of the window??? Is that a bug???" & @crlf & "Some people asked if I couldn't name the bot something else or at make a random name to avoid detection." & _
"So no worries, the name of the window will always change after each start. However, I don't think Trion scans names of windows to detect the bot and the name of the program is always autoit, can't do anything about that."
$txtscan1 = "has decayed from"
$txtscan2 = "You received:"
$txtscan3 = "The fish got away"
$txtscan4 = "You stop fishing"
$txtscan5 = "You now have a skill of "
$txtnamelogfile = "fishes caught"
$txtchooselog = "Choose the Rift log file"
$txtfishestriedtocatch = " fishes were tried to catch."
$txtttcreator10 = "Your fishing skill was improved from "
Case $lang = "deutsch"
$txtchk1 = "Köder"
$txtui1 = "Matze's Fishbot " & $version & " Allgemeine Einstellungen"
$txtttui1 = "Möchtest du Köder benutzen? Du kannst auch ein Makro mit verschiedenen Ködern ingame erstellen(use Fischköder)"
$txtchk2 = "Zelt benutzen"
$txtttui2 = "Zelten oder Bettrollen macht Laune! Es gibt doch nichts besseres, als ein Zelt in einem See aufzuschlagen, zu fischen und dabei noch Bonus XP zu bekommen! ;-)"
$txtchk3 = "Nach Fang warten"
$txtttui3 = "Kann sinnvoll sein, wenn man die Chance senken möchte, dass automatische Scripte von Trion den Bot entdecken. Der Bot wartet immer nach jedem Fang zufällig 0-X Sekunden"
$txtchk4 = "Aktiviere Tooltips"
$txtttui4 = "Tooltips sind toll! Keine Wiederrede! Du magst Tooltips! Nur ausschalten, wenn du weißt was du tust. Also, naja, DU lässt sie besser an, ok? :P"
$txtchk7 = "gefangene Fische"
$txtttui7 = "Zeigt ingame im tooltip oben links wieviele Fische schon gefangen wurden. Funktioniert aus bestimmten Gründen nur mit aktivierten Tooltips. Merkwürdig, nicht wahr?"
$txtttui8 = "Wenn du nur eine bestimmte Anzahl an Ködern nutzen möchtest, trage hier die gewünschte Anzahl ein. Ansonsten trage eine sehr große Zahl ein, sollte schon passen, es kann dabei jedoch passieren, dass man seine Angel zerstört, " & _
"wenn man auf dem OK button angelt"
$txtttui9 = "Trage die Dauer von Zelten, Bettrollen, Lagerfeuern oder was auch immer du benutzt ein. Diese Gegenstände geben einem einen XP Bonus"
$txtui2 = "Zeltdauer"
$txtbut1 = "Hilfe"
$txtui3 = "Wieviele Köder"
$txtchk5 = "auto /log"
$txtttui5 = "Aktiviert den Log automatisch. Testet auch, ob der Log schon eingeschaltet ist oder nicht. Dafür wird die Angel 1-2 mal ausgeworfen und direkt wieder eingezogen. Einfach nichts machen und ganz wichtig: nicht versuchen " & _
"irgendwas zu tippen, wärend der Bot startet, sonst steht irgend was merkwürdiges im chat"
$txtchk6 = "Pc herunterfahren nach"
$txtttui6 = "PC fährt nach X Minuten runter. Dabei nimmt er keine Rücksicht auf noch nicht gespeicherte Daten, also alles sichern! Wat wech is, is wech und dieser PC is in X Minuten wech!"
$txtlab8 = "Minuten"
$txtg2 ="Tastaturbelegung und Setup"
$txtlab3 = "Köder"
$txtlab4 = "Zelt"
$txtlab5 ="Rucksack"
$txtlab6 = "Angel"
$txtlab7 = "Sekunden"
$txtbutsetup = "Köder Setup"
$txtttbutsetup = "Speichert die Position der Angel im Inventar um Köder anzubringen. Muss einmal durchgeführt werden, wenn man Köder benutzen will, danach ist die Position gespeichert. Wenn man die Position der Angel " & _
"verändert muss die Position logischerweise erneut festgelegt werden."
$txtbutlang = "Sprache"
$txtttbutlang = "Ändere die Sprache des Fischbots. Die Sprache muss mit der von Rift übereinstimmen oder der Bot kann den Log des Spiels nicht korrekt auslesen!"
$txtbutlog = "Ändere den Log Pfad"
$txtttbutlog = "Der Pfad des Rift Logs sollte schon per Voreinstellung korrekt sein. Sollte der Pfad aus irgendwelchen Gründen trotzdem falsch sein, dann hier klicken und den richtigen Pfad einstellen."
$txtg3 = "Start"
$txtbutquick = "Schnell Fischen"
$txtttbutquick = "Werfe die Angel immer an der gleichen Stelle aus"
$txtbutrndfish = "Randomfishing"
$txtttbutrndfish = "Werfe die Angel zufällig in einem Bereich aus, wobei du vorher die obere linke und die untere rechte Ecke makierst"
$txtmsghead1 = "Schnell Fischen"
$txtmsgbox1 = "Klicke mit der linken Maustaste an die Stelle wo du angeln willst. RIFT muss im Fenstermodus oder Vollbild(Fenstermodus) sein! Das Rift Fenster öffnet sich jetzt automatisch."
$txtmsghead2 = "Randomfishing: Zufällig in einem Gebiet fischen"
$txtmsgbox2 = "Markiere das Gebiet in dem du angeln willst, indem du erst mit einem LINKSKLICK die obere linke und dann die untere rechte Ecke angibst. RIFT muss im Fenstermodus oder Vollbild(Fenstermodus) sein! Das Rift" & _
"Fenster öffnet sich jetzt automatisch."
$txtttig1 = "Klicke mit LINKS auf die obere linke Ecke von deinem Gebiet, in dem du fischen möchtest"
$txtttig2 = "Klicke mit LINKS auf die untere rechte Ecke von deinem Gebiet, in dem du fischen möchtest"
$txtttig3 = "Klicke mit LINKS auf den Punkt, wo du aneln möchtest."
$txtttig4 = "F10 = Beenden" & @crlf & "F9 = weiter angeln" & @crlf & "F8 = Tooltips an/aus"
$txtttig11 = "Pausiert"
$txtttig12 = "Auto /Log: teste, ob Log eingeschaltet ist. Nichts machen und insbesondere nicht tippen!"
$txtttcreator1 = "F10 = Beenden" & @crlf & "F9 = Pause und Maus entsperren" & @crlf & "F8 = Tooltips an/aus"
$txtttcreator2 = "Fischen"
$txtttcreator3 = "PC herunterfahren in "
$txtttcreator4 = "möglicherweise LOG nicht eingeschaltet, falsche Sprache, falsche Bedienung oder Pfad zum Log falsch"
$txtttcreator5 = "ERROR"
$txtttcreator6 = "Auto /log konnte LOG nicht aktivieren"
$txtttcreator7 = "warte "
$txtttcreator8 = " Sekunden"
$txtttcreator9 = "Du hast folgendes gefangen: "
$txtmsghead3 = "Setup Angel Position"
$txtmsgbox3 = "Klicke mit der RECHTEN Maustaste auf deine Angel in deinem Inventar"
$txtmsghead4 = "Sehr gut"
$txtmsgbox4 = "Die Köder sollten nun korrekt auf der Angel benutzt werden. Sollte sich die Position der Angel ändern, muss dieses Setup für Köder erneut ausgeführt werden. Viel Spass! ;-)"
$txtmsghead5 = "Anweisung"
$txtmsgbox5 = "Zeige dem Bot wie er die Fische eintauschen soll. Folge einfach den Anweisungen der Tooltips. Am Ende kannst du dich entscheiden, ob du die Belohnungen direkt automatisch benutzen willst, oder ob du einfach nur eintauschst."
$txtmsghead6 = "Matze's Fishbot " & $version & " Hilfe"
$txtmsgbox6 = "Das hier ist eine kurze Anleitung, wie man den Bot bedient:" & @crlf & "1. Rift muss im Fenster- oder Fenstermodus(Vollbild) sein! Nur Vollbild wird nicht funktionieren!" & @crlf & "2. Autoloot muss " & _
"aktiviert sein!" & @crlf & "3. Wenn man das erste mal den Bot startet sollte ein Fenster aufpoppen wo man die Sprache einstellen kann. Man kann die Sprache jederzeit wechseln." & @crlf & "4. Der ingame log muss angeschaltet sein, wärend man fischt, andernfalls gibt es sehr! lange Pausen nach jedem Fang. Man kann ab jetzt" & _
" den Log automatisch aktivieren lassen, indem man das entsprechende Häkchen bei auto /log macht" & @crlf & "5. Wenn man einen Köder verwenden will muss man vorher dem Bot zeigen wo die Angel im Inventar ist. Dafür einfach" & _
" auf Setup Köder klicken und den Anweisungen folgen." & @crlf & "6. Die Angel und außerdem Köder und Zelte (wenn man sie benutzen will) müssen in die Leiste gezogen werden und die Tasten müssen entsprechend belegt " & _
"werden" & @crlf & "7. Nun kann man zum nächsten Tümpel rennen wo man angeln möchte. Dann klickt man auf Schnell Fischen oder Randomfischen und folgt den entsprechenden Anweisungen" & @crlf & @crlf & "Das meiste ist in " & _
"den Tooltips erklärt, wenn man mit der Maus über die entsprechende Stelle im Bot Fenster fährt" & @crlf & @crlf & "allgemeine Fragen: " & @crlf & "Warum kann ich die Maus nicht bewegen?" & @crlf & "Wenn ein Fisch anbeißt, " & _
"dann verändert sich das icon der Maus und daran erkennt der Bot, dass ein Fisch angebissen hat und zieht die Angel ein. Wenn man die Maus bewegen würde, würde das einziehen jedes mal ausgelöst werden. Deswegen habe ich die" & _
" Mausbewegung beim Fischen gesperrt. Man kann jedoch einfach F9 drücken (wie im Tooltip erklärt) und damit den Bot pausieren und die Maus entsperren. Drückt man F9 wieder, springt die Maus dorthin wo sie vorher war und der " & _
"Bot arbeitet ganz normal weiter." & @crlf & @crlf & "Darf ich irgendwelche Tasten drücken, wärend der Bot läuft, zB zum chatten oder so?" & @crlf & "Ja, aber man muss aufpassen. Dabei muss man 2 Sachen unterscheiden: Wenn man " & _
"gerade auf Schnell Fischen oder so gedrückt hat, dann erwartet der Bot eine bestimmte Eingabe, die immer in den Tooltips steht, z.B. in dem Fall, dass man mit der linken Maustaste irgendwo hinklickt. Solange man nicht diese " & _
"bestimmte Eingabe durchführt, wird der Bot nicht anfangen zu angeln und auch nichts machen. Solange kann man chatten, rumlaufen, etc, wie man will. Ist der Bot am arbeiten, zB Fischen oder Fische tauschen, dann wird er nach einer " & _
"bestimmten Abfolge Tasten drücken oder mit der Maus herumfahren. Wenn man es geschickt timed kann man ohne Probleme chatten oder so, es ist allerdings besser wenn man kurz F9 für Pause drückt." & @crlf & _
"Warum ist da so eine komische Buchstaben/Zahlenkombination beim Name von dem Fenster??? Ist das ein Bug???" & @crlf & "Nein, der Name des Fensters wird ab 1.74 immer zufällig festgelegt. Einige Leute haben sich das gewünscht, falls " & _
"Trion nach Namen von Fenstern scant, um Bots zu erkennen. Ich glaub allerdings nicht, dass sie das tun."
;;;;;
$txtscan1 = "ist vom Gegenstand "
$txtscan2 = "Ihr erhaltet:"
$txtscan3 = "Der Fisch ist entwischt"
$txtscan4 = "Ihr fischt nicht mehr"
$txtscan5 = "Ihr habt nun in der Fertigkeit Fischen Stufe"
$txtnamelogfile = "Fische gefangen"
$txtchooselog = "Wähle die Rift Log Datei"
$txtfishestriedtocatch = " Fische wurden versucht zu fangen"
$txtttcreator10 = "Eure Fähigkeit Fischen hat sich verbessert von "
Case $lang = "francais"
$txtchk1 = "Util. un leurre"
$txtui1 = "Matze's Fishbot " & $version & " Paramètres généraux"
$txtttui1 = "Voulez-vous utiliser des leurres? Vous pouvez également faire une macro pour utiliser différents leurres (use leurre magnétique temporaire, next line, use nom de leurre, etc)"
$txtg1 = "Util. un leurre"
$txtchk2 = "Util. une tente"
$txtttui2 ="Vous n'aimez pas camper dans une rivière ? Il y a rien de plus drôle que d'être afk en pêchant dans un sac de couchage ou une tente gorgé d'eau et reçevoir des points d'experience bonus pour avoir dormit en même temps ;-)"
$txtchk3 = "Attendre après chaque prise"
$txtttui3 = "Je ne sais pas si Trion vérifie les bots et les scripts. Celà devrait les tromper. The bot waits randomly after each catch for 0-X seconds"
$txtchk4 = "Enable Tooltips"
$txtttui4 = "Tooltips are your friends, they tell you what to do. Only uncheck if you know what you are doing. So... YOU better keep them enabled. Yes, YOU! :P"
$txtchk7 = "caught fishes"
$txtttui7 = "If you enable this option you see all the caught stuff ingame in a tooltip in the upper left corner. Only works with activated tooltips for some special reasons, not sure why."
$txtttui8 = "If you only want to use a certain number of lures write it down here. Otherwise just use a big number, it should be fine, however if you are unlucky you could destroy your fishingpole (no kidding this time)"
$txtttui9 = "Insert the duration of your tent or bedroll, fire or whatever. This is for the EXP Bonus that you get while standing on those things"
$txtui2 = "Durée de la tente"
$txtbut1 = "Help"
$txtui3 = "How many lures"
$txtchk5 = "Auto /log"
$txtttui5 = "Automatically enables log. Also checks, if log is enabled or not. To test this the bot will start and aborting fishing once or twice. Just don't do anything and especially don't try typing anything while you start the bot!"
$txtchk6 = "PC shutdown after"
$txtttui6 = "PC shuts down after X Minutes! This is a force shutdown, so save your stuff if you use this! This PC is goin' down!"
$txtlab8 ="minutes"
$txtg2 = "Raccourcis clavier et Setup"
$txtlab3 = "Leurre"
$txtlab4 = "Tente"
$txtlab5 = "Sac à dos"
$txtlab6 = "Canne à pêche"
$txtlab7 = "seconds"
$txtbutsetup = "Setup Lure"
$txtttbutsetup = "Saves the position of your fishing pole in your inventory to use lures. You need to do this once before you want to use lures. If you change the position of your fishing pole in your inventory you have to do this again"
$txtbutlang = "Language"
$txtttbutlang = "Change the Language of the Fishbot! You NEED to set the correct language for Rift or the bot can't read the log."
$txtbutlog = "Change log path"
$txtttbutlog = "The rift log path should be correct on default. If the path is wrong use this to set it up correctly"
$txtg3 = "Start"
$txtbutquick = "Pêche rapide"
$txtttbutquick = "Toujours pêcher à la même position"
$txtbutrndfish = "Pêche aléatoire"
$txtttbutrndfish = "Cliquer sur le coin supérieur gauche et le coin inférieur droit du carré. Vous allez pêcher de manière aléatoire dans cette zone."
$txtmsghead1 = "Pêche rapide"
$txtmsgbox1 = "LEFT CLICK on the spot where you want to fish. The game needs to in windowed or fullscreen(windowed) mode. The Rift window will open automatically."
$txtmsghead2 = "Pêche rapide"
$txtmsgbox2 = "Mark the area where you want to fish by LEFT clicking on the upper left and then on the bottom right corner of an area. The game needs to be in windowed or fullscreen(windowed) mode. The Rift window will open automatically."
$txtttig1 = "LEFT click on the top left corner of your fishing area"
$txtttig2 = "LEFT click on the bottom right corner of your fishing area"
$txtttig3 = "LEFT click on the spot where you want to fish"
$txtttig4 = "F10 = exit" & @crlf & "F9 = continue" & @crlf & "F8 = toggle Tooltips"
$txtttig11 = "Paused"
$txtttig12 = "Testing if log is enabled, don't type anything!"
$txtttcreator1 = "F10 = exit" & @crlf & "F9 = pause and unlock mouse" & @crlf & "F8 = toggle Tooltips"
$txtttcreator2 = "Fishing"
$txtttcreator3 ="Shutdown in "
$txtttcreator4 = "LOG not enabled, wrong LANGUAGE, misuse of Bot or path to the log wrong!"
$txtttcreator5 = "ERROR"
$txtttcreator6 = "Auto /log failed to enable LOG"
$txtttcreator7 = "waiting for "
$txtttcreator8 = " seconds"
$txtttcreator9 = "You have caught: "
$txtmsghead3 = "Setup fishing pole position"
$txtmsgbox3 = "Cliquez une fois avec le bouton DROIT de votre souris à la position où se trouve votre canne à pêche dans votre inventaire!"
$txtmsghead4 = "Very good"
$txtmsgbox4 = "Les leurres se mettront à présent correctement sur votre canne à pêche. Si c'est n'est pas le cas, vous devez répéter cette opération. vous pouvez maintenant commencer à pêcher avec la pêche rapide ou aléatoire. Amusez-vous bien ;-)"
$txtmsghead5 = "Instructions"
$txtmsgbox5 = "Montrez au marchand de poissons ce qu'il y a à échanger! Just follow the tooltips. At the end you can choose to use the rewards automatically or just keep trading"
$txtmsghead6 = "Matze's Fishbot " & $version & " Help"
$txtmsgbox6 = "Je ne parle pas francais!" & @crlf & "Really, I don't. Thats why this is have in french and half in english. If you want to you can translate all this stuff for me just write me and I will be happy to integrate " & _
"everything(in the epvp forums). Up untill then this stays in this english/french mix. However, if you use the french version of Rift, you have to set the language to francais!" & @crlf & @crlf &"This is a short summary what you have " & _
"to do:" & @crlf & "1. you have to play in windowed or fullscreen(windowed) mode! Just fullscreen won't work!" & @crlf & "2. Autoloot has to be enabled" & @crlf & "3. When you start for the first time there should pop up window where " & _
"you can set the language. You can always change the language by clicking on the language button (Yeah, really, who would have thought!)" & @crlf & "4. The ingame " & _
"log has to be enabled, while you are fishing or there will be long breaks after each catch. You can just let the bot enable the log automatically" & @crlf & "5. If you want to use a lure you have to show the bot where the fishing pole " & _
"is in your inventory. Click on the Setup Lure Box to show him" & @crlf & "6. Put lures, your fishing pole and tents if you want to use any in your action bar and set the keybindings accordingly" & @crlf & "7. Get next to some water and " & _
"start the fishing by clicking on the quick or randomfish button. Everything should be explained in some very smart tooltips. " & @crlf & @crlf & "Most of the stuff is explained in tooltips if you move the mouse over the Bot's GUI. Just " & _
"read it, that should explain most questions" & @crlf & @crlf & "Some questions:" & @crlf &"Why can't I move the mouse?" & @crlf & "If a fish is biting your mouse icon changes and the Bot uses this to detect that he has to reel in. " & _
"If you would move the mouse the bot would always reel in at once and start fishing again repeatedly. You wouldn't want that. Instead you can just push F9 to pause the bot and unlock the mouse. Do whatever you want and push F9 again " & _
"if you want to continue. It will resume automatically"& @crlf & @crlf & "Can I type or do anything while the bot is running?" & @crlf & "Yes, but you have to be carefull. There are " & _
"two states: One is: you have just clicked on one of the start buttons. Now the bot waits for some special input, for example he waits for a Left click after pressing the quickfishing button. As long as you don't click that, the bot " & _
"won't do anything and you can run around, type whatever you want. If the bot is already fishing I would recommend to push F9 to pause the bot. You could type in the chat, but it's likely that the bot will write the fishing key or" & _
" something in your chat at some point."& @crlf & @crlf & "What's with this weird random name of the window??? Is that a bug???" & @crlf & "Some people asked if I couldn't name the bot something else or at make a random name to avoid detection." & _
"So no worries, the name of the window will always change after each start. However, I don't think Trion scans names of windows to detect the bot and the name of the program is always autoit, can't do anything about that."
;;;;;;;
$txtscan1 = "été détruite par"
$txtscan2 = "Vous avez reçu"
$txtscan3 = "Le poisson s'est échappé"
$txtscan4 = "Vous arrêtez la pêche"
$txtscan5 = "Votre compétence Pêche est désormais la suivante"
$txtnamelogfile = "fishes caught"
$txtchooselog = "Choose the Rift log file"
$txtfishestriedtocatch = " fishes were tried to catch."
$txtttcreator10 = "Votre compétence Pêche est désormais la suivante: "
Case $lang = "russian"
$txtchk1 = "С наживкой"
$txtui1 = "Бот для рыбалки от Matze " & $version & " Основные настройки"
$txtttui1 = "Хотите использовать наживку? Вы так же можете создать макрос для использования разных её видов (type: use name of the lure)"
$txtchk2 = "Палатку раз в"
$txtttui2 = "Нравится ли Вам сидеть на берегу реки? Нет ничего более прикольного, чем отойдя от клавиатуры ловить рыбу, получая бонус отдыха от палатки или спального мешка ;-)"
$txtchk3 = "Ожидать заброса"
$txtttui3 = "Я даже не представляю, есть ли у Триона какие-нибудь антиботы. Эта опция должна помочь обмануть их. Бот ожидает произвольное время от 0 до Х после поимк рыбы"
$txtchk4 = "Показывать подсказки"
$txtttui4 = "Подсказки - полезная вещь. В них Вы найдёте напоминание по поводу горячих клавиш(как минимум). Отключайте ТОЛЬКО если уверены, что знаете, что делать... В общем, на всякий случай врубите, не пожалеете :P"
$txtchk7 = "пойманная рыба"
$txtttui7 = "При включении в левом верхнем углу экрана будет отображаться информация обо всех выловленных предметах. Почему-то работает только при включённых подсказках, не совсем понимаю, почему"
$txtttui8 = "Если желаете использовать не очень много наживок, вводите их количество сюда. Советуем использовать как можно больше. Правда, если не повезёт, Вы сломаете удочку(без шуток, но маловероятно)"
$txtttui9 = "Сюда вводим продолжительност действия палатки, спального мешка, костра или чего-либо подобного. Необходимо для своевременной замены предмета, закончившего своё действие. Палатки, костры и т.д. позволяют получать бонус опыта"
$txtui2 = "минут"
$txtbut1 = "Помощь"
$txtui3 = "штук"
$txtchk5 = "Включить /log"
$txtttui5 = "Автоматически включает ведение небоевого журнала. Так же проверяет, получилось ли. Для этого бот пару раз прервёт процесс рыбалки. В это время не рекомендуется делать ничего. В особенности не стоит писать что-либо в чат во время работы бота"
$txtchk6 = "Выключить компьютер через"
$txtttui6 = "Компьютер бедт выключен через Х минут! Сохраните всю необходимую информацию или она будет утеряна!"
$txtlab8 = "минут"
$txtg2 = "Настройка программы и горячих клавиш"
$txtlab3 = "Наживка"
$txtlab4 = "Палатка"
$txtlab5 ="Сумки"
$txtlab6 = "Удочка"
$txtlab7 = "секунд"
$txtbutsetup = "Настройка наживки"
$txtttbutsetup = "Укажите, где лежит удочка в Вашей сумке. Это необходимо для применения наживки. Если не хотите применять, настройка не нужна. При изменении позиции удочки в сумке придётся повторить настройку"
$txtbutlang = "Язык"
$txtttbutlang = "Укажите язык клиента игры! Это необходимо для правильной работы бота"
$txtbutlog = "Указать /log файл"
$txtttbutlog = "Путь к файлу небоевого журнала должен определиться автоматически. Если этого не произошло, жмём сюда и настраиваем вручную"
$txtg3 = "Начать"
$txtbutquick = "Быстрая рыбалка"
$txtttbutquick = "Всегда закидывать удочку в одно и то же место."
$txtbutrndfish = "Рыбалка в области"
$txtttbutrndfish = "Отметьте левый верхний и правый нижний угол зоны, в которой хотите рыбачить"
$txtmsghead1 = "Быстрая рыбалка"
$txtmsgbox1 = "Нажмите левую кнопку мыши на том месте, куда хотите забрасывать удочку. Игра должна быть в режиме окна или полноэкранного окна. Окно Рифта будет открыто автоматически"
$txtmsghead2 = "Рыбалка в случайном месте: заброс производится в случайное место из выбранно зоны"
$txtmsgbox2 = "Отметьте зону рыбалки, нажав левую кнопку мыши на левом верхнем и правом нижнем углу. Игра должна быть в режиме окна или полноэкранного окна. Окно Рифта будет открыто автоматически"
$txtttig1 = "Нажмите левую кнопку мыши в левом верхнем углу зоны рыбалки"
$txtttig2 = "Нажмите левую кнопку мыши в правом нижнем углу зоны рыбалки"
$txtttig3 = "Нажмите левую кнопку мыши в том месте, куда необходимо производить заброс"
$txtttig4 = "F10 = выход" & @crlf & "F9 = продолжить" & @crlf & "F8 = скрыть подсказки"
$txtttig11 = "Приостановлено"
$txtttig12 = "Проверяем, включено ли ведение небоевого журнала. Не пишите ничего в чат!"
$txtttcreator1 = "F10 = выход" & @crlf & "F9 = приостановить и высвободить мышь" & @crlf & "F8 = скрыть подсказки"
$txtttcreator2 = "Рыбачу"
$txtttcreator3 = "Компьютер выключится через "
$txtttcreator4 = "Ведение боевого журнала не включено, возможно указан неверный язык, неправильно настроен бот или неверно указана папка с файлом небоевого журнала!"
$txtttcreator5 = "Ошибка"
$txtttcreator6 = "Не удалось автоматически включить ведение небоевого журнала"
$txtttcreator7 = "Ждём "
$txtttcreator8 = " секунд"
$txtttcreator9 = "Вами поймано: "
$txtmsghead3 = "Укажите место, где в Вашей сумке лежит удочка"
$txtmsgbox3 = "Нажмите один раз правую кнопку мыши на удочке в сумке!"
$txtmsghead4 = "Отлично!"
$txtmsgbox4 = "Если программе не удастся верно насадить наживку на удочку, повторите настройку. Можно начинать зонную или быструю рыбалку! Удачи ;-)"
$txtmsghead5 = "Описание настройки"
$txtmsgbox5 = "Show the Fishtrader how to turn in the fish for rewards! Just follow the tooltips. At the end you can choose to use the rewards automatically or just keep trading"
$txtmsghead6 = "Бот для рыбалки от Matze " & $version & " Помощь"
$txtmsgbox6 = "Небольшая подсказка по настройке:" & @crlf & "1. Переведите игру в режим окна или полноэка! В обычном полноэкранном режиме не работает!" & @crlf & "2. Включите автосбор добычи в настройках игры" & @crlf & "3. При первом запуске " & _
"должно появиться окно предложение выбрать язык клиента. Язык может быть изменён нажатием на кнопку Язык (Кто бы мог подумать?!:)" & _
" )" & @crlf & "4. Ведение внебоевого журнала должно быть включено или перерывы между забросами будут значительны. Бот, в принципе, может и сам его включить:)" & @crlf & "5. Для применения наживки надо " & _
"указать боту, где в сумке лежит удочка. Кликните на кнопку Использовать наживку." & @crlf & "6. Поместите удочку, наживку, палатку на панель заклинаний(кидаем только то, что нужно из списка, удочка обязательна) и внесите в бота соответствующие клавиши"& @crlf & "7. Теперь "& _
"подойдите к какому-нибудь водоёму и рыбачьте на здоровье, нажав на быструю или случайную рыбалку. Команды боту и пойманные вещи будут показываться в подсказках. " & @crlf & @crlf & "Большая часть того, что здесь описано, можно посмотреть, наведя курсор на соответствующую кнопку." & _
" Просто прочитайте, лишним не будет." & @crlf & @crlf & "Короткое FAQ:" & @crlf &"Почему мышь не слушается?" & @crlf & "Во клёва курсор меняется, чтоб бот мог определить, что пора дёргать удочку. " & _
"При перемещении мыши, бот будет постоянно дёргать и закидывать удочку, что не есть хорошо:) Высвободить курсор можно нажав F9. Сделав то, что Вам необходимо, нажмите снова F9? чтоб продолжить рыбалку " & _
"" & @crlf & @crlf & "Могу ли я писать или делать что-нибудь ещё во время работы бота?" & @crlf & "Да. Но есть пара тонкостей: " & _
"если ещё не указана позиция удочки, точка или зона для рыбалки, но соответствующая кнопка уже нажата, Вы можете продолжать играть, не кликая мышью. "& _
"А вот если бот рыбачит, советую сначала приостановить рыбалку кнопкой F9. В чат, в принципе, писать можно, но периодически в чате будут появляться символы, соответствующие забросу удочки" & _
" или другому совершаемому действию." & @crlf & @crlf & "Что случилось с названием окна??? Это баг???" & @crlf & "Всё нормально, просто некоторые пользователи бота попросили сделать случайное имя для окна, формируемое при каждом запуске, потому что для некоторых систем защиты от ботов это помогает." & _
"Так что не дрейфим, имя окна меняется, и это нормально:) В принципе, я не думаю, что антибот будет проверять имя, но, как говорится, лишним не будет."
$txtscan1 = "прекращают взаимодействие"
$txtscan2 = "в ваших руках"
$txtscan3 = "Рыбалка прекращена"
$txtscan4 = "Рыба сорвалась. Какая досада."
$txtscan5 = "Теперь вы Рыболов"
$txtnamelogfile = "поймано предметов"
$txtchooselog = "Выберите файл небоевого журнала"
$txtfishestriedtocatch = " рыб сорвалось."
$txtttcreator10 = "Уровень вашего навыка изменился "
#cs für andere sprachen
Case $lang = X
$txtchk1 =
$txtui1 =
$txtttui1 =
$txtg1 =
$txtchk2 =
$txtttui2=
$txtchk3 =
$txtttui3 =
$txtchk4 =
$txtttui4 =
$txtchk7 =
$txtttui7 =
$txtttui8 =
$txtttui9 =
$txtui2 =
$txtbut1 =
$txtui3 =
$txtchk5 =
$txtttui5 =
$txtchk6 =
$txtttui6 =
$txtlab8 =
$txtg2 =
$txtlab3 =
$txtlab4 =
$txtlab5 =
$txtlab6 =
$txtlab7 =
$txtbutsetup =
$txtttbutsetup =
$txtbutlang =
$txtttbutlang =
$txtbutlog =
$txtttbutlog =
$txtg3 =
$txtbutquick =
$txtttbutquick =
$txtbutrndfish =
$txtttbutrndfish =
$txtmsghead1 =
$txtmsgbox1 =
$txtmsghead2 =
$txtmsgbox2 =
$txt$txtttig1 =
$txtttig2 =
$txtttig3 =
$txtttig4 =
$txtttig11 =
$txtttig12 =
$txtttcreator1 =
$txtttcreator2 =
$txtttcreator3 =
$txtttcreator4 =
$txtttcreator5 =
$txtttcreator6 =
$txtttcreator7 =
$txtttcreator8 =
$txtttcreator9 =
$txtmsghead3 =
$txtmsgbox3 =
$txtmsghead4 =
$txtmsgbox4 =
$txtmsghead5 =
$txtmsghead6 =
$txtmsgbox6 =
$txtscan1 =
$txtscan2 =
$txtscan3 =
$txtscan4 =
$txtscan5 =
$txtnamelogfile =
$txtchooselog =
$txtfishestriedtocatch =
$txtttcreator10 =
#ce
EndSelect
EndFunc
;updates ui
Func updateui()
GUICtrlSetData ($Checkbox1, $txtchk1)
GUICtrlSetData ($Group1, $txtui1)
GUICtrlSetTip($Checkbox1, $txtttui1)
GUICtrlSetData ($Checkbox2, $txtchk2)
GUICtrlSetTip($Checkbox2, $txtttui2)
GUICtrlSetData ($Checkbox3, $txtchk3)
GUICtrlSetTip($Checkbox3, $txtttui3)
GUICtrlSetData ($Checkbox4, $txtchk4)
GUICtrlSetTip($Checkbox4, $txtttui4)
GUICtrlSetData ($Checkbox7, $txtchk7)
GUICtrlSetTip($Checkbox7, $txtttui7)
GUICtrlSetTip($inpAnzahlkoeder, $txtttui8)
GUICtrlSetTip($inpdauerzelt, $txtttui9)
GUICtrlSetData ($Label2, $txtui2)
GUICtrlSetData ($buthelp, $txtbut1)
GUICtrlSetData ($Label1, $txtui3)
GUICtrlSetData ($Checkbox5, $txtchk5)
GUICtrlSetTip($Checkbox5, $txtttui5)
GUICtrlSetData ($Label7, $txtlab7)
GUICtrlSetData ($Checkbox6, $txtchk6)
GUICtrlSetTip($Checkbox6, $txtttui6)
GUICtrlSetData ($Label8, $txtlab8)
GUICtrlSetData ($Group2, $txtg2)
GUICtrlSetData ($Label3, $txtlab3)
GUICtrlSetData ($Label4, $txtlab4)
GUICtrlSetData ($Label5, $txtlab5)
GUICtrlSetData ($Label6, $txtlab6)
GUICtrlSetData ($butsetup, $txtbutsetup)
GUICtrlSetTip($butsetup, $txtttbutsetup)
GUICtrlSetData ($butlang, $txtbutlang)
GUICtrlSetTip($butlang, $txtttbutlang)
GUICtrlSetData ($butlog, $txtbutlog)
GUICtrlSetTip($butlog, $txtttbutlog)
GUICtrlSetData ($Group3, $txtg3)
GUICtrlSetData ($butquick, $txtbutquick)
GUICtrlSetTip($butquick, $txtttbutquick)
GUICtrlSetData ($butrndfish, $txtbutrndfish)
GUICtrlSetTip($butrndfish, $txtttbutrndfish)
EndFunc
;random name für den bot:
$rndname = ""
Dim $aSpace[3]
$rnddigits = Random(3, 15, 1)
For $i = 1 To $rnddigits
$aSpace[0] = Chr(Random(65, 90, 1)) ;A-Z
$aSpace[1] = Chr(Random(97, 122, 1)) ;a-z
$aSpace[2] = Chr(Random(48, 57, 1)) ;0-9
$rndname = $rndname & $aSpace[Random(0, 2, 1)]
Next
#Region ### START Koda GUI section ### Form=c:\autoit\autoit eigene scripts\fishbot\form1_1.kxf
$Form1_1 = GUICreate($rndname, 345, 438, 306, 198);, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIM****OX,$WS_S****OX,$WS_THICKFRAME,$WS_TABSTOP,$DS_MODALFRAME,$DS_SETFOREGROUND))
GUISetFont(9, 1000, 0, "Times New Roman")
$Group1 = GUICtrlCreateGroup($txtui1, 8, 0, 329, 225)
GUICtrlSetColor(-1, 0x000000)
$Checkbox1 = GUICtrlCreateCheckbox($txtui1, 16, 56, 113, 25)
GUICtrlSetTip($Checkbox1, $txtttui1)
$Checkbox2 = GUICtrlCreateCheckbox($txtchk2, 16, 88, 113, 25)
GUICtrlSetTip(-1, $txtttui2)
$Checkbox3 = GUICtrlCreateCheckbox($txtchk3, 16, 149, 161, 33)
GUICtrlSetTip(-1,$txtttui3)
$Checkbox4 = GUICtrlCreateCheckbox($txtchk4, 16, 115, 150, 33)
GUICtrlSetTip(-1, $txtttui4)
$Checkbox7 = GUICtrlCreateCheckbox($txtchk7, 200, 115, 120, 33)
GUICtrlSetTip(-1, $txtttui7)
$inpAnzahlkoeder = GUICtrlCreateInput(IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "Anzahl Köder zum benutzen", 1000), 136, 56, 49, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
GUICtrlSetTip(-1,$txtttui8 )
$inpdauerzelt = GUICtrlCreateInput(IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "Zeltdauer", 15), 136, 88, 49, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
GUICtrlSetTip(-1,$txtttui9 )
$Label2 = GUICtrlCreateLabel($txtui2, 192, 88, 136, 23)
$buthelp = GUICtrlCreateButton($txtbut1, 248, 16, 83, 25)
$Label1 = GUICtrlCreateLabel($txtui3, 192, 56, 111, 23)
$Checkbox5 = GUICtrlCreateCheckbox($txtchk5, 16, 24, 137, 25)
GUICtrlSetTip(-1, $txtttui5)
$inpwartezeit = GUICtrlCreateInput(IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "wartezeit", 5), 192, 152, 49, 27)
$Label7 = GUICtrlCreateLabel($txtlab7, 248, 155, 74, 23)
$Checkbox6 = GUICtrlCreateCheckbox($txtchk6, 16, 192, 140, 17)
GUICtrlSetTip(-1, $txtttui6)
$inpshutdown = GUICtrlCreateInput(IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "shutdowntime", 120), 192, 184, 49, 27)
$Label8 = GUICtrlCreateLabel($txtlab8, 248, 190, 76, 23)
$Group2 = GUICtrlCreateGroup($txtg2, 8, 232, 329, 129)
$Label3 = GUICtrlCreateLabel($txtlab3, 24, 256, 62, 23)
$Label4 = GUICtrlCreateLabel($txtlab4, 24, 280, 30, 23)
$Label5 = GUICtrlCreateLabel($txtlab5, 24, 304, 71, 23)
$Label6 = GUICtrlCreateLabel($txtlab6, 24, 328, 100, 23)
$inpkoederkey = GUICtrlCreateInput(IniRead(@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Köder", 7), 104, 256, 97, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
$inprucksackkey = GUICtrlCreateInput(IniRead(@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Rucksack", "b"), 104, 304, 97, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
$inpangelkey = GUICtrlCreateInput(IniRead(@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Angeltaste", 6), 104, 328, 97, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
$inpzeltkey = GUICtrlCreateInput(IniRead(@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Zelt", 9), 104, 280, 97, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
$butsetup = GUICtrlCreateButton($txtbutsetup, 208, 256, 123, 33)
GUICtrlSetTip(-1,$txtttbutsetup)
$butlang = GUICtrlCreateButton($txtbutlang, 208, 288, 123, 33)
GUICtrlSetTip(-1,$txtttbutlang)
$butlog = GUICtrlCreateButton($txtbutlog, 208, 320, 123, 33)
GUICtrlSetTip(-1,$txtttbutlog)
$Group3 = GUICtrlCreateGroup($txtg3, 8, 368, 329, 65)
$butquick = GUICtrlCreateButton($txtbutquick, 16, 384, 153, 41)
GUICtrlSetTip(-1,$txtttbutquick)
$butrndfish = GUICtrlCreateButton($txtbutrndfish, 176, 384, 145, 41)
GUICtrlSetTip(-1, $txtttbutrndfish)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func setlanguage()
#Region ### START Koda GUI section ### Form=C:\autoIt\AutoIt eigene scripts\fishbot\language.kxf
$Form2 = GUICreate("Choose Language", 138, 230, 480, 282)
GUISetFont(9, 800, 0, "Times New Roman")
$Buteng = GUICtrlCreateButton("english", 8, 32, 121, 41)
$Butdeu = GUICtrlCreateButton("deutsch", 8, 80, 121, 41)
$Butfr = GUICtrlCreateButton("francais", 8, 128, 121, 41)
$Butrus = GUICtrlCreateButton("русский", 8, 176, 121, 41) ;russisch
$beschriftung1 = GUICtrlCreateLabel("Rift language", 8, 8, 121, 19)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete()
ExitLoop
Case $Buteng
$language = "english"
loadlanguage($language)
updateui()
GUIDelete()
ExitLoop
Case $Butdeu
$language = "deutsch"
loadlanguage($language)
updateui()
GUIDelete()
ExitLoop
Case $Butfr
$language = "francais"
loadlanguage($language)
updateui()
GUIDelete()
ExitLoop
Case $Butrus
$language = "russian"
loadlanguage($language)
updateui()
GUIDelete()
ExitLoop
EndSwitch
WEnd
EndFunc
Global $file = ""
Global $oldlines, $newlines
Global $nFilesize, $nFilesize_new
;fischen
Global $fishing = 0 ;start und abbruch der fishroutine
Global $c1, $c2 ; compare für _WinAPI_GetCursorInfo()
;skillup, zeigt ob gelevelt wurde und das alte level
Global $skillup = False
Global $oldskill, $skill
;Zeltvariable
Global $zeltzeit = IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "Zeltdauer", 15)
Global $zelt = 0
Global $zzpassed
;Ködervariable
Global $koederuse = 0 ;laden aus checkbox!
Global $koederactive = 0
Global $anzahlkoeder = IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "Anzahl Köder zum benutzen", 1000)
;tasten aus ini zugeordnet
Global $fishingkey = IniRead(@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Angeltaste", 6)
Global $zeltkey = IniRead(@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "zelt", 9)
Global $koederkey = IniRead(@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Köder", 7)
Global $bagkey = IniRead(@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Rucksack", "b")
;positions
Global $qmposi[2]
Global $fishingpoleposi[2]
Global $olposi[2]
Global $urposi[2]
Global $movement[2] ;für pixelbewegung speicherort
;sonstiges
Global $Paused = 0
Global $rndfish =0
Global $timetofish[2]
Global $fischdauer
Global $Looping = 1
Global $nachfischwarten = 0
Global $fischloglist [100][2]
Global $possiblelogerror = True
Global $tooltips
Global $Combolanguage = "English"
Global $autolog
Global $logenabled = False ;für autolog, wenn falsch auch tooltip, dass autolog nicht funktioniert
Global $ttnfw = False ;nachwiscwarten für tooltips
Global $waitaftercatch ;for tt und nachfischwarten
Global $tttext
Global $livestatistics = 0
Global $fishroutine = False ;wird auf true gesetzt wenn quickfish oder randomfish benutzt wird -> quit erstellt die log datei
Global $correctlang = False ;check, ob richtige sprache bei autolog
;shutdown
Global $shutdown
Global $shutdowntime
Global $shutdown_timer = TimerInit()
Global $logfile
;Daten laden
if (IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "Köderbenutzen", False) = "True") Then
GUICtrlSetState($checkbox1,$GUI_CHECKED)
EndIf
if (IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "Zeltbenutzen", False) = "True") Then
GUICtrlSetState($checkbox2,$GUI_CHECKED)
EndIf
if (IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "nachfischwarten", False) = "True") Then
GUICtrlSetState($checkbox3,$GUI_CHECKED)
EndIf
if (IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "Tooltips", True) = "True") Then
GUICtrlSetState($checkbox4,$GUI_CHECKED)
EndIf
if (IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "autolog", True) = "True") Then
GUICtrlSetState($checkbox5,$GUI_CHECKED)
EndIf
if (IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "shutdown", False) = "True") Then
GUICtrlSetState($checkbox6,$GUI_CHECKED)
EndIf
if (IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "livestatistics", True) = "True") Then
GUICtrlSetState($checkbox7,$GUI_CHECKED)
EndIf
$fishingpoleposi[0] = IniRead(@ScriptDir & "\fishbotconfig.ini", "Angelposi", "X",0)
$fishingpoleposi[1] = IniRead(@ScriptDir & "\fishbotconfig.ini", "Angelposi", "y",0)
;leere liste erstellen:
For $i = 0 to 99
$fischloglist [$i][0] = "leer"
$fischloglist [$i][1] = 0
Next
firstlangsetup()
Func firstlangsetup()
$test = IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "language", "none")
If $test = "none" Then setlanguage()
EndFunc
;setlanguage()
;_GDIPlus_Startup()
loadlanguage($language)
updateui()
#cs
;statistik log, $txtnamelogfile wird abhängig von der sprache geändert
Global $namelogfile = $txtnamelogfile & ".txt"
$logfile = FileOpen($namelogfile, 2)
#ce
While 1
HotKeySet ("{F10}", "_Quit")
HotKeySet ("{F9}", "togglePause")
HotKeySet ("{F8}", "disabletooltips")
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
saveini()
Exit
Case $butquick
saveini ()
setfunctions ()
quickfish ()
Case $butrndfish
saveini ()
setfunctions ()
rndfish ()
Case $butsetup
saveini ()
angelposi ()
Case $buthelp
MsgBox(0,$txtmsghead6 ,$txtmsgbox6)
Case $butlang
setlanguage()
Case $butlog
$probpath = @MyDocumentsDir & "\RIFT\"
$var = FileOpenDialog($txtchooselog, $probpath, "(*.txt)", 1 , $probpath & "log.txt")
If $var = "" Then
Else
IniWrite(@ScriptDir & "\fishbotconfig.ini", "Pfad", "log", $var)
$file = $var
EndIf
EndSwitch
WEnd
Func disabletooltips()
$tooltips = Not $tooltips
tooltipcreator()
EndFunc
;alle Einstellungen speichern:
func saveini()
IniWrite (@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "Anzahl Köder zum benutzen", GUICtrlRead($inpAnzahlkoeder))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "Zeltdauer", GUICtrlRead ($inpdauerzelt))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Köder", GUICtrlRead ($inpkoederkey))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Zelt", GUICtrlRead ($inpzeltkey))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Rucksack", GUICtrlRead ($inprucksackkey))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Angeltaste", GUICtrlRead ($inpangelkey))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "köderbenutzen", (GUICtrlRead ($Checkbox1)= $GUI_CHECKED))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "zeltbenutzen", (GUICtrlRead ($Checkbox2)= $GUI_CHECKED))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "nachfischwarten", (GUICtrlRead ($Checkbox3)= $GUI_CHECKED))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "tooltips", (GUICtrlRead ($Checkbox4)= $GUI_CHECKED))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "autolog", (GUICtrlRead ($Checkbox5)= $GUI_CHECKED))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "shutdown", (GUICtrlRead ($Checkbox6)= $GUI_CHECKED))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "livestatistics", (GUICtrlRead ($Checkbox7)= $GUI_CHECKED))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "language", $language)
IniWrite (@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "wartezeit", GUICtrlRead ($inpwartezeit))
IniWrite (@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "shutdowntime", GUICtrlRead ($inpshutdown))
If Not ($file = "") Then IniWrite (@ScriptDir & "\fishbotconfig.ini", "Pfad", "log", $file)
EndFunc
;set functions
Func setfunctions ()
Global $fishingkey = IniRead(@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Angeltaste", 6)
Global $zeltkey = IniRead(@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "zelt", 9)
Global $koederkey = IniRead(@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Köder", 7)
Global $bagkey = IniRead(@ScriptDir & "\fishbotconfig.ini", "Tastaturbelegung", "Rucksack", "b")
Global $zeltzeit = IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "Zeltdauer", 15)
Global $anzahlkoeder = IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "Anzahl Köder zum benutzen", 1000)
Global $wartezeit = IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "wartezeit", 6)
Global $shutdowntime = IniRead(@ScriptDir & "\fishbotconfig.ini", "allgemeine Einstellungen", "shutdowntime", 120)
;checkboxes
if GUICtrlRead ($Checkbox1) = $GUI_CHECKED Then $koederuse = 1
if GUICtrlRead ($Checkbox2) = $GUI_CHECKED Then $zelt = 1
if GUICtrlRead ($Checkbox3) = $GUI_CHECKED Then $nachfischwarten = 1
If GUICtrlRead ($Checkbox4) = $GUI_CHECKED Then $tooltips = 1
If GUICtrlRead ($Checkbox5) = $GUI_CHECKED Then $autolog = 1
If GUICtrlRead ($Checkbox6) = $GUI_CHECKED Then $shutdown = 1
If GUICtrlRead ($Checkbox7) = $GUI_CHECKED Then $livestatistics = 1
;Pfad
$file = IniRead(@ScriptDir & "\fishbotconfig.ini", "Pfad", "log", @MyDocumentsDir & "\RIFT\log.txt")
EndFunc
;quickfish und randomfish neu:
func quickfish ()
MsgBox (64, $txtmsghead1 , $txtmsgbox1)
WinActivate ("RIFT")
$Looping = 1
$rndfish = 0
superfish()
EndFunc
func rndfish ()
MsgBox (64, $txtmsghead2, $txtmsgbox2)
WinActivate ("RIFT")
$Looping = 1
$rndfish = 1
superfish()
EndFunc
func superfish()
$fishroutine = True
;angelposition im wasser
If $rndfish Then
If $tooltips Then ToolTip($txtttig1)
While $Looping
If _IsPressed(01) then
$olposi = MouseGetPos()
While _IsPressed(01) ;pause wärend gedrückt ist
WEnd
ExitLoop
EndIf
WEnd
Sleep(100)
If $tooltips Then ToolTip($txtttig2)
While $Looping
If _IsPressed(01) then
$urposi = MouseGetPos()
While _IsPressed(01) ;pause wärend gedrückt ist
WEnd
ExitLoop
EndIf
WEnd
Else
If $tooltips Then ToolTip($txtttig3)
While $Looping ;save quickfishing mouse position
If _IsPressed(01) then
$qmposi = MouseGetPos()
While _IsPressed(01) ;pause wärend gedrückt ist
WEnd
ExitLoop
EndIf
WEnd
EndIf
;autolog
If $autolog Then autolog()
;alles löschen in der log file
FileOpen($file, 2)
FileClose($file)
$oldlines = 0
;zelte
If $zelt Then
$zzpassed = TimerInit()
Send ($zeltkey)
Sleep(1000)
EndIf
;köder
If ($koederuse And (Not $koederactive) And ($anzahlkoeder > 0)) Then
Send ($bagkey)
MouseMove ($fishingpoleposi[0], $fishingpoleposi[1])
Sleep(300)
Send ($koederkey)
Sleep (300)
MouseClick ("left")
Sleep (3000) ;castime checken!
Send ($bagkey)
$anzahlkoeder = $anzahlkoeder -1
$koederactive = 1
EndIf
;fishroutine startet
$fishing = 1
fishing()
EndFunc
;nachfisch warten +tt
Func warten()
If $nachfischwarten Then
$ttnfw = True
$waitaftercatch = Random($wartezeit)
tooltipcreator()
Sleep($waitaftercatch * 1000)
$ttnfw = False
tooltipcreator()
EndIf
EndFunc
Func fishing ();fishroutine, die immer wiederholt wird
While $Looping
;unlockt die maus
_mousetrap()
;shutdownfunktion
If ($shutdown And (TimerDiff($shutdown_timer) > $shutdowntime *1000*60)) Then shutdownfunction()
;nachfisch warten +tt
warten()
;WinActive
If (Not WinActive("Rift")) Then WinActivate ("RIFT")
;Zeltcheck
If ($zelt And (TimerDiff($zzpassed)) > $zeltzeit * 60 * 1000) Then
warten()
Send ($zeltkey)
Sleep (1000) ;castimecheck
$zzpassed = TimerInit()
EndIf
_mousetrap()
;Ködercheck
If ($koederuse And (Not $koederactive) And ($anzahlkoeder > 0)) Then
warten()
Send ($bagkey)
MouseMove ($fishingpoleposi[0], $fishingpoleposi[1])
Sleep(300)
Send ($koederkey)
Sleep (300)
MouseClick ("left")
Sleep (3000) ;castime checken!
Send ($bagkey)
$anzahlkoeder = $anzahlkoeder -1
$koederactive = 1
EndIf
;wenn quick, dann isqmposi immer gleich, ansonsten wirds random ausgewürfelt
If $rndfish = 1 Then
$qmposi[0] = Random($olposi[0], $urposi[0], 1)
$qmposi[1] = Random($olposi[1], $urposi[1], 1)
;else rndfish
EndIf
Send ($fishingkey)
MouseMove ($qmposi[0], $qmposi[1])
MouseClick ("left")
$fishing = 1
;mouselock
_mousetrap($qmposi[0], $qmposi[1])
$fischdauer = TimerInit()
sortfishlist()
;pixelscan()
fishgogo()
WEnd
EndFunc
Func fishgogo()
tooltipcreator()
If Not $fishing Then _mousetrap()
Sleep(1000)
$c1 = _WinAPI_GetCursorInfo() ;fürs $c1[2] handle fürs fischen
While $fishing
If (Not WinActive("Rift")) Then WinActivate ("RIFT")
$c2 = _WinAPI_GetCursorInfo()
If $c1[2] <> $c2[2] Then
Send ($fishingkey)
$fischdauer = TimerInit()
EndIf
$nFilesize_new = FileGetSize($file)
If $nFilesize < $nFilesize_new Then
logscan (); funktion mit neue lines count, aus$nFilesize = $nFilesize_new
$nFilesize = $nFilesize_new
EndIf
If (TimerDiff($fischdauer) > 25000) Then
$fishing = 0
EndIf
Sleep(100)
WEnd
EndFunc
#cs
Func pixelscan()
tooltipcreator()
If Not $fishing Then _mousetrap()
While $fishing
; sleep(400) ; sleeping it, save your CPU auf newcompare
Local $boole = newcompare()
If (not $boole) Then
;WinActive
If (Not WinActive("Rift")) Then WinActivate ("RIFT")
;angel einziehen
Send ($fishingkey)
$firstpicture = True
$fischdauer = TimerInit()
EndIf
$nFilesize_new = FileGetSize($file)
If $nFilesize < $nFilesize_new Then
logscan (); funktion mit neue lines count, aus$nFilesize = $nFilesize_new
$nFilesize = $nFilesize_new
EndIf
If (TimerDiff($fischdauer) > 25000) Then
$fishing = 0
EndIf
WEnd
EndFunc
Func newcompare()
Local $mposi = MouseGetPos()
If $firstpicture Then
Sleep(1000)
_ScreenCapture_Capture(@ScriptDir & "\compare1.jpg", $mposi[0] + 3, $mposi[1] + 7, $mposi[0] + 4, $mposi[1] + 8, True)
$firstpicture = False
Return True
Else ;mach 2. bild und vergleich es mit dem ersten, 1. bild machen
Sleep(500)
_ScreenCapture_Capture(@ScriptDir & "\compare2.jpg", $mposi[0] + 3, $mposi[1] + 7, $mposi[0] + 4, $mposi[1] + 8, True)
;2. bilder vergleichen
$bm1 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\compare1.jpg")
$bm2 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\compare2.jpg")
$test = CompareBitmaps($bm1, $bm2)
_GDIPlus_ImageDispose($bm1)
_GDIPlus_ImageDispose($bm2)
If $test = True Then
Return True
Else
Return False
EndIf
EndIf
EndFunc
Func CompareBitmaps($bm1, $bm2)
$BitmapData1 = _GDIPlus_BitmapLockBits($bm1, 0, 0, 2, 2, $GDIP_ILMREAD, $GDIP_PXF32RGB)
$Stride = DllStructGetData($BitmapData1, "Stride")
$Scan0 = DllStructGetData($BitmapData1, "Scan0")
$BitmapData2 = _GDIPlus_BitmapLockBits($bm2, 0, 0, 2, 2, $GDIP_ILMREAD, $GDIP_PXF32RGB)
$Stride = DllStructGetData($BitmapData2, "Stride")
$Scan1 = DllStructGetData($BitmapData2, "Scan0")
$call = DllCall("msvcrt.dll", "int:cdecl", "memcmp", "ptr", $Scan0, "ptr", $Scan1, "int", $stride +4)
_GDIPlus_BitmapUnlockBits($bm1, $BitmapData1)
_GDIPlus_BitmapUnlockBits($bm2, $BitmapData2)
Return ($call[0]=0)
EndFunc
#ce
Func logscan ()
$newlines = _FileCountLines($file) ;count the txt filelines...
Local $howmanynewlines = 0
If $newlines > $oldlines Then
$howmanynewlines = $newlines - $oldlines ; counts new lines to analyse
ScanLastLines ($howmanynewlines, $oldlines)
$oldlines = $newlines
EndIf
EndFunc
Func ScanLastLines(ByRef $a, ByRef $old)
For $i = 1 To $a
$linetoread = FileReadLine ($file, $old +$i)
Select
Case StringRegExp ($linetoread, "]:")
Case StringRegExp ($linetoread, $txtscan1)
$koederactive = 0
Case StringRegExp ($linetoread, $txtscan2)
$fishing = 0
addtolist($linetoread)
$possiblelogerror = False
Case StringRegExp ($linetoread, $txtscan3)
$fishing = 0
addtolist($linetoread)
Case StringRegExp ($linetoread, $txtscan4)
$fishing = 0
addtolist($linetoread)
;level up in fishing
Case StringRegExp ($linetoread, $txtscan5)
skillup($linetoread)
EndSelect
Next
EndFunc
Func skillup($line)
$trimedline = StringTrimLeft($line, 14) ; 14 sind 4 extra, sicherheitsgründe
$newskill = StringRegExp($trimedline, '([0-9]{1,3})', 1)
If $skillup Then
$skill = $newskill[0]
Else
$skillup = True
$oldskill = $newskill[0] -1
$skill = $newskill[0]
EndIf
EndFunc
Func addtolist($line)
;$insert = StringTrimLeft($line, $trim) ;alte methode
$insert = findfish($line)
$b = True
For $i = 0 To 99
Select
Case $i = 99 ;abbruch
Case $fischloglist[$i][0] = "leer"
$fischloglist[$i][0] = $insert
$fischloglist[$i][1] = 1
$i = 99
Case $fischloglist[$i][0] <> $insert ;nix machen
Case $fischloglist[$i][0] = $insert
$fischloglist[$i][1] = $fischloglist[$i][1] +1
$i = 99
EndSelect
Next
EndFunc
;für addtolist mit 1.75
;wenn "[" und "]" gefunden werden, posi und dazwischen ausschneiden -> ergebnis, wenn nicht ergebnis = line -9 buchstaben
Func findfish($line)
Local $found
Local $pos1 = StringInStr($line, "[")
Local $pos2 = StringInStr($line, "]")
If $pos1 And $pos2 Then
$found = StringMid($line, $pos1, ($pos2 - $pos1 +1))
Else
$found = StringTrimLeft($line, 10)
EndIf
Return $found
EndFunc
Func writefishlog()
Local $namelogfile = $txtnamelogfile & ".txt"
$logfile = FileOpen($namelogfile, 2)
$anzahl = 0
For $i = 0 To 99
If $fischloglist[$i][0] = "leer" Then
$i = 99
Else
FileWrite($logfile, $fischloglist[$i][1] & " x " & $fischloglist[$i][0] & @CRLF)
$anzahl = $anzahl + $fischloglist [$i][1]
EndIf
Next
FileWrite($logfile,@CRLF & @CRLF & $anzahl & $txtfishestriedtocatch)
EndFunc
Func _Quit()
_mousetrap()
If $fishroutine Then writefishlog()
saveini()
Exit
EndFunc
Func shutdownfunction()
_mousetrap()
If $fishroutine Then writefishlog()
saveini()
Shutdown(5)
EndFunc
Func TogglePause()
If $fishing Then
_mousetrap()
If $tooltips Then ToolTip($txtttig4, 0, 0, $txtttig11)
$Paused = Not $Paused
While $Paused
Sleep(100)
WEnd
_mousetrap($qmposi[0], $qmposi[1])
If (Not WinActive("Rift")) Then WinActivate ("RIFT")
Sleep(100)
If $tooltips Then tooltipcreator()
Else
$Paused = Not $Paused
While $Paused
Sleep(100)
WEnd
If (Not WinActive("Rift")) Then WinActivate ("RIFT")
Sleep(100)
EndIf
EndFunc ;==>TogglePause
;angelposi setup
Func angelposi ()
MsgBox (0,$txtmsghead3 ,$txtmsgbox3)
WinActivate ("RIFT")
Sleep(300)
Send($bagkey)
While 1
If _IsPressed(02) then
$fishingpoleposi = MouseGetPos()
ExitLoop
EndIf
WEnd
IniWrite(@ScriptDir &"\fishbotconfig.ini", "Angelposi", "X", $fishingpoleposi[0])
IniWrite(@ScriptDir &"\fishbotconfig.ini", "Angelposi", "Y", $fishingpoleposi[1])
Sleep(100)
Send($bagkey)
Sleep(100)
MouseClick("right")
Sleep(100)
MsgBox(64,$txtmsghead4, $txtmsgbox4)
WinActivate($txtmsghead4)
EndFunc
Func sortfishlist()
For $i = 0 To 98
If $fischloglist[$i][0] = "leer" Then
$i = 98
ElseIf $fischloglist[$i][1] < $fischloglist[$i+1][1] Then
Local $sortfisch = $fischloglist[$i][0]
Local $sortanzahl = $fischloglist[$i][1]
$fischloglist[$i][0] = $fischloglist[$i+1][0]
$fischloglist[$i][1] = $fischloglist[$i+1][1]
$fischloglist[$i+1][0] = $sortfisch
$fischloglist[$i+1][1] = $sortanzahl
$i = -1
EndIf
Next
EndFunc
;neu: file, und beide standart pfade files werden geöffnet mit write und folder erstellen
;zeilen gezählt
;angeln abgebrochen
;gelesen, korrekte file gewählt
;-> /log oder ok, wenn log repeat schritt 1-2
Func autolog()
;check ob log an ist, angel auswerfen, direkt einziehen, log überprüfen
ToolTip($txtttig12)
_mousetrap()
;quickfischen autolog scan
;variablen für alle möglichen log files
Local $filelog = $file
Local $stdlog = @MyDocumentsDir & "\RIFT\log.txt"
Local $betalog = @MyDocumentsDir & "\RIFT Beta\Log.txt"
Local $PTSlog = @MyDocumentsDir & "\RIFT PTS\log.txt"
;zähl von allen files die zeilen, wenn veränderung -> $file einstellen! und scanlastlinesforautolog
; wenn keine veränderung -> log anmachen und nochmal
Local $filelog_old = _FileCountLines($filelog)
Local $stdlog_old = _FileCountLines($stdlog)
Local $betalog_old = _FileCountLines($betalog)
Local $PTSlog_old = _FileCountLines($PTSlog)
;$oldlines = _FileCountLines($file)
;klick irgendwo hin und brich ab
If $rndfish = 0 Then
Send ($fishingkey)
Sleep(1000)
MouseClick ("left", $qmposi[0], $qmposi[1])
;mouselock
$fishing = 1
_mousetrap($qmposi[0], $qmposi[1])
;rndfishing autolog scan
Else
$qmposi[0] = Random($olposi[0], $urposi[0], 1)
$qmposi[1] = Random($olposi[1], $urposi[1], 1)
Send ($fishingkey)
Sleep(1000)
MouseClick ("left", $qmposi[0], $qmposi[1])
$fishing = 1
;mouselock
_mousetrap($qmposi[0], $qmposi[1])
EndIf
Sleep (1000)
Send($fishingkey)
Sleep(1000)
;logscan abgewandelt, alle files durchscannen, bei veränderung wird das neue $file
Local $howmanynewlines = 0
If $filelog_old < _FileCountLines($filelog) Then
$howmanynewlines = _FileCountLines($filelog) - $filelog_old
ScanLastLinesforautolog ($howmanynewlines, $filelog_old)
ElseIf $stdlog_old < _FileCountLines($stdlog) Then
$file = @MyDocumentsDir & "\RIFT\log.txt"
$howmanynewlines = _FileCountLines($stdlog) - $stdlog_old
ScanLastLinesforautolog ($howmanynewlines, $stdlog_old)
ElseIf $betalog_old < _FileCountLines($betalog) Then
$file = @MyDocumentsDir & "\RIFT Beta\Log.txt"
$howmanynewlines = _FileCountLines($betalog) - $betalog_old
ScanLastLinesforautolog ($howmanynewlines, $betalog_old)
ElseIf $PTSlog_old < _FileCountLines($PTSlog) Then
$file = @MyDocumentsDir & "\RIFT PTS\log.txt"
$howmanynewlines = _FileCountLines($PTSlog) - $PTSlog_old
ScanLastLinesforautolog ($howmanynewlines, $PTSlog_old)
EndIf
#cs
;standart scannen:
$newlines = _FileCountLines($file) ;count the txt filelines...
Local $howmanynewlines = 0
If $newlines > $oldlines Then
$howmanynewlines = $newlines - $oldlines ; counts new lines to analyse
ScanLastLinesforautolog ($howmanynewlines, $oldlines)
$oldlines = $newlines
EndIf
#ce
;schreibt /log und drückt enter
If not $logenabled Then
Send("{ENTER}")
Sleep(200)
Send("/log")
Sleep(200)
Send("{ENTER}")
Else
$possiblelogerror = False
EndIf
;2. part, wenn log an ist, ist $possiblelogerror = false und das hier wird übersprungen
If $possiblelogerror Then
_mousetrap()
;quickfischen autolog scan
Sleep(1000)
If $rndfish = 0 Then
Send ($fishingkey)
Sleep(1000)
MouseClick ("left", $qmposi[0], $qmposi[1])
;mouselock
$fishing = 1
_mousetrap($qmposi[0], $qmposi[1])
;rndfishing autolog scan
Else
$qmposi[0] = Random($olposi[0], $urposi[0], 1)
$qmposi[1] = Random($olposi[1], $urposi[1], 1)
Send ($fishingkey)
Sleep(1000)
MouseClick ("left", $qmposi[0], $qmposi[1])
$fishing = 1
;mouselock
_mousetrap($qmposi[0], $qmposi[1])
EndIf
Sleep (1000)
Send($fishingkey)
Sleep(1000)
#cs
;logscan abgewandelt
$newlines = _FileCountLines($file) ;count the txt filelines...
If $newlines > $oldlines Then
$howmanynewlines = $newlines - $oldlines ; counts new lines to analyse
ScanLastLinesforautolog ($howmanynewlines, $oldlines)
$oldlines = $newlines
EndIf
#ce
;logscan abgewandelt, alle files durchscannen, bei veränderung wird das neue $file
If $filelog_old < _FileCountLines($filelog) Then
$howmanynewlines = _FileCountLines($filelog) - $filelog_old
ScanLastLinesforautolog ($howmanynewlines, $filelog_old)
ElseIf $stdlog_old < _FileCountLines($stdlog) Then
$file = @MyDocumentsDir & "\RIFT\log.txt"
$howmanynewlines = _FileCountLines($stdlog) - $stdlog_old
ScanLastLinesforautolog ($howmanynewlines, $stdlog_old)
ElseIf $betalog_old < _FileCountLines($betalog) Then
$file = @MyDocumentsDir & "\RIFT Beta\Log.txt"
$howmanynewlines = _FileCountLines($betalog) - $betalog_old
ScanLastLinesforautolog ($howmanynewlines, $betalog_old)
ElseIf $PTSlog_old < _FileCountLines($PTSlog) Then
$file = @MyDocumentsDir & "\RIFT PTS\log.txt"
$howmanynewlines = _FileCountLines($PTSlog) - $PTSlog_old
ScanLastLinesforautolog ($howmanynewlines, $PTSlog_old)
EndIf
;2. part erfolgreich -> log eingeschaltet -> startet fischen, wenn nicht, possiblelogerror
EndIf
If $logenabled Then
$possiblelogerror = False
Else
$possiblelogerror = True ; ist so oder so auf True
EndIf
_mousetrap()
EndFunc
Func ScanLastLinesforautolog($a, $old)
$logenabled = True
For $i = 1 To $a
$linetoread = FileReadLine ($file, $old +$i)
Select
Case StringRegExp ($linetoread, "]:")
Case StringRegExp ($linetoread, $txtscan4)
$correctlang = True
EndSelect
Next
If not $correctlang Then lngcheck($a, $old)
EndFunc
;language check bei autolog, $txtscan4 einfügen bei neuer Sprache!
Func lngcheck($a, $old)
For $i = 1 To $a
$linetoread = FileReadLine ($file, $old +$i)
Select
Case StringRegExp ($linetoread, "]:")
Case StringRegExp ($linetoread, "You stop fishing")
$language = "english"
loadlanguage($language)
$correctlang = True
Case StringRegExp ($linetoread, "Ihr fischt nicht mehr")
$language = "deutsch"
loadlanguage($language)
$correctlang = True
Case StringRegExp ($linetoread, "Vous arrêtez la pêche")
$language = "francais"
loadlanguage($language)
$correctlang = True
Case StringRegExp ($linetoread, "Рыба сорвалась. Какая досада.")
$language = "russian"
loadlanguage($language)
$correctlang = True
EndSelect
Next
EndFunc
;tooltipcreator macht bei jeder fishingroutine den tooltip neu
Func tooltipcreator()
If $tooltips Then
;tt text allgemein
$tttext = $txtttcreator1
$tthead = $txtttcreator2
; tt text shutdown
If $shutdown And $fishroutine Then
Local $sd = Round($shutdowntime - TimerDiff($shutdown_timer)/1000 /60 )
$tttext = $tttext & @crlf & $txtttcreator3 & $sd
EndIf
;log error
If $possiblelogerror And $fishroutine Then
$tttext = $tttext & @crlf & $txtttcreator4
$tthead = $txtttcreator5
EndIf
;autolog fail check, wenn log nicht angeschaltet werden kann, also Not
If Not $logenabled And $fishroutine Then $tttext = $tttext & @crlf & $txtttcreator6
;nachfischwarten, ja nein
If $ttnfw And $fishroutine Then $tttext = $tttext & @crlf & $txtttcreator7 & Round($waitaftercatch) & $txtttcreator8
;skillup in fischen
If $skillup Then $tttext = $tttext & @crlf & @crlf & $txtttcreator10 & $oldskill & " - " & $skill
;statistik
If $livestatistics And $fishroutine Then $tttext = $tttext & @crlf & @crlf & $txtttcreator9
For $i = 0 To 99
If $fischloglist[$i][0] = "leer" Then
$i = 99
Else
$tttext = $tttext & @crlf & $fischloglist[$i][1] & " x " & $fischloglist[$i][0]
EndIf
Next
;tooltip wird so dargestellt
ToolTip($tttext, 0, 0, $tthead)
Else
ToolTip("")
EndIf
EndFunc
Func _ExitLoop()
$Looping = NOT $Looping
EndFunc
Or just go here if you want to normal version without anything else: