home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / ww3scrpt.scr < prev   
Encoding:
Text File  |  1993-07-20  |  3.6 KB  |  120 lines
  1. script
  2.  
  3. ; WWIII By Scot LeGrand.
  4. ; Script file by Sam Furrow, October 1988.
  5. ; Revised, January, 1989.
  6.  
  7. ; Modifications to this script file may be made as you see fit, but please
  8. ; leave current credits intact and add a credit for any modifications you do.
  9.  
  10. clear variables
  11. define xx
  12. define minimumtime=15
  13. define timetoday
  14. define timecall
  15. define timeleft
  16. define timelimit
  17. define x
  18. margin (0)
  19.  
  20. define WWIII_DIR='G:\EMPIRE\' ;specify where you want your WWIII data to
  21.                               ;be placed (instructions, standings.dat, etc).
  22.                               ;This MUST be the same path specified when
  23.                               ;initializing WWIII.
  24.  
  25. define WWIII_PRG='G:\'        ;This is where you will put the EMPIRE.TOS file.
  26.                               ;If WWII runs from a folder, you may want this
  27.                               ;to be the same as WWW_DIR, in case WWIII does
  28.                               ;not run from a folder, this gives you a
  29.                               ;different place to run it from.
  30.  
  31. define GAMEMENU='G:\MENUS_80\GAMEMENU.HLP'   ; If you use a game menu this is
  32.                                              ; the place to define it.  If
  33.                                              ; you do not use a game menu
  34.                                              ; remove all reference to it
  35.                                              ; below.
  36.  
  37. top:
  38.      clear screen
  39.      if &11=80
  40.           margin 20
  41.      endif
  42.      printe '<<<<<<<<<<<<-------------->>>>>>>>>>>>'
  43.      printe '            WORLD WAR III'
  44.      printe '         The Game of EMPIRES!
  45.      printe
  46.      printe '           by Scott LeGrand'
  47.      printe '<<<<<<<<<<<<-------------->>>>>>>>>>>>'
  48.      printe                                         
  49.      printe '1. Play World War III!'
  50.      printe '2. Read some documentation about WWIII'
  51.      printe                           
  52.      printe '0. Return to Games Menu' 
  53.      printe 'RETURN for to Main Menu'
  54.      printe '--------------------------------------'
  55.      print  'Enter your Selection: '
  56.      xx=get_key
  57.      if xx='1'
  58.           goto PLAY
  59.      ef xx='2'
  60.           goto READ
  61.      ef xx='3'
  62.           clear screen
  63.           margin 0
  64.           execute '[gamemenu]'
  65.      ef xx=''
  66.           margin 0
  67.           clear screen
  68.           exit
  69.      endif
  70.      goto top
  71.  
  72. play:
  73.      timetoday=&15
  74.      timecall=&32
  75.      timelimit=&33
  76.      x=timetoday+timecall
  77.      timeleft=timelimit-x
  78.  
  79.      ; check for 300 Baud caller.
  80.      if &29=300
  81.           minimumtime=minimumtime+7
  82.      endif
  83.  
  84.      if timeleft<minimumtime
  85.           clear screen
  86.           printe 'Sorry, you don\"t have enough time'
  87.           printe 'left this call to play!'
  88.           printe
  89.           print 'Press a key to continue...'
  90.           xx=get_key
  91.           exit
  92.      endif
  93.      Printe
  94.      print ' Play World War III? \{Y/n\}'
  95.      xx=get_key
  96.      if xx=''
  97.           set xx='y'
  98.      endif
  99.      if xx='y'
  100.           margin 0
  101.           open '[WWIII_PRG]Player.dat',output
  102.           fprinte &01              ;User's Handle
  103.           fprinte &31              ;User's Number
  104.           fprinte &11              ;User's Video Width (80 or 40)
  105.           fprinte [timeleft]       ;User's time left this call (in minutes)
  106.           close
  107.           clear screen
  108.           tos '[WWIII_PRG]EMPIRE.TOS'
  109.      endif
  110.      goto top
  111.  
  112. read:
  113.      clear screen
  114.      view '[WWIII_DIR]EMPIRE.DOC'
  115.      printe
  116.      printe 'Press a key to continue...'
  117.      xx=get_key
  118.      goto top
  119.  
  120. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə