while 1 do
    wait (1)
        if  A 
        send A
    else
        if  B 
            wait (1)
            send B
        else
            if  C
                wait (1)
                send C
            else
                end
                end
                end
                end

--Изначально положим, что работать будут все 3 ветки
A,B,C = true,true,true

while 1 do
    if A then
        send A
    end
    if B then
        send B
    end
    if C then
        send C
    end
   --Тут проверяем какое либо условие
   --и отключаем нужные ветки согласно
   --условию myCond()
   if myCond() == 1 then
       A = false
   else
       B,C = false 
   end
end

A,B,C = true,true,true

while 1 do
    if A then
        send A
    end
    if B then
        send B
    end
    if C then
        send C
    end
   --Тут проверяем какое либо условие
   --и отключаем нужные ветки согласно
   --условию myCond()
   if myCond() == 1 then
       A = false
   else
       B,C = false 
   end
end

if #a = 1 // шаг 1
    log #a = true , Сейчас Шаг №1
else
    if #b = 1 and #a !=1 // шаг 2
        log #b = true , Сейчас Шаг №2
    else
        if #c = 1 and #a != 1 and #b != 1 // шаг 3
            log #c = true , Сейчас Шаг №3
        end_if
    end_if
end_if
end_script

while #a = 1 // цикл 1
    log #a = true Сейчас Цикл №1
end_while

while #b = 1 and #a !=1 // цикл 2
    log #b = true Сейчас Цикл №2
end_while

while #c = 1 and #a != 1 and #b != 1 // цикл 3
    log #c = true Сейчас Цикл №3
end_while

while 1 do
    if var1 = 1 then
        code
    elseif var2 = 2 then
        code
    elseif var3 = 3 then
        code
    elseif var4 = 4 then
        code
    end
end

local timeout = os.clock() + 5
while timeout > os.clock() do
    code
end

while 1 do
    if A then
        send A
    end
    if B then
        send B
    end
    if C then
        send C
    end

while 1 do
    if A then
        send A /return?
else
    if B then
        send B/return?
else
    if C then
        send C/return?
else
end
end    
end
end

while #a = 1 // Есть угроза жизни
    send A // выполняем необходимые действия, что бы выжить
end_while
while #b = 1 and #a !=1 // Угрозы жизни нет, есть на кого напасть
    send B // атакуем
end_while
while #c = 1 and #a != 1 and #b != 1 // Угрозы жизни нет, атаковать некого
    send C // собираем ресурсы
end_while

for i = 1, #button2 do -- проверяем не нажата ли клавиша из button2
    local state=GetKeyState(button2[i]) -- зарезервировали State как определение нажатой клавиши из списка local button2 - статус
    while  state and toggle do   -- цикл выполняется пока статус клавиши "нажата"
        local state1, toggle = GetKeyState(0x90) -- (0х90 - Num_Lock)
        if  state then --если горит лампочка      if  toggle then
            --log("Нажата клавиша с кодом: " .. button2[i])
            send217('{' .. button2[i] .. '}')
            wait (1)
            state=GetKeyState(button2[i])
            end
            end
            end
            end

while #a = 1 // приоритет 1
    send A // действия приоритет 1
end_while
while #b = 1 and #a !=1 // приоритет 2
    send B // действия приоритета 2
end_while
while #c = 1 and #a != 1 and #b != 1 // приоритет 3
    send C // действия приоритета 3
end_while

if #а = 1 and 
local Time = 3  --время работы таймера 3 сек
local endTimer = os.clock() + Time while os.clock() <= endTimer do --какая переменная здесь является многоприсваевомой? т.е. её можно изменить и использовать для других подобных таймеров
И какая из них зарезервирована, а какая сконструированная?

    log ("время истекло делаем")--действие
действие
else -- время не истекло, пропускаем

end

Local Timer = 0 -- изначально полагаем что таймер истёк
while #a = 1 // приоритет 1
    if time = 0 --время вышло
then
send A // действия приоритет 1
и запускаем таймер 3 сек
local Timer = 3
else --time 1~=0 -- время не вышло
send A2 -- действия приоритет 1.1
else
end_while
while #b = 1 and #a !=1 // приоритет 2
    if time 1 --время вышло
then
send B // действия приоритет 2
else --time 1~=0 -- время не вышло
send B2 -- действия приоритет 2.1
else
    send B // действия приоритета 2
end_while
while #c = 1 and #a != 1 and #b != 1 // приоритет 3
и так далее
    send C // действия приоритета 3
end_while

//-----Условия
set $a 100, 200 0 and 300, 400 435346
set $b 500, 600 0 and 700, 800 43475
set $c ???
//-----Условные действия
while ($a) = 1 // приоритет 1
    send A // действия приоритет 1
end_while
while ($b) = 1 and ($a) !=1 // приоритет 2
    send B // действия приоритета 2
end_while
while ($c) = 1 and ($a) != 1 and ($b) != 1 // приоритет 3
    send C // действия приоритета 3
end_while

local TimerB =  function () --ограничение на вызов действия по таймеру B - 6 сек
local Timeb = 6
local endTimerb = os.clock() + Timeb
if os.clock() <= endTimerb then --таймер B истёк
local Timeb = 0
end
local TimerS = function () --ограничение на вызов действия по таймеру S - 5 сек
local Times = 5
local endTimer = os.clock() + Times
if os.clock() <= endTimer then --таймер S истёк
local Times = 0
end

while #a = 1 // приоритет 1
if TimerB() = 0 --время вышло
then
send A // действия приоритет 1
else --TimerB ~=0 -- время не вышло
send A2 -- действия приоритет 1.1 -- потому что действие Send A часто возможно но не целесообразно чаще чем раз в 6 секунд, поэтому вводим таймер.
else
end
end
while #b = 1 and #a !=1 // приоритет 2
    if TimerS = 0 --время вышло
then
send B // действия приоритет 2
else --TimerS ~=0 -- время не вышло
send B2 -- действия приоритет 2.1
else
    send B // действия приоритета 2
end
end
while #c = 1 and #a != 1 and #b != 1 // приоритет 3
и так далее
    send C // действия приоритета 3
end_while

local TimerB =  function () --ограничение на вызов действия по таймеру B - 6 сек
local Timeb = 6
local endTimerb = os.clock() + Timeb
if os.clock() <= endTimerb then --таймер B истёк
local Timeb = 0
end

local Time1 = 0
local GetTime = os.clock() + Time1
if GetTime()-Time1>3 then

-- table is in the stack at index 't'

lua_pushnil(L);  // first key
while (lua_next(L, t) != 0)
{
  printf("%s - %s\\n", luaL_typename(L, -2), luaL_typename(L, -1));

  lua_pop(L, 1);
}

//-----Условия
set $a 100, 200 0 and 300, 400 435346
set $b 500, 600 0 and 700, 800 43475
//-----Условные действия
while ($a) = 1  // окопа нет
    send A      // строим окоп
end_while       // окоп готов
set timer1
while (($b) = 1 and ($a) !=1) or (($b) = 1 and timer1 < 6000) // есть враг, окоп построен. Если окоп разрушен, то пойдем его строить не ранее, чем через 6 сек. после его предыдущей постройки.
    send B      // стреляем
end_while       // враг убит, или пора чинить окоп

set $a 100, 200 0 and 300, 400 435346

lastTimeProcessed = os.clock()
local function IsTimeToProcess(currentTime)
span = currentTime - lastTimeProcessed
if  span >= 6 then
    lastTimeProcessed = currentTime
    return true
    end
    return false
    end

local function action1()
    while ... do
        ...
    end
end

local function action2()
    while ... do
        ...
    end
end

local function action3()
    while ... do
        ...
    end
end

while 1 do
    if ... then
        action1()
    elseif ... then
        action2()
    elseif ... then
        action3()
    end
end