home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / roulette.scr < prev    next >
Text File  |  1993-07-20  |  5KB  |  209 lines
  1. script
  2.  Clear Screen
  3.  
  4. ;-------------------------------------------------------------------
  5. ;                   >>>>>> ROULETTE.SCR File <<<<<<
  6. ;                               4-24-88
  7. ;                              By SysOz
  8. ;                      Wonderful World of Oz BBS
  9. ;                        (12/24) (808) 423-3140
  10. ;
  11. ; o  Adds BBS Express! ST VT-52 color to the game!
  12. ; o  If the user survives the game, adds 10 min to the users time
  13. ;    limit (this call only!)
  14. ; o  Disconnects the caller if he losses the game! (I like this one!)
  15. ; o  Re-routes the user back to the Online Games Menu, when finished!
  16. ;-------------------------------------------------------------------
  17.  
  18. define weapon
  19. define weapon_name
  20. define temp
  21. define tries = 0
  22. define chances
  23. define fate
  24. define j = 0
  25. Define min
  26. Define con
  27. con = &33
  28. min = con + 10          ; Change the "10" to increase whatever New Time
  29.                         ; Limit if the user survives!
  30.  
  31. table_put(1, 10)
  32. table_put(2, 20)
  33. table_put(3, 30)
  34. table_put(4, 40)
  35. table_put(5, 50)
  36. table_put(6, 60)
  37.  
  38. table_put(10, 'Pistol')
  39. table_put(20, 'Rifle')
  40. table_put(30, 'Machine Gun')
  41. table_put(40, 'Grenade')
  42. table_put(50, 'Laser')
  43. table_put(60, 'Bazooka')
  44.  
  45.  
  46.  
  47.  
  48. clear screen
  49. PrintE
  50. PrintE
  51. PrintE '  Welcome to the Russion Roulette Room,' Center
  52. PrintE 'here at the \rWonderful World of Oz\b' Center    ; Change to Your
  53. PrintE 'due to popular demand!' Center                   ; BBS Name
  54. PrintE
  55. print '\rHave you ever played before\b \g(\rY\b/n\g)\b? ' Center
  56.  
  57.  
  58. input temp 1
  59. if temp = n
  60.    clear screen
  61.    PrintE
  62.    PrintE
  63.    PrintE '\i\rRUSSIAN ROULETTE INSTRUCTIONS\o' Center
  64.    PrintE '\g-----------------------------\b' Center
  65.    PrintE
  66.    PrintE 'This is a game of Russian Roulette.      ' Center
  67.    PrintE 'The game is played in two phases -       ' Center
  68.    PrintE
  69.    PrintE '1) \rWeapons selection\b - pick the method of' Center
  70.    PrintE '                       self destruction. ' Center
  71.    PrintE
  72.    PrintE '2) \rPull the trigger\b - see how lucky you  ' Center
  73.    PrintE '                      are.               ' Center
  74.    PrintE
  75.    printe 'If you survive you may continue as many times' Center
  76.    PrintE 'as you like, each time increasing your' Center
  77.    PrintE '\rTime Limit\b this \rCall\b only by \r10\b Minutes!' Center
  78.    PrintE
  79.    PrintE
  80.    printe '  Have fun!  SysOp <\rsnicker\b> <\gsnicker\b)...' Center
  81.  
  82. gosub pause
  83. endif
  84.  
  85. choose:
  86. con = &33
  87. min = con + 10             ; Change this to the New Increased Time Limit,
  88.                            ; if the user Survives!
  89. clear screen
  90. PrintE
  91. PrintE
  92. PrintE '\rWEAPONS LIST   \g% \rWho Die  ' Center
  93. PrintE '\g-------------- -----------\b' Center
  94. PrintE
  95. PrintE '1) Pistol          10     ' Center
  96. PrintE '2) Rifle           20     ' Center
  97. PrintE '3) Machine Gun     30     ' Center
  98. PrintE '4) Grenade         40     ' Center
  99. PrintE '5) Laser           50     ' Center
  100. PrintE '6) Bazooka         60     ' Center
  101. PrintE '7) Random          ??     ' Center
  102. PrintE
  103. PrintE
  104. print '\rYour Choice\b: ' Center
  105.  
  106. input weapon 1 noreturn
  107. if weapon = numeric
  108.    goto cont
  109. else
  110.    printe '\n\rPlease Choose A Number\b.'
  111.    gosub pause
  112.    goto choose
  113. endif
  114.  
  115. cont:
  116. if weapon > 0 then
  117.    goto cont2
  118. else
  119.    printe '\n\iThat number is too low.\o'
  120.    gosub pause
  121.    goto choose
  122. endif
  123.  
  124. cont2:
  125. if weapon < 8 then
  126.    goto ok
  127. else
  128.    printe '\n\i\rThat number is too high.\o\b'
  129.    gosub pause
  130.    goto choose
  131. endif
  132.  
  133. ok:
  134. printe '\n\rGood Choice\g!\b'
  135. if weapon = 7
  136.    weapon = random(6)
  137. endif
  138.  
  139. clear screen
  140. printe '\n\n'
  141. printe '          \rPlayer\b:  &1'
  142. j = weapon * 10
  143. weapon_name = table_get(j)
  144. printe '          \gWeapon\b:  [weapon_name]'
  145. chances = table_get(weapon)
  146. printe '\iChances of death\o:  \r[chances]%\b'
  147. printe '\n'
  148. print 'Last chance to back out - \rContinue\g(\rY\b/n\g)\b ' Center
  149. input temp 1 noreturn
  150. if temp = 'n'
  151.    printe '\n\n <\rsnicker\b><\gsnicker\b> ok, yeah, we understand..<\gwimp\b><\rchicken\b>'
  152.    goto quit
  153. endif
  154.  
  155. printe
  156. printe
  157. print 'Okay, press <\rReturn\b> to pull trigger \r(\bor whatever\r)\b: '
  158. input temp 1
  159. fate = random(100)
  160.  
  161. clear screen
  162.    printe '\n\nYou raise the weapon to your head.........'
  163.    gosub time
  164.    printe '\nYou pull the trigger......'
  165.    gosub time
  166.  
  167. if fate > chances
  168.    goto lived
  169. else
  170.    printe '\n\n\i\rOh my god.......\gwhat a mess......\b\o'
  171.    DISCONNECT
  172.    exit
  173. endif
  174.  
  175.  
  176. pause:
  177.   printe
  178.   print 'Press <\rReturn\b> To Continue... ' Center
  179.   input temp 1
  180. return
  181.  
  182. quit:
  183.    QQQ = 1
  184.    printe '\n\n\nYou survived \r[tries]\b attempts at your life.'
  185.    printe '\nCome back again!'
  186.    gosub pause
  187.    execute C:\Script\Games.Scr             ; Change this to go back to your
  188.                                            ; Games Menu when the user is done
  189. lived:
  190.    Time_Limit (min)                        ; Adds the New Time Limit
  191.    tries = tries + 1
  192.    printe '\n\rYou Survived!!\b' Center
  193.    Printe
  194.    Printe 'You Have Just Added \r10\b More Min To Your Time Limit!' Center
  195.    Printe
  196.    print 'Want to try it again? ' Center
  197.    input temp 1
  198.    if temp = y
  199.       goto choose
  200.    else
  201.       goto quit
  202.    endif
  203.  
  204. time:
  205.    for temp = 1 to 200
  206.        j = j * 10
  207.    endfor
  208. return
  209. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə