Random варп на белты.

Func Mainloop()
Sleep(1000)
Belt1()
Sleep(1000)
Belt2()
Sleep(1000)
Belt3()
Sleep(1000)
Belt4()
MainLoop()
EndFunc

Func Mainloop()
Belt...() ;вот сюда подставлять число от 1 до 4 
Sleep(1000)
MainLoop()
EndFunc

Call("Belt" & Random(1, 4, 1))

Func Mainloop()
      While 1
            Call("Belt" & Random(1, 4, 1))
            Sleep(1000)
      WEnd
EndFunc

Local $Belt[2] = [1,34]
Global $CurBelt = 0

#cs
если хочешь прыгнуть на пос пишешь 
Warp("POS")
Спот
Warp("SPOT")
если в белт:
Warp("Belt", Число)
От минимального до максимального
Warp("Belt", "Random")
В рандомный белт от минимального до максимального
Warp("Belt", "Next")
В следующий белт относительно текущего (не конает если бот не летал еще ни в один белт
Warp("Belt", "Prev")
В предидущий белт относительно текущего (не конает если бот не летал еще ни в один белт
в целом конерктно по белтам 4 команды
Если ты только что был в максимально белте и заюзал "варп белт некст" то бот варпанется в минимальный белт и кур белт станет = мин белту
если ты был в мин белте и попытался прыгнуть в прив белт бот варпанется в макс белт и кур белт станет = макс белту
#ce


;использование: Сам разберешься.
; @error = 1 Если была попытка варпануться в следующий или предидущий белт не побывав при этом ни в одном белте
; @error = 2 Если была попытка варпануться в белт используя не существующее условие $Case2 = "кокая-то х..."
; @error = 3 Если была попытка исползовать функцию Warp используя не существующее условие $Case1 = "кокая-то х..."

Func Warp($Case1, $Case2=0)
	Select
		Case $Case1 = "Belt"
			Select
				Case $Case2 = "Random"
					$CurBelt = Random($Belt[0], $Belt[1], 1)
				Case $Case2 = "Next"
					If $CurBelt > 0 Then
						$CurBelt = $CurBelt + 1
						If $CurBelt > $Belt[1] Then $CurBelt = $Belt[0]
					Else
						SetError(1)
					EndIf
				Case $Case2 = "Prev"
					If $CurBelt > 0 Then
						$CurBelt = $CurBelt - 1
						If $CurBelt < $Belt[0] Then $CurBelt = $Belt[1]
						Else
						SetError(1)
					EndIf
				Case $Case2 >= $Belt[0] And $Case2 <= $Belt[1]
					$CurBelt = $Case2
				Case $Case1 = "BACK"
					OpenMenu(1, $CurBelt, 1)
				Case Else
					SetError(2)
			EndSelect
			OpenMenu(1, $CurBelt, 1) ;Варпаем в белт	
		Case $Case1 = "POS"
			OpenMenu(6,1)
		Case $Case1 = "SPOT"
			OpenMenu(7,1)
		Case Else
			SetError(3)
	EndSelect
EndFunc

Func Test()
$var = 0
$var2 = 0
Do
if .......... then ; выполняются действия
...................
if test2() = 1 Then
$var2 = 1
EndIf
Select
    Case $var2 = 1 ; в результате $var2 стало = 1
        $var = 1
    Case не знаю, что написать ; прошло 20 минут
        $var = 1
EndSelect 
Until $var = 1
EndFunc

Func test2()
    If ....... Then 
        Return 1 
    Else
        Return 0 
    EndIf
EndFunc