home *** CD-ROM | disk | FTP | other *** search
/ Flop Magazin 8 / Flop_Magazin_08_1991_United_Electronic_Crazies_cs_Side_A.atr / progract.cap < prev    next >
Text File  |  2023-02-26  |  10KB  |  1 lines
  1. πõØ✓ACTION! software✓õø¢¢πõØ✓✓✓✓✓✓✓✓✓✓✓✓✓✓õø¢πõØ✓SPACE ZAPPER✓õø¢πõØ✓✓✓✓✓✓✓✓✓✓✓✓✓✓õø¢ij2¢¢     Hra SPACE ZAPPER je hrou, ktor* ukazuje pou(itie grafick[ho mdu a grafick`ch prostriedkov, ktor[ poskytuje jazyk ACTION!. V programe je vyu(it* mo(nos④ definovania vlastn`ch funkc)) a s] pou(it[ &peci*lne efekty. Po skompilovan) a spusten) programu si pomocou kl*vesy SELECT vyberte ]rove hry, v ktorej chcete hra④. Hra sa spust) stla'en)m kl*vesy START albo tla')tka na joysticku. Po'as hry sa zobrazuje va&e skre. Po skon'en) hry sa vyp)&u vami dosiahnut[ body. ¢¢ nahr*te nov` rekord, bude vyp)san* spr*va You reached a new hiscore. al&ie spustenie hry sa uskuto'n) stla'en)m kl*vesy START.¢¢°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°¢¢πõØ✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓õø¢πõØ✓SPACE ZAPPER ╱TWO$✓õø¢πõØ✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓õø¢ij2¢¢     Hra SPACE ZAPPER ╱TWO$ je ⇦al&ou verziou hry SPACE ZAPPER, ktor* je nap)san* v jazyku ACTION!. V hre hraj] dvaja hr*'i. Hra sa kon') vtedy, ke⇦ jeden z hr*'ov nab]ra do protihr*'ovej, alebo vlastnej 'iary, ktor] zanech*va po pohybe. V pr)pade zr*(ky hr*'a s 'iarou je hra ukon'en* a vyhr*va spoluhr*'.¢     Po skon'en) hry sa vyp)&e stav hry, po'et nahrat`ch bodov a va&e mo(nosti. Stla'en)m kl*vesy SELECT sa vy ma(e doteraz nahran[ skre, stla'en)m kl*vesy START sa vr*tite do hlavn[ho menu.¢¢°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°¢¢     õØ✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓õø¢     õØ✓TRAIL by FIRE in ACTION!✓õø¢     õØ✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓õø¢ij2¢¢     Zdrojov` text sa naz`va TRIAL.ACT. V tejto hre ide o to, aby hr*' pomocou joysticku zachytil 'o najviac pan*'ikov, vyskakuj]cich z horiaceho domu. Ovl*danie je trochu nezvy'ajn[. Pokia  je joystick v polohe hore, alebo dole ╱alebo v astrednej polohe$, zost*vaj$ z*chranci ╱ktor`ch ovl*da hr*'$ v polohe uprostred ╱z*chranci maj] tri polohy - v avo, uprostred a vpravo$. Ke⇦ ide hr*' joystickom do ava, presun] sa z*chranci do ava. Po uvo nen) joysticka sa z*chranci presun] do strednej polohy. Ke⇦ hr*' presunie joystick doprava, pohn] sa z*chranci smerom vpravo. Po uvo nen) joysticka sa z*chranci presun] do strednej polohy.¢     Vyskakuj]ci pan*'ikovia sa odr*(aj] od plachty, ktor] dr(ia z*chranci, a postupne sa pres]vaj] smerom do sanitky ╱stoj) v pravej dolnej 'asti obrazovky$. Je mo(n[, (e po odraze pan*'ika sa nepresunie o jedno miesto doprava ╱preto(e pan*'ikovia sa pres]vaj] iba smerom vpravo$. Vtedy zostane pan*'ik chv) u sk*ka④ na tom istom mieste. ⑤rove hry sa zvy&uje postupne. Vo vy&&)ch ]rovniach za'n] vyskakova④ aj viacer) pan*'ikovia naraz. V takomto pr)pade mus) hr*' myslie④ aj na to, (e reakcia programu na presun joysticka zlava doprava ╱a t`m p*dom aj presunutie z*chrancov z  avej poz)cie do po()cie pravej$ nie je ve mi r`chle.¢ij1¢πV`pis programu:¢; TRIAL BY FIRE¢; BY GREG KNAUSS¢; COPYRIGHT 1988 BY ANALOG COMPUTING¢;¢;      CHECKSUM DATA¢; DC ED BE 0C B3 A5 3B 0E ¢; 0C 57 BC E8 86 72 82 30 ¢; A8 95 4A 7E 83 10 CB 94 ¢; C6 BA 44 71 EA A2 10 4F ¢; 5F F8 73 68 2D 96 B8 B4 ¢; 42 58 CA 9A D4 65 98  ¢¢CARD I,DL,SC,CH,CH2,DRB,K,SCORE,¢     HSCORE,SCR¢BYTE S,J,PM,BABY,BABES,HIT,MISS,ADV,¢     LVL,UD,BSAV,NXTL,KEY,BRN¢CARD ARRAY X╱5$,Y╱5$,B╱5$,Q╱5$,UP╱5$¢¢PROC CHSET╱$¢ 0 0 0 0 0 0 0 0¢0 0 1 85 2 2 2 5¢0 0 0 0 0 0 0 0¢0 85 86 85 162 170 160 170¢0 64 128 80 0 128 128 128¢0 1 2 5 0 2 2 0¢0 85 149 85 138 170 170 170¢0 0 64 85 128 128 128 80¢5 5 5 1 0 1 1 3¢64 84 85 85 0 85 85 255¢0 0 111 104 0 64 64 192¢0 0 255 0 0 0 0 0¢0 0 249 41 0 1 1 3¢5 21 85 84 1 85 85 255¢80 80 64 0 64 64 64 192¢¢1 5 5 21 21 84 80 252¢85 85 69 1 1 0 0 0¢64 64 64 80 80 80 80 252¢1 1 5 5 21 20 20 252¢85 85 65 0 0 0 0 0¢64 80 80 84 84 20 20 252¢¢255 255 255 255 255 255 255 255¢255 195 195 195 195 195 195 255¢255 190 190 234 254 254 254 255¢255 235 254 254 251 239 234 255¢254 255 255 63 63 15 3 0¢191 255 255 252 252 240 192 0¢3 15 15 15 15 63 63 63¢63 63 63 63 255 255 255 255¢253 213 213 253 253 253 255 255¢127 87 87 127 127 127 255 255¢255 255 255 255 255 255 253 253¢255 255 255 255 255 255 127 127 ¢¢PROC FIRE╱$¢ 255 255 255 255 255 253 245 247¢0 0 0 1 1 68 64 0¢117 85 119 215 213 85 85 85¢255 215 211 215 215 199 215 255¢85 85 87 87 93 85 87 127¢85 119 95 95 127 255 255 255¢255 255 247 245 245 213 215 87¢223 253 125 117 245 85 85 85¢81 81 69 84 84 80 64 0¢16 0 1 17 16 17 85 85¢245 197 213 215 215 215 87 95¢85 85 85 85 85 85 85 85 ¢¢PROC FIRE2╱$¢ 255 255 255 255 253 253 245 213¢0 0 0 0 0 4 16 0¢93 125 117 85 93 93 85 85¢255 211 215 199 215 199 199 255¢87 87 93 85 87 119 95 127¢117 119 127 255 255 255 255 255¢255 255 255 253 247 213 215 85¢221 125 245 245 213 85 85 93¢85 84 68 16 16 64 0 0¢0 1 1 64 68 68 69 85¢245 213 213 213 211 211 87 95¢85 85 85 85 85 85 85 85 ¢¢PROC BABIES╱$¢ 28 56 60 153 255 60 189 255¢23 39 62 156 189 246 96 56¢216 144 246 255 255 245 144 216¢56 96 246 189 156 63 39 19¢255 189 60 255 153 60 28 56¢28 6 111 189 57 124 228 232¢27 9 175 255 255 111 9 27¢200 228 252 57 189 111 6 28¢28 56 60 153 255 60 189 255¢0 0 7 6 31 62 62 59¢0 0 7 6 31 62 60 118¢0 0 7 6 31 62 60 236¢0 0 7 6 31 62 60 118 ¢¢PROC DLIST╱$¢ 112 112 70 0 0 7 130 16 68 0 0¢4 4 4 4 4 4 4 4 4 4 4 4 132 4 4 4 132¢4 65 DLIST ¢¢PROC DLI╱$¢ 72 238 0 5 173 0 5 141 10¢212 201 1 208 17 169 0 141 9 212 169¢15 141 24 208 169 44 141 23 208 104¢64 201 2 208 7 169 86 141 22 208 104¢64 169 0 141 0 5 169 0 141 26 208¢104 64 ¢¢PROC PLRVBI╱$¢ 162 3 189 244 6 240 89 56 221 240 6¢240 83 141 254 6 106 141 255 6 142¢253 6 24 169 0 109 253 6 24 109 252¢6 133 204 133 206 189 240 6 133 203¢173 254 6 133 205 189 248 6 170 232¢46 255 6 144 16 168 177 203 145 205¢169 0 145 203 136 202 208 244 76 87¢6 160 0 177 203 145 205 169 0 145¢203 200 202 208 244 174 253 6 173¢254 6 157 240 6 189 236 6 240 48 133¢203 24 138 141 253 6 109 235 6 133¢204 24 173 253 6 109 252 6 133 206¢189 240 6 133 205 189 248 6 170 160¢0 177 203 145 205 200 202 208 248 ¢174 253 6 169 0 157 236 6 202 48 3¢76 2 6 76 98 228 0 0 ¢¢PROC YPOS╱$¢ 175 156 131 123 115 107 99 91 82 74¢70 66 62 58 56 55 54 54 55 54 56 58¢62 66 70 74 82 91 99 107 115 123 131¢156 175 180 ¢¢PROC CLRS╱$¢ 44 246 72 56 76 15 146 8 146  ¢¢PROC BURN╱$¢BRN=8-BRN POKE╱1715,CH/256-BRN$¢POKE╱708,86⇩BRN/4$ RETURN¢¢PROC WAIT╱$¢FOR K=1 TO 1000 DO OD RETURN¢¢PROC SETUP╱$¢GRAPHICS╱0$ POKE╱82,0$ POKE╱752,1$¢POKE╱559,0$¢CH=╱PEEK╱106$-8$✓256¢MOVEBLOCK╱CH,CHSET,8✓34$¢MOVEBLOCK╱CH⇩8✓34,FIRE,13✓8$¢CH2=╱PEEK╱106$-16$✓256¢MOVEBLOCK╱CH2,CHSET,8✓34$¢MOVEBLOCK╱CH2⇩8✓34,FIRE2,13✓8$¢¢DL=PEEKC╱88$ SC=╱PEEK╱106$-40$✓256¢POKEC╱DLIST⇩3,DL$ POKEC╱DLIST⇩9,SC$¢POSITION╱23,0$¢PRINT╱"trial by fire "$ ZERO╱SC,3072$¢FOR I=0 TO 2 DO POKEC╱88,SC⇩1024✓I$¢POKE╱82,35$ POSITION╱35,15$¢PRINT╱";5? 5<5=>555555  9:"$¢POKE╱82,0$ POSITION╱0,1$¢PRINTE╱"555555"$ PRINTE╱"555555"$¢PRINTE╱"556655"$ PRINTE╱"55  55"$¢PRINTE╱"555555"$ PRINTE╱"555555"$¢PRINTE╱"556655"$ PRINTE╱"556655"$¢PRINTE╱"555555"$ PRINTE╱"55BHIDKC"$¢PRINTE╱"55LEMFJ"$ PRINTE╱"55ELFG"$¢PRINTE╱"555555"$ PRINTE╱"555555"$¢PRINTE╱"557855"$ PRINTE╱"555555"$¢PRINTE╱"555555"$ PRINTE╱"555555"$¢POKE╱82,8⇩I✓9$ POSITION╱8⇩I✓9,16$¢PRINTE╱"!#      "$ PRINTE╱"╱$✓⇩⇩,-."$¢PRINTE╱"/01  234"$ OD POKEC╱88,DL$¢MOVEBLOCK╱1700,DLI,55$¢POKE╱1715,CH/256$¢MOVEBLOCK╱1536,PLRVBI,160$¢PM=PEEK╱106$-56 DRB=PM✓256⇩1¢ZERO╱DRB⇩1024,1024$ POKE╱1788,PM⇩4$¢POKE╱53277,3$ POKE╱54279,PM$¢POKE╱1771,PM$ SETBLOCK╱1784,4,8$¢SETBLOCK╱1772,4,1$ FOR I=0 TO 3 DO¢MOVEBLOCK╱DRB⇩I✓256,BABIES,104$ OD¢MOVEBLOCK╱704,CLRS,9$¢HSCORE=0 POKEC╱560,DLIST$¢POKEC╱512,1700$ POKE╱1280,0$¢POKE╱54286,192$ POKEC╱548,PLRVBI$¢POKE╱559,62$ RETURN¢¢PROC MAIN╱$¢SETUP╱$ LVL=1 DO¢POKE╱1772,1$ POSITION╱2,1$¢POKEC╱DLIST⇩9,SC⇩1024$¢POKE╱53248,128$ POKE╱1780,180$¢PRINT╱"     Copyright 1987 Magnum"$¢PRINT╱" Opus     "$ BRN=0¢DO FOR I=0 TO 32 DO¢J=PEEK╱I⇩YPOS$ POKE╱1780,J⇩13$  ¢WAIT╱$ BURN╱$¢KEY=PEEK╱53279$ IF KEY=5 OR¢ STICK╱0$<>15 THEN LVL==⇩1¢IF LVL>9 THEN LVL=1 FI POSITION╱7,1$¢PRINT╱"         Level: "$ PRINTB╱LVL$¢PRINT╱"         "$ FI¢J=STRIG╱0$ POKE╱77,0$¢IF KEY=6 OR J=0 THEN EXIT FI OD¢UNTIL KEY=6 OR J=0 OD POKE╱53248,0$¢SCORE=0 SCR=0 BSAV=0 MISS=0 ADV=0¢BRN=0 NXTL=3✓LVL BABES=LVL/3⇩1¢UD=1-LVL MOD 2 POSITION╱7,1$¢PRINT╱"       Get ready...       "$¢FOR I=1 TO 100 DO BURN╱$ WAIT╱$ OD¢POSITION╱2,1$ PRINT╱"Misses: 0"$¢PRINT╱"    Score: 0      Level: "$¢PRINTB╱LVL$¢¢DO¢FOR I=1 TO 4 DO X╱I$=0 Y╱I$=0 B╱I$=0¢Q╱I$=0 UP╱I$=1 OD HIT=0¢DO POKE╱77,0$ SNDRST╱$ S=STICK╱0$¢IF S=11 THEN J=0 ELSEIF S=7 THEN J=2¢ ELSE J=1 FI¢POKEC╱DLIST⇩9,SC⇩J✓1024$ BURN╱$¢IF ADV=1 AND BSAV MOD NXTL=0 THEN¢ LVL==⇩1 POSITION╱36,1$ PRINTB╱LVL$¢ NXTL=LVL✓3 BSAV=0 ADV=2 UD=0 FI¢IF LVL MOD 2=0 AND ADV=2 THEN UD=1 FI¢IF LVL MOD 3=0 AND ADV=2 THEN¢ BABES==⇩1 ADV=0 FI¢IF LVL MOD 2=0 THEN ADV=0 FI¢IF LVL>10 THEN UD=1-LVL MOD 2 BABES=4¢ FI¢IF SCR>SCORE THEN SCORE=SCR¢ POSITION╱22,1$ PRINTC╱SCORE$ FI¢FOR BABY=1 TO BABES DO¢POKE╱1772⇩BABY-1,Q╱BABY$/4✓8⇩1$¢POKE╱1780⇩BABY-1,Y╱BABY$⇩8$¢POKE╱53248⇩BABY-1,X╱BABY$$¢IF B╱BABY$=1 THEN X╱BABY$==⇩UP╱BABY$¢ Q╱BABY$==⇩1¢ Y╱BABY$=PEEK╱YPOS⇩Q╱BABY$$¢IF Y╱BABY$>175 AND X╱BABY$=92 AND¢ J<>0 THEN HIT=1 FI¢IF Y╱BABY$>175 AND X╱BABY$=127 AND¢ J<>1 THEN HIT=1 FI¢IF Y╱BABY$>175 AND X╱BABY$=162 AND¢ J<>2 THEN HIT=1 FI¢IF Y╱BABY$>175 AND HIT=0 THEN¢ Q╱BABY$=0 SOUND╱0,200,10,10$¢ UP╱BABY$=1 IF UD=1 THEN¢ UP╱BABY$=RAND╱2$ FI SCR==⇩UP╱BABY$¢ FI¢IF X╱BABY$>195 THEN X╱BABY$=0¢ Y╱BABY$=0 Q╱BABY$=0 B╱BABY$=0¢ BSAV==⇩1 ADV=1 SCR==⇩LVL FI FI¢IF RAND╱25$<1 AND B╱BABY$=0 AND¢ ╱Q╱1$<5 OR Q╱1$>15$ AND¢ ╱Q╱2$<5 OR Q╱2$>15$ THEN IF¢ ╱Q╱3$<5 OR Q╱3$>15$ AND¢ ╱Q╱4$<5 OR Q╱4$>15$ THEN X╱BABY$=67¢ Q╱BABY$=10 B╱BABY$=1 S=RAND╱4$¢ K=PEEK╱CLRS⇩S$ POKE╱703⇩BABY,K$ FI¢ FI¢ OD¢IF LVL<11 THEN WAIT╱$ ELSE¢ FOR K=1 TO 2000-LVL✓100 DO OD FI¢IF PEEK╱764$=33 THEN  DO POKE╱77,0$¢ SNDRST╱$ UNTIL STRIG╱0$=0 OD¢ POKE╱764,255$ FI¢UNTIL HIT<>0 OD¢¢FOR BABY=1 TO BABES DO¢IF Y╱BABY$<176 THEN¢ POKE╱53248⇩BABY-1,0$ FI¢IF Y╱BABY$>175 THEN¢ POKE╱1780⇩BABY-1,215$ J=BABY¢ FOR I=1 TO 1000 DO OD FI OD¢MISS==⇩1 POSITION╱10,1$ PRINTB╱MISS$ ;ked chcete ziskat nesmrtelnu verziu, vymazte MISS==⇩1¢SOUND╱0,200,8,12$ FOR I=1 TO 60 DO¢BURN╱$ WAIT╱$ IF I=3 THEN SNDRST╱$ FI¢OD BABY=9 FOR I=X╱J$ TO 255 DO BURN╱$¢POKE╱1772⇩J-1,BABY✓8⇩1$ BABY==⇩1¢IF BABY=12 THEN BABY=9 FI¢POKE╱53248⇩J-1,I$ WAIT╱$¢POKE╱764,255$ OD IF MISS=3 THEN EXIT¢ FI¢OD¢¢IF SCORE>HSCORE THEN HSCORE=SCORE FI¢POSITION╱1,1$ PRINT╱"            "$¢PRINT╱"                          "$¢POSITION╱1,1$ PRINT╱"Score: "$¢PRINTC╱SCORE$ POSITION╱13,1$¢PRINT╱"High Score: "$ PRINTC╱HSCORE$¢POSITION╱30,1$ PRINT╱"Level: "$¢PRINTB╱LVL$ DO BURN╱$ WAIT╱$ UNTIL¢STRIG╱0$=0 OD FOR K=1 TO 10000 DO OD¢POSITION╱1,1$ PRINT╱"            "$¢PRINT╱"                          "$¢OD¢¢