« previous next »
Pages: [1]   Go Down

Author Topic: ascii man - not perfect and needs more work (pacman) code free  (Read 2175 times)

0 Members and 1 Guest are viewing this topic.

Offline PMACKAY

  • Forum Regular
  • Posts: 188
  • LIFE is Temporary
ascii man - not perfect and needs more work (pacman) code free
« on: July 30, 2018, 09:07:02 am »
just a silly pacman in ascII characters. not complete but is able to play. needs more work but i got bored
if someone messes with this i would like to see it completed

there are still bugs. just read through the code for keys

dont care if no mention of me when compiled. this was just me being bored getting back into programing.

DOWNLOAD BASIC FILE OR THE LINUX.BIN FILE
----------------------------------------------------------------------------------------------------------------------------------------------
Code: QB64: [Select]
  1. DIM DSP$(32), GHOST%(4, 2)
  3. HIGHSCORE = 0
  4. GOSUB MAP
  5. GOTO TITLE
  6.  
  7. NEWGAME:
  8. SCORE = 0: GMO = 0: GOSUB FPS: LIVES = 3: TMR% = 0: DR% = 3: G1% = 1: G2% = 4: G3% = 4: G4% = 4: G5% = 32: G6% = 32: G7% = 32: G8% = 32: GH1% = 0
  9. FOR I = 0 TO 15: PALETTE I, I: NEXT I
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. MAINBRANCH: LOCATE PACY%, PACX%: PRINT " ";: B% = DR%: XK% = _KEYHIT: IF XK% = 18432 THEN DR% = 1 ELSE IF XK% = 20480 THEN DR% = 2 ELSE IF XK% = 19200 THEN DR% = 3 ELSE IF XK% = 19712 THEN DR% = 4 ELSE IF XK% = 27 THEN END
  17. IF DR% = 1 THEN GOSUB CHECK1 ELSE IF DR% = 2 THEN GOSUB CHECK2 ELSE IF DR% = 3 THEN GOSUB CHECK3 ELSE IF DR% = 4 THEN GOSUB CHECK4
  18. TMR% = TMR% + 1: IF TMR% > 200 THEN GOSUB CHECK5
  19. IF GMO = 0 AND TMR% = 100 THEN GOSUB allghostmove
  20. TMR1% = TMR1% + 1: IF TMR1% = 150 THEN PALETTE 4, 4: SPECIAL% = 0: TMR1% = 0
  21. LOCATE PACY%, PACX%: COLOR 15: PRINT "";: LOCATE 32, 1: PRINT "LIVES ="; LIVES; "  SCORE ="; SCORE;: _DELAY .07: _DISPLAY
  23. GOSUB GHOST1: _DISPLAY: IF SPECIAL% = 1 THEN PALETTE 4, 3: _DISPLAY
  24. IF TMR% = 100 THEN GOSUB MOVEOUT
  25. IF DOT = 0 THEN GOTO NEWLEVEL
  26. GOTO MAINBRANCH
  27.  
  28.  
  29.  
  30. MOVEOUT:
  31. IF GH1% = 1 THEN GHOST%(1, 1) = 12: GHOST%(1, 2) = 12: GH1% = 0: GOTO GH ELSE IF GH2% = 1 THEN GHOST%(2, 1) = 12: GHOST%(2, 2) = 13: GH2% = 0: GOTO GH ELSE IF GH3% = 1 THEN GHOST%(3, 1) = 12: GHOST%(3, 2) = 14: GH3% = 0: GOTO GH ELSE IF GH4% = 1 THEN GHOST%(4, 1) = 12: GHOST%(4, 2) = 15: GH4% = 0: GOTO GH
  32. GH:
  33. LOCATE 14, 12: PRINT "      ";: LOCATE 15, 12: PRINT "      ";: LOCATE 16, 12: PRINT "      ";: RETURN
  34. allghostmove: LOCATE GHOST%(1, 1), GHOST%(1, 2): PRINT " ";: LOCATE GHOST%(2, 1), GHOST%(2, 2): PRINT " ";: LOCATE GHOST%(3, 1), GHOST%(3, 2): PRINT " ";: LOCATE GHOST%(4, 1), GHOST%(4, 2): PRINT " ";: FOR I% = 1 TO 4: GHOST%(I%, 1) = 12: NEXT I%: COLOR 10: LOCATE GHOST%(1, 1), GHOST%(1, 2): PRINT "";: COLOR 12: LOCATE GHOST%(2, 1), GHOST%(2, 2): PRINT "";: COLOR 13: LOCATE GHOST%(3, 1), GHOST%(3, 2): PRINT "";: COLOR 9: LOCATE GHOST%(4, 1), GHOST%(4, 2): PRINT "";: LOCATE PACY%, PACX%: COLOR 15: PRINT "";: _DISPLAY: GMO = 1: RETURN
  35. GHOST1: LOCATE GHOST%(1, 1), GHOST%(1, 2): IF G5% = 233 THEN COLOR 31: PRINT CHR$(G5%);: ELSE COLOR 14: PRINT CHR$(G5%);: GX% = GHOST%(1, 1): GY% = GHOST%(1, 2)
  36. IF RND(1) < .1 THEN G1% = INT(RND(1) * 4) + 1: GOTO SKP ELSE IF GY% < 1 THEN G1% = 4: GOTO SKP ELSE IF GY% > 28 THEN G1% = 3: GOTO SKP
  38.     CASE 1
  39.         T% = SCREEN(GX% - 1, GY%)
  40.         IF T% = 2 AND SPECIAL% = 0 THEN END
  41.         IF T% = 32 THEN GX% = GX% - 1: G5% = T%: GOTO SKP
  42.         IF T% = 249 THEN GX% = GX% - 1: G5% = T%: GOTO SKP
  43.         IF T% = 233 THEN GX% = GX% - 1: G5% = T%: GOTO SKP
  44.         G1% = INT(RND(1) * 4) + 1
  45.     CASE 2
  46.         T% = SCREEN(GX% + 1, GY%)
  47.         IF T% = 2 AND SPECIAL% = 0 THEN END
  48.         IF T% = 32 THEN GX% = GX% + 1: G5% = T%: GOTO SKP
  49.         IF T% = 249 THEN GX% = GX% + 1: G5% = T%: GOTO SKP
  50.         IF T% = 233 THEN GX% = GX% + 1: G5% = T%: GOTO SKP
  51.         G1% = INT(RND(1) * 4) + 1
  52.     CASE 3
  53.         T% = SCREEN(GX%, GY% - 1)
  54.         IF T% = 2 AND SPECIAL% = 0 THEN END
  55.         IF T% = 32 THEN GY% = GY% - 1: G5% = T%: GOTO SKP
  56.         IF T% = 249 THEN GY% = GY% - 1: G5% = T%: GOTO SKP
  57.         G1% = INT(RND(1) * 4) + 1
  58.     CASE 4
  59.         T% = SCREEN(GX%, GY% + 1)
  60.         IF T% = 2 AND SPECIAL% = 0 THEN END
  61.         IF T% = 32 THEN GY% = GY% + 1: G5% = T%: GOTO SKP
  62.         IF T% = 249 THEN GY% = GY% + 1: G5% = T%: GOTO SKP
  63.         G1% = INT(RND(1) * 4) + 1
  64.         SKP:
  66. GHOST%(1, 1) = GX%: GHOST%(1, 2) = GY%: COLOR 10: LOCATE GHOST%(1, 1), GHOST%(1, 2): PRINT "";
  67.  
  68. LOCATE GHOST%(2, 1), GHOST%(2, 2): IF G6% = 233 THEN COLOR 31: PRINT CHR$(G6%);: ELSE COLOR 14: PRINT CHR$(G6%);
  69. GX% = GHOST%(2, 1): GY% = GHOST%(2, 2)
  70. IF RND(1) < .2 THEN G2% = INT(RND(1) * 4) + 1: GOTO SKP1
  71. IF GY% < 1 THEN G2% = 4: GOTO SKP1
  72. IF GY% > 28 THEN G2% = 3: GOTO SKP1
  74.     CASE 1
  75.         T% = SCREEN(GX% - 1, GY%)
  76.         IF T% = 2 AND SPECIAL% = 0 THEN END
  77.         IF T% = 32 THEN GX% = GX% - 1: G6% = T%: GOTO SKP1
  78.         IF T% = 249 THEN GX% = GX% - 1: G6% = T%: GOTO SKP1
  79.         IF T% = 233 THEN GX% = GX% - 1: G6% = T%: GOTO SKP1
  80.         G2% = INT(RND(1) * 4) + 1
  81.     CASE 2
  82.         T% = SCREEN(GX% + 1, GY%)
  83.         IF T% = 2 AND SPECIAL% = 0 THEN END
  84.         IF T% = 32 THEN GX% = GX% + 1: G6% = T%: GOTO SKP1
  85.         IF T% = 249 THEN GX% = GX% + 1: G6% = T%: GOTO SKP1
  86.         IF T% = 233 THEN GX% = GX% + 1: G6% = T%: GOTO SKP1
  87.         G2% = INT(RND(1) * 4) + 1
  88.     CASE 3
  89.         T% = SCREEN(GX%, GY% - 1)
  90.         IF T% = 2 AND SPECIAL% = 0 THEN END
  91.         IF T% = 32 THEN GY% = GY% - 1: G6% = T%: GOTO SKP1
  92.         IF T% = 249 THEN GY% = GY% - 1: G6% = T%: GOTO SKP1
  93.         G2% = INT(RND(1) * 4) + 1
  94.     CASE 4
  95.         T% = SCREEN(GX%, GY% + 1)
  96.         IF T% = 2 AND SPECIAL% = 0 THEN END
  97.         IF T% = 32 THEN GY% = GY% + 1: G6% = T%: GOTO SKP1
  98.         IF T% = 249 THEN GY% = GY% + 1: G6% = T%: GOTO SKP1
  99.         G2% = INT(RND(1) * 4) + 1
  100.         SKP1:
  102. GHOST%(2, 1) = GX%: GHOST%(2, 2) = GY%: COLOR 11: LOCATE GHOST%(2, 1), GHOST%(2, 2): PRINT "";
  103.  
  104. LOCATE GHOST%(3, 1), GHOST%(3, 2): IF G7% = 233 THEN COLOR 31: PRINT CHR$(G7%);: ELSE COLOR 14: PRINT CHR$(G7%);
  105. GX% = GHOST%(3, 1): GY% = GHOST%(3, 2)
  106. IF RND(1) < .3 THEN G3% = INT(RND(1) * 4) + 1: GOTO SKP2
  107. IF GY% < 1 THEN G3% = 4: GOTO SKP2
  108. IF GY% > 28 THEN G3% = 3: GOTO SKP2
  110.     CASE 1
  111.         T% = SCREEN(GX% - 1, GY%)
  112.         IF T% = 2 AND SPECIAL% = 0 THEN END
  113.         IF T% = 32 THEN GX% = GX% - 1: G7% = T%: GOTO SKP2
  114.         IF T% = 249 THEN GX% = GX% - 1: G7% = T%: GOTO SKP2
  115.         IF T% = 233 THEN GX% = GX% - 1: G7% = T%: GOTO SKP2
  116.         G3% = INT(RND(1) * 4) + 1
  117.     CASE 2
  118.         T% = SCREEN(GX% + 1, GY%)
  119.         IF T% = 2 AND SPECIAL% = 0 THEN END
  120.         IF T% = 32 THEN GX% = GX% + 1: G7% = T%: GOTO SKP2
  121.         IF T% = 249 THEN GX% = GX% + 1: G7% = T%: GOTO SKP2
  122.         IF T% = 233 THEN GX% = GX% + 1: G7% = T%: GOTO SKP2
  123.         G3% = INT(RND(1) * 4) + 1
  124.     CASE 3
  125.         T% = SCREEN(GX%, GY% - 1)
  126.         IF T% = 2 AND SPECIAL% = 0 THEN END
  127.         IF T% = 32 THEN GY% = GY% - 1: G7% = T%: GOTO SKP2
  128.         IF T% = 249 THEN GY% = GY% - 1: G7% = T%: GOTO SKP2
  129.         G3% = INT(RND(1) * 4) + 1
  130.     CASE 4
  131.         T% = SCREEN(GX%, GY% + 1)
  132.         IF T% = 2 AND SPECIAL% = 0 THEN END
  133.         IF T% = 32 THEN GY% = GY% + 1: G7% = T%: GOTO SKP2
  134.         IF T% = 249 THEN GY% = GY% + 1: G7% = T%: GOTO SKP2
  135.         G3% = INT(RND(1) * 4) + 1
  136.         SKP2:
  138. GHOST%(3, 1) = GX%: GHOST%(3, 2) = GY%: COLOR 12: LOCATE GHOST%(3, 1), GHOST%(3, 2): PRINT "";
  139.  
  140. LOCATE GHOST%(4, 1), GHOST%(4, 2): IF G8% = 233 THEN COLOR 31: PRINT CHR$(G8%);: ELSE COLOR 14: PRINT CHR$(G8%);
  141. GX% = GHOST%(4, 1): GY% = GHOST%(4, 2)
  142. IF RND(1) < .4 THEN G4% = INT(RND(1) * 4) + 1: GOTO SKP3
  143. IF GY% < 1 THEN G4% = 4: GOTO SKP3
  144. IF GY% > 28 THEN G4% = 3: GOTO SKP3
  146.     CASE 1
  147.         T% = SCREEN(GX% - 1, GY%)
  148.         IF T% = 2 AND SPECIAL% = 0 THEN END
  149.         IF T% = 32 THEN GX% = GX% - 1: G8% = T%: GOTO SKP3
  150.         IF T% = 249 THEN GX% = GX% - 1: G8% = T%: GOTO SKP3
  151.         IF T% = 233 THEN GX% = GX% - 1: G8% = T%: GOTO SKP3
  152.         G4% = INT(RND(1) * 4) + 1
  153.     CASE 2
  154.         T% = SCREEN(GX% + 1, GY%)
  155.         IF T% = 2 AND SPECIAL% = 0 THEN END
  156.         IF T% = 32 THEN GX% = GX% + 1: G8% = T%: GOTO SKP3
  157.         IF T% = 249 THEN GX% = GX% + 1: G8% = T%: GOTO SKP3
  158.         IF T% = 233 THEN GX% = GX% + 1: G8% = T%: GOTO SKP3
  159.         G4% = INT(RND(1) * 4) + 1
  160.     CASE 3
  161.         T% = SCREEN(GX%, GY% - 1)
  162.         IF T% = 2 AND SPECIAL% = 0 THEN END
  163.         IF T% = 32 THEN GY% = GY% - 1: G8% = T%: GOTO SKP3
  164.         IF T% = 249 THEN GY% = GY% - 1: G8% = T%: GOTO SKP3
  165.         G4% = INT(RND(1) * 4) + 1
  166.     CASE 4
  167.         T% = SCREEN(GX%, GY% + 1)
  168.         IF T% = 2 AND SPECIAL% = 0 THEN END
  169.         IF T% = 32 THEN GY% = GY% + 1: G8% = T%: GOTO SKP3
  170.         IF T% = 249 THEN GY% = GY% + 1: G8% = T%: GOTO SKP3
  171.         G4% = INT(RND(1) * 4) + 1
  172.         SKP3:
  174. GHOST%(4, 1) = GX%: GHOST%(4, 2) = GY%: COLOR 9: LOCATE GHOST%(4, 1), GHOST%(4, 2): PRINT "";
  176.  
  177.  
  178. EATGHOST:
  179. IF PACY% = GHOST%(1, 1) AND PACX% = GHOST%(1, 2) THEN SCORE = SCORE + 300: LOCATE GHOST%(1, 1), GHOST%(1, 2): COLOR 14: PRINT CHR$(G5%);: GHOST%(1, 1) = 15: GHOST%(1, 2) = 13: GH1% = 1: IF G5% <> 32 THEN DOT = DOT - 1: G5% = 32
  180. IF PACY% = GHOST%(2, 1) AND PACX% = GHOST%(2, 2) THEN SCORE = SCORE + 300: LOCATE GHOST%(2, 1), GHOST%(2, 2): COLOR 14: PRINT CHR$(G6%);: GHOST%(2, 1) = 15: GHOST%(2, 2) = 13: GH2% = 1: IF G6% <> 32 THEN DOT = DOT - 1: G6% = 32
  181. IF PACY% = GHOST%(3, 1) AND PACX% = GHOST%(3, 2) THEN SCORE = SCORE + 300: LOCATE GHOST%(3, 1), GHOST%(3, 2): COLOR 14: PRINT CHR$(G7%);: GHOST%(3, 1) = 15: GHOST%(3, 2) = 13: GH3% = 1: IF G7% <> 32 THEN DOT = DOT - 1: G7% = 32
  182. IF PACY% = GHOST%(4, 1) AND PACX% = GHOST%(4, 2) THEN SCORE = SCORE + 300: LOCATE GHOST%(4, 1), GHOST%(4, 2): COLOR 14: PRINT CHR$(G8%);: GHOST%(4, 1) = 15: GHOST%(4, 2) = 13: GH4% = 1: IF G8% <> 32 THEN DOT = DOT - 1: G8% = 32
  184. CHECK1:
  185. T% = SCREEN(PACY% - 1, PACX%)
  186. IF T% = 32 THEN PACY% = PACY% - 1: RETURN
  187. IF T% = 249 THEN DOT = DOT - 1: PACY% = PACY% - 1: SCORE = SCORE + 1: PLAY "MBT128L64O3G": RETURN
  188. IF T% = 233 THEN PACY% = PACY% - 1: SCORE = SCORE + 75: SPECIAL% = 1: TMR1% = 0: RETURN
  189. IF T% = 1 AND SPECIAL% = 1 THEN PACY% = PACY% - 1: GOSUB EATGHOST: RETURN
  190. IF T% = 1 AND SPECIAL% = 0 THEN PACY% = PACY% - 1: END
  192. CHECK2:
  193. T% = SCREEN(PACY% + 1, PACX%)
  194. IF T% = 32 THEN PACY% = PACY% + 1: RETURN
  195. IF T% = 249 THEN DOT = DOT - 1: PACY% = PACY% + 1: SCORE = SCORE + 1: PLAY "MBT128L64O3G"
  196. IF T% = 233 THEN PACY% = PACY% + 1: SCORE = SCORE + 75: SPECIAL% = 1: TMR1% = 0
  197. IF T% = 1 AND SPECIAL% = 1 THEN PACY% = PACY% + 1: GOSUB EATGHOST
  198. IF T% = 1 AND SPECIAL% = 0 THEN PACY% = PACY% - 1: END
  200. CHECK3:
  201. IF PACX% < 2 THEN PACX% = 28
  202. T% = SCREEN(PACY%, PACX% - 1)
  203. IF T% = 255 THEN PACX% = PACX% - 1
  204. IF T% = 32 THEN PACX% = PACX% - 1
  205. IF T% = 249 THEN DOT = DOT - 1: PACX% = PACX% - 1: SCORE = SCORE + 1:: PLAY "MBT128L64O3G"
  206. IF T% = 233 THEN PACX% = PACX% - 1: SCORE = SCORE + 75: SPECIAL% = 1: TMR1% = 0
  207. IF T% = 4 THEN PACX% = PACX% - 1: SCORE = SCORE + 175: PALETTE 4, 1: COLOR 15: LOCATE ITEMY%, ITEMX% - 1: PRINT "BONUS": _DISPLAY: _DELAY 1: LOCATE ITEMY%, ITEMX% - 1: PRINT "     ";: TMR% = 0: PALETTE 4, 4
  208. IF T% = 1 AND SPECIAL% = 1 THEN PACX% = PACX% - 1: GOSUB EATGHOST
  209. IF T% = 1 AND SPECIAL% = 0 THEN PACY% = PACY% - 1: END
  211. CHECK4:
  212. IF PACX% > 27 THEN PACX% = 0
  213. T% = SCREEN(PACY%, PACX% + 1)
  214. IF T% = 255 THEN PACX% = PACX% + 1
  215. IF T% = 32 THEN PACX% = PACX% + 1: RETURN
  216. IF T% = 249 THEN DOT = DOT - 1: PACX% = PACX% + 1: SCORE = SCORE + 1: PLAY "MBT128L64O3G": RETURN
  217. IF T% = 233 THEN PACX% = PACX% + 1: SCORE = SCORE + 75: SPECIAL% = 1: TMR1% = 0: RETURN
  218. IF T% = 4 THEN PACX% = PACX% + 1: SCORE = SCORE + 175: PALETTE 4, 1: COLOR 15: LOCATE ITEMY%, ITEMX% - 1: PRINT "BONUS": _DISPLAY: _DELAY 1: LOCATE ITEMY%, ITEMX% - 1: PRINT "     ";: TMR% = 0: PALETTE 4, 4: RETURN
  219. IF T% = 1 AND SPECIAL% = 1 THEN PACX% = PACX% + 1: GOSUB EATGHOST: RETURN
  220. IF T% = 1 AND SPECIAL% = 0 THEN PACY% = PACY% - 1: END
  222. CHECK5: LOCATE ITEMY%, ITEMX%: COLOR 15: PRINT "";: IF TMR% > 300 THEN TMR% = 0: LOCATE ITEMY%, ITEMX%: PRINT " ";
  224. NEWLEVEL: COLOR 1: LOCATE ITEMY%, ITEMX% - 4: PRINT "GOOD  WORK": LOCATE ITEMY% - 6, ITEMX% - 4: PRINT "NEXT LEVEL": FOR I% = 1 TO 6: PALETTE 4, 15: PALETTE 1, 15: _DISPLAY: _DELAY 0.3: PALETTE 4, 4: PALETTE 1, 1: _DISPLAY: _DELAY 0.3: NEXT I%: LEVEL = LEVEL + 1: GOSUB FPS: DR% = INT(RND(1) * 4): GMO = 0: TMR% = 0: G1% = 3: G2% = 3: G3% = 4: G4% = 4: TMR1% = 0: GOTO MAINBRANCH
  225. REM *** INITIAL DISPLAY / START AND FIRST TIME RUN OF SCREEN ***
  226. FPS: CLS: FOR I% = 1 TO 31: A$ = DSP$(I%): FOR j% = 1 TO 28: b$ = MID$(A$, j%, 1): COLOR 4
  227.         IF b$ = "d" THEN COLOR 11: b$ = "=": DOORX% = j% - 1: DOORY% = I%
  228.         IF b$ = "O" THEN COLOR 31: b$ = "é"
  229.         IF b$ = "." THEN COLOR 14: b$ = "ù": DOT = DOT + 1
  230.         IF b$ = "1" THEN COLOR 10: b$ = "": GHOST%(1, 1) = I%: GHOST%(1, 2) = j%
  231.         IF b$ = "2" THEN COLOR 12: b$ = "": GHOST%(2, 1) = I%: GHOST%(2, 2) = j%
  232.         IF b$ = "3" THEN COLOR 13: b$ = "": GHOST%(3, 1) = I%: GHOST%(3, 2) = j%
  233.         IF b$ = "4" THEN COLOR 9: b$ = "": GHOST%(4, 1) = I%: GHOST%(4, 2) = j%
  234.         IF b$ = "5" THEN COLOR 15: b$ = "": PACX% = j%: PACY% = I%
  235.         IF b$ = "6" THEN ITEMX% = j%: ITEMY% = I%: b$ = " "
  236.         IF b$ = "8" THEN b$ = "ÿ"
  237. LOCATE I%, j%: PRINT b$;: NEXT j%: NEXT I%: RETURN
  238. REM *** DATA FOR DISPLAY / READ ONCE ONLY INTO DSP$() ****************************************************************************************************************************************
  239. MAP: FOR I% = 1 TO 31: READ DSP$(I%): NEXT I%: RETURN
  240. DATA "ÉÍÍÍÍÍÍÍÍÍÍÍÍ»ÉÍÍÍÍÍÍÍÍÍÍÍÍ»","º............ºº............º","º.ÚÄÄ¿.ÚÄÄÄ¿.ºº.ÚÄÄÄ¿.ÚÄÄ¿.º","ºO³  ³.³   ³.ºº.³   ³.³  ³Oº","º.ÀÄÄÙ.ÀÄÄÄÙ.ÈŒ.ÀÄÄÄÙ.ÀÄÄÙ.º","º..........................º"
  241. DATA "º.ÚÄÄ¿.Ú¿.ÚÄÄÄÄÄÄ¿.Ú¿.ÚÄÄ¿.º","º.ÀÄÄÙ.³³.ÀÄÄ¿ÚÄÄÙ.³³.ÀÄÄÙ.º","º......³³....³³....³³......º","ÈÍÍÍÍ».³ÀÄÄ¿ ³³ ÚÄÄÙ³.ÉÍÍÍÍŒ","     º.³ÚÄÄÙ ÀÙ ÀÄÄ¿³.º     ","     º.³³     5    ³³.º     "
  242. DATA "     º.³³ ÉÍÍddÍÍ» ³³.º     ","ÍÍÍÍÍŒ.ÀÙ º      º ÀÙ.ÈÍÍÍÍÍ","888888.   º 1234 º   .888888","ÍÍÍÍÍ».Ú¿ º      º Ú¿.ÉÍÍÍÍÍ","     º.³³ ÈÍÍÍÍÍÍŒ ³³.º     ","     º.³³    6     ³³.º     "
  243. DATA "     º.³³ ÚÄÄÄÄÄÄ¿ ³³.º     ","ÉÍÍÍÍŒ.ÀÙ ÀÄÄ¿ÚÄÄÙ ÀÙ.ÈÍÍÍÍ»","º............³³............º","º.ÚÄÄ¿.ÚÄÄÄ¿.³³.ÚÄÄÄ¿.ÚÄÄ¿.º","º.ÀÄ¿³.ÀÄÄÄÙ.ÀÙ.ÀÄÄÄÙ.³ÚÄÙ.º","ºO..³³.......  .......³³..Oº"
  244. DATA "ÈÍ».³³.Ú¿.ÚÄÄÄÄÄÄ¿.Ú¿.³³.ÉÍŒ","ÉÍŒ.ÀÙ.³³.ÀÄÄ¿ÚÄÄÙ.³³.ÀÙ.ÈÍ»","º......³³....³³....³³......º","º.ÚÄÄÄÄÙÀÄÄ¿.³³.ÚÄÄÙÀÄÄÄÄ¿.º","º.ÀÄÄÄÄÄÄÄÄÙ.ÀÙ.ÀÄÄÄÄÄÄÄÄÙ.º","º..........................º"
  245. DATA "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍŒ"
  246. REM ******************************************************************************************************************************************************************************************
  247. TITLE: WIDTH 28, 32: CLS: FOR I = 1 TO 4: PALETTE I, 0: NEXT I: C = 1: FOR I = 1 TO 28: LOCATE 1 + 2, I: COLOR C: PRINT "þ";: C = C + 1: IF C > 4 THEN C = 1
  248.     NEXT I: FOR I = 2 TO 28: LOCATE I + 2, 28: COLOR C: PRINT "þ";: C = C + 1: IF C > 4 THEN C = 1
  249.     NEXT I: FOR I = 27 TO 1 STEP -1: LOCATE 28 + 2, I: COLOR C: PRINT "þ";: C = C + 1: IF C > 4 THEN C = 1
  250.     NEXT I: FOR I = 27 TO 1 STEP -1: LOCATE I + 2, 1: COLOR C: PRINT "þ";: C = C + 1: IF C > 4 THEN C = 1
  251. NEXT I: COLOR 5: LOCATE 5, 3: PRINT "  Û   ÜÜÜÜ Ûßßßß ÜÜÜ ßÛß": LOCATE 24, 5: PRINT "ÛÝ  ÛÝ    Û   ÞÛ   ÞÝ": COLOR 6: LOCATE 6, 3: PRINT " Û Û  Û  ß Û      Û   Û": LOCATE 25, 5: PRINT "ÛÞÝÛ Û   Û Û  ÞÝÛ  ÞÝ": COLOR 7: LOCATE 7, 3: PRINT "ÛÜÜÜÛ ÛÜÜÜ Û      Û   Û": LOCATE 26, 5: PRINT "Û ÞÝ Û  ÛÜÜÜÛ ÞÝ Û ÞÝ": COLOR 8: LOCATE 8, 3: PRINT "Û   Û    Û ÛÜÜÜÜ  Û  ÜÛÜ": LOCATE 27, 5: PRINT "Û    Û  Û   Û ÞÝ  ÛÞÝ": COLOR 9: LOCATE 9, 3: PRINT "ß   Û ÛÜÜÛ       ÜÛÜ": LOCATE 28, 5: PRINT "Û    ÞÝ ß   Û ÞÛ   ÛÝ"
  252. FOR I = 5 TO 9: PALETTE I, 4: NEXT I: _DISPLAY: COLOR 12: LOCATE 12, 6: PRINT "(H) = HIGH SCORES": LOCATE 14, 4: PRINT "(N) = START NEW GAME": COLOR 13: LOCATE 16, 3: PRINT "USE CURSOR KEYS TO  MOVE": LOCATE 17, 3: PRINT "PRESS ALT+ENTER TOSWITCH": LOCATE 18, 8: PRINT "TO FULL SCREEN": COLOR 12: LOCATE 20, 4: PRINT "WRITTEN BY pAUL mACKAY": DO: FOR I = 1 TO 4: I$ = INKEY$: IF I$ = "H" THEN END ELSE IF I$ = "N" THEN GOTO NEWGAME ELSE IF I$ = "Q" THEN END
  253.         ON I GOSUB PA1, PA2, PA3, PA4: IF I = 4 THEN GOSUB PA5
  255. PA1: PALETTE 1, 12: PALETTE 2, 15: PALETTE 3, 15: PALETTE 4, 15: RETURN
  256. PA2: PALETTE 1, 15: PALETTE 2, 12: PALETTE 3, 15: PALETTE 4, 15: RETURN
  257. PA3: PALETTE 1, 15: PALETTE 2, 15: PALETTE 3, 12: PALETTE 4, 15: RETURN
  258. PA4: PALETTE 1, 15: PALETTE 2, 15: PALETTE 3, 15: PALETTE 4, 12: RETURN
  259. PA5: FOR IJ = 5 TO 9: PALETTE IJ, INT(RND(1) * 7) + 5: _DISPLAY: NEXT IJ: RETURN
  260.  
« Last Edit: July 30, 2018, 09:47:28 am by odin »
Logged
MackyWhite
Pages: [1]   Go Up
« previous next »