API tools faq
paste
Advertisement
Armakuni

simple kung fury basic game

Armakuni
Sep 1st, 2021 (edited)
3,414
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Basic4GL 8.12 KB | None | 0 0
raw download clone embed print report
  1. 10poke53281,11:poke53280,11:gosub830
  2. 30 print "{home}{yellow}"spc(10)"kung fury - press space"
  3. 50 geta$:ifa$<>" "then50
  4. 70 print"{clear}":gosub290
  5. 90 x=100:y=100:b=-1:s=0
  6. 110 j=peek(56320):b=notb:rem joystick in j, b is a flag to slow down scrolling, see later
  7. 130 if (j=123)then x=x-6
  8. 150 if (j=119) then x=x+6
  9. 170 if x>255thenx=255
  10. 190 ifx<21thenx=21
  11. 210 pokevic,x:rem move sprite
  12. 230 if b then poke 1024+(40*22)+30*rnd(2),81:rem if flag on then print a ball in row number 23
  13. 250 print"{home}{down*23}{return}"
  14. 260 if peek( 53279)>0 then goto 2000
  15. 265 print"{home}"spc(23)s
  16. 270 s=s+1:goto110
  17. 290 vic=13*4096:rem this is where the vic registers begin
  18. 310 pokevic+21,1:rem enable sprite 0
  19. 330 rem pokevic+23,1:rem expand sprite 0 in y
  20. 350 pokevic+29,1:rem expand sprite 0 in x
  21. 370 poke2040,192:rem set sprite 0's pointer
  22. 390 pokevic,100:rem set sprite 0's x position
  23. 410 pokevic+1, 100:rem set sprite 0's y position
  24. 430 pokevic+39,0:rem set sprite 0's color
  25. 450 poke 53276,1:rem set multicolor for sprite 1
  26. 470 poke 53287,0:poke53285,2:poke53286,15
  27. 490 fory=0to63:rem byte counter with sprite loop
  28. 510 reada:rem read in a byte
  29. 530 poke192*64+y,a:rem store the data in sprite area
  30. 550 nexty:rem close loop
  31. 570 return
  32. 590 rem
  33. 610 data 0,168,0,2,85,0
  34. 630 data 2,238,64,2,170,16
  35. 650 data 0,168,0,2,102,0
  36. 670 data 10,86,128,42,86,160
  37. 690 data 162,86,40,130,86,8
  38. 710 data 1,85,0,2,170,0
  39. 730 data 2,170,0,2,138,0
  40. 750 data 2,138,0,2,138,0
  41. 770 data 0,204,0,0,136,0
  42. 790 data 0,136,0,3,255,0
  43. 810 data 0,252,0,0
  44. 830 REM SCREEN 1 -
  45. 850 PRINT "{black}{169}                                   {reverse on}{164}{reverse off}{127}{reverse on}{174} ";
  46. 870 PRINT "{reverse off}-                       {gray}{175}{185}           {black}{188}{reverse on}  ";
  47. 890 PRINT "{reverse off}                {gray}{164}{162}{162}{162}{162}{reverse on} {169}   {127}{reverse off}{187}           {black}{167}";
  48. 910 PRINT "            {gray}J{165}{reverse on}{184}{163}      {175}{187}{175}{164} {188}{reverse off}            ";
  49. 930 PRINT "        {095}{187}{reverse on}{186}       {172}{162}  {reverse off}{187}{reverse on}{black}{190}{reverse off}{183}{reverse on}{162}{reverse off}M{reverse on}{gray} {163}J{reverse off}{175}         ";
  50. 950 PRINT "       U{reverse on}Y {164}       {reverse off}{light gray}{165}{reverse on}{blue}{181}{white}{167}{gray} {188}{reverse off}{light gray}{165}  {reverse on}{gray}{127}{165}   {reverse off}{190}        ";
  51. 970 PRINT "       {reverse on}{181}{reverse off}{185}Y{126}{reverse on}{172}     {light gray} {reverse off}{181}{reverse on}{cyan}{165}{light gray}   {reverse off}{black}{176}{gray},{reverse on}{188}{light gray}{127}{gray}J{187}  {reverse off}p        ";
  52. 990 PRINT "       {reverse on}{161} {163}{reverse off}L{black}{172}{reverse on}{gray}{183}{172}{cyan}{187}{light blue} {white} {light gray} {reverse off}{white}{165}{reverse on}{161} {reverse off}{184}{183} {gray}A{reverse on}{190}{light gray}{175}{reverse off} {reverse on}{188}{gray}F{167}{reverse off}         ";
  53. 1010 PRINT "       {reverse on}     {172}{187}Y {white}{185} {reverse off}{181}{blue}{184}{white}{183}      {black}N{light gray}{184}{reverse on}{gray}{185}{reverse off}P{reverse on}{127}{reverse off}        ";
  54. 1030 PRINT "       {127}{reverse on}     {light gray}{127}{gray}{187}{187}{164}{white}{162}{reverse off}{161}   {black}G {gray}U{reverse on}{black}{191}{reverse off}U {gray}{172}{reverse on}{165} v {reverse off}       ";
  55. 1050 PRINT "       {reverse on}{165}     {light gray} {163}{reverse off}{white}{187}{gray}{161}- {reverse on}{blue}{163}{reverse off}{white}{165}{black}{167}{181}{gray}B{black}Uv  {gray}{188}{reverse on}   {reverse off}{169}       ";
  56. 1070 PRINT "       0P{reverse on}     {light blue} {white} {127}{reverse off}  {gray}{190} {176}[{167}M{reverse on}{black}{127}{reverse off}KR{gray}{172}{reverse on}   {127}{reverse off}       ";
  57. 1090 PRINT "       {pink}{162}{reverse on}{182}{purple} {gray}    {light gray}{185}{reverse off}{white}{127}{reverse on} {127}{reverse off}{gray}i  {reverse on}{182}{reverse off}{red}. {gray}{191}M{black}{190} {gray}{172}{reverse on}   {reverse off}L       ";
  58. 1110 PRINT "      {reverse on}{pink}{190} {red}{167}{gray} {pink}{184}{gray}   {light gray}{188}{reverse off}{light blue}{188}{white}{184}{reverse on} {pink}P{reverse off}{gray}{174}{175}{pink}{162}{reverse on}{184}{184}{183}{163}  {163}{reverse off}{162}{reverse on}{gray}{164}{reverse off}{169}        ";
  59. 1130 PRINT "{black}T    {pink}{167}{reverse on} U{190} U{purple}K{gray} {pink} {light gray}{172}{reverse off}{gray}{162}{reverse on}{blue}{187}{reverse off}{white}{127}{reverse on}{182}{reverse off}{pink}{175}{187}{127}{reverse on}{175}  {reverse off}{169}{184}{reverse on}D{purple}D{pink}{169} {red}{184}{pink}{163}{red}{127}{reverse off} {reverse on}{pink}{190}{red}{127}{reverse off}   ";
  60. 1150 PRINT "{reverse on}{black}{185}{reverse off}FR{reverse on}P{reverse off} {reverse on}{pink}{190}   {red} {pink} {light gray}{184}{pink}  .{reverse off}{gray}{183}{reverse on}{pink}{190}{red} {pink}   {red}{182}{reverse off}{pink}{172}{reverse on}{190} {184}{184}{167}{165}  J {red} {reverse off}{pink}{182}{reverse on} {red}{182}{reverse off}   ";
  61. 1170 PRINT "{black}{162}{175}{164}{167}{pink}{167}{reverse on}    {190}{182}{red} {pink}  H' {190}{172}{red}{175}{pink} {red}{182}{pink}{161} {172}{126} {red} {pink} {red} {pink} {187}{190}{167}{181}{red} {reverse off}{165}{black}{175}{164} ";
  62. 1190 PRINT "{reverse on}{172}{187}{185}{reverse off} {reverse on}{pink}{165} {red} {pink} {182} {reverse off}{161}{reverse on} , Y   {red} {reverse off}{pink}{185}{162}{light gray}4{reverse on} {pink} {red}{167}{pink}{187} {red} {pink} {181} {190}   {red} {reverse off}  {black}{183} ";
  63. 1210 PRINT "{reverse on}{183}{reverse off}{186}{reverse on}F{reverse off}{169}{reverse on}{pink}  {reverse off}{red}{161}{reverse on}{pink} H {red} {pink} T{red} {pink}   {164}{185}F {red} {pink}  {red}{167}{pink}{165}{167}{165}{red} {pink} {187} {red}{172}{reverse off}{pink}{184}{reverse on} {reverse off}{red}{169}  {black}{184}{190}";
  64. 1230 PRINT "{reverse on}RR{175}{pink}{161} {red} {reverse off}{190}{reverse on}{pink} B {190}{182} {red}{172}{pink} {172} {183}{163} {red}{172}{gray}{190}{pink}{187}{167}{reverse off}{red}{161}{reverse on}{pink}{165}  f{reverse off}{169}{red}{183}{reverse on}{pink}{187}{188}{red}'{pink}{182}{reverse off}{red}{165}{black}{188}{reverse on}{162}{162}{162}";
  65. 1250 PRINT "{reverse off}{186}{reverse on} G{pink}{165} {red}{172}{reverse off} {reverse on}{pink}{187}B {172}{red}.{reverse off}{pink}{169}{red}{165}{reverse on}{pink}L{red}{175}{pink}L{175}{162}{reverse off}{red}{184} {gray}{161}{pink}S{red}{184} {pink}{188}{reverse on}{162}{reverse off}{red}{184}{reverse on}{pink}L{reverse off}{red}{183}  {pink}{184}{reverse on}{187}{red} {reverse off} {black}{183}D {172}";
  66. 1270 PRINT "{reverse on}{brown}{162}{185}{reverse off}{black}{190}{reverse on}{pink} {red} {reverse off}{190}  {blue}FDE{red}{175}{pink}{164}{175}{reverse on}{188}{reverse off}{162}{reverse on}{190}  {183}{183} {163}{163}{163}{163}{163}{163}{183}{184}{reverse off}{red}{175}       {gray}'{black}F";
  67. 1290 PRINT "{cyan}{096}{red}D{cyan}F{162}{red}I {blue}S{reverse on}{pink} {184}{163}   {164}{175}{185}{162}{162}F{reverse off}{183}{blue}F{gray}{172}{red}{183}{blue}--{red}{183}{blue}DD--{red}{163}   {164}{164}  .{yellow}{175}";
  68. 1310 PRINT "  {brown}D{096}  {pink}{184}{reverse on}{red}{162}{pink}{162}{reverse off}{184}{183}{blue}{096}E{184}{183}{163} {183}{183} {gray},{175}  {reverse on}{blue}{162}{gray}{162}{reverse off}{190} {blue}!{gray}{167}   {blue}{095}{reverse on}{light blue}{175}{white}{185}{reverse off}{purple}{181}{blue}{188}{reverse on}{light blue}{162}{162}";
  69. 1330 PRINT "{reverse off}{gray}{096}{reverse on}{blue}{124}{reverse off}O{cyan}D{brown}'{blue}H{light blue}k   {gray}{164}{cyan}{162}{light gray}{162}{162}   {blue}{167}{reverse on}{183}{reverse off} J{light blue}{190}   {blue}F{gray}{096}{cyan}R{gray}{162}{light blue}{162}{reverse on}{light gray}{169}{reverse off}{white}{185}{red}{172}{187}{gray}. {blue},{light gray}{187}  "
  70. 1350 return
  71. 2000 rem end sequence
  72. 2010 print"{clear}game over":pokevic+21,0:n=peek( 53279)
  73. 2020 print"your score ",s
  74. 2030 print"press a key"
  75. 2040 get a$:if a$=""then 2040
  76. 2050 run
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!