make Posted November 13, 2007 Share Posted November 13, 2007 ok i wanna make a bot for a certain game. Now i need to know, cause i just cant find out how to make a skill to use lets say all 5hours?and only 1x in those 5 hours, and not always it loops!cause that is my problem. everytime he atk a monster he do the buffs over and over again. and i cant figure out how to make it use just once in 5 hourse, as example. pls help me out in this simple task! and one more thing is about the colour detection of hp to use a skill to heal himself can anyone tell me a simple tutorial that gives me a clear hint how to cunstruct that?or just write it down as a example. thx in advance!!! Link to comment Share on other sites More sharing options...
jokke Posted November 13, 2007 Share Posted November 13, 2007 Here you go some simple code for handling your buffs. Dim $buff[2] = [TimerInit(),5000] ;[Timer,Timeout 5 secounds] While 1 Select Case TimerDiff($buff[0]) > $buff[1] ConsoleWrite("Buff xxx has ran out."&@CRLF) $buff[0] = TimerInit() EndSelect Sleep(25) WEnd UDF:Crypter a file encrypt / decrypt tool with no need to remember a password again. Based on Caesar cipher using entire ASCII Table.Script's: PixelSearch Helper, quick and simple way to create a PixelSeach.Chatserver - simplified, not so complicated multi-socket server.AutoIT - Firewall, simple example on howto create a firewall with AutoIt. Link to comment Share on other sites More sharing options...
make Posted November 13, 2007 Author Share Posted November 13, 2007 ok now lets say my buff need to be recast every 1hour. where do i put exactly the number and where do i put the key to call up that skill?= Link to comment Share on other sites More sharing options...
jokke Posted November 13, 2007 Share Posted November 13, 2007 (edited) Code i provided where only a frame where you could work something out. Change the timeout (5000) to your need if you want to change it to an hour that would bee 3600 * 1000 (1000 cause the timer works inn ms) Now if you want to cast a spell that would be where the consolewrite is. "send" is then the topic you next need to look at. A short example, from code i provided: Buff duration 1 hour. Buff key "1". Dim $buff[2] = [TimerInit(),3600*1000] ;[Timer,Timeout 1 hour] While 1 Select Case TimerDiff($buff[0]) > $buff[1] ;Check if timer has ran out. ConsoleWrite("Buff xxx has ran out."&@CRLF) ;This is where i start my casting sequence. Send("{1}") $buff[0] = TimerInit() ;This is where the magic is happening, the timer is reset. EndSelect Sleep(25) WEnd Edited November 13, 2007 by jokke UDF:Crypter a file encrypt / decrypt tool with no need to remember a password again. Based on Caesar cipher using entire ASCII Table.Script's: PixelSearch Helper, quick and simple way to create a PixelSeach.Chatserver - simplified, not so complicated multi-socket server.AutoIT - Firewall, simple example on howto create a firewall with AutoIt. Link to comment Share on other sites More sharing options...
make Posted November 13, 2007 Author Share Posted November 13, 2007 (edited) ok this is what i got so far,the problem is : it wont cast any buffs!?? WinActivate($GameWinTitle, "") WinWaitActive($GameWinTitle, "", 5) While 1 Send("{F2}") Sleep(3000) Send("{F2}") Sleep(3000) Send("{F2}") Sleep(4000) Send("{F2}") Sleep(4000) Send("{F2}") Sleep(3000) Send("{F2}") Sleep(3000) Send("{F2}") Sleep(4000) Send("{F2}") Sleep(4000) Dim $buff[2] = [TimerInit(),3600*1000] ;[Timer,Timeout 1 hour] While 1 Select Case TimerDiff($buff[0]) > $buff[1] ;Check if timer has ran out. ConsoleWrite("Buff xxx has ran out."&@CRLF) ;This is where i start my casting sequence. Send("{F8}") $buff[0] = TimerInit() ;This is where the magic is happening, the timer is reset. EndSelect Sleep(25) WEnd WEnd Edited November 13, 2007 by make Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now