Hatena::Groupputikonclub

天郷思音(わぁぃ@)の日記 このページをアンテナに追加 RSSフィード

 | 

2012-04-05PRG:谷 このエントリーを含むブックマーク

f:id:ken10ken:20120405212855p:image

f:id:ken10ken:20120405212856p:image


  1. ACLS:CLEARЛ
  2. KEYMAX=3:CLOCKMAX=2Л
  3. @STARTЛ
  4. CLS:COLOR 0Л
  5. MX=1:MY=3Л
  6. BGMSTOPЛ
  7. GETKEY=0:GETSTAR=0:SPEED=2Л
  8. STAGE=STAGE+STAGECLEARЛ
  9. STAGECLEAR=0Л
  10. LOCATE 12,11:PRINT ”STAGE:”;STAGE+1Л
  11. WAIT 60Л
  12. CLSЛ
  13. COLOR 8Л
  14. FOR I=0 TO 23Л
  15. LOCATE 0,IЛ
  16. IF I THEN PRINT ”╂”;” ”*30;”╂”; ELSE PRINT ”╂”*32; Л
  17. NEXTЛ
  18. COLOR 8Л
  19. FOR I=0 TO 329Л
  20. IF !RND(3) THEN LOCATE I%30+1,FLOOR(I/30)*2+2:PRINT ”В”;Л
  21. NEXTЛ
  22. LOCATE 27,8:PRINT ”В”;Л
  23. COLOR 7Л
  24. LOCATE 30,5:PRINT ”Щ”;Л
  25. LOCATE 30,6:PRINT ”В”;Л
  26. COLOR 3Л
  27. FOR I=0 TO KEYMAX-1Л
  28. KEYX=RND(30)+1Л
  29. KEYY=RND(10)*2+1Л
  30. LOCATE KEYX,KEYY:PRINT ”Ъ”;Л
  31. LOCATE KEYX,KEYY+1:PRINT ”В”;Л
  32. NEXTЛ
  33. COLOR 4Л
  34. FOR I=0 TO CLOCKMAX-1Л
  35. CLOCKX=RND(30)+1Л
  36. CLOCKY=RND(10)*2+1Л
  37. LOCATE CLOCKX,CLOCKY:PRINT ”Р”;Л
  38. LOCATE CLOCKX,CLOCKY+1:PRINT ”В”;Л
  39. NEXTЛ
  40. ′シ゛ャンフ゜シ゛ョウケ゛ンカイシ゛ョ(ヒミツ)Л
  41. COLOR 1Л
  42. LOCATE 30,19:PRINT CHR$(10);Л
  43. LOCATE 30,20:PRINT ”В”;Л
  44. COLOR 13Л
  45. LOCATE 16,19:PRINT ”Ч”;Л
  46. LOCATE 16,20:PRINT ”В”;Л
  47. BGMPLAY 1Л
  48. S$=CHR$(CHKCHR(MX,MY))Л
  49. @LOOPЛ
  50. JAMP=0:OMX=MX:OMY=MYЛ
  51. OOB=OB:OB=B:B=BUTTON()Л
  52. IF B AND 4 THEN MX=MX-1Л
  53. IF B AND 8 THEN MX=MX+1Л
  54. IF MY>=23 THEN @GAMEOVERЛ
  55. IF B AND 16 THEN IF !(OOB AND 16) OR GETSTAR THEN JAMP=1:MY=MY-1Л
  56. IF B AND 32 THEN IF !(OB AND 32) THEN COLOR 8:LOCATE MX,MY+1:PRINT ” ”;Л
  57. IF B==1024 THEN @STARTЛ
  58. G$=CHR$(CHKCHR(MX,MY+1))Л
  59. IF G$!=”В” AND G$!=”╂” AND !JAMP THEN MY=MY+1Л
  60. S$=CHR$(CHKCHR(MX,MY))Л
  61. IF S$==”В” OR S$==”╂” THEN MX=OMX:MY=OMYЛ
  62. COLOR GETSTAR*3Л
  63. LOCATE OMX,OMY:PRINT ” ”;:LOCATE MX,MY:PRINT ”г”;Л
  64. IF S$==”Ъ” THEN BEEP 7:GETKEY=GETKEY+1Л
  65. IF S$==”Р” THEN BEEP 37:SPEED=SPEED-0.5Л
  66. IF S$==”Ч” THEN BEEP 5:SPEED=2:GETSTAR=0Л
  67. IF S$==CHR$(10) THEN BEEP 38:GETSTAR=1Л
  68. IF S$==”Щ” AND GETKEY>=KEYMAX THEN GOTO @STAGECLEARЛ
  69. IF !RND(20) THEN LOCATE RND(30)+1,22:PRINT ” ”;Л
  70. VSYNC 10/SPEEDЛ
  71. GOTO @LOOPЛ
  72. @STAGECLEARЛ
  73. IF STAGE>=99 THEN @GAMECLEARЛ
  74. STAGECLEAR=1Л
  75. I=4:GOSUB @BGMWAITЛ
  76. GOTO @STARTЛ
  77. GAMEOVERЛ
  78. CLS:COLOR 0Л
  79. LOCATE 12,11Л
  80. PRINT ”GAMEOVER”Л
  81. I=6:GOSUB @BGMWAITЛ
  82. STAGE=0Л
  83. GOTO @STARTЛ
  84. GAMECLEARЛ
  85. CLS:COLOR 0Л
  86. WAIT 120Л
  87. LOCATE 11,11Л
  88. PRINT ”GAMECLEAR”Л
  89. BGMPLAY 7Л
  90. END
  91. @BGMWAITЛ
  92. BGMPLAY IЛ
  93. @BGMW1Л
  94. IF BGMCHK() GOTO @BGMW1Л
  95. RETURNЛ


Firefoxをご使用の場合はプチコンフォントダウンロードしていただくことをお勧めします。

 |