Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|716\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Misc

mike_g	Created : 27 December 2006 Language : Blitz Binary Game
A little game I made for practicing Binary maths. Switch the bits on/off by clicking the box with the mouse then press space to proceed. I put this here cos its not really worthy of a showcase but it can be fun for a few minutes. ;------------------------------------------------------------------------------------------------------- ;************************************** BINARY GAME ******************************************** ;------------------------------------------------------------------------------------------------------- Graphics 320, 240 SetBuffer BackBuffer() Global state, difficulty, bits, start_pos, points Global level, stage, style Global time, old_time, time_limit Global target, register Dim bit(17) Dim bcd1(5), bcd2(5), bcd3(5), bcd4(5) SeedRnd MilliSecs() ;STYLE 0 = NORMAL, 1 = BCD, 2 = FIXED POINT, 3 = TWOS COMPLEMENT While Not KeyHit(1) Cls If state = 0 MAIN_MENU() Else If state = 1 DISPLAY() GAME_INPUT() REGISTER() Else GAME_OVER() EndIf CURSOR() Flip Wend ;------------------------------------------------------------------------------------------------------- ;********************************* MAIN MENU *************************************************** ;----------------------------------------------------------------------------------------------------- Function MAIN_MENU() Color 30, 30, 30 For i = 0 To 3 Rect 8, 10+(i20), 60, 16 Next Color 100, 20, 20 Text 19, 11, "EASY": Text 80, 11, "Register, bit values + time." Text 14, 31, "MEDIUM": Text 80, 31, "Bit values only. Double score." Text 19, 51, "HARD": Text 80, 51, "No bit values. Tripple score." Text 19, 71, "QUIT" If MouseHit(1) If RectsOverlap(MouseX(), MouseY(), 1, 1, 8, 10, 60, 16) difficulty = 1: state=1 NEW_LEVEL() Else If RectsOverlap(MouseX(), MouseY(), 1, 1, 8, 30, 60, 16) difficulty = 2: state=1 NEW_LEVEL() Else If RectsOverlap(MouseX(), MouseY(), 1, 1, 8, 50, 60, 16) difficulty = 3: state=1 NEW_LEVEL() Else If RectsOverlap(MouseX(), MouseY(), 1, 1, 8, 70, 60, 16) End EndIf EndIf End Function ;----------------------------------------------------------------------------------------------------- ;****************************************** GAME ************************************************ ;------------------------------------------------------------------------------------------------------- Function DISPLAY() ;DRAW BITS ON/OFF If style = 0 For i = 1 To bits If bit(i) = 0 Color 30, 30, 30 Else Color 100, 20, 20 EndIf If bits < 9 Rect start_pos+32+((bits-1)32)-(i32), 100, 32, 32, 1 EndIf Next Else For i = 1 To 4 Color 30, 30, 30 If bcd1(i) = 1 Then Color 100, 20, 20 Rect 128-(i32), 100, 32, 32, 1 Color 30, 30, 30 If bcd2(i) = 1 Then Color 100, 20, 20 Rect 320-(i32), 100, 32, 32, 1 Color 30, 30, 30 If bcd3(i) = 1 Then Color 100, 20, 20 Rect 128-(i32), 164, 32, 32, 1 Color 30, 30, 30 If bcd4(i) = 1 Then Color 100, 20, 20 Rect 320-(i32), 164, 32, 32, 1 Next EndIf ;FRAME Color 100, 100, 100 For i = 0 To (bits-1) If bits < 9 Rect start_pos+(i32), 100, 32, 32, 0 Else If style = 1 If i < 4 Rect 0+(i32), 100, 32, 32, 0 Else If i < 8 Rect 64+(i32), 100, 32, 32, 0 Else If i < 12 Rect (i32)-256, 164, 32, 32, 0 Else Rect (i32)-192, 164, 32, 32, 0 EndIf EndIf Next ;DONE BUTTON Color 30, 30, 30: Rect 130, 220, 60, 16, 1 Color 100,100,100:Rect 130, 220, 60, 16, 0 ;TEXT Color 140, 40, 40 If difficulty < 3 If bits < 9 For i = 1 To bits number = 1 Shl (i-1) Text (start_pos+(bits32)-(i32)), 80, number Next Else If style = 1 For i = 1 To 4 number = 1 Shl (i-1) Text 128-(i32), 80, number: Text 320-(i32), 80, number Text 128-(i32), 144, number: Text 320-(i32), 144, number Next EndIf EndIf Text 142, 221, "DONE" If difficulty = 1 Then Text 90, 20, "REGISTER: "+register Text 0, 0, "TIME: "+time: Text 90, 0, "TARGET: "+target: Text 180, 0, "POINTS: "+points End Function ;----------------------------------------------------------------------------------------------------- Function GAME_INPUT() If MouseHit(1) If bits = 4 If MouseY() > 100 And MouseY() <132 And MouseX() > 96 And MouseX() < 224 cell = (MouseX()-96)/32 cell = (-cell)+bits If bit(cell)=0 bit(cell)=1 Else bit(cell)=0 EndIf EndIf Else If bits = 8 If MouseY() > 100 And MouseY() <132 cell = (MouseX()-36)/32 cell = (-cell)+bits If bit(cell)=0 bit(cell)=1 Else bit(cell)=0 EndIf EndIf Else If style =1 If MouseY() > 100 And MouseY() < 132 If MouseX() < 128 cell = MouseX()/32 cell=(-cell)+4 If bcd1(cell)=0 bcd1(cell)=1 Else bcd1(cell)=0 EndIf Else If MouseX() > 192 cell = (MouseX()-192)/32 cell=(-cell)+4 If bcd2(cell)=0 bcd2(cell)=1 Else bcd2(cell)=0 EndIf EndIf Else If MouseY() > 164 And MouseY() < 196 If MouseX() < 128 cell = MouseX()/32 cell=(-cell)+4 If bcd3(cell)=0 bcd3(cell)=1 Else bcd3(cell)=0 EndIf Else If MouseX() > 192 cell = (MouseX()-192)/32 cell=(-cell)+4 If bcd4(cell)=0 bcd4(cell)=1 Else bcd4(cell)=0 EndIf EndIf EndIf EndIf If MouseX() > 130 And MouseX() < 190 And MouseY() > 220 And MouseY() < 236 Then ENTER() Else If KeyHit(57) ENTER() EndIf End Function ;----------------------------------------------------------------------------------------------------- Function ENTER() For i = 1 To 16 bit(i)=0 Next If target = register PROGRESS() Else Text 115, 200, "!!!ERROR!!!" points = points - 100 Flip Delay 1000 EndIf End Function ;----------------------------------------------------------------------------------------------------- Function REGISTER() register = 0 If style = 1 For i = 1 To 4 If bcd1(i) = 1 Then register = register + (1 Shl (i-1)) If bcd2(i) = 1 Then register = register + (1 Shl (i-1)) If bcd3(i) = 1 Then register = register + (1 Shl (i-1)) If bcd4(i) = 1 Then register = register + (1 Shl (i-1)) Next Else For i = 1 To bits If bit(i) = 1 Then register = register + (1 Shl (i-1)) Next EndIf time = time_limit - ((MilliSecs()-old_time)/100) If time = 0 FlushMouse() state = 2 EndIf End Function ;----------------------------------------------------------------------------------------------------- Function PROGRESS() stage = stage + 1 points = points + (timedifficultystagelevel) time_limit = 60-(stage4) If difficulty = 1 Then time_limit = time_limit +10 If level = 2 Then time_limit = time_limit + 60 If bits = 4 target = Rand(1, 15) Else If bits = 8 target = Rand(1, 255) EndIf If stage = 9 Then NEW_LEVEL() old_time = MilliSecs() End Function ;----------------------------------------------------------------------------------------------------- Function NEW_LEVEL() level = level + 1: stage=0 LEVEL_SCREEN() If level = 1 bits = 4 start_pos = (160-(bits16)) target = Rand(1, 15) Else If level=2 bits = 8 start_pos = (160-(bits16)) Else If level = 3 bits = 16 style = 1 target = Rand(0, 999) EndIf time_limit = 60 If difficulty = 1 Then time_limit = time_limit +10 If level = 2 Then time_limit = time_limit + 60 old_time = MilliSecs() End Function ;----------------------------------------------------------------------------------------------------- Function LEVEL_SCREEN() FlushMouse() Cls If level = 1 Text 90, 10, "LEVEL 1: NIBBLE" Else If level = 2 Text 100, 10, "LEVEL 2: BYTE" Else If level = 3 Text 80, 10, "LEVEL 3: 4 DIGIT BCD" EndIf Text 80, 50, "HIT MOUSE TO START" Flip WaitMouse() End Function ;----------------------------------------------------------------------------------------------------- Function CURSOR() Color 255, 0, 0 Rect MouseX(), MouseY(), 1, 1 Line MouseX()-1, MouseY(), MouseX()+1, MouseY() Line MouseX(), MouseY()+1, MouseX(), MouseY()-1 Color 180, 80, 20 Oval MouseX()-4, MouseY()-4, 9, 9,0 End Function ;------------------------------------------------------------------------------------------------------- ;****************************** GAME OVER ******************************************************* ;----------------------------------------------------------------------------------------------------- Function GAME_OVER() Text 120, 20, "GAME OVER" Text 60, 40, "YOU SCORED "+points +" POINTS." Flip WaitMouse() level=0: points=0: register=0: state=0: style=0 FlushMouse() End Function --v

Comments

Binary Game

Comments