1.         //MonDir = 1
  2.     否则
  3.         按住<Left>
  4.         //MonDir = -1
  5.     条件结束
  6. 子程序结束,回到调用处
  7. //攻击怪物
  8. 子程序 AttackMon
  9.     如果表达式 ((GameState > 0)) 为真,则
  10.         //玩家和怪物背向则调整面象
  11.         如果表达式 (MonX > PlayerX and PlayerDir = 0) 为真,则
  12.             按键<Right>
  13.             延时30毫秒
  14.         否则如果(MonX < PlayerX and PlayerDir = 1)为真,则
  15.             按键<Left>
  16.             延时30毫秒
  17.         条件结束
  18.         //相隔不同层时的延时处理
  19.         JumpDelay = 0
  20.         如果表达式 (MonFloor - PlayerFloor > 0) 为真,则
  21.             按住<Space>
  22.             延时200毫秒
  23.             如果表达式 (MonFloor - PlayerFloor = 2 or MonFloor - PlayerFloor = 3) 为真,则
  24.                 JumpDelay = 250
  25.             否则如果(MonFloor - PlayerFloor = 2.5)为真,则
  26.                 JumpDelay = 260
  27.             条件结束
  28.             延时JumpDelay毫秒
  29.             弹起<Space>
  30.         条件结束
  31.         如果表达式 (GameState = 1) 为真,则
  32.             //判断平时是否使用技能 限制在相隔一层的范围内效果比较好
  33.             调用外部VBScript子程序 FindColorEx(GameLeft + 140, GameButtom - 3, GameRight - 140, GameButtom - 1, SideColor, 0, 0.9, SideX, SideY)
  34.             如果表达式 (MonFloor - PlayerFloor < 1.5 and UseSkillX > 0) 为真,则
  35.                 按键<S>
  36.             否则
  37.                 按键<A>
  38.             条件结束
  39.         否则
  40.             按键<S>
  41.             延时150毫秒
  42.         条件结束
  43.         延时JumpDelay + 200毫秒
  44.     条件结束
  45. 子程序结束,回到调用处
  46. //加血
  47. 子程序 AddHp
  48.     如果 (HpX,HpY) 的颜色不等于 #HpColor 则
  49.         按键<1>
  50.         延时50毫秒
  51.     条件结束
  52. 子程序结束,回到调用处
  53. //防止有按键没有弹起
  54. 子程序 OnScriptExit
  55.     弹起<Space>
  56.     弹起<Left>
  57.     弹起<Right>
  58. 子程序结束,回到调用处