Register for your free account! | Forgot your password?

You last visited: Today at 06:03

  • Please register to post and access all features, it's quick, easy and FREE!

 

BetaReqLanda001

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Mar 2008
Posts: 505
Received Thanks: 107
BetaReqLanda001

#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("BetaReqLanda002", 400, 200, 678, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 190, 130, 91, 25, 0)

GUICtrlCreateLabel("Keysettings", 20, 5, 120)
GUICtrlCreateLabel("1-5 AttackSkills", 20, 30, 120)
GUICtrlCreateLabel("6 Hp Recovery", 20, 50, 120)
GUICtrlCreateLabel("BlahBlah", 20, 70, 120)
GUICtrlCreateLabel("BlahBlah", 20, 90, 120)
GUICtrlCreateLabel("BlahBlah", 20, 110, 120)
GUICtrlCreateLabel("THX to Jatacid", 20, 130, 120)
GUICtrlCreateLabel("THX to Mailman3", 20, 150, 120)
GUICtrlCreateLabel("THX to all who release stuff. ^^", 20, 170, 120)

GUICtrlCreateLabel("www.elitepvpers.com", 200, 5, 140)
GUICtrlCreateLabel("Run Requiem in WINDOWED MODE", 200, 30, 140)
GUICtrlCreateLabel("Resolution: 1680x1050", 200, 45, 140)
GUICtrlCreateLabel("ALt+STRG+X Stop Bot", 200, 70, 140)
GUICtrlCreateLabel("BlahBlah", 200, 100, 140)

GUICtrlCreateLabel("www.YOUTUBE.com/MarcLanda1981", 200, 170, 200)



GUISetState(@SW_SHOW)
Global $Paused
hotkeyset("^!x", "MeinExit")
HotKeySet("{PAUSE}", "TogglePause")

Func Load()
EndFunc

Func Start()
Do
ToolTip("Start")
WinMove("Requiem","",0,0)
sleep(1000)
WinActivate("Requiem")
$Health80 = PixelGetColor(895,953)
$greenPL = 2726951

$Mana = PixelGetColor(829,967)
$bluePL = 1189523

$VictimCircleBlue = PixelSearch(693, 0, 960, 950,253,10)

$VictimCircleRed = PixelSearch(93, 0, 960, 950,16384000,10)



If $Health80 = $greenPL Then
$VictimCircleBlue = PixelSearch(693, 0, 960, 950,253,10)

If $VictimCircleBlue = True Then
ToolTip("Let the bodies hit the floor !")
Send("{1}")
sleep(200)
Send("{2}")
sleep(200)
Send("{3}")
sleep(200)
Send("{4}")
sleep(200)
Send("{5}")
sleep(200)
$VictimCircleBlue = PixelSearch(693, 0, 960, 950,253,10)
$Health80 = PixelGetColor(895,953)
Else
ToolTip("Target out of sight!")
Send("{a 20}")
$VictimCircleBlue = PixelSearch(693, 0, 960, 950,253,10)
$Health80 = PixelGetColor(895,953)
EndIf

Else
ToolTip("Hp low! ")
Sleep(200)
Send("{6}")
$Health80 = PixelGetColor(895,953)
$VictimCircleBlue = PixelSearch(693, 0, 960, 950,253,10)

EndIf




Until _IsPressed("7A")
EndFunc

Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start

Start()
EndSwitch
WEnd

Func MeinExit()
Exit
Endfunc


Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc


----------------------------
Download
----------------------------



Landa is offline  
Thanks
1 User
Old   #2
 
elite*gold: 0
Join Date: Dec 2007
Posts: 784
Received Thanks: 135
?


RICANPAPI_16 is offline  
Old   #3
 
elite*gold: 0
Join Date: Nov 2008
Posts: 336
Received Thanks: 315
not sure why you posted this...do you need help with it? Is it a release?
anyways, have a look at some of these opt functions in the help file.

Opt(option, parameter)


There are alot of useful ones for this script
I will release mine soon but my searching function keeps failing :P
Jatacid is offline  
Old   #4
 
elite*gold: 0
Join Date: Mar 2008
Posts: 505
Received Thanks: 107
no..that will be a bot...this is the first script..untested and just theoretical. .. i hope i can make it full working this weekend... and i post it here, so some people can give e some ideas or some improvements..

THIS IS JUST ALPHA... NOT WORKING YET. ^^


Landa is offline  
Old   #5
 
elite*gold: 0
Join Date: Nov 2008
Posts: 4
Received Thanks: 7
Smile to Landa

My bot. It works, but really stupid
Pre-requisites:

full-screen 1024x768x32
gamma set to min (in-game settings, not monitor )
camera set to vertical view from top (strategy-like)
All comments and log messages are in russian, cause I'm russian


text-only, not *.exe
botovod666 is offline  
Thanks
1 User
Old   #6
 
elite*gold: 0
Join Date: Mar 2008
Posts: 505
Received Thanks: 107
updated
Landa is offline  
Old   #7
 
elite*gold: 0
Join Date: Dec 2008
Posts: 30
Received Thanks: 2
How could I get either of these bots working? The script one looks like I need to put it in notepad or something but Its not ready yet. The scond one from botovod666 is in a weird format. What prog do I need to run it? Srry for the new kid questions
bartukus is offline  
Old   #8
 
elite*gold: 0
Join Date: Mar 2008
Posts: 505
Received Thanks: 107
its autoit sourcecode..u have to compile it or use download link
Landa is offline  
Old   #9
 
elite*gold: 0
Join Date: Nov 2008
Posts: 336
Received Thanks: 315
Autoit is just one of many simple-macro scripting programs out there. When you make a script like landas ^ you can get it to send the keystrokes to the game..and if its good enugh, control your character

the .au3 formt is the editing format, and when you compile it in autoit, it makes a .exe which anyone can run.
Mailman's Bypass is esential to this though otherwise hackshield detects it and crashes the game :/

BTW landa, can you please put in a description next to your 'pixel...' fuctions? it helps to see what pixels you are looking for.
Jatacid is offline  
Old   #10
 
elite*gold: 0
Join Date: Dec 2008
Posts: 30
Received Thanks: 2
Thank you for the help.
bartukus is offline  
Old   #11
 
elite*gold: 0
Join Date: Dec 2008
Posts: 30
Received Thanks: 2
Lets say I want to have autoit spam the keys F,2,q and 3 over and over again. What would the text file need to look like for auto it to convert it to a working exe?
bartukus is offline  
Old   #12
 
elite*gold: 0
Join Date: Nov 2008
Posts: 55
Received Thanks: 7
Quote:
Originally Posted by bartukus View Post
Lets say I want to have autoit spam the keys F,2,q and 3 over and over again. What would the text file need to look like for auto it to convert it to a working exe?

It would be something like

While 1
send("{F}")
sleep(however long you want the pause)
send("{2}")
sleep(however long you want the pause)
send("{Q}")
sleep(however long you want the pause)
send("{3}")
sleep(however long you want the pause)
EndW

Stick that into AutoIt and it should work after you stick in the pauses.
If you skill casting, you want the pause to be at least .5-1sec each. Also you need to account for Requiem lagging sometimes, which means skills won't always be cast.
WeeMan411 is offline  
Old   #13
 
elite*gold: 0
Join Date: Nov 2008
Posts: 336
Received Thanks: 315
#include <misc.au3>
Opt("SendKeyDelay", 150)
Opt("SendKeyDownDelay", 100)
WinWaitActive("Requiem")
Sleep(1000)
Tooltip("Press ESC to exit",0,0)
Do
Send("{Tab}")
Send("{f}")
Send("{2}")
Send("{q}")
Send("{3}")
Until _ispressed("1B") ; if Esc is pressed it will end.

Exit 0
Jatacid is offline  
Old   #14
 
elite*gold: 0
Join Date: Dec 2008
Posts: 30
Received Thanks: 2
Wow, I guess ill have to give it a try then
bartukus is offline  
Old   #15
 
elite*gold: 0
Join Date: Dec 2008
Posts: 30
Received Thanks: 2
Cool, it works beutifully. I had to edit a few things that you mapped Jatacid, like the tab key and the requiem file having to be open, to test it in notepad. Sure enough I am spammin my keys like crazy... now I just have to wait until they release the next HS workaround.


bartukus is offline  
Reply



« Previous Thread | Next Thread »



All times are GMT +2. The time now is 06:03.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy
Copyright ©2017 elitepvpers All Rights Reserved.