1.         调用 墨衣行()
  2.     条件结束
  3.     调用 生成2()
  4. 子程序结束
  5. 子程序 选角色3()
  6.     令 Var1 = Form1.ComboBox3.ListIndex
  7.     如果 Var1 = 0 则
  8.         调用 逍遥生()
  9.     否则如果 Var1 = 1 则
  10.         调用 剑侠客()
  11.     否则如果 Var1 = 2 则
  12.         调用 猛壮士()
  13.     否则如果 Var1 = 3 则
  14.         调用 俏千金()
  15.     否则如果 Var1 = 4 则
  16.         调用 飞燕女()
  17.     否则如果 Var1 = 5 则
  18.         调用 英女侠()
  19.     否则如果 Var1 = 6 则
  20.         调用 巨魔王()
  21.     否则如果 Var1 = 7 则
  22.         调用 夺命妖()
  23.     否则如果 Var1 = 8 则
  24.         调用 虎头怪()
  25.     否则如果 Var1 = 9 则
  26.         调用 狐美人()
  27.     否则如果 Var1 = 10 则
  28.         调用 骨精灵()
  29.     否则如果 Var1 = 11 则
  30.         调用 小蛮妖()
  31.     否则如果 Var1 = 12 则
  32.         调用 神天兵()
  33.     否则如果 Var1 = 13 则
  34.         调用 龙战将()
  35.     否则如果 Var1 = 14 则
  36.         调用 智圣仙()
  37.     否则如果 Var1 = 15 则
  38.         调用 舞天姬()
  39.     否则如果 Var1 = 16 则
  40.         调用 精灵仙()
  41.     否则如果 Var1 = 17 则
  42.         调用 玄剑娥()
  43.     否则如果 Var1 = 18 则
  44.         调用 猎魂引()
  45.     否则如果 Var1 = 19 则
  46.         调用 无崖子()
  47.     否则如果 Var1 = 20 则
  48.         调用 祭剑魂()
  49.     否则如果 Var1 = 21 则
  50.         调用 夜溪灵()
  51.     否则如果 Var1 = 22 则
  52.         调用 幽梦影()
  53.     否则如果 Var1 = 23 则
  54.         调用 墨衣行()
  55.     条件结束
  56.     调用 生成3()
  57. 子程序结束
  58. 子程序 选角色4()
  59.     令 Var1 = Form1.ComboBox4.ListIndex
  60.     如果 Var1 = 0 则
  61.         调用 逍遥生()
  62.     否则如果 Var1 = 1 则
  63.         调用 剑侠客()
  64.     否则如果 Var1 = 2 则
  65.         调用 猛壮士()
  66.     否则如果 Var1 = 3 则
  67.         调用 俏千金()
  68.     否则如果 Var1 = 4 则
  69.         调用 飞燕女()
  70.     否则如果 Var1 = 5 则
  71.         调用 英女侠()
  72.     否则如果 Var1 = 6 则
  73.         调用 巨魔王()
  74.     否则如果 Var1 = 7 则
  75.         调用 夺命妖()
  76.     否则如果 Var1 = 8 则
  77.         调用 虎头怪()
  78.     否则如果 Var1 = 9 则
  79.         调用 狐美人()
  80.     否则如果 Var1 = 10 则
  81.         调用 骨精灵()
  82.     否则如果 Var1 = 11 则
  83.         调用 小蛮妖()
  84.     否则如果 Var1 = 12 则
  85.         调用 神天兵()
  86.     否则如果 Var1 = 13 则
  87.         调用 龙战将()
  88.     否则如果 Var1 = 14 则
  89.         调用 智圣仙()
  90.     否则如果 Var1 = 15 则
  91.         调用 舞天姬()
  92.     否则如果 Var1 = 16 则
  93.         调用 精灵仙()
  94.     否则如果 Var1 = 17 则
  95.         调用 玄剑娥()
  96.     否则如果 Var1 = 18 则
  97.         调用 猎魂引()
  98.     否则如果 Var1 = 19 则
  99.         调用 无崖子()
  100.     否则如果 Var1 = 20 则