1.         'msgbox VarType(tmpmonst)
  2.         'TracePrint tmpmonst & "," & len(tmpmonst)
  3.         'msgbox tmpmonst & ","
  4.         monst(0)=tmpmonst
  5.         c=tmpmonst
  6.         'TracePrint monst(0) & "," & c & left("ernkernl",4)
  7.         '//msgbox monst(0) & vbcrlf & c
  8.         term=.term.value*1
  9.         outTimes=.outTimes.value*1
  10.         blood=.maxblood.value*1
  11.         bldUpSpd=.bldUpSpd.value*1
  12.         rndAtk=.attacktype.value*1
  13.         attackOrder=.attackorder.value
  14.         'msgbox term & "," & outtimes & "," & blood & "," & bldupspd & "," & attackorder
  15.         End with
  16.     结束VBScript块
  17. 子程序结束,回到调用处
  18. 脚本停止运行
  19. 子程序 ExitDrgGame
  20.     vbsexit=msgbox("确认退出龙战挂机？",1)
  21.     如果表达式 (vbsexit=1) 为真,则
  22.         跳转到标记 drgExit_
  23.     否则
  24.         跳转到标记 returnCtl_
  25.     条件结束
  26.     标记 drgExit_
  27.     ie.quit
  28.     set ietxt=nothing
  29.     set ie=nothing
  30. 脚本停止运行
  31. 标记 returnCtl_
  32. 子程序结束,回到调用处
  33. 脚本停止运行
  34. 子程序 OnScriptExit
  35.     ie.quit
  36.     set ietxt=nothing
  37.     set ie=nothing
  38. 脚本停止运行
  39. 子程序结束,回到调用处