- ’へんすう
- ’データ
- Q=19 ’データすう 15
- ’DATA”[なまえ]”,[〓のかず=なんいど],[モード],[(1)うらの〓のかず],[れんだすうのついか],[(2)うらのれんだすうついか]((1)(2)うらモードになっていなかったらしなくていい)
- ’0=つうじょう 1=なんいど−うら(とくていのどうさをおこなうことでうらをプレイできる)
- ’データ
- DATA ”タッチパネルこっぱみじん”,10,1,15,15,0
- DATA ”ゴッドハンドかくにんテスト”,10,0,0,6,0
- DATA ”LV.1”,2,0,0,0,0
- DATA ”LV.2”,4,0,0,0,0
- DATA ”セカイイチ、カンタン!”,1,1,13,0,2
- DATA ”rain bow touch”,7,1,10,4,6
- DATA ”KITAA(〓〓〓)AAAAA!!”,8,0,0,9,0
- DATA ”〓ちゅうにびょうでんせつ〓”,6,0,0,12,0
- DATA ”HEY!HEY!CHOPE!”,6,1,9,60,20
- DATA ”〓〓”,9,0,10,10,6
- DATA ”ダダダダダッ”,8,0,0,40,0
- DATA ”インドア(じかんがあるひと)せんよう”,8,0,0,0,0
- DATA ”キモチワルイおじさん”,0,0,0,180,0
- DATA ”シュシュシュ”,5,0,0,4,0
- DATA ”ネオレンダ”,7,0,0,20,0
- DATA ”ナンハオイシイヨ、ナマァァァァ
- ”,6,0,0,0,0
- DATA ”ルンルンピクニック”,7,0,0,0,0
- DATA ”ショォォォォォォォォ”,8,0,0,0,0
- DATA ”おチビそつぎょうしき”,6,1,11,0,0
- DATA ”なますて28%”,11,0,0,0,0
- ’はいれつ
- DIM NAME$[100]
- DIM ST[100]
- DIM MODE[100]
- DIM URAST[100]
- DIM PLR[100]
- DIM URPLR[100]
- DIM HST[100]
- ’データよみこみ
- FOR I=0 TO Q
- A=A+1
- READ NAME$[A],ST[A],MODE[A],URAST[A],PLR[A],URPLR[A]
- NEXT
- ’セレクト
- @SELECT
- ACLS
- FOR I=0 TO Q+1
- ?” ”;NAME$[I];” ”;”〓”;ST[I]
- NEXT
- Y=1
- COLOR 3LOCATE 10,0?”〓=けってい
- WHILE 1
- COLOR 7:LOCATE 0,Y?”〓”
- BU=BUTTON(2)
- IF BU==1 THEN Y=Y−1:LOCATE 0,Y+1?” ”BEEP 31UR=0KK=0ST[Z]=HST[Z]:IF 1<Y THEN LOCATE 0,Y−1?” ”BEEP 31
- IF BU==2 THEN Y=Y+1:LOCATE 0,Y−1?” ”LOCATE 0,Y+1?” ”BEEP 31UR=0KK=0ST[Z]=HST[Z]
- IF BU==4 THEN
- INC O
- IF O==50 THEN TALK”<S1000><P1>たすけて コロサレル イヤコロス ”O=0WAIT 1800 COLOR 2?”オニンギョウサンダイスキ”*10000TALK”<P50000><S70000>ギャアアアアアアアアアアアアアアアアアアアアアアアアアアアアアアアアア” WAIT 120 END
- ENDIF
- IF BU==64 THEN GOSUB @DLLOAD
- IF BUTTON(2)==8 THEN
- BEEP 86
- INC KK
- IF MODE[Y]==1 THEN IF KK==30 THEN
- BEEP 109
- COLOR 5LOCATE 10,0?”うらモード 〓”;URAST[Y];” ”
- UR=1
- KK=0
- Z=Y
- HST[Z]=ST[Z]
- ST[Y]=URAST[Y]
- ENDIF
- ENDIF
- LOCATE 0,0?”No.”;Y;” ”
- IF Y==27 THEN Y=1
- IF Y==0 THEN Y=26
- IF BUTTON()==16 THEN
- FOR I=0 TO Q
- A=A+1
- GOSUB @BATL
- NEXT
- ENDIF
- VSYNC 1
- WEND
- @BATL
- ACLS
- COLOR 15
- IF UR==0 THEN ?NAME$[Y]B=ST[Y]*19+PLR[Y]
- IF UR==1 THEN COLOR 5?NAME$[Y];”(ウラ)”
- IF UR==0 THEN ?”〓”;ST[Y]
- IF UR==1 THEN ?”〓”;ST[Y]B=ST[Y]*19+URPLR[Y]
- XSCREEN 2:DISPLAY 1
- GCIRCLE 150,120,100,RGB(80,208,255)
- ?”REDY?”
- BEEP 7
- WAIT 70
- UR=0
- ?”GO!”
- BEEP 126
- A=1000
- FOR I=0 TO A
- TOUCH OUT STTM,S,O
- DISPLAY 1
- BU=BUTTON(2)
- LOCATE 0,0?”れんだすう:”;C;”/”;B
- IF STTM==1 OR BU==1 OR BU==2 OR BU==4 OR BU==8THEN
- C=C+1
- IF C>=B THEN BEEP 113?”ok!”WAIT 180 C=0ST[Z]=HST[Z]GOTO @SELECT
- ENDIF
- IF I==1000 THEN BEEP 112?”time up!”ST[Z]=HST[Z]WAIT 180C=0GOTO @SELECT
- DISPLAY 0
- LOCATE 0,2?”TIME:”;I;”/1000”
- VSYNC 1
- NEXT
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.057 秒 | このページの最終更新 : 2022/09/20 (火) 12:49:11 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30