home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / cows_src / cows.scr < prev   
Encoding:
Text File  |  1990-08-31  |  5.4 KB  |  215 lines
  1. SCRIPT
  2.  
  3. ; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  4. ; +                                                                       +
  5. ; +                  BBS Express ST Script file to run                    +
  6. ; +               Version 7.0 of COWS the text adventure                  +
  7. ; +                                                                       +
  8. ; +                      Written by R. Sanchez                            +
  9. ; +                 SysOp, C&R BBS, 717-765-8623 (PA)                     +
  10. ; +                         1 September 1990                              +
  11. ; +                                                                       +
  12. ; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  13.  
  14. ; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  15. ; +             SET THE TWO PATHS BELOW FOR YOUR SYSTEM                 +
  16. ; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  17. ;                                                                       +
  18. DEFINE BBS_path   = 'D:\BBS_X\'         ; Set this path to  where your  +
  19. ;                                         BBS.PRG is located.           +
  20. ;                                                                       +
  21. DEFINE COWS_path  = 'D:\COWS\'          ; Set this path to where your   +
  22. ;                                         is located COW_70.PRG.        +
  23. ; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  24.  
  25. DEFINE Alias_name          ;Name used in game
  26. DEFINE Dummy_string        ;Dummy string
  27. DEFINE High_score
  28. DEFINE Input_string        ;input string from prompt
  29. DEFINE Players_real_name   ;Users handle
  30. DEFINE Previous_player     ;Flag YES = Has played before, NO = First time
  31.  
  32. INTRO_MENU:
  33.  
  34.  PRINTE
  35.  PRINTE
  36.  PRINTE '==================================' CENTER
  37.  PRINTE '=  C O W S    A D V E N T U R E  =' CENTER
  38.  PRINTE '=             V 7.0              =' CENTER
  39.  PRINTE '==================================' CENTER
  40.  PRINTE
  41.  PRINTE '-------------------' CENTER
  42.  PRINTE '-  Your Options:  -' CENTER
  43.  PRINTE '-------------------' CENTER
  44.  PRINTE
  45.  PRINTE
  46.  PRINTE '(P)lay COWS    ' CENTER
  47.  PRINTE '(C)ow News     ' CENTER
  48.  PRINTE '(H)all of Fame ' CENTER
  49.  PRINTE '(P)lay COWS    ' CENTER
  50.  PRINTE '(Q)uit to BBS  ' CENTER
  51.  PRINTE
  52.  PRINTE
  53.  PRINT  ' Brahma snorts, "Your choice, HUMAN!?" '
  54.  
  55.  GET_KEY Input_string
  56.  
  57.  IF Input_string='P' THEN
  58.   goto WARNING_NOTICE
  59.  ENDIF
  60.  
  61.  IF Input_string='C' THEN
  62.   CLEAR SCREEN
  63.   PRINTE
  64.   PRINTE '-------------' CENTER
  65.   PRINTE 'THE COW NEWS' CENTER
  66.   PRINTE '-------------' CENTER
  67.   VIEW ('[COWS_path]COWNEWS.TXT')
  68.   PRINTE
  69.   PRINTE '<Press Any Key to Continue>' CENTER
  70.   GET_KEY Input_string
  71.   CLEAR SCREEN
  72.  ENDIF
  73.  
  74.  IF Input_string='H' THEN
  75.   CLEAR SCREEN
  76.   PRINTE
  77.   PRINTE '------------------------' CENTER
  78.   PRINTE 'COW KILLERS HALL OF FAME' CENTER
  79.   PRINTE '------------------------' CENTER
  80.   VIEW ('[COWS_path]HALLFAME.TXT')
  81.   PRINTE
  82.   PRINTE '<Press Any Key to Continue>' CENTER
  83.   GET_KEY Input_string
  84.   CLEAR SCREEN
  85.  ENDIF
  86.  
  87.  IF Input_string = 'Q' THEN
  88.   BBS_path = FILE_CHGDIR ('[BBS_path]')
  89.   EXIT
  90.  ENDIF
  91.  
  92.  GOTO INTRO_MENU
  93.  
  94.  
  95. PLAY_GAME:
  96.  
  97.  IF FILE_EXISTS ('[COWS_path]PLAYERS.DAT')
  98.   CLEAR SCREEN
  99.   PRINTE
  100.   PRINTE 'Brahma hoofs through some cow pies....' CENTER
  101.   PRINTE
  102.   OPEN ('[COWS_path]PLAYERS.DAT', input)
  103.   GOTO LOOP
  104.  ELSE
  105.   OPEN ('[COWS_path]PLAYERS.DAT', OUTPUT)
  106.   CLOSE  
  107.   GOTO PLAY_GAME
  108.  ENDIF
  109.  
  110. LOOP:
  111.  FINPUT Players_real_name
  112.  FINPUT Alias_name
  113.  
  114.  IF Players_real_name # &01 then
  115.   Previous_player = 'NO'
  116.   GOTO LOOP                        ; No match, try again
  117.  else 
  118.   Previous_player = 'YES'
  119.   CLOSE
  120.   GOTO BEGIN                       ; Found user in record
  121.  ENDIF
  122.  
  123. EOF:
  124.  CLOSE
  125.  PRINTE
  126.  PRINTE
  127.  PRINTE
  128.  PRINTE 'Brahma snorts, "You are not on my list!!"' CENTER
  129.  PRINTE
  130.  PRINTE
  131.  
  132. CREATE_USER:
  133.  PRINTE
  134.  PRINTE
  135.  PRINTE 'Brahma gives you these choices:' CENTER
  136.  PRINTE
  137.  PRINTE '             (1) Be known as &01'
  138.  PRINTE '             (2) Choose another name'
  139.  PRINTE
  140.  PRINTE
  141.  
  142.  GET_KEY Input_string
  143.  
  144.  IF Input_string = '1' THEN
  145.   SET Alias_name = &01
  146.   GOTO ADD_USER
  147.  ENDIF
  148.  
  149.  IF Input_string='2'
  150.   then PRINTE
  151.   PRINTE ' What name do you want HUMAN!!'
  152.   print '>'
  153.   INPUT Input_string 40 noreturn
  154.   SET Alias_name = Input_string
  155.   GOTO ADD_USER
  156.  ENDIF
  157.  
  158.  goto CREATE_USER
  159.  
  160. ADD_USER:
  161.  
  162.  PRINTE 'Brahma asks, is [Alias_name] correct? (y/N)'
  163.  GET_KEY Input_string
  164.  
  165.  IF Input_string = 'Y' THEN
  166.   open ('[COWS_path]PLAYERS.DAT', append)
  167.   set Players_real_name=&01
  168.   fPRINTE Players_real_name
  169.   fPRINTE Alias_name
  170.   close
  171.   GOTO BEGIN
  172.  ENDIF
  173.  
  174. GOTO CREATE_USER
  175.  
  176.  
  177. BEGIN:
  178.  open ('[COWS_path]USER.TMP', output)       ; make file to pass name to game
  179.  fPRINTE Alias_name
  180.  close
  181.  
  182.  Dummy_string = file_chdir ('[COWS_path]')
  183.  GEM ('[COWS_path]COWS_70.PRG')             ; RUN THE GAME
  184.  CLEAR
  185.  EXECUTE ('[COWS_path]COWS.SCR')
  186.  
  187.  
  188. WARNING_NOTICE:
  189.  
  190.  CLEAR SCREEN
  191.  PRINTE
  192.  PRINTE
  193.  PRINTE
  194.  PRINTE 'W A R N I N G ! ! ! ! ! ' CENTER
  195.  PRINTE 
  196.  PRINTE 'THIS GAME MAY BE OBJECTIONAL TO SOME PEOPLE, IT CONTAINS' CENTER
  197.  PRINTE 'VULGAR LANGUAGE AND SUBJECT MATTER DEALING WITH THE ' CENTER
  198.  PRINTE 'CRUELTY TO ANIMALS (COWS MOSTLY). ' CENTER
  199.  PRINTE
  200.  PRINTE
  201.  PRINTE 'DO YOU STILL WISH TO CONTINUE?' CENTER
  202.  PRINTE
  203.  PRINTE '(y/N)' CENTER
  204.  PRINTE
  205.  
  206.  GET_KEY Input_string
  207.  
  208.  IF Input_string='Y' THEN
  209.   GOTO PLAY_GAME
  210.  ENDIF
  211.  
  212.  EXIT
  213.  
  214. ; END OF FILE
  215.