1.         输入文本 "ok"
  2.         按键<Enter>
  3.     条件结束
  4. 循环结束
  5. j=1
  6. 如果表达式 (j=1) 为真,则循环执行
  7.     k=1
  8.     l=1
  9.     如果表达式 (l=1) 为真,则循环执行
  10.         调用外部VBScript子程序 findpic (628,565,719,602,"Attachment:\Define entry.bmp",0.8,x,y)
  11.         如果表达式 (x>=760 and y>=11) 为真,则
  12.             按键<Enter>
  13.             输入文本 "ok"
  14.             按键<Enter>
  15.         条件结束
  16.     循环结束
  17.     如果表达式 (k>=5) 为真,则
  18.         按键<Ctrl>
  19.         延时2500毫秒
  20.         按键<Ctrl>
  21.     条件结束
  22.     k=k+1
  23.     按键<X>
  24.     按键<S>
  25.     调用外部VBScript子程序 findpic (628,565,719,602,"Attachment:\Define entry.bmp",0.8,x,y)
  26.     如果表达式 (x>=700 and y>=610) 为真,则
  27.         延时2000毫秒
  28.         按键<Esc>
  29.         （VBScript语句） =2
  30.     条件结束
  31.     延时2000毫秒
  32. 循环结束
  33. //退出战斗画面
  34. 延时1000毫秒
  35. 鼠标移到 58 , 589
  36. 延时1000毫秒
  37. 左键单击