Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|611\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #099 (09 May 2007) The Balloon Challenge Create a game with balloons in it!

Pokey by irondirgible for Workshop #099 You must type the letters that appear next to the balloon to move in that direction, avoiding the needles (white lines) and getting the gold (yellow blocks). Keyboard Graphics 800,600,16,2 SetBuffer BackBuffer() SeedRnd MilliSecs() Global score Global needle_time# Global needle_rate# = 1000 Type needle Field x Field y Field dir Field speed Field class End Type Global mode = 0 Global start = True Global string_length = 2 ;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX AMOUNT OF LETTERS Dim last_strokes(string_length) Global balloon_x = 400 Global balloon_y = 300 Global balloon_size = 100 Global balloon_dir = 0 Global balloon_speed = 1 Dim balloon_color(2) Dim dir_letters(3,string_length) Global needle_x Global needle_y Global needle_speed Global needle_length Global needle_dir RANDOMIZE_LETTERS() While Not KeyDown(1) Text 0,0,"score:"+score RESET() GET_KEYSTROKES() CREATE_NEEDLES() MOVE_NEEDLES() CHANGE_BALLOON_DIR() MOVE_BALLOON() DRAW_ALL() WRITE_PROMPTS() Flip Cls Wend Function CREATE_NEEDLES() Local dir If MilliSecs() => needle_time Then needle_time = MilliSecs() + needle_rate needle_rate = needle_rate.98 dir = Rand(0,3) n.needle = New needle Select dir Case 0 n\dir = 2 n\x = Rand(50,750) n\y = 0 Case 1 n\dir = 3 n\y = Rand(50,550) n\x = 0 Case 2 n\dir = 0 n\x = Rand(50,750) n\y = 600 Case 3 n\dir = 1 n\x = 800 n\y = Rand(50,550) End Select dir = Rand(0,5) If dir = 5 Then n\class = 1 n\speed = 2 ;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX NEEDLE SPEED EndIf End Function Function MOVE_NEEDLES() For n.needle = Each needle Select n\dir Case 0 n\y = n\y - n\speed Case 1 n\x = n\x - n\speed Case 2 n\y = n\y + n\speed Case 3 n\x = n\x + n\speed End Select If n\x > 800 Or n\x < 0 Or n\y > 600 Or n\y < 0 Then Delete n : score = score + 100 Next End Function Function GET_KEYSTROKES() Local letter letter = GetKey() If letter => 97 And letter <= 122 Then For i1 = 1 To string_length last_strokes((string_length-i1)+1) = last_strokes(string_length-i1) Next last_strokes(0) = letter EndIf End Function Function RESET() Local del For n.needle = Each needle del = False If Sqr((n\x-balloon_x)(n\x-balloon_x)+(n\y-balloon_y)(n\y-balloon_y)) <= balloon_size/2 Then If n\class = 1 Then score = score + 1000 del = True EndIf If n\class = 0 Then Delete Each needle balloon_x = 400 balloon_y = 300 balloon_dir = 0 score = 0 start = True Dim dir_letters(3,string_length) Dim last_strokes(string_length) RANDOMIZE_LETTERS() Cls Text 400,300,"POP!" Flip Delay 300 EndIf EndIf If del = True Then Delete n Next End Function Function RANDOMIZE_LETTERS() Local letter Local recur For i1 = 0 To 3 For i2 = 0 To string_length letter = Rand(1,26) dir_letters(i1,i2) = 96+letter Next For i3 = 0 To i1 - 1 If i1 => 0 Then For i2 = 0 To string_length If dir_letters(i3,i2) >< dir_letters(i1,i2) Then Exit If i2 = string_length Then recur = True Next EndIf Next If recur = True Then i1 = i1 - 1 recur = False Next End Function Function CHANGE_BALLOON_DIR() For i1 = 0 To 3 For i2 = 0 To string_length If dir_letters(i1,i2) >< last_strokes(string_length-i2) Then Exit If i2 = string_length Then balloon_dir = i1 : RANDOMIZE_LETTERS() : start = False Next Next End Function Function WRITE_PROMPTS() If mode = 0 ; text For i2 = 0 To string_length Text balloon_x-(string_length11/2)+i211,balloon_y-(balloon_size-20),Chr$(dir_letters(0,i2)) Text (balloon_x-balloon_size/2)-(string_length11)+i211-11,balloon_y,Chr$(dir_letters(1,i2)) Text balloon_x-(string_length11/2)+i211,balloon_y+(balloon_size/2)+5,Chr$(dir_letters(2,i2)) Text balloon_x+balloon_size/2+i211+11,balloon_y,Chr$(dir_letters(3,i2)) Next EndIf If mode = 1 ; binary For i2 = 0 To string_length Text balloon_x-(string_length33/2)+i233,balloon_y-(balloon_size-20),(dir_letters(0,i2)) Text (balloon_x-balloon_size/2)-(string_length33)+i233-33,balloon_y,(dir_letters(1,i2)) Text balloon_x-(string_length33/2)+i233,balloon_y+(balloon_size/2)+5,(dir_letters(2,i2)) Text balloon_x+balloon_size/2+i2*33+33,balloon_y,(dir_letters(3,i2)) Next EndIf End Function Function MOVE_BALLOON() If start = False Select balloon_dir Case 0 balloon_y = balloon_y - balloon_speed Case 1 balloon_x = balloon_x - balloon_speed Case 2 balloon_y = balloon_y + balloon_speed Case 3 balloon_x = balloon_x + balloon_speed End Select If balloon_x > 800 Then balloon_dir = 1 If balloon_x < 0 Then balloon_dir = 3 If balloon_y > 600 Then balloon_dir = 0 If balloon_y < 0 Then balloon_dir = 2 EndIf End Function Function DRAW_ALL() Color 255,0,0 Oval balloon_x-balloon_size/2,balloon_y-balloon_size/2,balloon_size,balloon_size Rect balloon_x-10,balloon_y+balloon_size/2-5,20,10 Color 255,255,255 For n.needle = Each needle If n\class = 1 Then Color 255,255,0 Rect n\x-10,n\y-10,20,20 Color 255,255,255 EndIf If n\class = 0 Then Select n\dir Case 0 Line n\x,n\y,n\x,n\y+35 Case 1 Line n\x,n\y,n\x+35,n\y Case 2 Line n\x,n\y,n\x,n\y-35 Case 3 Line n\x,n\y,n\x-35,n\y End Select EndIf Next End Function

Wednesday Workshop #099

The Balloon Challenge

Pokey