
Trait
Active Members-
Posts
20 -
Joined
-
Last visited
Everything posted by Trait
-
What is this A.I. supposed to do? (Are you trying to make a bot for a game?) You can script for quite a few possible outcomes if you know what to expect. True learning A.I. is probably a bit beyond autoit, though I won't say it's impossible.
-
Did you try sending that command to a notepad to see if it came through as a normal letter, or is it just not sending ANYTHING at all?
-
If you want to send a "1" keypress to Gaia you can do it with a controlsend() Something like this " ControlSend("Gaia (New)","","","1") - This is off the TOP OF MY HEAD. It's been a year or so since I did a minimized bot... Because you've copied code, you're over complicating your script... making it harder for you to understand. Break it down like this : Step 1: Set a hotkey to run your script hotkeyset("{INSERT}","BotFunc") Step 2: Create a loop so that your script will stay running when you start it. While 1 Sleep(100) WEnd Step 3: Create a function that will do your work. What I laid out is very basic. It sends a keypress, sleeps for 1 second and then starts over again. ((You'll find out that games keep track of keypresses and there are some things needed to make this script undetectable... message me sometime if you're interested.)) Func BotFunc() While 1;This loops untill the script is ended. ControlSend("Gaia (New)","","","1"); This sends a "1" to gaia window. Sleep(1000) ; This sleeps for 1 second WEnd; This closes the loop EndFunc; This closes the func
-
CODEFunc Translate($Card) IDini();Import values for our cards Local $Acrcy = .90 ;--------- Set accuracy level Local $Cntr = 0 Local $CardC = $Card Local $CardCt = 0 ; - Reset accuracy counter for each card Local $AcCntr2 = 0 Local $AcCntr3 = 0 Local $AcCntr4 = 0 Local $AcCntr5 = 0 Local $AcCntr6 = 0 Local $AcCntr7 = 0 Local $AcCntr8 = 0 Local $AcCntr9 = 0 Local $AcCntr10 = 0 Local $AcCntrJ = 0 Local $AcCntrQ = 0 Local $AcCntrK = 0 Local $AcCntrA = 0 Local $St = 0 ; Reset variable to hold string trims. Local $2 = $2id ;Duplicate global ID for card 2 Local $3 = $3id Local $4 = $4id Local $5 = $5id Local $6 = $6id Local $7 = $7id Local $8 = $8id Local $9 = $9id Local $10 = $10id Local $J = $Jid Local $Q = $Qid Local $K = $Kid Local $A = $Aid Do; run compare on 2 $St = StringTrimLeft($2,StringLen($2)-1);Trims one value off the end of string. $2 = StringTrimRight($2,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) ;TrayTip("Debug:", $St & "/" & $CardCt,10) ;sleep(500) If $St = $CardCt Then ;TrayTip("Debug:", $St & "/" & $CardCt & " is true",10) ;sleep (500) $AcCntr2 = $AcCntr2 + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for 2 is :" & $AcCntr2,0) ;sleep(500) If $AcCntr2/64 > $Acrcy Then return "2" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf Do ; run compare on 3 $St = StringTrimLeft($3,StringLen($3)-1);Trims one value off the end of string. $3 = StringTrimRight($3,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) If $St = $CardCt Then $AcCntr3 = $AcCntr3 + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for 3 is :" & $AcCntr3,0) ;sleep(500) If $AcCntr3/64 > $Acrcy Then return "3" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf Do ; run compare on 4 $St = StringTrimLeft($4,StringLen($4)-1);Trims one value off the end of string. $4 = StringTrimRight($4,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) If $St = $CardCt Then $AcCntr4 = $AcCntr4 + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for 4 is :" & $AcCntr4,0) ;sleep(500) If $AcCntr4/64 > $Acrcy Then return "4" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf Do ; run compare on 5 $St = StringTrimLeft($5,StringLen($5)-1);Trims one value off the end of string. $5 = StringTrimRight($5,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) If $St = $CardCt Then $AcCntr5 = $AcCntr5 + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for 5 is :" & $AcCntr5,0) ;sleep(500) If $AcCntr5/64 > $Acrcy Then return "5" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf Do ; run compare on 6 $St = StringTrimLeft($6,StringLen($6)-1);Trims one value off the end of string. $6 = StringTrimRight($6,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) If $St = $CardCt Then $AcCntr6 = $AcCntr6 + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for 6 is :" & $AcCntr6,0) ;sleep(500) If $AcCntr6/64 > $Acrcy Then return "6" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf Do ; run compare on 7 $St = StringTrimLeft($7,StringLen($7)-1);Trims one value off the end of string. $7 = StringTrimRight($7,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) If $St = $CardCt Then $AcCntr7 = $AcCntr7 + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for 7 is :" & $AcCntr7,0) ;sleep(500) If $AcCntr7/64 > $Acrcy Then return "7" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf Do ; run compare on 8 $St = StringTrimLeft($8,StringLen($8)-1);Trims one value off the end of string. $8 = StringTrimRight($8,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) If $St = $CardCt Then $AcCntr8 = $AcCntr8 + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for 8 is :" & $AcCntr8,0) ;sleep(500) If $AcCntr8/64 > $Acrcy Then return "8" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf Do ; run compare on 9 $St = StringTrimLeft($9,StringLen($9)-1);Trims one value off the end of string. $9 = StringTrimRight($9,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) If $St = $CardCt Then $AcCntr9 = $AcCntr9 + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for 9 is :" & $AcCntr9,0) ;sleep(500) If $AcCntr9/64 > $Acrcy Then return "9" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf Do ; run compare on 10 $St = StringTrimLeft($10,StringLen($10)-1);Trims one value off the end of string. $10 = StringTrimRight($10,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) If $St = $CardCt Then $AcCntr10 = $AcCntr10 + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for 10 is :" & $AcCntr10,0) ;sleep(500) If $AcCntr10/64 > $Acrcy Then return "10" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf Do ; run compare on J $St = StringTrimLeft($J,StringLen($J)-1);Trims one value off the end of string. $J = StringTrimRight($J,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) If $St = $CardCt Then $AcCntrJ = $AcCntrJ + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for J is :" & $AcCntrJ,0) ;sleep(500) If $AcCntrJ/64 > $Acrcy Then return "J" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf Do ; run compare on Q $St = StringTrimLeft($Q,StringLen($Q)-1);Trims one value off the end of string. $Q = StringTrimRight($Q,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) If $St = $CardCt Then $AcCntrQ = $AcCntrQ + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for Q is :" & $AcCntrQ,0) ;sleep(500) If $AcCntrQ/64 > $Acrcy Then return "Q" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf Do ; run compare on K $St = StringTrimLeft($K,StringLen($K)-1);Trims one value off the end of string. $J = StringTrimRight($K,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) If $St = $CardCt Then $AcCntrK = $AcCntrK + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for K is :" & $AcCntrK,0) ;sleep(500) If $AcCntrK/64 > $Acrcy Then return "K" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf Do ; run compare on A $St = StringTrimLeft($A,StringLen($A)-1);Trims one value off the end of string. $A = StringTrimRight($A,1) $CardCt = StringTrimLeft($CardC,StringLen($CardC)-1);Trims one value off the end of string. $CardC = StringTrimRight($CardC,1) If $St = $CardCt Then $AcCntrA = $AcCntrA + 1 $Cntr = $Cntr+1 Else $Cntr = $Cntr+1 EndIf until $Cntr > 62 TrayTip("HiLo Ninja: ", "Accuracy count for A is :" & $AcCntrA,0) ;sleep(500) If $AcCntrA/64 > $Acrcy Then return "A" Else $Cntr = 0 $CardC = $Card $CardCt = 0 EndIf EndFunc I use another function to read an .ini file and set what each card SHOULD be. As I said. You'd have to sample each letter from EVE and translate them. Once you build the alphabet and number index. It's just a matter of figuring out their spacing used for each letter and going from there. I would't use it to read whole sentences though. That'd take forever.
-
You need to check the script's stored coord's and compare them to your own. If it's missing the undock button, you need to find the part of the script that gives it that location and correct it with your own... Unless of course you can just move the window to make it work! Good luck
-
Wow... Intrest in my work! lol My mining bot doesn't use text translation. (It DOES produce over 2 mill a night with a frigate though) My ocr was developed for a card game called HI/LO by moola.com The principles SHOULD be the same though. I created a function that reads in an array let's say 10X20 pixels, compares against a text color ( TWO text colors for the card game) and counts that as a hit or miss. By doing this you have 200 checks per letter. You can then set an accuracy count against that to allow for slight background changes. In EVE's case though, the array would be much smaller, maybe a 4X5. Setup includes a sample of each text letter and making a DB entry that maps out in True/False the array scan. I compare that with what I've just read then total up the matches. If matches > accuracyCheck then you have a match and return that letter. Still interested? If so, msg me and we can talk more.
-
If anyone's intrested, I've done quite a bit of work with text translation and could help. Background color's no problem and even shade variation can be accounted for as long as text color's consistent. I have code for a single symbol translation based on a set accuracy. The only setback is the time needed to map out each letter.
-
I remember running into a problem with @error awhile back working on a bot for another game I play. My code went something like this " If $ManaBolt <> @error then Do whatever until 0 else ;manabolt not found endif " You get the idea. It broke half the time but I couldn't tell why. I switched all the logic so that it went more like " if $ManaBolt = @error then ;damn bolt not found! else Do whatever until 0 endif "
-
I've done pixel searches before to create bots and I find that there are times where window focus changes without you knowing it and screws with your search. Try adding a WinActivate() to your program to keep the focus where you want it. Good luck!
-
I've been tinkering with a bot for Nevertales' web game, imperium. The reason I'm posting is to get a feel for who'd use it. Currently the bot has a few options for farming valor. The program supports 20+ targets and checks mana after every cast. Idle function is in place to remain logged in and bypass the need for a login script. Supporting 3 buffs for ally mode and Ice storm for War mode, the bot is configured with an .ini to set targets and a key for window name. Do you play? Would you use this?
-
Thank you!
-
I'd like to use IE.au3 to open a specific web page but the version I have only has three functions and none will be of any use. I saw somewhere an IE function that did it but when i went to include the file and try the function it wouldn't work... Is there somewhere I can get the updated IE.au3? Thanks for your help.
-
Thanks for the info guys. Ill take a look at these options and see if I can't fit them in. I got the program working lastnight but not in a polished form... It's a bit rough but I was able to do 500 reports in an hour because of it.
-
Anyone know how to do this? I want to select a main folder "Data" or what ever. Then populate a combo menu with the subfolders of that main folder. Is this possible? useless? Anyone?
-
When I made a complex Eve online mining bot I made a serial function on initial setup of the bot. It created a fake file in the system directory that held the key. On startup it looked for the file and if it was there it skipped registration. Otherwise someone had to email me for a serial. I based the key off a formula and generated each key for the user. SO if they passed on the program they end user still had to get back to me to use the bot unless they found my file and copied that. If you need more info you could Email or msg me I suppose. I could go into more detail.
-
Evening everyone, I'm writing a small gui to help copy information from one location to another... I'd like to find directory information to populate my combo button options... I was hoping to get all the subfolders into an array so I can throw them in the combo. Do any of you know a way to get all the subfolders in a set directory? I'll be selecting the main folder using "FileSelectFolder"
-
Thanks for the help guys ^^ I'll look into some other options too! Thanks again! Trait
-
Hey, sorry if this has been asked allready... Didn't see it when I did a search. Anyone know if it's possible to set the middle mouse button as a hotkey to start a function? Thanks a million guys! Aaron
-
;Loss of Hours and minutes between two days in a month #include <GuiConstants.au3> If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000 GuiCreate("LostTime", 327, 287,(@DesktopWidth-407)/2, (@DesktopHeight-347)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $Label_0 = GuiCtrlCreateLabel("Time calc to find lost hours", 60, 20, 240, 30) GUICtrlSetFont ($label_0,14) $Label_1 = GuiCtrlCreateLabel("Start", 30, 50, 100, 30) GUICtrlSetFont ($label_1,18) $Label_2 = GuiCtrlCreateLabel("Day", 30, 90, 40, 30) GUICtrlSetFont ($label_2,12) $Label_3 = GuiCtrlCreateLabel("Hour", 30, 130, 40, 30) GUICtrlSetFont ($label_3,12) $Label_4 = GuiCtrlCreateLabel("Minute", 30, 170, 60, 30) GUICtrlSetFont ($label_4,12) $Label_5 = GuiCtrlCreateLabel("End", 210, 50, 100, 30) GUICtrlSetFont ($label_5,18) $Label_6 = GuiCtrlCreateLabel("Day", 210, 90, 40, 30) GUICtrlSetFont ($label_6,12) $Label_7 = GuiCtrlCreateLabel("Hour", 210, 130, 40, 30) GUICtrlSetFont ($label_7,12) $Label_8 = GuiCtrlCreateLabel("Minute", 210, 170, 60, 30) GUICtrlSetFont ($label_8,12) $StartDay = GuiCtrlCreateInput("", 80, 90, 40, 20) $DaySlider1 = GUICtrlCreateUpdown($StartDay) GUICtrlSetLimit( $DaySlider1,31,1) $SHour = GuiCtrlCreateInput("", 80, 130, 40, 20) $HourSlider1 = GUICtrlCreateUpdown($SHour) GUICtrlSetLimit( $HourSlider1,23,0) $StartMin = GuiCtrlCreateInput("", 80, 170, 40, 20) $MinSlider1 = GUICtrlCreateUpdown($StartMin) GUICtrlSetLimit( $MinSlider1,59,0) $EndDay = GuiCtrlCreateInput("", 260, 90, 40, 20) $DaySlider2 = GUICtrlCreateUpdown($EndDay) GUICtrlSetLimit( $DaySlider2,31,1) $EHour = GuiCtrlCreateInput("", 260, 130, 40, 20) $HourSlider2 = GUICtrlCreateUpdown($EHour) GUICtrlSetLimit( $HourSlider2,23,0) $EndMin = GuiCtrlCreateInput("", 260, 170, 40, 20) $MinSlider2 = GUICtrlCreateUpdown($EndMin) GUICtrlSetLimit( $MinSlider2,59,0) $Calculate = GuiCtrlCreateButton("Tell me", 30, 230, 120, 50) GUICtrlSetOnEvent( $Calculate ,"Calc") GUICtrlSetFont ($Calculate,16) GuiSetState() HotKeySet("{End}","Calc") While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Calculate call ("Calc") Case Else EndSelect WEnd Exit Func Calc() $Day1 = GUICtrlRead( $StartDay) $Day2 = GUICtrlRead( $EndDay) $Hour1 = GUICtrlRead( $SHour) $Hour2 = GUICtrlRead( $EHour) $Min1 = GUICtrlRead( $StartMin) $Min2 = GUICtrlRead( $EndMin) $DifDay = ($Day2 - $Day1)*24 $DifHour = $Hour2 - $Hour1 $DifMin = $Min2-$Min1 If $DifMin < 0 Then $DifHour = $DifHour - 1 $DifMin = $DifMin + 60 EndIf $THour = $DifDay + $DifHour TrayTip("LostTime","",0) TrayTip("LostTime","Hours "&$THour&" "&"Mins "&$DifMin,1) $LostMW = GUICtrlCreateLabel("Hours:"&$THour&@CR&"Minutes:"&$DifMin, 170, 230, 105, 65) GUICtrlSetFont ($LostMW,16) EndFunc