Wednesday Workshop - Socoder

Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|552\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #141 (27 Feb 2008) The Rectangle Challenge Make a game with lots of rectangles.

R1 by Jayenkai for Workshop #141 Catch the square fireworks to set them off. Mouse Click to download this entry

RTS! by HoboBen for Workshop #141 Dodge the enemy rectangles! Mouse Click to download this entry

Rectangles DS by OutOfRange for Workshop #141 Try to copy the rectangle from the other screen. Stylus! Click to download this entry

Square Surprise by JL235 for Workshop #141 Keep within the rectangle. Mouse ; Square Surprise v.1 ; by Joseph Lenton - JL235@Kent.ac.uk ; 9th March 2008, 2:20am ; if used or distributed without credit being given then I'll come and break your legs ; ; Built for Wednesday Workshop 141 - The Rectangle Challenge ; at SoCoder.net ; notes: ; - the players x, y position is presumed to be equal to the mouse position ; ### Constants ### ; the starting width and height of the computer box Const SQUARE_WIDTH = 50 Const SQUARE_HEIGHT = 50 Const SQUARE_SPEED# = 2 ; the starting player width and height Const PLAYER_WIDTH = 180 Const PLAYER_HEIGHT = 180 Const SCORE_INCREMENT# = 5.0 Const SCORE_INCREMENT_INCREMENT# = 0.03 Const DEAD_TEXT$ = "You Died!" Const RESET_TEXT$ = "press any key to restart" Const COLOR_OFFSET = 50 ; ### Types ### ; Color ; represents a color which glows and changes ; (probably should have been called GlowColor like the version I wrote in Java) Type Color Field r.ColorComponent Field g.ColorComponent Field b.ColorComponent End Type ; Color Component ; the indevidual glowing component of a color Type ColorComponent Field col# Field max Field min Field inc# End Type ; Square ; all the data about a square, Type Square ; the centre (NOT top-left) of the square on screen Field x#, y# Field destX, destY Field deltaX#, deltaY# ; the width and height of the square Field w, h Field col.Color End Type ; Player ; all the data about the player Type Player ; the centre (NOT top-left) of the square on screen Field x, y ; CURRENT width, height of player Field w, h Field col.Color End Type ; Score ; represents the score data in the world, Type Score ; the current score Field score# ; how much the score will be incremented by Field increment# ; how much the score increment will be incremented by Field increment_increment# End Type ; ### Initialize! ### Graphics 800, 600, 0, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() AppTitle "Square Surprise!" Local square.Square = Null Local player.Player = Null Local score.Score = Null ; when this is true the player is playing the game and the world will be updated Local alive = False ; when this is true the world will be updated Local reset = True ; ### Main Loop! ### ; (it's been too long since I've written that) While Not KeyDown(1) ; reset If Not alive If reset player = initializePlayer(player, GraphicsWidth()/2, GraphicsHeight()/2) square = initializeSquare(square, GraphicsWidth()/2, GraphicsHeight()/2) score = initializeScore(score) alive = True reset = False Else ; check for a keypress reset = GetKey() <> 0 EndIf ; update Else updateSquare(square) updatePlayer(player) alive = isSquareInsidePlayer(player, square) incrementScore(score) EndIf ; draw Cls drawSquare(square) drawPlayer(player) drawScore(score) If Not alive drawResetText() EndIf Flip Wend End ; end of program, here on are: ; ### Function Declarations ### ; ## Initialize Functions ### ; these functions either reset the given type to it's initial state ; and return it, or create a new one and set it to it's initial state. ; Initialize Score Function initializeScore.Score(s.Score) If s = Null Then s = New Score s\score# = 0.0 s\increment# = SCORE_INCREMENT# s\increment_increment# = SCORE_INCREMENT_INCREMENT# Return s End Function ; Initialize Square Function initializeSquare.Square(s.Square, x, y) If s = Null Then s = New Square s\x = x s\y = y s\destX = s\x s\destY = s\y s\deltaX = 0 s\deltaY = 0 s\w = SQUARE_WIDTH s\h = SQUARE_HEIGHT s\col = initializeColor(s\col) Return s End Function ; Initialize Player ; x, y - player start position ; creates and returns a new player type with the given location ; and also moves the mouse to the given location Function initializePlayer.Player(p.Player, x, y) If p = Null Then p = New Player MoveMouse(x, y) ; position p\x = x p\y = y ; size p\w = PLAYER_WIDTH p\h = PLAYER_HEIGHT ; color p\col = initializeColor(p\col) Return p End Function ; Initialize Color Function initializeColor.Color(col.Color) If col = Null Then col = New Color col\r = initializeColorComponent(col\r) col\g = initializeColorComponent(col\g) col\b = initializeColorComponent(col\b) Return col End Function ; Initialize Color Component Function initializeColorComponent.ColorComponent(col.ColorComponent) If col = Null Then col = New ColorComponent col\col# = Rand(100, 255) col\max = isValidColorComponent(col\col + COLOR_OFFSET) col\min = isValidColorComponent(col\col - COLOR_OFFSET) col\inc# = Rnd(-3.0, 3.0) Return col End Function ; Is Valid Color Component ; a color component is valid if it is greater or equal to 0 ; and less or equal to 255. ; If the given colour is valid then it will be returnd. ; If it is not then the closest valid value (0 or 255) ; will be returned instead Function isValidColorComponent(col) If col < 0 Return 0 Else If col > 255 Return 255 Else Return col EndIf End Function ; ## Update Functions ## ; Update Square Function updateSquare(s.Square) s\x# = s\x# + s\deltaX# s\y# = s\y# + s\deltaY# ; if we are moving away from the destination If isSquareMovingAwayFromDestination(s) setRandomDestination(s) EndIf updateColor(s\col) End Function ; Is Square Moving Away From Destination ; well, is it? Function isSquareMovingAwayFromDestination(s.Square) Return (s\destX# - s\x#) * s\deltaX# <= 0 Or (s\destY# - s\y#) * s\deltaY# <= 0 End Function ; Set Random Destination Function setRandomDestination(s.Square) ; set a new one s\destX = Rand(0, GraphicsWidth()) s\destY = Rand(0, GraphicsHeight()) Local angle# = ATan2(s\destY-s\y#, s\destX-s\x#) s\deltaX# = SQUARE_SPEEDCos(angle#) s\deltaY# = SQUARE_SPEEDSin(angle#) End Function ; Update Player ; p - the player to update ; moves the given player to the current mouse co-ordinates on the screen Function updatePlayer(p.Player) p\x = MouseX() p\y = MouseY() updateColor(p\col) End Function ; Update Color Function updateColor(c.Color) updateColorComponent(c\r) updateColorComponent(c\g) updateColorComponent(c\b) End Function ; Update Color Component Function updateColorComponent(c.ColorComponent) c\col# = c\col# + c\inc# If c\col# > c\max c\col = c\max c\inc = -c\inc Else If c\col# < c\min c\col# = c\min c\inc = -c\inc EndIf End Function ; Is Square Inside Player ; p - the player to compare with ; s - the square to compare against ; returns true if the square is completely within the player, false if not. Function isSquareInsidePlayer(p.Player, s.Square) Local w = (p\w-s\w)/2 Local h = (p\h-s\h)/2 Return ((s\x-w < p\x) And (s\x+w > p\x) And (s\y-h < p\y) And (s\y+h > p\y)) End Function ; Increment Score ; increments the score and the amount of which it is incremented by Function incrementScore(score.Score) score\increment# = score\increment# + score\increment_increment# score\score = score\score + score\increment# End Function ; ## Drawing Functions ## ; Set Color Function setColor(col.Color) Color col\r\col, col\g\col, col\b\col End Function ; Draw Square Function drawSquare(s.Square) setColor(s\col) Rect s\x-s\w/2, s\y-s\h/2, s\w, s\h, True End Function ; Draw Player Function drawPlayer(p.Player) setColor(p\col) Rect p\x-p\w/2, p\y-p\h/2, p\w, p\h, False End Function ; Draw Score Function drawScore(score.Score) Color 255, 255, 255 Text 5, 5, "Score: " + Int(score\score#) End Function ; Draw Reset Text Function drawResetText() Local strHeight = (StringHeight(DEAD_TEXT$) + StringHeight(RESET_TEXT$)) Color 255, 255, 255 Text (GraphicsWidth()-StringWidth(DEAD_TEXT$))/2, (GraphicsHeight()-strHeight)/2, DEAD_TEXT$ Text (GraphicsWidth()-StringWidth(RESET_TEXT$))/2, GraphicsHeight()/2, RESET_TEXT$ End Function ; ## stuff missing from standard command library ## ; Max ; returns the larger of the two values Function max(a, b) If (a > b) Return a EndIf Return b End Function ; Min ; returns the smaller of the two values Function min(a, b) If (a < b) Return a EndIf Return b End Function

Entangled Rectangles by Pio for Workshop #141 Untangle the Entangled Rectangles Mouse Click to download this entry

Confetti by Forklift_Fred for Workshop #141 Catch all the confetti Mouse Click to download this entry

Rectangle Racer by Forklift_Fred for Workshop #141 Make your way through the rectangular tunnel. Cursors Click to download this entry

QT by Edmund for Workshop #141 Try to get the squares onto the upper platforms. Mouse Global score = 0 Type box Field x,y Field up,dir End Type Type player Field x,y,oldx,oldy End Type Type plat Field x,y End Type Graphics 400, 300 SetBuffer BackBuffer() SeedRnd MilliSecs() Global player.player = New player player\x = MouseX() player\y = 250 player\oldx = player\x player\oldy = player\y plat.plat = New plat plat\x = 80 plat\y = 100 plat2.plat = New plat plat2\x = 280 plat2\y = 100 For t = 1 To 5 box.box = New box box\x = Rand(10,390) box\y = 0 box\up = 2 box\dir = 0 Next Cls Text 0,0, "bounce boxes into the top two platforms" Text 0,50, "this game is terrible" Text 0,100, "press any key" WaitKey() While Not KeyHit(1) Cls game() draw() Flip Wend Function game() player\x = MouseX() For box.box = Each box If box\dir = 1 box\x = box\x + 1 EndIf If box\dir = -1 box\x = box\x - 1 EndIf If box\x > 400 box\dir = -1 EndIf If box\x < 0 box\dir = 1 EndIf If box\x > player\x And box\x < player\x + 30 And box\y > player\y And box\y < player\y + 10 box\up = 1 box\dir = Rand(-1,1) EndIf If box\up = 1 box\y = box\y - 3 If box\y < 20 box\up = 2 EndIf EndIf If box\y > 300 Delete box Newbox() score = score - 1 Exit EndIf If box\up = 2 box\y = box\y + 3 For plat.plat = Each plat If box\x > plat\x And box\x < plat\x + 30 And box\y > plat\y And box\y < plat\y + 10 Delete box Newbox() score = score + 1 Exit EndIf Next EndIf player\oldx = player\x Next End Function Function draw() Rect player\x,player\y,30,10,True For box.box = Each box Rect box\x,box\y,10,10,True Next For plat.plat = Each plat Rect plat\x,plat\y,30,10,True Next Text 0,0,"score: " + score End Function Function newbox() box.box = New box box\x = Rand(10,390) box\y = 0 box\up = 2 box\dir = 0 End Function

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

Wednesday Workshop - Socoder