//人物中间位置坐标 UserVar x=400 人物中间位置X坐标 UserVar y=270 人物中间位置Y坐标 Rem 开始打怪 z1=0 Rem 开始打怪1 While z1<=3 z1=z1+1 If z1=1 //一层打怪开始 Rem 一层打怪 z2=0 Rem 找怪1 While z2<=46 z2=z2+1 If z2=1 KeyPress 13,1 SayString "@移动 174 187" KeyPress 13,1 EndIf If z2=2 KeyPress 13,1 SayString "@移动 187 175" KeyPress 13,1 EndIf //在这里省弱了。。。。。。。。。。。。。。。。 If z2<46 Goto 正式打怪 EndIf EndWhile EndIf If z1=2 //二层打怪开始 Rem 二层打怪 z=0 Rem 找怪2 While z<=68 z=z+1 If z=1 KeyPress 13,1 SayString "@移动 132 18" KeyPress 13,1 EndIf If z=2 KeyPress 13,1 SayString "@移动 128 28" KeyPress 13,1 EndIf //在这里省弱了。。。。。。。。。。。。。。。。 If z=68 Goto 二下一过门 EndIf If z<68 Goto 正式打怪 EndIf EndWhile EndIf //道士给自己打防。开盾。F5-F9。此段对于法师有战士可以不用将For z1<=3语名改为For z1<=2 If z1=3 MoveTo x,y Delay 1200 KeyPress 116,1 MoveTo x,y Delay 1200 KeyPress 117,1 MoveTo x,y Delay 1200 KeyPress 118,1 MoveTo x,y Delay 1200 KeyPress 119,1 Delay 1200 KeyPress 120,1 EndIf Goto 开始打怪1 EndWhile Goto 开始打怪 //使用魔法打怪 F3设置火墙。风墙。雨火。等等 Rem 正式打怪 Delay 500 MoveTo x,y+80 Delay 1500 KeyPress 114,1 MoveTo x,y-80 Delay 1500 KeyPress 114,1 MoveTo x+100,y Delay 1500 KeyPress 114,1 MoveTo x-100,y Delay 1500 KeyPress 114,1 Delay 1500 MoveTo x,y Delay 1500 KeyPress 114,1 Delay 500 If z1=1 Goto 找怪1 EndIf