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