Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|335\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #141 - The Rectangle Challenge
Tue, 04 Mar 2008, 16:44
Jayenkai	Wednesday Workshop #141 : The Rectangle Challenge Time until Deadline Week : 5 March 2008 The Reason : A nice quicky.. The Challenge : Make a game that only uses rectangles.. (and text for instuctions/scores where needed.) Extra Info Rectangles have 4 sides... (?) 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 zip or the source of your game, or whatever. (I really should get round to that Upload thing, shouldn't I!) 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 then entered into the next week's voting. (If there are any entries..) 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 ZZZzzzz.... -=-=- ''Load, Next List!''
Wed, 05 Mar 2008, 03:37
Jayenkai	R1 My entry for this week, a nice happy firework shooting game. Called R1 incase I decide to make any more this week (which can then be R2, etc) -=-=- ''Load, Next List!''
Thu, 06 Mar 2008, 16:20
HoboBen	I made one too! 141-rectangle-rts.rar (1.1MB) For a laugh, it's entirely interpreted in real-time by by scripting engine. I get about 10FPS, which isn't too bad for a 200-line script! In my defence, that doesn't mean my scripting engine is unusably slow - I was looping through it fast enough for it to render each frame, which isn't what it's really meant to do -=-=- blog \| work \| code \| more code
Sat, 08 Mar 2008, 05:38
OutOfRange	Heya, been meaning to enter one of these for a while ever since I found out about the site Work demands have been rather high lately -.-" Oh well, nice to meet you all and here's my game; Rectangles Download It's for the DS, so will need an emulator or hardware. Played Ben's for a bit, I've always liked that game but can't play Jay's as I assume it's in BlitzBasic, which I don't have the tools to play with I guess Anyways... Guess I'll see you all around
Sat, 08 Mar 2008, 06:55
Jayenkai	Nice to see a DS game, for a change! Welcome to the site (My zip, same link, now contains an exe) -=-=- ''Load, Next List!''
Sat, 08 Mar 2008, 19:27
JL235	Here is my entry. Yes I made a game and yes I also used Blitz Basic too. I'll be having myself committed tomorrow. ; 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 --v
Sat, 08 Mar 2008, 20:47
Pio	Entangled rectangles. I used Freebasic
Sun, 09 Mar 2008, 20:04
Forklift_Fred	This was nearly white rectangles on a black background but I thought I'd add some random colour into the mix which lead to the name... Confetti -=-=- Come rain or shine...
Tue, 11 Mar 2008, 17:36
Forklift_Fred	Oooh! Oooh! Second entry! I wanted to do something more interesting code wise but still managed to knock this up in one evening. A little lateral on the rectangle aspect but, well, everything you see (apart from the text) is rectangles... I give you Rectangle Racer Not the most original of ideas but it's the first time I've done anything even remotely like it -=-=- Come rain or shine...
Tue, 11 Mar 2008, 17:51
Edmund	Did this in about 30 minutes to an hour. It's quite terrible, but I said I'd make an entry. 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 --v
Thu, 13 Mar 2008, 14:58
Forklift_Fred	Just took a look at my second entry and discovered that it wasn't resetting properly! Each time you started, the difficulty started where it left off las time. A quick "count=0" later and I give you the new and improved (bug-fixed) Rectangle Racer Version 1.1 Now you actually stand a chance of beating your first score -=-=- Come rain or shine...
Thu, 13 Mar 2008, 15:03
Jayenkai	Aw, geeze, I forgot all about this lot!!! Long week.. Maybe later! -=-=- ''Load, Next List!''
Sat, 15 Mar 2008, 01:51
JL235	Bump! I just noticed that the games still haven't been uploaded. Last weeks WW, The Phone Challenge, also seems to be missing on the WW pages.