home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / imcombat.arj / IMMORTAL.ZIP / SCRIPTS / PICK.TXT < prev    next >
Encoding:
Text File  |  1995-01-07  |  1.2 KB  |  92 lines
  1. ClearScreen
  2. goto c
  3. Write "     Y"
  4. goto lc
  5. Writeln "ou have come across a man, standing very tall, that seems to be busy?"
  6. goto c
  7. Write "     Y"
  8. goto lc
  9. Writeln "ou feel that you can pick his pocket and he wouldn't even notice!"
  10. goto g
  11. write "     D"
  12. goto lg
  13. write "o you try {y,n} ? > "
  14. getchoice YN 2
  15. writeln "^2"
  16. if 2 = "N"
  17. goto cya
  18. endif
  19. goto c
  20. Write "     Y"
  21. goto lc
  22. Writeln "ou try..."
  23. goto c
  24. Write "     Y"
  25. goto lc
  26. Write "ou approch him and "
  27. assign 1 "1"
  28. :delay
  29. if 1~ = 100
  30. write "."
  31. endif
  32. if 1~ = 200
  33. write "."
  34. endif
  35. if 1~ = 300
  36. write "."
  37. endif
  38. if 1~ = 400
  39. write "."
  40. endif
  41. if 1~ = 500
  42. write "."
  43. endif
  44. increment 1 1
  45. if 1~ <> 500
  46. goto delay
  47. endif
  48. IfSkill pp
  49. Write " succeed in doing so.  You got "
  50. goto y
  51. write "2000"
  52. goto lc
  53. writeln " gold coins!"
  54. Increment G 2000
  55. Goto End
  56. EndIf
  57. goto r
  58. Writeln "     You get caught!"
  59. Write "     You get fined "
  60. goto y
  61. write "2000"
  62. goto r
  63. writeln " gold coins if you have it!"
  64. Decrement G 2000
  65. :End
  66. Quit
  67. :c
  68. ChangeColor 3 0
  69. return
  70. :lc
  71. ChangeColor 11 0
  72. return
  73. :cya
  74. goto w
  75. writeln "     The man vanishes!"
  76. quit
  77. :g
  78. changecolor 2 0
  79. return
  80. :lg
  81. changecolor 10 0
  82. return
  83. :y
  84. changecolor 14 0
  85. return
  86. :w
  87. changecolor 15 0
  88. return
  89. :r
  90. changecolor 4 0
  91. return
  92.