-- BINGO抽籤器 (c) SoftVision corp. IF NOT #オープンされているか('lottery.dpc') THEN オープン 'lottery.dpc'; 終了; ENDIF オブジェクト属性 ([GO]), 機能=無効; $STR := [STOCK]; IF $STR='' THEN $REST := 0; WHILE $REST < 75 DO $STR += #STR($REST,'00'); $REST += 1; ENDWHILE オブジェクト属性 ([B1],[B2],[B3],[B4],[B5],[B6],[B7],[B8],[B9],[B10],[B11],[B12],[B13],[B14],[B15], [I1],[I2],[I3],[I4],[I5],[I6],[I7],[I8],[I9],[I10],[I11],[I12],[I13],[I14],[I15], [N1],[N2],[N3],[N4],[N5],[N6],[N7],[N8],[N9],[N10],[N11],[N12],[N13],[N14],[N15], [G1],[G2],[G3],[G4],[G5],[G6],[G7],[G8],[G9],[G10],[G11],[G12],[G13],[G14],[G15], [O1],[O2],[O3],[O4],[O5],[O6],[O7],[O8],[O9],[O10],[O11],[O12],[O13],[O14],[O15]), 文字色='深灰',背景色='白',文字スタイル=(); ELSE $REST := #STRLEN($STR)/2; ENDIF $CNT := 0; WHILE $CNT <= 100 DO $CNT += 1; $R := #RAND(75); $N := #INT($R/15); $N := #COND(($N=0,'B'),($N=1,'I'),($N=2,'N'),($N=3,'G'),'O'); [BINGO] := $N+' '+#STR($R+1); ENDWHILE $N := #RAND($REST)*2; $R := #NUM(#STRSUB($STR,$N+1,$N+2)); $STR := #IF($N,#STRSUB($STR,1,$N),'')+#STRSUB($STR,$N+3); $REST -= 1; $N := #INT($R/15); $N := #COND(($N=0,'B'),($N=1,'I'),($N=2,'N'),($N=3,'G'),'O'); [BINGO] := $N+' '+#STR($R+1); SWITCH $R+1 CASE 1 DO オブジェクト属性 ([B1]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 2 DO オブジェクト属性 ([B2]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 3 DO オブジェクト属性 ([B3]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 4 DO オブジェクト属性 ([B4]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 5 DO オブジェクト属性 ([B5]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 6 DO オブジェクト属性 ([B6]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 7 DO オブジェクト属性 ([B7]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 8 DO オブジェクト属性 ([B8]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 9 DO オブジェクト属性 ([B9]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 10 DO オブジェクト属性 ([B10]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 11 DO オブジェクト属性 ([B11]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 12 DO オブジェクト属性 ([B12]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 13 DO オブジェクト属性 ([B13]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 14 DO オブジェクト属性 ([B14]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 15 DO オブジェクト属性 ([B15]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 16 DO オブジェクト属性 ([I1]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 17 DO オブジェクト属性 ([I2]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 18 DO オブジェクト属性 ([I3]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 19 DO オブジェクト属性 ([I4]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 20 DO オブジェクト属性 ([I5]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 21 DO オブジェクト属性 ([I6]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 22 DO オブジェクト属性 ([I7]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 23 DO オブジェクト属性 ([I8]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 24 DO オブジェクト属性 ([I9]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 25 DO オブジェクト属性 ([I10]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 26 DO オブジェクト属性 ([I11]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 27 DO オブジェクト属性 ([I12]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 28 DO オブジェクト属性 ([I13]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 29 DO オブジェクト属性 ([I14]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 30 DO オブジェクト属性 ([I15]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 31 DO オブジェクト属性 ([N1]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 32 DO オブジェクト属性 ([N2]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 33 DO オブジェクト属性 ([N3]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 34 DO オブジェクト属性 ([N4]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 35 DO オブジェクト属性 ([N5]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 36 DO オブジェクト属性 ([N6]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 37 DO オブジェクト属性 ([N7]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 38 DO オブジェクト属性 ([N8]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 39 DO オブジェクト属性 ([N9]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 40 DO オブジェクト属性 ([N10]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 41 DO オブジェクト属性 ([N11]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 42 DO オブジェクト属性 ([N12]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 43 DO オブジェクト属性 ([N13]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 44 DO オブジェクト属性 ([N14]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 45 DO オブジェクト属性 ([N15]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 46 DO オブジェクト属性 ([G1]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 47 DO オブジェクト属性 ([G2]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 48 DO オブジェクト属性 ([G3]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 49 DO オブジェクト属性 ([G4]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 50 DO オブジェクト属性 ([G5]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 51 DO オブジェクト属性 ([G6]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 52 DO オブジェクト属性 ([G7]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 53 DO オブジェクト属性 ([G8]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 54 DO オブジェクト属性 ([G9]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 55 DO オブジェクト属性 ([G10]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 56 DO オブジェクト属性 ([G11]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 57 DO オブジェクト属性 ([G12]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 58 DO オブジェクト属性 ([G13]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 59 DO オブジェクト属性 ([G14]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 60 DO オブジェクト属性 ([G15]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 61 DO オブジェクト属性 ([O1]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 62 DO オブジェクト属性 ([O2]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 63 DO オブジェクト属性 ([O3]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 64 DO オブジェクト属性 ([O4]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 65 DO オブジェクト属性 ([O5]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 66 DO オブジェクト属性 ([O6]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 67 DO オブジェクト属性 ([O7]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 68 DO オブジェクト属性 ([O8]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 69 DO オブジェクト属性 ([O9]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 70 DO オブジェクト属性 ([O10]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 71 DO オブジェクト属性 ([O11]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 72 DO オブジェクト属性 ([O12]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 73 DO オブジェクト属性 ([O13]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 74 DO オブジェクト属性 ([O14]), 文字色='白',背景色='赤',文字スタイル=(太字); CASE 75 DO オブジェクト属性 ([O15]), 文字色='白',背景色='赤',文字スタイル=(太字); ENDSWITCH [STOCK] := $STR; サウンド 4; オブジェクト属性 ([GO]), 機能=有効;