Jump to content
Sign in to follow this  
make

buff duration

Recommended Posts

make

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!!!

Share this post


Link to post
Share on other sites
jokke

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.

Share this post


Link to post
Share on other sites
make

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?=

Share this post


Link to post
Share on other sites
jokke

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 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.

Share this post


Link to post
Share on other sites
make

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 by make

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×