janken.wb 4.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495
  1. 100 rem じゃんけんゲーム for ワンべぇ
  2. 110 rem Nov.6,2000 by autumn
  3. 200 T=40 'waitvbする長さ
  4. 900 randomize tick
  5. 1000 cls
  6. 1010 print " ■  ■              ■"
  7. 1020 print " ■ ■ ■             ■"
  8. 1030 print " ■  ■              ■"
  9. 1040 print " ■  ■■   ■ ■■     ■"
  10. 1050 print " ■       ■ ■      ■"
  11. 1060 print " ■       ■ ■■■    ■"
  12. 1070 print " ■       ■■   ■  ■ ■  ■"
  13. 1080 print " ■      ■■    ■  ■■■   ■"
  14. 1090 print " ■      ■■    ■  ■ ■   ■"
  15. 1100 print " ■    ■   ■ ■■  ■  ■   ■"
  16. 1110 print " ■    ■   ■■■   ■   ■ ■■"
  17. 1120 print " ■   ■■   ■     ■   ■ ■"
  18. 1130 print " ■■■■■    ■    ■    ■■■"
  19. 1140 print "   ■■      ■        ■"
  20. 1200 waitvb T
  21. 2000 cls
  22. 2010 print "       ■        ■"
  23. 2020 print "  ■    ■        ■"
  24. 2030 print "  ■    ■       ■"
  25. 2040 print " ■■    ■       ■"
  26. 2050 print " ■  ■■■■■■■    ■"
  27. 2060 print " ■  ■■■■      ■"
  28. 2070 print " ■     ■      ■■■   ■"
  29. 2080 print " ■     ■     ■■■■    ■"
  30. 2090 print " ■     ■     ■  ■    ■"
  31. 2100 print " ■     ■     ■  ■■  ■"
  32. 2110 print " ■     ■    ■    ■  ■"
  33. 2120 print "  ■    ■    ■    ■ ■■"
  34. 2130 print " ■    ■■    ■    ■■■"
  35. 2140 print "      ■           ■"
  36. 2200 waitvb T
  37. 3000 a=rnd(3)
  38. 3010 goto 4000+(a*1000)
  39. 4000 cls
  40. 4010 print "              ■"
  41. 4020 print "      ■ ■     ■■■■■■"
  42. 4030 print "     ■■  ■      ■■■■"
  43. 4040 print "    ■■ ■  ■"
  44. 4050 print "   ■■   ■"
  45. 4060 print "   ■     ■     ■■■■■"
  46. 4070 print "  ■          ■■■■■■■"
  47. 4080 print " ■■          ■     ■■"
  48. 4090 print " ■■                ■■"
  49. 4100 print "  ■■               ■■"
  50. 4110 print "   ■■              ■■"
  51. 4120 print "    ■              ■"
  52. 4130 print "    ■■            ■■"
  53. 4140 print "     ■■         ■■■"
  54. 4150 print "      ■■       ■■■"
  55. 4160 print "               ■"
  56. 4200 goto 7000
  57. 5000 cls
  58. 5010 print "                 ■"
  59. 5020 print "  ■              ■"
  60. 5030 print " ■               ■  ■"
  61. 5040 print " ■ ■■          ■■■■■■"
  62. 5050 print "■■■■■     ■    ■■ ■"
  63. 5060 print " ■        ■       ■ ■■"
  64. 5070 print " ■        ■    ■■■■■■"
  65. 5080 print " ■        ■■■  ■■  ■"
  66. 5090 print " ■■■■■    ■        ■"
  67. 5100 print " ■■  ■    ■     ■■■■■"
  68. 5110 print "■■    ■   ■    ■■   ■"
  69. 5120 print "■     ■ ■■■■   ■"
  70. 5130 print "     ■  ■ ■■■  ■"
  71. 5140 print "   ■■■  ■ ■  ■ ■■"
  72. 5150 print "  ■■■   ■■      ■■■■"
  73. 5160 print "                 ■■■"
  74. 5200 goto 7000
  75. 6000 cls
  76. 6010 print "         ■■■    ■"
  77. 6020 print " ■     ■■■ ■    ■"
  78. 6030 print "  ■    ■ ■ ■    ■"
  79. 6040 print "  ■     ■ ■  ■■■■■■■"
  80. 6050 print "  ■ ■■■■■■■  ■■■    ■"
  81. 6060 print " ■■ ■■■■■      ■  ■"
  82. 6070 print " ■      ■      ■■■■■"
  83. 6080 print " ■      ■      ■■■■■■"
  84. 6090 print " ■      ■     ■■  ■  ■"
  85. 6100 print " ■      ■    ■■ ■ ■  ■"
  86. 6110 print " ■   ■■■■    ■  ■■   ■"
  87. 6120 print " ■  ■■  ■■   ■  ■■   ■"
  88. 6130 print " ■  ■   ■■■  ■  ■    ■"
  89. 6140 print " ■■  ■■■  ■  ■ ■■■  ■■"
  90. 6150 print "     ■■       ■■  ■■■"
  91. 6160 print "                  ■"
  92. 7000 locate 0,16:print " **PUSH START TO EXIT**";
  93. 7010 locate 0,17:print "**ANOTHER BUTTON TO AGAIN**";
  94. 7100 d=wait
  95. 7200 goto 1000