【EasyUO】腳本：對打(解剖+治療+防禦)

[Gykk]

我不是作者喔 來源:google + EasyUO官網討論區 http://www.easyuo.com/psl.php

4.解剖+治療+防禦(如果你找不到人對打 請找匹馬)

代碼: 選擇全部

    initevents

    set %v1 0
    set %v2 6 ;bandage delay
    set %v3 2 ;anatomy delay
    set %v4 0
    set %v5 0
    set %v7 0
    set %v8 0
    set %v9 0
    set %v10 0
    display Wait for coming target and target it to your horse $
    set #targcurs 1
    loop:
            if #targcurs = 1
            {
                    goto loop
            }
            else
            {
                     set %v6 #ltargetid
            }

    start:
            gosub 5
            if #hits < #maxhits
            {
                    if ( %v1 < #scnt && %v8 = 0 )
                    {
                            gosub 4
                    }
            }
            if %v7 = 0
            {
                    gosub 1
                    gosub 2
            }
            if ( #hits < 20 || %v10 = 1)
            {
                    gosub 6
            }
            gosub 3
    goto start

    sub 1
            if ( %v5 = 0 && %v10 = 0 )
            {
                    wait 5
                    if #hits > #maxhits - 30
                    {
                            msg All kill $
                            target
                            event macro 23
                            event macro 6 0
                            wait 5
                            event macro 6 0
                    }
            }
            set %v5 1
    return

    sub 2
            if %v4 < #scnt
            {
                    set %v4 #scnt + %v3
                    set #ltargetid %v6
                    event macro 13 1
                    target
                    event macro 22 0
            }
    return

    sub 3
            if #hits < 20
            {
                    msg All stay $
                    set %v5 0
            }
            wait 5
            if #followers = 0
            {
                    msg Horse is out of tame $
                    msg We must kill it becaouse we can die! $
                    set #ltargetid %v6
                    event macro 27 0
                    set %v7 1
            }
    return

    sub 4
            finditem ZLF C_
            if #findkind <> -1
            {
                    set %v1 #scnt + %v2
                    set #lobjectid #findid
                    event macro 17 0
                    target
                    event macro 23 0
            }
    return

    sub 5
            if %v9 = 0
            {
                    finditem ZLF C_
                    if #findkind = -1
                    {
                            msg We have no bandage $
                            set %v8 1
                            set %v9 1
                            set %v10 1
                    }
            }
            if %v9 = 1
            {
                    finditem ZLF C_
                    if #findkind <> -1
                    {
                            set %v8 0
                            set %v9 0
                            set %v10 0
                    }
            }
    return

    sub 6
                    msg All stay $
                    set %v5 0
    return