#081 - The "New Year, New Language" Challenge

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|513\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #081 - The "New Year, New Language" Challenge
Tue, 26 Dec 2006, 16:59
Jayenkai	Wednesday Workshop #081 : The "New Year, New Language" Challenge Time until Deadline Week : 27 December 2006 The Reason : It's the start of a new year. What better time to pick up a new Coding language! The Challenge : This week you can make any type of game you want, but you must code it using the new Cobra Demo provided at SqueakyDuck.co.uk Extra Info Download the demo of Cobra and make your game. You can submit your game as Source Only, Source+Files or Demo Compiled EXE+Files, whichever you prefer. 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 underneith 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 Last week there were 3 entries! Shroom Monk sent us blasting Santa's bombs, AndrewSoltan asked us to run away from Reindeer, and Magicman made us run through a maze of rocks. Which one wins, you decide! Vote for them here. Leaving a comment lets you post a vote. The game with the highest overall percentage at the end of the week is declared the winner. -=-=- ''Load, Next List!''
Thu, 28 Dec 2006, 03:22
andrewsoltan	Hello World from My Laptop (My Router's finally arrived.) I'm not sure if I'll enter this one, cobras a new language to learn and there's only 1 week for the challene. It would be nice though if we could make a game about any subject in blitz.
Thu, 28 Dec 2006, 23:36
JL235	That would be going against the idea behind the competition. I might write something in Cobra, probably something I've made already previously just to be easy. I think after the high percentage of negative icomments I've posted about Cobra over the months (but meant as genuine criticism), entering this challenge and so giving it a fair chance would be the right thing to do. I might get started now.
Fri, 29 Dec 2006, 04:40
JL235	Ok, here is my entry. Programming with Cobra was nice, but it has it's faults. I take back what I said about it being like Blitz, it isn't. It is different, although currently inferior, it is no clone. Except for a few commands, I didn't find the syntax pretty straight forward to pick up. Things like finding the window size I have no idea to do, and the documentation isn't great. It needs bigger example boxes (I'd remove them all togethor) and to state similar commands because sometimes you don't have a clue what the command is called, but you know what it is related too. However currently it is rather buggy, and my code currently includes the worst so far. I have no idea what is causing this problem, when I left click the screen it ends the loop. Presumably it is setting 'playerLives' to 0, but when you remove all mousecommand for the left mouse button it still does it. The function is also not causing the problem. Anyway, here is my game, Missile Command. You can still shoot with the right mouse button. // MISSILE COMMAND // by Joseph Lenton // 29/12/06 Program Uses pure2d, keyset const GRAPHICS_WIDTH = 800 GRAPHICS_HEIGHT = 600 LAND_HEIGHT = 500 BASE_SIZE = 15 PLAYER_MISSILE_SIZE = 3 PLAYER_MISSILE_SPEED = 4 PLAYER_MISSILE_COLLISION_OFFSET = 3 MISSILE_SPEED = 3 MISSILE_SIZE = 3 MISSILE_RANDOMIZER = 10 MISSILE_START_ANGLE = 120 MISSILE_END_ANGLE = 60 EXPLOSION_MAXIMUM_SIZE = 80 EXPLOSION_SIZE_INCRIMENT = 6 type Bases = record x : integer y : integer endtype type PlayerMissiles = record x : real y : real destinationX : integer destinationY : integer deltaX : real deltaY : real endtype type Missiles = record x : real y : real origX : integer origY : integer deltaX : real deltaY : real endtype type Explosions = record x : integer y : integer size : integer endtype // draw land procedure drawLand() begin RectC(0, LAND_HEIGHT, GRAPHICS_WIDTH, GRAPHICS_HEIGHT, ToRGBA(180,60,90), true) end // BASES // new base Procedure newBase(x:Integer, y:Integer) Begin base = NewItem(baseList) If Assigned(base) base.x = x base.y = y Else MessageBox("Could not add base") EndIf End // draw bases procedure drawBases() begin loop base through baseList Ellipse(base.x, base.y, BASE_SIZE, BASE_SIZE, ToRGBA(255,255,255), true) endloop end // PLAYER MISSILES // new player missile procedure newPlayerMissile(x:integer, y:integer, destinationX:integer, destinationY:integer) var angle : real begin playerMissile = newItem(playerMissileList) if assigned(playerMissile) playerMissile.x = x playerMissile.y = y playerMissile.destinationX = destinationX playerMissile.destinationY = destinationY angle = atan2(y-destinationY, x-destinationX) playerMissile.deltaX = cos(angle)PLAYER_MISSILE_SPEED playerMissile.deltaY = sin(angle)PLAYER_MISSILE_SPEED else messagebox("Could not add Player Missile") endif end // update player missiles procedure updatePlayerMissiles() begin loop playerMissile through playerMissileList playerMissile.x = playerMissile.x-playerMissile.deltaX playerMissile.y = playerMissile.y-playerMissile.deltaY if abs(playerMissile.x-playerMissile.destinationX) < PLAYER_MISSILE_COLLISION_OFFSET if abs(playerMissile.y-playerMissile.destinationY) < PLAYER_MISSILE_COLLISION_OFFSET newExplosion(playerMissile.x, playerMissile.y) free(playerMissile) endif endif endloop end // draw player missiles procedure drawPlayerMissiles() begin loop playerMissile through playerMissileList ellipse(playerMissile.x, playerMissile.y, PLAYER_MISSILE_SIZE, PLAYER_MISSILE_SIZE, torgba(200, 60, 130)) endloop end // MISSILES // generate new missile procedure generateNewMissile() var randAngle:integer randX:integer begin if Rand(0, MISSILE_RANDOMIZER) = 0 randAngle = Rand(MISSILE_START_ANGLE, MISSILE_END_ANGLE) randX = Rand(50, GRAPHICS_WIDTH-50) newMissile(randAngle, randX, -10) endif end // new missile procedure newMissile(angle:integer, x:integer, y:integer) begin missile = newitem(missileList) if assigned(missile) missile.x = x missile.y = y missile.origX = x missile.origY = y missile.deltaX = cos(angle)MISSILE_SPEED missile.deltaY = sin(angle)MISSILE_SPEED Else MessageBox("Could not add missile") EndIf end // draw missiles procedure drawMissiles() var randColor:integer begin loop missile through missileList randColor = ToRGBA(Rand(30,225), Rand(30,225), Rand(30,225)) Line(missile.origX, missile.origY, missile.x, missile.y, randColor) Ellipse(missile.x, missile.y, MISSILE_SIZE, MISSILE_SIZE, randColor, true) endloop end // update missiles procedure updateMissiles() begin loop missile through missileList missile.x = missile.x+missile.deltaX missile.y = missile.y+missile.deltaY if (missile.x < 0) or (missile.x > GRAPHICS_WIDTH) or (missile.y > LAND_HEIGHT) free(missile) else checkMissileBaseCollision(missile) endif endloop end // check missile base collision procedure checkMissileBaseCollision(localMissile:^Missiles) begin loop base through baseList if Abs(base.x-missile.x) < BASE_SIZE/2+MISSILE_SIZE/2 if Abs(base.y-missile.y) < BASE_SIZE/2+MISSILE_SIZE/2 free(base) free(missile) dec(playerLives) endif endif endloop end // EXPLOSION // new explosion procedure newExplosion(x:integer, y:integer) begin explosion = newitem(explosionList) if assigned(explosion) explosion.size = 1 explosion.x = x explosion.y = y else messagebox("could not make new explosion") endif end // update explosions procedure updateExplosions() var x : integer y : integer begin loop explosion through explosionList loop missile through missileList x = abs(missile.x-explosion.x) y = abs(missile.y-explosion.y) if sqrt(xx + yy) < explosion.size free(missile) endif endloop explosion.size = explosion.size+EXPLOSION_SIZE_INCRIMENT if explosion.size > EXPLOSION_MAXIMUM_SIZE free(explosion) endif endloop end // draw explosions procedure drawExplosions() begin loop explosion through explosionList ellipse(explosion.x, explosion.y, explosion.size, explosion.size, torgba(255,255,255)) endloop end var playerLives : integer playerScore : integer baseList : list of Bases base : ^Bases playerMissileList : list of PlayerMissiles playerMissile : ^PlayerMissiles missileList : list of Missiles missile : ^Missiles explosionList : list of Explosions explosion : ^Explosions i : integer Begin OpenScreen(GRAPHICS_WIDTH, GRAPHICS_HEIGHT, 16, False) playerLives = 5 for i = 1 to playerLives newBase(rand(50, GRAPHICS_WIDTH-50), LAND_HEIGHT) next // main loop While (keydown(1)=0) and (playerLives > 0) if mousehits(0) > 0 newPlayerMissile(0, LAND_HEIGHT, mousex(), mousey()) endif if mousehits(1) > 0 newPlayerMissile(GRAPHICS_WIDTH, LAND_HEIGHT, mousex(), mousey()) endif // update everything updatePlayerMissiles updateExplosions generateNewMissile updateMissiles // draw everything Cls drawLand drawExplosions drawMissiles drawPlayerMissiles drawBases playerScore = playerScore+1 pencolor(toRgba(255,255,255)) Text(10, 52, "Score: "+playerScore) text(10, 64, "Lives: "+playerLives) Flip Wend messagebox("You Scored: " + playerScore) CloseScreen End --v Although I think it was better then initially, I do not see myself ever purchasing Cobra. Nice language, but I'm still not convinced.
Fri, 29 Dec 2006, 06:45
Jayenkai	My Entry : The Really Stupid Ball Bouncing Game Use the cursors to move left and right. Program Uses Pure2d, Keyset Var x,y,n:integer mx,mt:integer mt2:integer tick:integer speed:integer ballx:integer Heart:integer bally,bounce:real score:integer sx,ex:integer endofgame:integer offset : array[100000,2] of integer col:array[100000,6] of integer ballx2:array[500] of integer Begin OpenScreen(800, 600) mx=300 endofgame=0 mt=1 Speed=1 Tick=0 mt2=rand(0-Speed,Speed) ballx=400 bally=600 bounce=0 Score=0 Heart=5 for x=1 to mx for y=1 to 3 col[x,y]=180 col[x,y+3]=1 next next Repeat CLS( torgba(40,80,160)) for x=1 to mx-1 for y=1 to 3 col[x,y]=col[x+1,y] if x<70 then col[x,y]=col[x+4,y] if x<140 then col[x,y]=col[x+3,y] if x<210 then col[x,y]=col[x+2,y] next y=1 offset[x,y]=offset[x+1,y] if x=mx-1 then offset[x,y]=offset[x,y]+rand(-2,2) if x<70 then offset[x,y]=offset[x+4,y] if x<140 then offset[x,y]=offset[x+3,y] if x<210 then offset[x,y]=offset[x+2,y] next tick=tick+1 if tick>250 then tick=0; speed=speed+1 score=score+1 bounce=bounce+4 bally=600-abs(sin(bounce)50) if bounce>176 bounce=0 endif if keydown(VK_Left) then ballx=ballx-2 if keydown(VK_Right) then ballx=ballx+2 x=mx for y=1 to 3 col[x,y]=col[x,y]+col[x,y+3] if col[x,y]>180 then col[x,y+3]=Rand(-4,1) if col[x,y]<100 then col[x,y+3]=Rand(1,4) if rand(1,10)=1 then col[x,4]=rand(-4,4) next offset[x,1]=offset[x,1]+mt2 if offset[x,1]<-250 then offset[x,1]=-250; mt2=2 if offset[x,1]>250 then offset[x,1]=250; mt2=-2 if (rand(1,30)=1) and (offset[x,1]<100) then mt2=rand(0,speed) if (rand(1,30)=1) and (offset[x,1]>-100) then mt2=rand(0-speed,0) for x=0 to mx sx=(400-offset[x,1])-((mx-x)/3) ex=(400-offset[x,1])+((mx-x)/3) line (0,(300-offset[x,2])+((mx-x)mt),800,(300-offset[x,2])+((mx-x)mt), ToRGBA(col[x,1]-80,col[x,1],col[x,1]-80)) line (sx,(300-offset[x,2])+((mx-x)mt),ex,(300-offset[x,2])+((mx-x)mt), ToRGBA(col[x,1]+40,col[x,1]+20,col[x,1])) if (x=5) and (bounce=0) if (ballx<sx) then heart=heart-1 if (ballx>ex) then heart=heart-1 endif next ballx2[1]=ballx for n=250 to 2 step -1 ballx2[n]=ballx2[n-1] next for n=1 to heart ellipse (ballx2[((n-1)25)+1],600-abs(sin(bounce+(n25))50),20,20,torgba(255-(n*25),0,0),1) next pencolor(torgba(0,0,0)) text (400,200,"Distance "+score) if heart=0 then endofgame=1 Flip if keydown(VK_Escape) then endofgame=99 Until endofgame<>0 pause (1500) CloseScreen End --v -=-=- ''Load, Next List!''
Fri, 29 Dec 2006, 14:18
grahamk	Done mine, will post it over the weekend @Diablos, I've said over at my site that the documentation is something I've still got to work on, as I got the raw text from my 'deal', not the code to show it.. So I'm manually reformatting which takes time. It does include 'releated commands' and some other stuff which makes it a lot better. If you have a problem feel free to post over at my site where I (or others) may be able to help.. It's a new language so only a 'few' people know how to program it well, and they are all on my forums! Your problem is 'keydown(1)', this isn't blitz mousebuttons can be checked as keys (vk_lmouse = 1 I think) try replacing with keydown(vk_escape) Screen height and width can be gained from either Imagewidth/Imageheight while not representing which bitmap (defaults to screen) or selwidth and selheight which are the sizes selected from the selector dialog, or current screen width/height if you've not used the dialog. Jay, I like that one reminds me of a kind of racing game I've written on every platform I've used, all the way back to the early 80's
Sat, 30 Dec 2006, 00:19
JL235	Ok, thankyou Graham. I have made tha appropriate change to my code, I don't quite get where I got the 1 from. I think I saw it somewhere in your documentation. To be honest though, I don't see myself programming in Cobra so I won't be joining you over at your forum.
Wed, 03 Jan 2007, 13:45
magicman	heres mine, i already sent it to jay so it isnt really late.... program uses pure2d,keyset type bullet = record x,y,xv,yv:real sprite:element endtype type enemy = record x,y,xv,yv:real sprite:element endtype type part = record x,y,xv,yv,r:real sprite:element endtype var //backimage: element player: element xv:real yv:real bulletimage:element bulletlist: list of bullet bu:^bullet enemyimage:element newenemy:integer enemylist: list of enemy en:^enemy partlist: list of part pa:^part i:integer score:integer begin OpenScreen //ballimage = CreateSprite(60,60) //Ellipse(30,30,30,30,ToRGBA(255,255,255,255),TRUE,ballimage) //PositionSprite (ballimage,400,300) //backimage = Loadimage("back.png") player = CreateSprite(50,20) rect(0,0,50,20,ToRGBA(0,255,0,255),FALSE,player) PositionSprite(player,400,580) SetSpritePivot(player,SpriteWidth(player)/2,spriteheight(player)/2) enemyimage = CreateImage(20,20) rect(0,0,20,20,ToRGBA(0,0,255,255),FALSE,enemyimage) SetSpritePivot(enemyimage,SpriteWidth(enemyimage)/2,spriteheight(enemyimage)/2) bulletimage = CreateImage(20,20) Ellipse(10,10,10,10,ToRGBA(0,255,0,255),FALSE,bulletimage) //SetSpritePivot(bulletimage,SpriteWidth(bulletimage)/2,spriteheight(bulletimage)/2) while not KeyDown(vk_escape) CLS //DrawImage (backimage,0,0) if KeyDown(vk_left) xv = xv -0.5 if KeyDown(vk_right) xv = xv +0.5 if not KeyDown(vk_right) if not KeyDown(vk_left) if xv < 0 xv = xv +0.5 if xv > 0 xv = xv -0.5 endif endif if xv > 5 xv = 5 if xv < -5 xv = -5 MoveSprite(player,xv,yv) if SpriteX(player) > 775 xv = -xv if SpriteX(player) < 25 xv = -xv //createbullet = createbullet + 1 if Keyhits(vk_space)=1//createbullet < 50 //bu = newitem(bulletlist) //bu.x = SpriteX(player) //400 //bu.y = SpriteY(player) //300 //bu.xv = -0.2 //bu.yv = -8 //bu = newitem(bulletlist) //bu.x = SpriteX(player) //400 //bu.y = SpriteY(player) //300 //bu.xv = 0.2 //bu.yv = -8 bu = newitem(bulletlist) bu.x = SpriteX(player)-10 //400 bu.y = SpriteY(player)- 10 //300 bu.xv = 0 bu.yv = -8 endif newenemy = newenemy + 1 if newenemy > 50 en = newitem(enemylist) en.x = Rnd(0,800) en.y = -20 en.xv = Rnd(-2,2) en.yv = Rnd(0.1,3) newenemy = 0 endif loop bu through bulletlist bu.x = bu.x + bu.xv bu.y = bu.y + bu.yv bu.yv = bu.yv + 0.06 //if bu.y > 585 bu.yv = - bu.yv if bu.y < 15 bu.yv = - bu.yv if bu.x > 785 bu.xv = - bu.xv if bu.x < 15 bu.xv = - bu.xv //bu.sprite = CreateSprite(20,20) //Ellipse(bu.x,bu.y,10,10,ToRGBA(255,255,255,255),TRUE,bu.sprite) DrawImage(bulletimage,bu.x,bu.y) if bu.y > 610 Free(bu) endloop loop en through enemylist en.x = en.x + en.xv en.y = en.y + en.yv //rect(en.x,en.y,20,20,ToRGBA(255,255,255,255),FALSE,en.sprite) DrawImage(enemyimage,en.x,en.y) endloop loop pa through partlist pa.x = pa.x + pa.xv pa.y = pa.y + pa.yv pa.yv = pa.yv + 0.01 pa.r = pa.r - 2 Rect(pa.x,pa.y,2,2,ToRGBA(pa.r,0,0),TRUE,pa.sprite) if pa.r < 5 free(pa) endloop loop en through enemylist loop bu through bulletlist if en.x - bu.x < 20 if en.x - bu.x > -20 if en.y - bu.y < 20 if en.y - bu.y > -20 for i = 0 to 20 pa = newitem(partlist) pa.x = en.x pa.y = en.y pa.xv = Rnd(-2,2) pa.yv = Rnd(-2,2) pa.r = 255 next score = score + 1 free(en) free(bu) endif endif endif endif endloop endloop Text(400,10,"Score: " + score) Flip wend closescreen end --v im going to work on that and make a real game. -=-=- Stuff... Yeah...
Wed, 03 Jan 2007, 15:00
Jayenkai	I have other stuff to deal with, and the site's been up and down more times than something that goes up and down a lot. Let's just make this the first ever 2 week WW, shall we? You have until Wed. 10th. Apologies to those who rushed.. Why not take your time, and make another game! -=-=- ''Load, Next List!''
Wed, 03 Jan 2007, 16:02
magicman	in that case im withdrawling my entry so i can make it better. -=-=- Stuff... Yeah...
Fri, 05 Jan 2007, 14:08
magicman	ok, my entry is complete, its simple, but it has graphics, graphics that are all alphaed and stuff, however i found that if you use the spriteangle command you cant alpha whatever you are spriteangleing, wich is annoying. anyways, here it is... Game -=-=- Stuff... Yeah...
Sun, 07 Jan 2007, 05:09
shroom_monk	If this challenge is running for 2 weeks, then does that mean that the voting for WW#80 continues for 2 weeks aswell? -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Tue, 09 Jan 2007, 15:15
Jayenkai	This WW will be closing (finally!) in the next 2 hours. All entries must be in by that time, and yeah, I guess the voting kept going for an extra week, too! --- WW#81 now finished. The winner of last week's workshop (at time of posting) is Magicman's Present Scramble with a 91.6% rating. Shroom was next, with 75% for Santa Gone Wild, and Andrew was in last place with only 40% for Santa Got Run Over... Well done, Magicman! -=-=- ''Load, Next List!''