buff duration

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

[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

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

[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 November 13, 2007 by jokke

[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 November 13, 2007 by make