Wigger
Cheater
![]() Reputation: 0
Joined: 28 Aug 2004
Posts: 36
|
 Posted: Wed Feb 23, 2005 10:22 pm Post subject: |
 |
|
sorry for double posting but to make it more clear i had to.
I dont want to change the hex values all i want to do is read them. Lets take a rpg game for example. Everytime u cast a spell the mana will go down. Now say i were to find the hex values for the mana bar. I want to have a program read the hex values and if they are a certain way then i want a macro to step in a carry out an action, for example healing when the mana bar gets low. People these days are using pixle colors in the macros in order to read where certain things are. Wouldnt it be so much easier if a macro could read hex values and carry out an action. Thats the type of program im looking for.
here is an example of the current macro i use for fishing notice that to detect change it is all based on color but i want it more to be like cheat engine with hex.
| Code: | Global $paused = 1
$Timer50Minutes = TimerStart()
AdLibEnable("timers", 500);call the timers function to check for various times
;Here we have the variants based on what the script will do in memory while running
$log = "fishlog.txt"
$time1 = @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC
$fish = 2;
$event = 0;
$dca = 0
$lost = 0
$small = 0
$rusty = 0
$caught = 0
$dcc = 0
$failsafe = 0;
$nobait = 0;
$dc = 0;
$exit = 0;
$autosort = 0;
$noautosort = 0
$autodump = 0;
HotKeySet("{F4}", "writelog");
HotKeySet("{F5}", "end_script");these keys are hot hot hot!
;Write to file that bot has started
FIleWriteLine($log, "-------------------------------------------------------")
FIleWriteLine($log, "------------------- Bot Started -----------------------")
FIleWriteLine($log, "-------------------------------------------------------")
;Below is the command string to fish
While $fish > 1
If Not $paused And DriveStatus("A:") = "READY" Then
$paused = 1
EndIf
While $paused
If $paused And DriveStatus("A:") = "NOTREADY" Then
$paused = 0
EndIf
WEnd
AutoItSetOption("SendKeyDelay", 40);
Send ("{ESCAPE}");exit text box
Send ("!1"); Start the bot
$event = 0;
$failsafe = 0;
$nobait = 0;
;lets save time and dump and sort while we wait
If $autosort = 1 then
autosort()
$autosort = 0;
ElseIf $autodump = 1 then
autodump()
$autodump = 0;
EndIf
$noautosort = 0
Do
;----------------------------------------------NORMAL FISHING COMMENTS-------------------------------------------------
;here we have the command string"reel in" your fish
Sleep(250);
If PixelGetColor(25,745) = 16777215 AND PixelGetColor(109,744) = 16777215 AND PixelGetColor(200,739) = 16777215 Then
AutoItSetOption("SendKeyDelay", 40);
Sleep(Random(2200,2400));
Send ("{ENTER}");
Sleep(2400);
EndIf
;The "You didn't catch anything" keep fishing command string
If PixelGetColor(25,740) = 16777215 AND PixelGetColor(62,739) = 16777215 AND PixelGetColor(163,741) = 16777215 Then
Sleep(Random(2100,2200));
$dca = $dca + 1
$event = 1;
EndIf
;Here we have the command string to keep fishing when you get "lost your catch"
If PixelGetColor(23,736) = 16777215 AND PixelGetColor(97,746) = 16777215 AND PixelGetColor(171,736) = 16777215 Then
Sleep(Random(2100,2200));
$lost = $lost + 1
$event = 1;
EndIf
;Here is the command string to keep fishing when you get "Whatever you caught was too small for this rod"
If PixelGetColor(353,736) = 16777215 AND PixelGetColor(435,735) = 16777215 AND PixelGetColor(507,736) = 16777215 Then
Sleep(Random(2100,220));
$small = $small + 1
$event = 1;
EndIf
;----------------------------------------------RUSTY SECTION-----------------------------------------------------------
;The script for "Rusty Buckets"
If PixelGetColor(22,738) = 16777215 AND PixelGetColor(90,739) = 16777215 AND PixelGetColor(90,744) = 16777215 AND PixelGetColor(204,744) = 16777215 Then
$autodump = 1
Sleep(Random(2100,2200));
$event = 1;
$noautosort = 1
EndIf
;The script for "Rusty Leggings"
If PixelGetColor(22,738) = 16777215 AND PixelGetColor(90,739) = 16777215 AND PixelGetColor(90,744) = 16777215 AND PixelGetColor(215,745) = 16777215 Then
$autodump = 1
Sleep(Random(2100,2200));
$event = 1;
$noautosort = 1
EndIf
;The script for "Rusty Subligar"
If PixelGetColor(22,738) = 16777215 AND PixelGetColor(90,739) = 16777215 AND PixelGetColor(90,744) = 16777215 AND PixelGetColor(212,745) = 16777215 Then
$autodump = 1
Sleep(Random(2100,2200));
$event = 1;
$noautosort = 1
EndIf
;The script for "Copper Ring"
If PixelGetColor(22,738) = 16777215 AND PixelGetColor(90,739) = 16777215 AND PixelGetColor(90,744) = 16777215 AND PixelGetColor(190,744) = 16777215 Then
$autodump = 1
Sleep(Random(2100,2200));
$event = 1;
$noautosort = 1
EndIf
;The script for "Pamtam Kelp"
If PixelGetColor(22,738) = 16777215 AND PixelGetColor(90,739) = 16777215 AND PixelGetColor(90,744) = 16777215 AND PixelGetColor(275,744) = 16777215 Then
$autodump = 1
Sleep(Random(2100,2200));
$event = 1;
$noautosort = 1
EndIf
;------------------------------------------------------SPECIAL FISHING INSTRUCTIONS------------------------------------
;The script below states you have obtained something, fish again, and "autosort fish"
If PixelGetColor(27,744) = 16777215 AND PixelGetColor(85,737) = 16777215 AND PixelGetColor(43,738) = 16777215 AND $noautosort = 0 Then
$autosort = 1
Sleep(Random(2100,2200));
$event = 1;
EndIf
;The script below states you have obtained more then one fish, fish again, and "autosort fish"
If PixelGetColor(22,735) = 16777215 AND PixelGetColor(28,735) = 16777215 AND PixelGetColor(105,736) = 16777215 AND PixelGetColor(106,745) = 16777215 Then
$autosort = 1
Sleep(Random(2100,2200));
$event = 1;
EndIf
;Here is the command string to tell script "you are out of bait"
If PixelGetColor(23,736) = 16777215 AND PixelGetColor(205,738) = 16777215 AND PixelGetColor(338,744) = 16777215 Then
$nobait = 1;
EndIf
;here is the command to send a logout when you have full inventory, no bait, broken rod
$failsafe = $failsafe+1;
If $failsafe = 175 Then
$event = 1;
EndIf
Until $event = 1
sleep(2000);
If $dc = 1 Then
Send("!3");
Sleep(30000);
EndIf
If $nobait = 1 Then
Send("!2");
EndIf
WEnd
Func autosort()
$caught = $caught + 1
Sleep(0500);
AutoItSetOption("SendKeyDelay", 0235);
AutoItSetOption("SendKeyDownDelay", 0100);
Send ("!i");
Sleep(0350);
Send ("{NUMPADADD}");
Sleep (0350);
Send ("{ENTER}");
sleep(0350);
Send ("{UP}");
sleep(0350);
Send ("{ENTER}");
sleep(0350);
Send ("{ESCAPE}");
sleep(0350);
Send ("{ESCAPE}");
Sleep (0250);
EndFunc
Func autodump()
$rusty = $rusty + 1
Sleep(0500);
AutoItSetOption("SendKeyDelay", 0235);
AutoItSetOption("SendKeyDownDelay", 0100);
Send ("!i");
Sleep(0250);
Send ("{RIGHT 5}");
Sleep (0250);
Send ("{ENTER}");
sleep(0350);
Send ( "{DOWN}" );
sleep(0350);
Send ("{ENTER}");
sleep(0250);
Send ("{UP}");
sleep(0250);
Send ("{ENTER}");
Sleep (0250);
Send ("{ESCAPE}");
Sleep (0250);
Send ("{ESCAPE}");
Sleep (0250);
EndFunc
Func timers()
If TimerStop($Timer50Minutes)> 1000 * 3000 Then
Adlibdisable ()
$dcc = $dcc + 1
Sleep(30000);wait 30 seconds for rod to reel in
Send("!3")
Sleep(35000);wait 35 seconds before continuing
Send("{ENTER}");
Sleep(7000);wait 7 seconds
Send("{ENTER}");
Sleep(7000);wait 7 seconds
Send("{ENTER}");
Sleep(7000);wait 7 seconds
Send("{ENTER}");
Sleep(20000);wait 20 seconds and then start script again
$Timer50Minutes = TimerStart()
AdLibEnable("timers", 500);
EndIf
EndFunc
Func writelog()
FileWriteLine($log, $time1 & " - " & @MON & "/" & @MDAY & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC)
FileWriteLine($log, "Kept fish/items: " & $caught)
FileWriteLine($log, "Didn't catch anything: " & $dca)
FileWriteLine($log, "Lost your catch: " & $lost)
FileWriteLine($log, "Catch was too small: " & $small)
FileWriteLine($log, "Unwanted rusty items: " & $rusty)
FileWriteLine($log, "Number of disconnects: " & $dcc)
If Not $exit = 1 then
FileWriteLine($log, "Stasis check")
Else
FileWriteLine($log, "Program ended")
Endif
FIleWriteLine($log, "-------------------------------------------------------")
EndFunc
Func end_script()
$exit=1
writelog()
FIleWriteLine($log, "------------------- Bot Ended -------------------------")
FIleWriteLine($log, "-------------------------------------------------------")
FIleWriteLine($log, "")
FIleWriteLine($log, "/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/")
FIleWriteLine($log, "")
Exit
EndFunc |
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
