SHARE
TWEET

IchigoBoy _Shooting Game by PCN Ueda

masaakiNakamura Aug 4th, 2018 199 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 '*SHOOTING mobile
  2. 15 SWITCH1
  3. 16 out2,-1:out3,-1:out5,-1
  4. 20 CLS:CLV
  5. 30 LOCATE 0,0
  6. 40 PRINT S
  7. 50 X=7:Y=7
  8. 60 LOCATE X,Y
  9. 70 PRINT "A";
  10. 72 U=RND(15):V=0
  11. 74 LOCATE U,V
  12. 76 PRINT CHR$(241);
  13. 80 '*GAMELOOP
  14. 90 LOCATE X,Y
  15. 100 PRINT " ";
  16. 110 IF IN(7) AND X>0 THEN X=X-1
  17. 120 IF IN(6) AND X<14 THEN X=X+1
  18. 130 LOCATE X,Y
  19. 140 PRINT "A";
  20. 142 IF IN(10) GOSUB 240
  21. 145 GOSUB 160
  22. 148 WAIT 10
  23. 150 IF V<7 THEN GOTO 80
  24. 152 BEEP 30,30
  25. 153 LOCATE 0,0:PRINT S
  26. 154 LOCATE 3,3
  27. 156 PRINT "GAME OVER!"
  28. 158 END
  29. 160 '*UFO
  30. 170 LOCATE U,V
  31. 180 PRINT " ";
  32. 190 U=U+RND(3)-1
  33. 192 IF U<0 THEN U=0
  34. 194 IF U>14 THEN U=14
  35. 200 V=V+RND(3)-1
  36. 202 IF V<0 THEN V=0
  37. 204 IF V>7 THEN V=7
  38. 210 LOCATE U,V
  39. 220 PRINT CHR$(241);
  40. 230 RETURN
  41. 240 '*BEAM
  42. 250 B=X
  43. 260 FOR C=Y-1 TO V STEP -1
  44. 270 LOCATE B,C
  45. 280 PRINT "|";
  46. 285 WAIT 2
  47. 290 LOCATE B,C
  48. 300 PRINT " ";
  49. 310 NEXT
  50. 320 IF B<>U THEN RETURN
  51. 330 '*HIT
  52. 340 BEEP
  53. 350 LOCATE U,V
  54. 360 PRINT "*";
  55. 362 S=S+10
  56. 364 LOCATE 0,0
  57. 366 PRINT S
  58. 370 WAIT 20
  59. 380 LOCATE U,V
  60. 390 PRINT " ";
  61. 395 U=RND(15):V=0
  62. 400 RETURN
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top