home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 3 / run-special-3.zip / MAZERUN.BAS < prev    next >
BASIC Source File  |  1989-11-24  |  2KB  |  49 lines
  1. 100 REM MAZERUNNER GWBASIC MONOCHROOM (C) Nico Baaijens
  2. 110 CLS:KEY OFF:LIJN$=STRING$(76,219):RANDOMIZE -TIMER
  3. 120 COLOR 7,0:LOCATE 2,1:PRINT STRING$(78,220)
  4. 130 FOR A=3 TO 23:LOCATE A,1:PRINT CHR$(222)
  5. 140 LOCATE A,78:PRINT CHR$(219);:NEXT A
  6. 150 LOCATE 24,3:PRINT STRING$(76,223);:W=250
  7. 160 FOR A=4 TO 22 STEP 2:LOCATE A,2:PRINT LIJN$;:NEXT A
  8. 170 LOCATE 2,76:PRINT STRING$(4,255);:LOCATE 23,78:PRINT CHR$(222);
  9. 180 FOR C=3 TO 22:FOR A=2 TO 76 STEP 3:B=INT(RND*(6))
  10. 190 IF B>1 THEN LOCATE C,A:PRINT CHR$(32)CHR$(32)CHR$(219)
  11. 200 NEXT A,C:LOCATE 3,75:PRINT CHR$(32)CHR$(32)
  12. 210 LOCATE 22,2:PRINT STRING$(2,32):LOCATE 23,1:PRINT CHR$(32)CHR$(32);
  13. 220 LOCATE 24,2:COLOR 31,0:PRINT CHR$(2);:LOCATE 24,2:COLOR 14,0
  14. 230 LOCATE 1,1:PRINT "Ziet u een weg naar het einddoel (j/n)?"
  15. 240 I$=INKEY$:IF I$<>"n" AND I$<>"j" THEN 240
  16. 250 IF I$="n" THEN LOCATE 1,1:PRINT "Ik wel want...";:GOTO 270
  17. 260 LOCATE 1,1:PRINT "Ik ook want...";
  18. 270 COLOR 14,0:LOCATE 1,16:PRINT "Mazerunner vindt";:COLOR 30,0
  19. 280 PRINT " ALTIJD ";:COLOR 14,0:PRINT "het einddoel!"
  20. 290 FOR A=1 TO 10000:NEXT A:LOCATE 24,2
  21. 300 WHILE POS(0) < 81
  22. 310 IF SCREEN(CSRLIN,POS(0)+1)=222 THEN BEEP:ST=1
  23. 320 IF SCREEN(CSRLIN-1,POS(0))=32 THEN GOSUB 520:GOSUB 440:GOTO 430
  24. 330 IF SCREEN(CSRLIN,POS(0)+1)=32 THEN GOSUB 520:GOSUB 460:GOTO 430
  25. 340 IF SCREEN(CSRLIN+1,POS(0))=32 THEN GOSUB 520:GOSUB 480:GOTO 430
  26. 350 IF SCREEN(CSRLIN,POS(0)-1)=32 THEN GOSUB 520:GOSUB 500:GOTO 430
  27. 360 IF SCREEN(CSRLIN+1,POS(0))=255 THEN 560
  28. 370 IF SCREEN(CSRLIN,POS(0)-1)=219 THEN GOSUB 440
  29. 380 IF SCREEN(CSRLIN,POS(0)-1)=220 THEN GOSUB 440
  30. 390 IF SCREEN(CSRLIN,POS(0)-1)<33 THEN LOCATE CSRLIN,POS(0)-1:PRINT CHR$(32);
  31. 400 IF SCREEN(CSRLIN-1,POS(0))<33 THEN LOCATE CSRLIN,POS(0)-1:PRINT CHR$(32);
  32. 410 IF SCREEN(CSRLIN+1,POS(0))<33 THEN LOCATE CSRLIN,POS(0)-1:PRINT CHR$(32);
  33. 420 IF SCREEN(CSRLIN,POS(0)+1)<33 THEN LOCATE CSRLIN,POS(0)-1:PRINT CHR$(32);
  34. 430 WEND
  35. 440 LOCATE CSRLIN-1,POS(0):PRINT CHR$(1);
  36. 450 LOCATE CSRLIN,POS(0)-1:RETURN
  37. 460 LOCATE CSRLIN,POS(0)+1:PRINT CHR$(1);
  38. 470 LOCATE CSRLIN,POS(0)-1:RETURN
  39. 480 LOCATE CSRLIN+1,POS(0):PRINT CHR$(1);
  40. 490 LOCATE CSRLIN,POS(0)-1:RETURN
  41. 500 LOCATE CSRLIN,POS(0)-1:PRINT CHR$(1);
  42. 510 LOCATE CSRLIN,POS(0)-1:RETURN
  43. 520 IF ST=1 THEN W=W-1
  44. 530 SOUND 1000,.1:FOR A=1 TO W:NEXT A
  45. 540 IF SCREEN(CSRLIN-1,POS(0))=255 THEN 550 ELSE RETURN
  46. 550 LOCATE 2,77:COLOR 31,0:PRINT CHR$(2);:COLOR 7,0
  47. 560 LOCATE 2,78:PRINT STRING$(2,2);:LOCATE 25,1:BEEP
  48. 570 WHILE INKEY$="":WEND:END
  49.