Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|628\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #085 (31 Jan 2007) The Three Color 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.

Znaxish by mike_g for Workshop #085 Find rectangles whose corners are 4 alike shapes. Mouse 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

Something Snakey by Magicman for Workshop #085 Guide the snake to the black circles. Cursors ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;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

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.099

Wednesday Workshop - Socoder