• No registered tag exist.

1 REM タスウケツタ゛ン
10 'シロクロツケルタ゛ン
20 CLS:CLV
30 FOR X=0 TO 30:FOR Y=0 TO 10:LOCATE X,Y:?CHR$(#F9):NEXT:NEXT
40 LOCATE 0,15:?"オレラ タスウケツカ゛タ゛イスキ「タスウケツタ゛ン」":?"モヤモヤシテルコト ハイカイイエテ゛タスウケツ!":?"タスウケツスルコトヲキメタラ、":?"スヘ゜ースキーテ゛スタート":GOSUB 1000
50 FOR X=0 TO 31:FOR Y=15 TO 18:LOCATE X,Y:?CHR$(#00):NEXT:NEXT
60 LOCATE 0,15:?"ソウタ゛ンチュウ、、、"
70 FOR T=1 TO 300:LOCATE RND(31),RND(11):?CHR$(#FA):WAIT 1:NEXT
80 LOCATE 0,15:?"           ":LOCATE 0,15:?"キマッタヨ!"
90 R=RND(300)+1:O=300-R:WAIT 30:?"ハイタ゛トオモウヒト ";R;"ニン":?"イイエタ゛トオモウヒト ";O;"ニン"
100 ?"タスウケツテ゛";:IF R>150 THEN ?"ハイニケッテイ!" ELSE ?"イイエニケッテイ!"
110 ?"モウイッカイヤル?":?"スヘ゜ースキーテ゛モウイッカイ!":BEEP 18:GOSUB 1000:GOTO 1
1000 IF INKEY()==32 THEN RETURN
1001 GOTO 1000

Kidspod運営チーム2017/09/15 20:06:53

多数決団という名前がもう面白いです。多数決を行っている時の、たくさんの人がぴこぴこ動いている演出がかわいらしくていいですね。

Pagetop