Dim Time_skill(9)
UserVar GetYN=1 捡物(1捡，0不捡)
UserVar SitDwonYN=1 打坐(1坐，0不坐)
UserVar SitDown_MP1=0 蓝少也打坐(1是，0否)
UserVar SitDown_MP2=0 黄少也打坐(1是，0否)
UserVar Count_Skill=3 攻击技能使用个数
UserVar Count_State=2 状态技能使用个数
UserVar Time_skill(2)=6 攻击技能1冷却(秒)
UserVar Time_skill(3)=6 攻击技能2冷却(秒)
UserVar Time_skill(4)=6 攻击技能3冷却(秒)
UserVar Time_skill(5)=6 攻击技能4冷却(秒)
UserVar Time_skill(6)=6 攻击技能5冷却(秒)
UserVar Time_skill(0)=300 状态技能1冷却(秒)
UserVar Time_skill(9)=300 状态技能2冷却(秒)
UserVar Time_skill(8)=300 状态技能3冷却(秒)
UserVar Time_skill(7)=600 状态技能4冷却(秒)
//--------------------------------------------------------
//1024*768 全屏 16位色
x_HP=110
y_HP=44
color_HP="390CAD"
x_MP1=114
y_MP1=62
color_MP1="D6A200"
x_MP2=118
y_MP2=82
color_MP2="008ABD"
x_ET=250
y_ET=36
color_ET="4218A5"
//--------------------------------------------------------
TIMESKILL=1
//技能类型，涉及到冷却。
LESSHALF=92
LESS=90
//状态描述。
NONE=0
//状态描述
NORMAL=91
//状态描述。
SkillType=99
//技能类型，分为TIMESKILL、NORMAL两种
//99仅为标识初始化。
SkillNum=99
//技能编号。99仅为标识初始化。
Dim T_Time(9,2)
//记录时间的起止，用于技能。
//*初始化数组time
time0=timer
n=0
For 10
    T_Time(n,0)=time0-Time_skill(n)
    n=n+1
EndFor 
//-----------------------------------------------------------
//*进入循环打怪前，释放状态技能一次
SkillType=TIMESKILL
SkillNum=0
Gosub Skill
n=9
For Count_State-1
    SkillNum=n
    Gosub Skill
    n=n-1
EndFor 
//-----------------------------------------------------------
//*循环杀怪
While 1
    Gosub CheckETHP
    If ETHP=NONE
        //怪已死,则
        //*释放状态技能。
        SkillType=TIMESKILL
        SkillNum=0
        Gosub Skill
        n=9
        For Count_State-1
            SkillNum=n
            Gosub Skill
            n=n-1
        EndFor 
        //*打坐
        If SitDwonYN=1
            Gosub CheckHP
            Gosub CheckMP1
            Gosub CheckMP2
            If (HP<>NORMAL) or (MP1=LESS and SitDown_MP1=1) or (MP2=LESS and SitDown_MP2=1)
                Gosub TakeRest
            EndIf 
        EndIf 
        //*拾物
        If GetYN=1 and LockET=1
            Gosub GetGoods
        EndIf 
        //*寻下一个怪。
        KeyPress 84,1
        Delay 150
        LockET=0
    Else 
        LockET=1