how to make 2 loops work

[Domis 0]

How to make theese both loops working at the same time?

expandcollapse popup

Global $loot
Global $es

Opt("SendKeyDownDelay", 30)
Opt("MouseClickDelay", 30)

HotKeySet("{F10}", "Isjungti")
HotKeySet("{INSERT}", "Loot")
HotKeySet("{Home}", "Help")
HotKeySet("{Delete}", "EvilSpirit")
Func Isjungti()
    TrayTip("Exit!", "Botas isjungiamas", 2, 1)
    Sleep(2000)
    Exit
EndFunc

Func Loot()
    $loot = NOT $loot
    If $loot Then 
        TrayTip("Loot", "Loot funkcija ijungta", 2, 1)
    Else 
        TrayTip("Loot", "Loot funkcija isjungta", 2, 1)
    EndIf
    Do
        Send("{SPACE}")
        Sleep(100)
    Until NOT $loot
EndFunc

Func Help()
    TrayTip("Info", "Loot funkcija INSERT", 2, 1)
EndFunc

Func EvilSpirit()
    $es = NOT $es
    If $es Then
        TrayTip("Evil Spirit", "Evil Spirit funkcija ijungta" & $es, 2, 1)
        WinActivate("MU")
        Send("{ENTER}")
        Send("/Request off")
        Send("{Enter}")
    Else
        TrayTip("Evil Spirit", "Evil Spirit funkcija  isjungta" & $es, 2, 1)
    EndIf
    Do
        Sleep(100)
        MouseMove(405, 280)
        Send("{1}")
        MouseClickDrag("Right", 405, 280, 405, 250, 10)
    Until NOT $es
EndFunc

While 1
    Sleep(100)
WEnd

[PsaltyDS 28]

How to make theese both loops working at the same time?

Put conditional execution of both inside the While/WEnd loop. The HotKeySet() functions only toggle the flags for what to run:

expandcollapse popup

Global $loot, $es

Opt("SendKeyDownDelay", 30)
Opt("MouseClickDelay", 30)

HotKeySet("{F10}", "Isjungti")
HotKeySet("{INSERT}", "Loot")
HotKeySet("{Home}", "Help")
HotKeySet("{Delete}", "EvilSpirit")

While 1
    If $loot Then
        ;
        ; Do some "loot" stuff here
        ;
    EndIf
    If $es Then
        ;
        ; Do some "es" stuff here
        ;
    EndIf
    Sleep(100)
WEnd

Func Isjungti()
    TrayTip("Exit!", "Botas isjungiamas", 2, 1)
    Sleep(2000)
    Exit
EndFunc   ;==>Isjungti

Func Help()
    TrayTip("Info", "Loot funkcija INSERT", 2, 1)
EndFunc   ;==>Help

Func Loot()
    $loot = Not $loot
EndFunc   ;==>Loot

Func EvilSpirit()
    $es = Not $es
EndFunc   ;==>EvilSpirit

[Domis 0]

thanks