plirof2

Basic ZX CSSCGC 22 - Put The C V002 -SEND ok

May 15th, 2022 (edited)
1,537
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 1 REM CRAP CSSCGC 22 - PUT THE C -TODO :1.STAGES ,2.CLEAR PREVIOUS CHAR ,
  2. 10 GO SUB 8000: GO SUB 9000: GO SUB 1000
  3. 15 CLS : GO SUB 5000+curlev*100
  4. 18 PRINT AT 5,3; INK tink; PAPER tpaper;t$: BORDER tborder
  5. 20 LET x=INT (RND*10)
  6. 30 LET y=INT (RND*10)
  7. 40 LET b$=INKEY$
  8. 45 LET xprev=x: LET yprev=y
  9. 50 IF b$="d" AND x<26 THEN LET x=x+1
  10. 60 IF b$="a" AND x>1 THEN LET x=x-1
  11. 70 IF b$="w" AND y>1 THEN LET y=y-1
  12. 80 IF b$="s" AND y<20 THEN LET y=y+1
  13. 90 PRINT AT y,x;CHR$ 146: PRINT AT yprev,xprev;" ": REM CHR$ 157 ,"\\c"
  14. 95 PRINT AT 20,1;x,y
  15. 100 IF x=xwin AND y=ywin THEN PRINT "HELLO": GO TO subnextlev
  16. 200 GO TO 40
  17. 1000 FOR c=0 TO 7
  18. 1010 READ n
  19. 1020 POKE USR ("c")+C,n
  20. 1030 NEXT c
  21. 1040 DATA BIN 00111100
  22. 1050 DATA BIN 01111110
  23. 1060 DATA BIN 01100000
  24. 1070 DATA BIN 01100000
  25. 1080 DATA BIN 01100000
  26. 1090 DATA BIN 01100000
  27. 1100 DATA BIN 01111110
  28. 1110 DATA BIN 00111100
  29. 1120 RETURN
  30. 5000 REM STAGES
  31. 5100 REM STAGE 1
  32. 5110 PRINT AT 0,1;"PUT THE C IN THE 'COMPETITION'"
  33. 5120 LET tink=2: LET tpaper=5: LET tborder=6
  34. 5130 LET ywin=5: LET xwin=18
  35. 5199 RETURN
  36. 5200 REM STAGE 2
  37. 5210 PRINT AT 1,10;"PUT THE C 'CSS'"
  38. 5220 LET tink=2: LET tpaper=5: LET tborder=6
  39. 5230 LET ywin=5: LET xwin=3
  40. 5299 RETURN
  41. 5300 REM STAGE 3
  42. 5310 PRINT AT 1,10;"PUT THE C IN THE 'G'"
  43. 5320 LET tink=2: LET tpaper=5: LET tborder=6
  44. 5330 LET ywin=5: LET xwin=12
  45. 5399 RETURN
  46. 5400 REM STAGE 4
  47. 5410 PRINT AT 1,10;"PUT THE C IN CRAP!!!!"
  48. 5420 LET tink=2: LET tpaper=5: LET tborder=6
  49. 5430 LET ywin=5: LET xwin=7
  50. 5499 RETURN
  51. 6000 REM init stage
  52. 7000 REM next level
  53. 7010 LET curlev=curlev+1
  54. 7030 CLS : FOR I=1 TO 10: PRINT INK RND*7; PAPER RND*7;"YOU WON!!!!": BORDER RND*7: NEXT I
  55. 7500 GO TO 15
  56. 8000 REM INTRO
  57. 8010 CLS : PAPER 5: INK 1: BORDER 0:
  58. 8020 PRINT "Welcome to "''; INK 0; FLASH 1;"--Put the 'C' in the CRAP--"; INK 2; FLASH 0;''
  59. 8030 PRINT "By Firelord Quality Games (c)"
  60. 8040 PRINT : PRINT "Instructions : ": PRINT "In This game you must put "'"the 'C' in the place you're told! "
  61. 8050 PRINT : PRINT "Keys : W,A,S,D "'" (better than q,w,e,r,t)": PRINT : PRINT FLASH 1;"Thank you for reading the       instructions!"'"Share and Enjoy!"; FLASH 0
  62. 8400 PRINT "PRESS ANy KEY": PAUSE 0
  63. 8500 RETURN
  64. 9000 REM INIT VARIABLES
  65. 9005 RANDOMIZE : CLS
  66. 9010 LET t$="CSS CRAP GAMES COMPETITION"
  67. 9020 LET tink=2: LET tpaper=5: LET tborder=6
  68. 9030 LET curlev=1: LET subnextlev=7000
  69. 9900 RETURN
  70.  
RAW Paste Data Copied