Falcon 030 Power 2

home *** CD-ROM | disk | FTP | other *** search

/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / GAMES / SHAREWAR.E / XTREAM.ARJ / xtream / STOS / ISHIDO.BAS (.txt) < prev next >

Wrap

Atari STOS Basic | 1995-10-31 | 16KB | 292 lines

10 REM ---------------------------------------------------------------------- 100 CLEAR KEY 1000 FOR 1010 FADE 1020 ERASE 1030 REM 1040 REM ----- AFFICHE INFOS 1050 REM 1060 VARNAME 1070 CLEAR KEY 1080 OPEN IN 1090 GOTO 110 VARNAME 1100 OPEN IN 1110 GOTO 1120 VARNAME 1130 CLEAR KEY 1140 ON 1150 VARNAME 1160 VARNAME 1170 VARNAME 1180 VARNAME 1190 VARNAME 120 DIM 1200 GOTO 1210 FOR 1211 FOR 1220 INC 1230 REM 1240 REM ----- HIGH-SCORES 1250 REM 1260 VARNAME 1270 VARNAME 1280 REPEAT 1290 IF 130 VARNAME 1300 VARNAME 1310 VARNAME 1320 REPEAT 1330 INC 1340 INC 1350 UNDER 1360 LOCATE 1370 FOR 1380 LOCATE 1390 PRINT 140 VARNAME 1400 LOCATE 1410 CLEAR KEY 1420 REM 1430 REM ----- START GAME 1440 REM 1450 VARNAME 1460 FADE 1470 CLEAR KEY 1480 FOR 1490 VARNAME 150 VARNAME 1500 GOSUB 1510 REM 1520 REM ----- generation des cases aleatoires 1530 REM 1540 FOR 1550 VARNAME 1560 VARNAME 1570 VARNAME 1580 VARNAME 1590 VARNAME 160 VARNAME 1600 VARNAME 1610 VARNAME 1620 SPRITE 1630 VARNAME 1640 VARNAME 1650 UNTIL 1660 IF 1670 SPRITE 1680 CLEAR KEY 1690 CLEAR KEY 170 VARNAME 1700 IF 1710 IF 1720 IF 1730 IF 1740 IF 1750 IF 1760 IF 1770 IF 1780 IF 1790 REPEAT 180 VARNAME 1800 UNTIL 1810 VARNAME 1820 REM 1830 REM ----- test des cases adjacentes 1840 REM 1850 VARNAME 1860 IF 1870 IF 1880 IF 1890 IF 190 VARNAME 1900 IF 1910 IF 1920 IF 1930 IF 1940 IF 1950 SPRITE 1960 VARNAME 1970 REM 1980 REM ----- calcul score 1990 REM 20 REM - ISHIDO BY A.D.S. FROM THE MEGABUSTERS - 200 DIM 2000 IF 2010 IF 2020 IF 2030 IF 2040 IF 2050 IF 2060 IF 2070 IF 2080 GOTO 2090 REM 210 VARNAME 2100 REM ----- print time out and goto enter name 2110 REM 2120 FADE 2130 SPRITE 2140 FADE 2150 REM 2160 REM ----- print enter initiales and goto high score 2170 REM 2180 FADE 2190 IF 220 VARNAME 2200 SPRITE 2210 SCREEN COPY 2220 SCREEN COPY 2230 LOCATE 2240 VARNAME 2250 VARNAME 2260 VARNAME 2270 VARNAME 2280 ON 2290 VARNAME 230 REM 2300 VARNAME 2310 VARNAME 2320 REM 2330 REM ----- win level and go to the next round 2340 REM 2350 VARNAME 2360 VARNAME 2370 VARNAME 2380 SPRITE 2390 SPRITE 240 REM ----- CHARGEMENTS & INTRO 2400 PEN 2410 LOCATE 2420 LOCATE 2430 LOCATE 2440 ON 2450 VARNAME 2460 VARNAME 2470 VARNAME 2480 VARNAME 2490 LOCATE 250 REM 2500 LOCATE 2510 CLEAR KEY 2520 FADE 2530 REM 2540 REM ----- loose level and print lamer... 2550 REM 2560 FADE 2570 SPRITE 2580 REM 2590 REM ----- choose options... 260 DIR$ 2600 REM 2610 VARNAME 2620 IF 2630 IF 2640 IF 2650 IF 2660 IF 2670 CLEAR KEY 2680 IF 2690 IF 270 LOAD 2700 IF 2710 IF 2720 IF 2730 IF 2740 REM --- easy 2750 VARNAME 2760 REM --- medium 2770 VARNAME 2780 REM --- hard 2790 VARNAME 280 OPEN IN 2800 REM --- 1 player 2810 VARNAME 2820 REM --- 2 players 2830 VARNAME 2840 CLEAR KEY 2850 IF 2860 IF 2870 IF 2880 IF 2890 IF 290 FOR 2900 IF 30 REM ----- VERSION 0.1 ----- 300 VARNAME 310 VARNAME 320 VARNAME 330 VARNAME 340 VARNAME 350 VARNAME 360 VARNAME 370 VARNAME 380 REM 390 REM ----- INTRO 40 REM ---------------------------------------------------------------------- 400 REM 410 VARNAME 420 REM 430 REM ----- MENU 440 REM 450 DEF 460 FOR 470 SCREEN COPY 480 SCREEN COPY 490 DEF 50 REM 500 FOR 510 IF 520 VARNAME 530 VARNAME 540 VARNAME 550 ANIM 560 ANIM 570 SPRITE 580 CLEAR KEY 590 IF 60 REM 600 IF 610 IF 620 SPRITE 630 CLEAR KEY 640 IF 650 IF 660 IF 670 SPRITE 680 CLEAR KEY 690 IF 70 REM ----- INITIALISATIONS 700 IF 710 IF 720 SPRITE 730 CLEAR KEY 740 IF 750 IF 760 IF 770 SPRITE 780 CLEAR KEY 790 IF 80 REM 800 IF 810 IF 820 REM 830 REM ----- DEPACK BK IN BK-1 840 REM 850 LOAD 860 EXTENSION (Index #0) (Token 0x80) 870 REM 880 REM ----- AFFICHE BK IN SCREEN 890 REM 90 MODE 900 FADE 910 SCREEN COPY 920 FADE 930 REM 940 REM ----- THE HAPPY END 950 REM 960 VARNAME 970 VARNAME 980 IF 990 OPEN OUT