Script for Rose Online

[Maxman]

Hello.

I have made a script, that needs beginning and end >_<

Idea is, that i login to Rose Online and then open Autoit script activate it.

also i need end for it.

My Script is here:

expandcollapse popup

; Definition of key combinations
HotKeySet("^+1", "__HandleWindow")
HotKeySet("{Insert}","__BasicBuffs")
HotKeySet("{HOME}","__FullBuffs")
HotKeySet("{PGUP}","__PartyBuffs")
HotKeySet("{DEL}","__BasicBuffsWithCure")
HotKeySet("{END}","__FullBuffsWithCure")
HotKeySet("{PGDN}","__PartyBuffsWithCure")
HotKeySet("+{B}","__Purify")
HotKeySet("+{R}","__Resurrection")
HotKeySet("+{A}","__Sit")
HotKeySet("+{G}","__PickUp")
HotKeySet("+{S}","__Support")
HotKeySet("+{B}","__Bonfire")
HotKeySet("^{C}","__LoopCure")
HotKeySet("+{C}","__Cure")
HotKeySet("+{H}","__Healing")
HotKeySet("^{ESC}","__EndScript")

Func __BasicBuffs()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        __RunAndDisplayInTray("help", "[1/6] Support", 2000, "!+3", "{F3}")
        __RunAndDisplayInTray("help", "[2/6] Damage Support", 2000, "!+3", "{F4}")
        __RunAndDisplayInTray("help", "[3/6] Power Support", 2000, "!+3", "{F5}")
        __RunAndDisplayInTray("help", "[4/6] Hit Support", 2000, "!+3", "{F6}")
        __RunAndDisplayInTray("help", "[5/6] Critical Support", 2000, "!+3", "{F7}")
        __RunAndDisplayInTray("help", "[6/6] Battle Support", 2000, "!+3", "{F8}")
    EndIf
EndFunc

Func __FullBuffs()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        __RunAndDisplayInTray("help", "[1/6] Support", 2000, "!+3", "{F3}")
        __RunAndDisplayInTray("help", "[2/6] Damage Support", 2000, "!+3", "{F4}")
        __RunAndDisplayInTray("help", "[3/6] Power Support", 2000, "!+3", "{F5}")
        __RunAndDisplayInTray("help", "[4/6] Hit Support", 2000, "!+3", "{F6}")
        __RunAndDisplayInTray("help", "[5/6] Critical Support", 2000, "!+3", "{F7}")
        __RunAndDisplayInTray("help", "[6/6] Battle Support", 2000, "!+3", "{F8}")
        __RunAndDisplayInTray("help", "[7/11] Blessing", 2500, "!+3", "{F1}")
        __RunAndDisplayInTray("help", "[8/11] Blessed Mind", 2500, "!+3", "{F2}")
        __RunAndDisplayInTray("help", "[9/11] Defense Aura", 2500, "!+4", "{F1}")
        __RunAndDisplayInTray("help", "[10/11] Evasion Aura", 2500, "!+4", "{F2}")
        __RunAndDisplayInTray("help", "[11/11] Magical Aura", 2500, "!+4", "{F3}")
    EndIf
EndFunc

Func __PartyBuffs()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        __RunAndDisplayInTray("help", "[1/5] Blessing", 2500, "!+3", "{F1}")
        __RunAndDisplayInTray("help", "[2/5] Blessed Mind", 2500, "!+3", "{F2}")
        __RunAndDisplayInTray("help", "[3/5] Defense Aura", 2500, "!+4", "{F1}")
        __RunAndDisplayInTray("help", "[4/5] Evasion Aura", 2500, "!+4", "{F2}")
        __RunAndDisplayInTray("help", "[5/5] Magical Aura", 2500, "!+4", "{F3}")
    EndIf
EndFunc

Func __BasicBuffsWithCure()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        __RunAndDisplayInTray("help", "[1/6] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[1/6] Support", 2000, "!+3", "{F3}")
        __RunAndDisplayInTray("help", "[1/6] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[2/6] Damage Support", 2000, "!+3", "{F4}")
        __RunAndDisplayInTray("help", "[2/6] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[3/6] Power Support", 2000, "!+3", "{F5}")
        __RunAndDisplayInTray("help", "[3/6] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[4/6] Hit Support", 2000, "!+3", "{F6}")
        __RunAndDisplayInTray("help", "[4/6] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[5/6] Critical Support", 2000, "!+3", "{F7}")
        __RunAndDisplayInTray("help", "[5/6] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[6/6] Battle Support", 2000, "!+3", "{F8}")
        __RunAndDisplayInTray("help", "[6/6] Cure", 2000, "+4", "{F5}")
    EndIf
EndFunc

Func __FullBuffsWithCure()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        __RunAndDisplayInTray("help", "[1/11] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[1/11] Support", 2000, "!+3", "{F3}")
        __RunAndDisplayInTray("help", "[1/11] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[2/11] Damage Support", 2000, "!+3", "{F4}")
        __RunAndDisplayInTray("help", "[2/11] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[3/11] Power Support", 2000, "!+3", "{F5}")
        __RunAndDisplayInTray("help", "[3/11] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[4/11] Hit Support", 2000, "!+3", "{F6}")
        __RunAndDisplayInTray("help", "[4/11] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[5/11] Critical Support", 2000, "!+3", "{F7}")
        __RunAndDisplayInTray("help", "[5/11] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[6/11] Battle Support", 2000, "!+3", "{F8}")
        __RunAndDisplayInTray("help", "[6/11] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[7/11] Blessing", 2500, "!+3", "{F1}")
        __RunAndDisplayInTray("help", "[7/11] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[8/11] Blessed Mind", 2500, "!+3", "{F2}")
        __RunAndDisplayInTray("help", "[8/11] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[9/11] Defense Aura", 2500, "!+4", "{F1}")
        __RunAndDisplayInTray("help", "[9/11] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[10/11] Evasion Aura", 2500, "!+4", "{F2}")
        __RunAndDisplayInTray("help", "[10/11] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[11/11] Magical Aura", 2500, "!+4", "{F3}")
        __RunAndDisplayInTray("help", "[11/11] Cure", 2000, "+4", "{F5}")
    EndIf
EndFunc

Func __PartyBuffsWithCure()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        __RunAndDisplayInTray("help", "[1/5] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[1/5] Blessing", 2500, "!+3", "{F1}")
        __RunAndDisplayInTray("help", "[1/5] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[2/5] Blessed Mind", 2500, "!+3", "{F2}")
        __RunAndDisplayInTray("help", "[2/5] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[3/5] Defense Aura", 2500, "!+4", "{F1}")
        __RunAndDisplayInTray("help", "[3/5] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[4/5] Evasion Aura", 2500, "!+4", "{F2}")
        __RunAndDisplayInTray("help", "[4/5] Cure", 2000, "+4", "{F5}")
        __RunAndDisplayInTray("help", "[5/5] Magical Aura", 2500, "!+4", "{F3}")
        __RunAndDisplayInTray("help", "[5/5] Cure", 2000, "+4", "{F5}")
    EndIf
EndFunc

Func __Purify()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        $vCantExecSkill = 1
        __RunAndDisplayInTray("help", "Purify", 2000, "!+4", "{F7}")
        $vCantExecSkill = 0
    EndIf
EndFunc

Func __Resurrection()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        $vCantExecSkill = 1
        __RunAndDisplayInTray("help", "Resurrection", 5000, "!+4", "{F8}")
        __RunAndDisplayInTray("help", "Cure", 2000, "!+4", "{F5}")
        $vCantExecSkill = 0
    EndIf
EndFunc

Func __Sit()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        $vCantExecSkill = 1
        __RunAndDisplayInTray("help", "Sit", 2000, "!+1", "{F1}")
        $vCantExecSkill = 0
    EndIf
EndFunc

Func __PickUp()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        $vCantExecSkill = 1
        __RunAndDisplayInTray("help", "PickUp", 100, "!+1", "{F2}")
        $vCantExecSkill = 0
    EndIf
EndFunc


Func __Support()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        $vCantExecSkill = 1
        __RunAndDisplayInTray("help", "Support", 2500, "!+3", "{F3}")
        $vCantExecSkill = 0
    EndIf
EndFunc

Func __Bonfire()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        $vCantExecSkill = 1
        __RunAndDisplayInTray("help", "Bonfire", 6000, "!+4", "{F4}")
        $vCantExecSkill = 0
    EndIf
EndFunc

Func __LoopCure()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 Then
        $vIsCureInLoop = 1
        While $vIsCureInLoop = 1
            __RunAndDisplayInTray("help", "Cure (en boucle)", 2900, "!+1", "{F2}")
        WEnd
    Else
        $vIsCureInLoop = 0
    EndIf
EndFunc

Func __Healing()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        $vCantExecSkill = 1
        __RunAndDisplayInTray("help", "Healing", 6000, "!+1", "{F3}")
        $vCantExecSkill = 0
    EndIf
EndFunc

Func __Cure()
    If $vWindowHandle <> "" And $vIsCureInLoop = 0 And $vCantExecSkill = 0 Then
        $vCantExecSkill = 1
        __RunAndDisplayInTray("help", "Cure", 2800, "!+4", "{F5}")
        $vCantExecSkill = 0
EndIf
EndFunc

Thank you.

Edited August 17, 2009 by Maxman

[Jos]

I see there is nothing in the script that will be performed thus it will end directly after starting it, but what is the question?

Edited August 17, 2009 by Jos