home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / LOC1.DSK / K.txt < prev    next >
Text File  |  2014-09-09  |  7KB  |  177 lines
  1.  FORGET RESTG
  2.  
  3.  : LEV2 24427 PEEK ;
  4.  : CMSK 127 , 127 , 85 , 42 , 42 , 85 , 213 , 170 , 170 , 213 , 99 , 99 , ;
  5.  : CSET 31 PEEK N2 * T1 N1 AND + ' CMSK + PEEK SWAP 8 * 4565 + ;
  6.  : CBYTE DO DUP PEEK 128 OR PICK3 AND I 4821 + POKE N1 +
  7.  LOOP 32 PUTBLK DROP DROP ;
  8.  : TMPARY 0 , 0 , 0 , 0 , 0 , 0 , ;
  9.  : C20 20 VTAB CR CLEOP ;
  10.  : DR1CHK DR1FLG IF C20 PRINT "   CHECK GAME DISK IS IN DRIVE 1, " CR 7 HTAB RDYMES C20 THEN ;
  11.  : RDTMP ' TMPARY + PEEK ;
  12.  : WRTMP ' TMPARY + POKE ;
  13.  : APCOLR 1 , 2 , 5 , 6 , 3 , ;
  14.  : SELX CR 17 VTAB CLEOP 13 HTAB PRINT " SELECT OPTION: " DUP 9 >
  15.  IF PAD READLN PAD GETNUM
  16. ELSE KEYIN CVRTNUM
  17. THEN ;
  18.  : SELECT
  19.   BEGIN SELX N1 PICK3 CNM
  20.  UNTIL SWAP DROP ;
  21.  
  22.   
  23.  : DSPCOLRS ERASE
  24.   5 ZR DO I ADD1 RDTMP NOT
  25.    IF I ' APCOLR + PEEK COLOR I 7 * 4 + 7 * DUP 48 PLOT 27 + 79 FILL I 7 * 5 + HTAB 11 VTAB I ADD1 .
  26.    THEN
  27.   LOOP ;
  28.  
  29.  : DIE RND SWAP MOD ;
  30.  VARIABLE SOLO
  31.  : NCINIT 6 N1 DO ZR I WRTMP LOOP
  32.  99 DUP 22098 POKE 22099 POKE ( COLOR MASKS FOR WHITE T-CHOICE
  33.   BEGIN HOME 10 VTAB 7 HTAB PRINT " NUMBER OF PLAYERS (1-4): " KEYIN CVRTNUM N1 N4 CNM
  34.    UNTIL DUP N1 = IF -> SOLO 255 N2 ELSE ZR -> SOLO ZR SWAP THEN 24574 POKE 24442 POKE ZR 24559 POKE
  35.  N4 ZR DO ZR I 24426 + POKE LOOP
  36.  HOME 8 VTAB 15 HTAB PRINT " GAME LEVEL " CR CR 12 HTAB PRINT " 1) BEGINNER " CR 12 HTAB PRINT " 2) INTERMEDIATE "
  37.  
  38.  CR 12 HTAB PRINT " 3) ADVANCED " CR 12 HTAB PRINT " 4) EXPERT "
  39.  N4 SELECT ZR DO 255 I 24426 + POKE LOOP
  40.   NP ADD1 N1 DO DSPCOLRS
  41.     BEGIN 15 VTAB CR CLEOP SOLO
  42.     IF 11 HTAB PRINT " SELECT  " I SUB1
  43.      IF PRINT " MY "
  44.      ELSE PRINT " YOUR "
  45.      THEN 
  46.     ELSE N6 HTAB PRINT " PLAYER  " I . PRINT " , SELECT YOUR "
  47.     THEN PRINT "  COLOR: " KEYIN CVRTNUM N1 5 CNM
  48.     IF DUP RDTMP NOT
  49.      IF DUP I 24560 + POKE DUP 5 =
  50.      IF 5 24559 POKE ZR I 24560 + POKE
  51.      THEN N1 SWAP WRTMP N1
  52.      ELSE DROP0
  53.      THEN
  54.     ELSE ZR
  55.     THEN
  56.    UNTIL
  57.   LOOP
  58.  SOLO
  59. IF
  60.  HOME N3 VTAB 9 HTAB PRINT " DIFFICULTY SCALE (1-9) " CR CR 8 HTAB PRINT " 1 IS EASIEST, 9 HARDEST. "
  61. CR CR 9 HTAB PRINT " 4 AND 5 ARE EVEN GAMES. " CR 7 HTAB PRINT " 4 GIVES YOU FIRST ATTACK - "
  62. CR 11 HTAB PRINT " 5 GIVES IT TO ME. "
  63. 9 SELECT 24416 POKE
  64.   ELSE NP ZR DO ZR I WRTMP LOOP
  65.  NP ZR DO
  66.   BEGIN NP DIE DUP RDTMP
  67.   WHILE DROP
  68.   REPEAT DUP ADD1 24555 I + POKE N1 SWAP WRTMP
  69.  LOOP THEN ;
  70.   
  71.  : SETRES 24428 PEEK IF N1 ELSE -1 THEN
  72. 24441 PEEK + DUP 24440 POKE
  73. 24441 PEEK N4 * + 24439 POKE ;
  74.  : LMH CR CR 15 HTAB
  75.    PRINT " 1) LOW " CR 15 HTAB PRINT " 2) MEDIUM " CR SOLO NOT IF 15 HTAB PRINT " 3) HIGH " 3 ELSE N2 THEN SELECT ;
  76.  : TOGL DUP PEEK IF ZR ELSE 255 THEN SWAP POKE ZR ;
  77.  : AID 24367 TOGL ;
  78. : AM 24420 TOGL ;
  79.  : ACL HOME 8 VTAB 12 HTAB PRINT " ELEMENT OF CHANCE " SOLO ZR -> SOLO LMH N2 - 24413 POKE -> SOLO ZR ;
  80.  : ACIT BEGIN HOME N6 VTAB 9 HTAB PRINT " CITIES NEEDED TO WIN (3-6): " KEYIN CVRTNUM N3 N6 CNM
  81. UNTIL 24414 POKE ZR ;
  82. : ARES LEV2 IF HOME 8 VTAB 11 HTAB PRINT " RESOURCE ABUNDANCE " LMH ADD1 24441 POKE SETRES
  83.  ELSE 17 VTAB 5 HTAB INVERSE PRINT " CANNOT BE ALTERED IN THIS GAME " NORMAL 8000 DELAY
  84. THEN ZR ;
  85. : SETSTND N3 24414 POKE ( #CITS
  86.  -1 DUP DUP 24413 POKE 24420 POKE 24367 POKE ( LUCKLEV,MUSIC,JOYSTICK
  87.  LEV2 IF NP 24441 POKE SETRES ( RESABUND
  88. ELSE NP 24440 POKE NP N2 * ADD1 DUP 24441 POKE NP + 24439 POKE
  89. THEN ;
  90.  
  91.  : PLO PRINT " LOW " ;
  92. : PMED PRINT " MEDIUM " ;
  93. : PHI PRINT " HIGH " ;
  94. : OPTINIT SETSTND
  95. BEGIN BWIN DSPEX HOME
  96.  13 HTAB INVERSE PRINT "  GAME SETTINGS " NORMAL
  97.  N2 VTAB 7 HTAB PRINT " 1) RESOURCES : " 26 HTAB 24441 PEEK LEV2 NOT IF SUB1 N2 / THEN N2 - CASE: PLO PMED PHI THEN
  98. CR CR 7 HTAB PRINT " 2) CITIES TO WIN : " 26 HTAB 24414 PEEK .
  99. CR CR 7 HTAB PRINT " 3) CHANCE LEVEL : " 26 HTAB 24413 PEEK ADD1 CASE: PLO PMED PHI THEN
  100. CR CR 7 HTAB PRINT " 4) MUSIC : " 26 HTAB 24420 PEEK IF PRINT " ON " ELSE PRINT " OFF " THEN
  101.  CR CR 7 HTAB PRINT " 5) INPUT DEVICE : " 26 HTAB 24367 PEEK IF PRINT " JOYSTICK " ELSE PRINT " KEYBOARD " THEN
  102.  BEGIN 13 VTAB
  103.  N4 HTAB PRINT " SELECT 1-5 TO CHANGE A SETTING, " CR 5 HTAB PRINT " OR PRESS "RETURN" TO PROCEED. "
  104.  KEYIN DUP 141 =
  105. IF N6 SWAP
  106. ELSE CVRTNUM N1 5 CNM
  107.  THEN
  108. UNTIL
  109.  SUB1 CASE: ARES ACIT ACL AM AID N1 THEN
  110. UNTIL HOME
  111. ZR DUP 24570 POKE 24571 POKE ;
  112.  : GRID 0 , 0 , 0 , 0 , 8 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 0 , ;
  113. : XFER 4837 I + POKE ;
  114. : SETWK N16 ZR DO ' GRID I + PEEK XFER LOOP ;
  115.  : SHOWMAP SETWK BWIN HOME ZR RDLNK0 24573 POKE 49 N1 DO ZR I WRRES ZR I 5333 + POKE ZR I 24505 + POKE LOOP 24561 PEEK PUSH ZR 24561 POKE REF PULL 24561 POKE SWIN HOME
  116.  BEGIN 21 VTAB 8 HTAB CLEOP PRINT " USE THIS MAP? (Y/N) " KEYIN DUP 217 = SWAP 206 = OVER OR UNTIL HOME ;
  117.  : MAPTYPE BWIN HOME DSPEX 8 VTAB 15 HTAB PRINT " MAP SOURCE " CR CR 9 HTAB
  118.    PRINT " 1) MAP FROM GAME DISK " CR 9 HTAB PRINT " 2) SAVED MAP " CR 9 HTAB PRINT " 3) GENERATE A MAP " N3 SELECT SUB1 ;
  119.  
  120.  : STND HOME DR1CHK BEGIN N2 10 INSERTMS HOME SIDE N2 = UNTIL
  121.  BEGIN BWIN HOME DSPEX N2 VTAB 12 HTAB INVERSE PRINT "  MAP CATALOGUE:  " NORMAL CR CR
  122.  PRINT "  1:N. AMERICA (BEG) 10:SEA OF JAPAN "
  123.  CR PRINT "  2:MIDDLE EAST      11:EUROPEAN WARS "
  124.  CR PRINT "  3:PRUSSIA          12:WORLD "
  125.  CR PRINT "  4:N. AMERICA (ADV) 13:RIVERLAND (FICT) "
  126.  CR PRINT "  5:BORDERLAND(FICT) 14:POLAR ICE "
  127.  CR PRINT "  6:CHINA            15:THREE CONTINENTS "
  128.  CR PRINT "  7:MEDITERRANEAN    16:AFRICA "
  129.  CR PRINT "  8:ANCIENT ITALIA   17:SOUTH AMERICA "
  130.  CR PRINT "  9:CARIBBEAN        18:"DOWN UNDER" "
  131.  CR 13 HTAB PRINT " 19:SHENANDOAH "
  132.  CR CR 15 HTAB INVERSE PRINT "  20:EXIT  " NORMAL
  133.   20 SELECT DUP 20 =
  134.  IF ZR SWAP
  135.   ELSE CR 132 PUTC PRINT " BLOADM " SUB1 . PRINT " .M,A2816 " CR SHOWMAP
  136.  IF N1 N1 ELSE ZR THEN
  137.  THEN
  138. UNTIL
  139.  BEGIN N1 20 INSERTMS HOME SIDE N1 = UNTIL ;
  140.  
  141.  : SAVED N1 -> FILETYPE HOME 11 29 8 N16 WINDOW PAD ASSIGN " BLOAD  " DSB1 NXTP ASSIGN " .M,A2816,D " DSB0A SHOWMAP ;
  142.  : LS3 BEGIN N2 9 INSERTMS HOME SIDE N2 =
  143.   UNTIL 9 VTAB N16 HTAB PRINT " LOADING " CR 18 HTAB PRINT " MAP " CR 15 HTAB PRINT " GENERATOR " READ " MAPGEN " ;
  144.  
  145.  VARIABLE TEMP1
  146. : FEELT -> AREG 17216 CALL ;
  147.  : CXCHK
  148.  ZR 24457 POKE 48 ZR DO 255 I 24458 + POKE LOOP
  149.  ZR -> TEMP1 SWIN HOME 21 VTAB 12 HTAB PRINT " PLEASE WAIT " NT ADD1 N1
  150.   DO I FEELT I 24457 + PEEK 255 =
  151.    IF TEMP1 INC TEMP1
  152.    THEN
  153.   LOOP CR INVERSE TEMP1
  154.   IF 7 HTAB PRINT " SORRY, MAP TOO COMPLEX " CR 8 HTAB PRINT " FOR COMPUTER PLAYER " 20000 DELAY
  155.   ELSE 17 HTAB PRINT " OK " 
  156.   THEN NORMAL 3500 DELAY TEMP1 ;
  157.  VARIABLE CSPAR
  158.  : START ZR -> DR1FLG
  159.  45 ZR DO ZR I 24368 + POKE LOOP
  160.   ZR 24560 POKE
  161.   NCINIT HOME
  162.   OPTINIT
  163.  BEGIN
  164.   BEGIN MAPTYPE -> CSPAR CSPAR
  165.   CASE: STND SAVED N1 THEN UNTIL CSPAR N2 < SOLO AND
  166.    IF CXCHK NOT
  167.   ELSE N1
  168.   THEN
  169.  UNTIL DR1CHK CSPAR N2 <
  170.  IF HOME READ " RLOAD,D1 "
  171. ELSE LS3
  172. THEN ;
  173.  
  174. CLOSE RUN
  175.  
  176.  
  177.