Скрипт ламбер на изи

Тема в разделе "Вопросы новичков/Young player questions.", создана пользователем Tualatin, 17 сен 2014.

  1. Tualatin

    Tualatin Banned

    set %msg1 There's_not_enough_wood_here_to_harvest.
    set %msg2 You_can't_use_an_axe_on_that.
    set %msg3 Target_cannot_be_seen.
    set %msg4 That_is_too_far_away.
    set %maxtry 5
    begin:
    event sysmessage << SELECT TREE >>
    while #TARGCURS <> 1
    gosub useaxe
    while #TARGCURS = 1
    sleep 100
    set %try 0
    chop:
    gosub useaxe
    target 5
    event macro 22 0
    wait 1s
    for %i 1 4
    {
    if #SYSMSG = %msg . %i
    {
    goto end
    }
    }
    wait 3s
    if %try > %maxtry
    {
    goto end
    }
    set %try %try + 1
    goto chop
    end:
    goto begin
    sub useaxe
    {
    finditem FSF C
    if #FINDCNT < 1
    {
    event macro 8 1
    wait 1s
    }
    while #FINDCNT < 1
    {
    event macro 8 1
    finditem FSF C
    event sysmessage No a hatchet found.
    wait 2s
    }
    set #LOBJECTID #FINDID
    event macro 17
    return
    }
     

Поделиться этой страницей