#085 - The Three Colour Challenge

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|450\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #085 - The Three Colour Challenge
Tue, 30 Jan 2007, 16:51
Jayenkai	Wednesday Workshop #085 : The Three Colour Challenge Time until Deadline Week : 31 January 2007 The Reason : StealthSPC's suggestion. The Challenge : This week, you can use no more than 3 colours per frame. Other than that, you're free to make any kind of game you'd like. Extra Info Should be easy enough! Weekly Rules/How to Enter You have until Tuesday Night/Wednesday Morning 00:00 BST to submit your levels. ^ See Deadline Link! ^ Wed.Workshop is at SoCoder.co.nr. If you can read this, you're probably already there! Stick your entry underneath this post, leaving a link to your exe or the source of your game, or whatever. (I'll get round to allowing uploads sometime, honest!) If you can't figure it out, or have a really rubbish server, send it to Jayenkai@Gmail.com and I'll stick it straight onto the SoCoder (Official Wed.Workshop) site. Entries will be collected during the week, and entered into next week's voting. (If there are any entries..) All entries will be entered into voting which will take place if there's more than one entry.. Please try to keep all entries within small file sizes. 2Mb is the average maximum for files. Additional Rules are available at the SoCoder (Official Wed.Workshop) site, under the list of previous workshops. Last Week's Games Lots of entries! Yeay! HoboBen and Magicman got us to dodge boxes, Svrman made us run whilst Green and... Well, I kinda went overboard.. Which game wins, You decide!! Comment on the entries, and don't forget to leave votes. The game with the highest rating at the end of the week is declared the winner. -=-=- ''Load, Next List!''
Thu, 01 Feb 2007, 06:01
HoboBen	Are we counting black as a colour?
Thu, 01 Feb 2007, 06:10
Jayenkai	yes, of course! 3 colours, no more.. (and I don't mean, several thousand shade of red, blue and green, either!) -=-=- ''Load, Next List!''
Thu, 01 Feb 2007, 06:20
HoboBen	Black is the absence of colours... but fair point. This means that we have to waste a whole precious third of our palette on the background, but I suppose that'd be part of the challenge of it. -=-=- blog \| work \| code \| more code
Thu, 01 Feb 2007, 06:21
JL235	What if we only use three colours, but I drew them with a different alpha value? Does that count as only three colours?
Thu, 01 Feb 2007, 06:25
Jayenkai	If the colour shows up differently onscreen, then yes, otherwise no. \|edit\| No.. Wait... I wrote that wrong.. If yes different, then no use, is no different then yes use.. ! or something.. Bah! \|edit\| -=-=- ''Load, Next List!''
Thu, 01 Feb 2007, 10:43
mike_g	"hoboben" Are we counting black as a colour? "Jay" yes, of course! Well I guess my entries disqualified then though technically black isn't a colour, its a lack of it Anyway I made a puzzle game. As you will see if i removed one of the colours then the game wouldent be much fun. AppTitle "Znaxish" Graphics 640, 480, 8, 2 SeedRnd MilliSecs() Dim grid(12, 12) Dim sel_x(4), sel_y(4) Global x_pos, y_pos Global num_select = 1 Global removal Global score, hiscore=2000 Global state Const game_time=180000 INITIALIZE() SetBuffer BackBuffer() font = LoadFont("Verdana", 16, True, False, False) SetFont font While Not KeyHit(1) Cls If state = 0 ;TITLE SCREEN TITLE_SCREEN() start_time = MilliSecs() Else If state = 1 ;IN GAME DRAW_BLOCKS() MOUSE_CLICK() DISPLAY_TEXT(start_time) Else ;GAME OVER GAME_OVER() EndIf Flip Wend FreeFont font End ;--------------------------; Function INITIALIZE() For x = 1 To 12 For y = 1 To 12 grid(x, y) = Rand(0, 2) Next Next End Function ;--------------------------; Function DRAW_BLOCKS() ;IF SQUARES ARE BEING REMOVED GET START AND END X/Y POSITIONS If removal > 0 start_x = 100 end_x = 0 For i = 1 To 4 If sel_x(i) < start_x Then start_x = sel_x(i) If sel_x(i) > end_x Then end_x = sel_x(i) Next start_y = 100 end_y = 0 For i = 1 To 4 If sel_y(i) < start_y Then start_y = sel_y(i) If sel_y(i) > end_y Then end_y = sel_y(i) Next EndIf ;FOR EACH SQUARE: DRAW IT! For x = 1 To 12 For y = 1 To 12 If grid(x, y) = 0 Color 150, 30, 30 Else If grid(x, y) = 1 Color 150, 150, 30 Else Color 50, 150, 30 EndIf If removal = 0 For i = 1 To 4 If sel_x(i) = x And sel_y(i)= y selected = 1 Exit EndIf Next If selected = 1 Rect 20+(x32), 20+(y32), 30, 30, 0 Rect 21+(x32), 21+(y32), 28, 28, 0 Rect 22+(x32), 22+(y32), 26, 26, 0 Else Rect 20+(x32), 20+(y32), 30, 30, 1 EndIf Else ;If in an area to remove If x >= start_x And x <= end_x And y >= start_y And y <= end_y Rect 20+(x32)+removal, 20+(y32)+removal, 30-(removal2), 30-(removal2), 1 Else Rect 20+(x32), 20+(y32), 30, 30, 1 EndIf EndIf selected =0 Next Next If removal > 0 removal = removal + 1 If removal > 15 RESET_SELECT() GENERATE_NEW(start_x, end_x, start_y, end_y) removal = 0 EndIf EndIf End Function ;-------------------------; Function MOUSE_CLICK() If MouseHit(1) x_pos = ((MouseX() - 20)/32) y_pos = ((MouseY() - 20)/32) If x_pos > 0 And x_pos < 13 And y_pos > 0 And y_pos < 13 If num_select = 1 sel_x(1) = x_pos sel_y(1) = y_pos num_select=2 Else If num_select = 2 sel_x(2) = x_pos sel_y(2) = y_pos ;Check if tile is same colour as previously selected tile If CHECK_COLOUR(num_select) = True num_select = 3 Else RESET_SELECT() EndIf Else If num_select = 3 sel_x(3) = x_pos sel_y(3) = y_pos ;Check if tile is same colour as previously selected tile If CHECK_COLOUR(num_select) = True num_select = 3 Else RESET_SELECT() Return False EndIf ;Check if tile is aligned in square in relation to other selections If sel_x(3) = sel_x(1) And sel_x(3) <> sel_x(2) If DIAGONAL() = True If sel_y(3) = sel_y(2) And sel_y(3) <> sel_y(1) num_select = 4 Else RESET_SELECT() Return False EndIf Else num_select = 4 EndIf Else If sel_x(3) = sel_x(2) And sel_x(3) <> sel_x(1) If DIAGONAL() = True If sel_y(3) = sel_y(1) And sel_y(3) <> sel_y(2) num_select = 4 Else RESET_SELECT() Return False EndIf Else num_select = 4 EndIf Else If sel_y(3) = sel_y(1) And sel_y(3) <> sel_y(2) If DIAGONAL() = True If sel_x(3) = sel_x(2) And sel_x(3) <> sel_y(1) num_select = 4 Else RESET_SELECT() Return False EndIf Else num_select = 4 EndIf Else If sel_y(3) = sel_y(2) And sel_y(3) <> sel_y(1) If DIAGONAL() = True If sel_x(3) = sel_x(1) And sel_x(3) <> sel_x(2) num_select = 4 Else RESET_SELECT() Return False EndIf Else num_select = 4 EndIf Else RESET_SELECT() Return False EndIf Else If num_select = 4 sel_x(4) = x_pos sel_y(4) = y_pos If CHECK_COLOUR(num_select) = True If GET_MISSING_X() = True And GET_MISSING_Y() = True ;REMOVE SELECTION removal = 1 ;SCORE POINTS Else RESET_SELECT() EndIf Else RESET_SELECT() EndIf EndIf EndIf EndIf End Function Function CHECK_COLOUR(i) If grid(sel_x(1), sel_y(1)) = grid(sel_x(i), sel_y(i)) Return True End Function Function RESET_SELECT() For i = 1 To 4 sel_x(i)=0 sel_y(i)=0 Next num_select = 1 End Function Function DIAGONAL() If sel_x(1) <> sel_x(2) And sel_y(1) <> sel_y(2) Return True End Function Function GET_MISSING_X() If sel_x(1) = sel_x(2) And sel_x(3) = sel_x(4) Return True Else If sel_x(2) = sel_x(3) And sel_x(1) = sel_x(4) Return True Else If sel_x(1) = sel_x(3) And sel_x(2) = sel_x(4) Return True Else Return False EndIf End Function Function GET_MISSING_Y() If sel_y(1) = sel_y(2) And sel_y(3) = sel_y(4) Return True Else If sel_y(2) = sel_y(3) And sel_y(1) = sel_y(4) Return True Else If sel_y(1) = sel_y(3) And sel_y(2) = sel_y(4) Return True Else Return False EndIf End Function Function GENERATE_NEW(x1, x2, y1, y2) For y = y1 To y2 For x = x1 To x2 grid(x, y) = Rand(0, 2) Next Next x_squares = x2-x1+1 y_squares = y2-y1+1 score = score + (x_squares * y_squares) End Function Function DISPLAY_TEXT(start_time) seconds_left = ((start_time+game_time-MilliSecs())/1000) If seconds_left <= 0 state = 2 FlushMouse() EndIf minutes_left = seconds_left /60 seconds_left = seconds_left Mod 60 Color 150, 30, 30 Text 480, 60, "TIME "+minutes_left+":"+seconds_left Color 150, 150, 30 Text 480, 80, "HIGH "+hiscore Color 30, 150, 30 Text 480, 100, "SCORE "+score End Function Function TITLE_SCREEN() Color 30, 150, 30 Text 100, 100, "AIM OF THE GAME:" Color 150, 30, 30 Text 100, 120, "Select tiles by clicking on them with the mouse." Text 100, 140, "Form a rectangle by selecting 4 tiles of the same colour." Text 100, 160, "Only the corners of the rectangle need to be the same colour." Text 100, 180, "Tiles in between can be of any colour." Text 100, 200, "When this is done tiles within the rectangle will be removed." Text 100, 220, "You score 1 point for each tile removed." Text 100, 240, "Removed tiles are then replaced by new tiles." Text 100, 260, "When the time is up the game ends." Color 30, 150, 30 Text 100, 320, "CLICK MOUSE TO BEGIN!" Flip WaitMouse state = 1 FlushMouse End Function Function GAME_OVER() Color 150, 30, 30 Text 100, 100, "GAME OVER" Color 30, 150, 30 Text 100, 120, "YOU SCORED: "+score+" POINTS" If score > hiscore Then hiscore = score Flip WaitMouse INITIALIZE() RESET_SELECT() state = 0 score = 0 removal = 0 FlushMouse End Function --v Can you beat the Hiscore?
Thu, 01 Feb 2007, 10:58
shroom_monk	The problem with this game is that it very quickly gets to a stage where you run out of moves (usually by the time you've scored about 20). This very quickly becomes irritating. -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Thu, 01 Feb 2007, 11:01
mike_g	You sure? Thats never happened to me yet.... I guess I'll test it a bit more.
Thu, 01 Feb 2007, 11:12
mike_g	Well I played the game though three times and never did I once come close to running out of possible moves. Also i am not sure what you mean by having scored about 20. Do you mean after 20 moves? The squares can be as big as you like not just 2*2. And they can have any colour squares inside them, only the corners have to be the same colour.Does that solve your problem? The highest score you can get is when the corners of the grid are the same colour, then you get all tiles in one move. I figured the hiscore was a bit high though so i set it down to 2000.
Thu, 01 Feb 2007, 11:28
JL235	very nice but I have some problems. First I don't like the fact you cannot do squares made of squares larger then 2x2 (like a 3x2 square). Second I should be able to receive a multiplier on long lines. If I managed to get rid of 8 blocks, I should receive a multiplier giving me way more points then simply 2 sets of 4 blocks. Otherwise where is the incentive?
Thu, 01 Feb 2007, 11:33
mike_g	Yeah you can get 32. You can make rectangles, my bad I used the word square when I meant rectangle. You can get blocks of more than 22. You can get the entire grid in one move if the corners are all the same colour. I guess I will have to rewrite the instructions. Only the corners need to be the same colour. Tiles inside the rect can be any colour.
Thu, 01 Feb 2007, 11:36
shroom_monk	Ah yes, I didn't realise that. I see now. That has fixed it. Thanks. -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Thu, 01 Feb 2007, 11:39
mike_g	Okay I updated the rules on the title screen hopefully there wont be any more confusion @diablosdevil: the bigger the rectangle the more points you get. EG: 22=4 points, 43=12 points, 10*8=80 points, etc
Thu, 01 Feb 2007, 12:38
mike_g	Okay I recoded it for 3 colours including black. It uses symbols instead of colours, and is quite a bit harder, though not as nice. AppTitle "Znaxish" Graphics 640, 480, 8, 2 SeedRnd MilliSecs() Dim grid(12, 12) Dim sel_x(4), sel_y(4) Global x_pos, y_pos Global num_select = 1 Global removal Global score, hiscore=2000 Global state Const game_time=180000 Global tiles = CreateImage(96, 32) SetBuffer ImageBuffer(tiles) Color 150, 30, 30 Rect 0, 0, 95, 31 Color 30, 150, 30 ;Tile 1 Oval 2, 2, 27, 27, 1 ;Tile 2 Rect 34, 2, 12, 12, 1 Rect 34, 16, 12, 12, 1 Rect 48, 2, 12, 12, 1 Rect 48, 16, 12, 12, 1 ;Tile 3 For x = 0 To 25 Line 80-(x/2), 28-x, 80+(x/2), 28-x Next INITIALIZE() SetBuffer BackBuffer() font = LoadFont("Verdana", 16, True, False, False) SetFont font While Not KeyHit(1) Cls If state = 0 ;TITLE SCREEN TITLE_SCREEN() start_time = MilliSecs() Else If state = 1 ;IN GAME DRAW_BLOCKS() MOUSE_CLICK() DISPLAY_TEXT(start_time) Else ;GAME OVER GAME_OVER() EndIf Flip Wend FreeImage tiles FreeFont font End ;--------------------------; Function INITIALIZE() For x = 1 To 12 For y = 1 To 12 grid(x, y) = Rand(0, 2) Next Next End Function ;--------------------------; Function DRAW_BLOCKS() ;IF SQUARES ARE BEING REMOVED GET START AND END X/Y POSITIONS If removal > 0 start_x = 100 end_x = 0 For i = 1 To 4 If sel_x(i) < start_x Then start_x = sel_x(i) If sel_x(i) > end_x Then end_x = sel_x(i) Next start_y = 100 end_y = 0 For i = 1 To 4 If sel_y(i) < start_y Then start_y = sel_y(i) If sel_y(i) > end_y Then end_y = sel_y(i) Next EndIf ;FOR EACH SQUARE: DRAW IT! Color 150, 30, 30 For x = 1 To 12 For y = 1 To 12 If grid(x, y) = 0 ;Color 150, 30, 30 frame = 0 Else If grid(x, y) = 1 frame = 1 ;Color 150, 150, 30 Else frame = 2 ;Color 50, 150, 30 EndIf If removal = 0 For i = 1 To 4 If sel_x(i) = x And sel_y(i)= y selected = 1 Exit EndIf Next If selected = 1 Rect 20+(x32), 20+(y32), 30, 30, 0 Rect 21+(x32), 21+(y32), 28, 28, 0 Rect 22+(x32), 22+(y32), 26, 26, 0 Else DrawImageRect tiles, 20+(x32), 20+(y32), frame32, 0, 30, 30 EndIf Else ;If in an area to remove If x >= start_x And x <= end_x And y >= start_y And y <= end_y Rect 20+(x32)+removal, 20+(y32)+removal, 30-(removal2), 30-(removal2), 1 Else DrawImageRect tiles, 20+(x32), 20+(y32),frame32, 0, 32, 32 ;Rect 20+(x32), 20+(y32), 30, 30, 1 EndIf EndIf selected =0 Next Next If removal > 0 removal = removal + 1 If removal > 15 RESET_SELECT() GENERATE_NEW(start_x, end_x, start_y, end_y) removal = 0 EndIf EndIf End Function ;-------------------------; Function MOUSE_CLICK() If MouseHit(1) x_pos = ((MouseX() - 20)/32) y_pos = ((MouseY() - 20)/32) If x_pos > 0 And x_pos < 13 And y_pos > 0 And y_pos < 13 If num_select = 1 sel_x(1) = x_pos sel_y(1) = y_pos num_select=2 Else If num_select = 2 sel_x(2) = x_pos sel_y(2) = y_pos ;Check if tile is same colour as previously selected tile If CHECK_COLOUR(num_select) = True num_select = 3 Else RESET_SELECT() EndIf Else If num_select = 3 sel_x(3) = x_pos sel_y(3) = y_pos ;Check if tile is same colour as previously selected tile If CHECK_COLOUR(num_select) = True num_select = 3 Else RESET_SELECT() Return False EndIf ;Check if tile is aligned in square in relation to other selections If sel_x(3) = sel_x(1) And sel_x(3) <> sel_x(2) If DIAGONAL() = True If sel_y(3) = sel_y(2) And sel_y(3) <> sel_y(1) num_select = 4 Else RESET_SELECT() Return False EndIf Else num_select = 4 EndIf Else If sel_x(3) = sel_x(2) And sel_x(3) <> sel_x(1) If DIAGONAL() = True If sel_y(3) = sel_y(1) And sel_y(3) <> sel_y(2) num_select = 4 Else RESET_SELECT() Return False EndIf Else num_select = 4 EndIf Else If sel_y(3) = sel_y(1) And sel_y(3) <> sel_y(2) If DIAGONAL() = True If sel_x(3) = sel_x(2) And sel_x(3) <> sel_y(1) num_select = 4 Else RESET_SELECT() Return False EndIf Else num_select = 4 EndIf Else If sel_y(3) = sel_y(2) And sel_y(3) <> sel_y(1) If DIAGONAL() = True If sel_x(3) = sel_x(1) And sel_x(3) <> sel_x(2) num_select = 4 Else RESET_SELECT() Return False EndIf Else num_select = 4 EndIf Else RESET_SELECT() Return False EndIf Else If num_select = 4 sel_x(4) = x_pos sel_y(4) = y_pos If CHECK_COLOUR(num_select) = True If GET_MISSING_X() = True And GET_MISSING_Y() = True ;REMOVE SELECTION removal = 1 ;SCORE POINTS Else RESET_SELECT() EndIf Else RESET_SELECT() EndIf EndIf EndIf EndIf End Function Function CHECK_COLOUR(i) If grid(sel_x(1), sel_y(1)) = grid(sel_x(i), sel_y(i)) Return True End Function Function RESET_SELECT() For i = 1 To 4 sel_x(i)=0 sel_y(i)=0 Next num_select = 1 End Function Function DIAGONAL() If sel_x(1) <> sel_x(2) And sel_y(1) <> sel_y(2) Return True End Function Function GET_MISSING_X() If sel_x(1) = sel_x(2) And sel_x(3) = sel_x(4) Return True Else If sel_x(2) = sel_x(3) And sel_x(1) = sel_x(4) Return True Else If sel_x(1) = sel_x(3) And sel_x(2) = sel_x(4) Return True Else Return False EndIf End Function Function GET_MISSING_Y() If sel_y(1) = sel_y(2) And sel_y(3) = sel_y(4) Return True Else If sel_y(2) = sel_y(3) And sel_y(1) = sel_y(4) Return True Else If sel_y(1) = sel_y(3) And sel_y(2) = sel_y(4) Return True Else Return False EndIf End Function Function GENERATE_NEW(x1, x2, y1, y2) For y = y1 To y2 For x = x1 To x2 grid(x, y) = Rand(0, 2) Next Next x_squares = x2-x1+1 y_squares = y2-y1+1 score = score + (x_squares * y_squares) End Function Function DISPLAY_TEXT(start_time) seconds_left = ((start_time+game_time-MilliSecs())/1000) If seconds_left <= 0 state = 2 FlushMouse() EndIf minutes_left = seconds_left /60 seconds_left = seconds_left Mod 60 Color 150, 30, 30 If seconds_left > 9 Text 480, 60, "TIME "+minutes_left+":"+seconds_left Else Text 480, 60, "TIME "+minutes_left+":0"+seconds_left EndIf Text 480, 80, "HIGH "+hiscore Color 30, 150, 30 Text 480, 100, "SCORE "+score End Function Function TITLE_SCREEN() Color 30, 150, 30 Text 100, 100, "AIM OF THE GAME:" Color 150, 30, 30 Text 100, 120, "Select tiles by clicking on them with the mouse." Text 100, 140, "Form a rectangle by selecting 4 tiles of the same colour." Text 100, 160, "Only the corners of the rectangle need to be the same colour." Text 100, 180, "Tiles in between can be of any colour." Text 100, 200, "When this is done tiles within the rectangle will be removed." Text 100, 220, "You score 1 point for each tile removed." Text 100, 240, "Removed tiles are then replaced by new tiles." Text 100, 260, "When the time is up the game ends." Color 30, 150, 30 Text 100, 320, "CLICK MOUSE TO BEGIN!" Flip WaitMouse state = 1 FlushMouse End Function Function GAME_OVER() Color 150, 30, 30 Text 100, 100, "GAME OVER" Color 30, 150, 30 Text 100, 120, "YOU SCORED: "+score+" POINTS" If score > hiscore Then hiscore = score Flip WaitMouse INITIALIZE() RESET_SELECT() state = 0 score = 0 removal = 0 FlushMouse End Function --v
Fri, 02 Feb 2007, 04:09
HoboBen	Wow. I should've read the instructions first, because I was confused for a while But, I liked this game. I'm not normally into puzzles, but maybe this could be redone with cute graphics? Imaginative title too! -=-=- blog \| work \| code \| more code
Fri, 02 Feb 2007, 06:34
mike_g	Thanks, I like this game too the title isn't really all that original though, because the games just a simplified version of this flash game Znax. I might add bonuses and stuff to my game just to give it a little something different.
Tue, 06 Feb 2007, 15:29
magicman	heres mine, its not much, but i like the player snake thing... ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;USE THE ARROW KEYS TO MOVE AND SPACE TO SHOOT;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;Created by Chris Davis;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AppTitle "Something" Graphics 800,600,16,2 AutoMidHandle True Type tail Field x#,y#,xv#,yv#,s# End Type Type bullet Field x#,y#,xv#,yv# End Type Type ball Field x#,y#,xv#,yv#,wich End Type Type part Field x#,y#,xv#,yv#,c End Type bulletimage = CreateImage(10,10) SetBuffer ImageBuffer(bulletimage) Color 1,1,1 Oval 0,0,10,10 player = CreateImage(30,30) SetBuffer ImageBuffer(player) Color 1,1,1 Oval 0,0,30,30 ballimage = CreateImage(20,20) SetBuffer ImageBuffer(ballimage) Color 1,1,1 Oval 0,0,20,20 ballimage2 = CreateImage(20,20) SetBuffer ImageBuffer(ballimage2) Color 255,255,255 Oval 0,0,20,20 Global px# = 400 Global py# = 300 Global angle# = 0 Global speed# = 0 Global score = 0 Global newb = 0 Global health = 100 Global die = 0 Global highscore = 0 SetBuffer BackBuffer() While Not KeyDown(1) ClsColor 155,155,155 Cls newb = newb + 1 If newb = 30 ba.ball = New ball ba\x = 850 ba\y = Rnd(25,575) ba\xv = Rnd(-.5,-4) ba\yv = Rnd(-2,2) ba\wich = Rnd(1,2) newb = 0 EndIf If KeyDown(203) angle = angle - 5 EndIf If KeyDown(205) angle = angle + 5 EndIf If angle => 360 angle = 1 If angle =< 0 angle = 359 If KeyDown(200) speed = speed+.1 EndIf If Not KeyDown(200) speed = speed -.1 If speed =< 0 speed = 0 EndIf If speed > 6 speed = 6 px = px + Cos(angle)speed py = py + Sin(angle)speed If px > 840 px = -40 If px < -40 px = 840 If py > 640 py = -40 If py < -40 py = 640 Color 1,1,1 t.tail = New tail t\x = px t\y = py t\xv = -Cos(angle)2 t\yv = -Sin(angle)2 t\s = 30 If KeyHit(57) b.bullet = New bullet b\x = px b\y = py b\xv = Cos(angle)10 b\yv = Sin(angle)10 EndIf For ba.ball = Each ball If ImagesCollide(player,px,py,0,ballimage,ba\x,ba\y,0) If ba\wich = 1 For i = 0 To 20 p.part = New part p\x = ba\x p\y = ba\y p\xv = Rnd(-1,1) p\yv = Rnd(-3,1) p\c = 0 Next score = score + 1 Delete ba EndIf EndIf Next For ba.ball = Each ball If ImagesCollide(player,px,py,0,ballimage,ba\x,ba\y,0) If ba\wich = 2 For i = 0 To 20 p.part = New part p\x = ba\x p\y = ba\y p\xv = Rnd(-1,1) p\yv = Rnd(-3,1) p\c = 255 Next health = health - Rnd(10,20) Delete ba EndIf EndIf Next For t.tail = Each tail Oval t\x-(t\s/2),t\y-(t\s/2),t\s,t\s t\s = t\s -.7 t\x = t\x + t\xv t\y = t\y + t\yv If t\s =< 0 Delete t Next For b.bullet = Each bullet DrawImage bulletimage,b\x,b\y b\x = b\x + b\xv b\y = b\y + b\yv If (b\y < -10) Or (b\y > 610) Or (b\x < -10) Or (b\x > 810) Delete b Next For ba.ball = Each ball If ba\wich = 1 DrawImage ballimage,ba\x,ba\y If ba\wich = 2 DrawImage ballimage2,ba\x,ba\y ba\x = ba\x + ba\xv ba\y = ba\y + ba\yv If ba\y < 10 ba\yv = -ba\yv If ba\y > 590 ba\yv = -ba\yv If ba\x < -25 Delete ba Next For p.part = Each part Color p\c,p\c,p\c Rect p\x,p\y,2,2 p\x = p\x + p\xv p\y = p\y + p\yv p\yv = p\yv + .1 If p\y > 610 Delete p Next DrawImage player,px,py Color 0,0,0 Text 150,20,"Score: " + score Text 300,20,"High Score: " + highscore Text 500,20,"Health: "+ health If score > highscore highscore = score If health =< 0 health = 0 die = 1 EndIf If die = 1 For ba.ball = Each ball Delete ba Next Text 350,300,"GAME OVER!" Text 330,320,"PLAY AGAIN? Y/N" If KeyHit(49) End If KeyHit(21) score = 0 health = 100 die = 0 EndIf EndIf Delay 1 Flip Wend End --v -=-=- Stuff... Yeah...
Tue, 06 Feb 2007, 15:49
mike_g	Nice to see another entry. The snake was cool, looked more like a giant sperm to me. The feel of the contols was nice and the game was fun play
Tue, 06 Feb 2007, 15:58
magicman	heh, thanks. i like yours to! about the sperm thing, i thought that to, at least i didnt make it white! -=-=- Stuff... Yeah...
Tue, 06 Feb 2007, 16:53
Jayenkai	Workshop over! Two entries, both rather fun. Last week's vote results were as follows.. Dotty : 87.5% Super Roadster : 87.5% Avoid the Crap : 75% Bucketfull of Numbers : 68.7% Rolly Polly Bally : 62.5% Drop a Bomb : 50% Red Light, Green Light : 33.3% Captcha tha Flaaag : 16.6% The joint winners are Super Roadster (Jayenkai) and Dotty (HoboBen). Well done to all who entered. -=-=- ''Load, Next List!''