#106 - The Pink Challenge - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|447\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #106 - The Pink Challenge
Tue, 26 Jun 2007, 15:50
Jayenkai	Wednesday Workshop #106 : The Pink Challenge Time until Deadline Week : 27 June 2007 The Reason : I picked a colour, and ran with it.. The Challenge : Ever since we moved beyond CGA graphics, people have desperately tried to ignore the curse of magenta.. Now it's time to shove it back in!! Extra Info 255,0,255 is your friend! 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 Two entries were posted last week, but neither of them were coded within the actual week. I think I'm going to change the rules to disallow that. I mean.. I know we'll probably end up with a few weeks without any entries, but.. The whole point of the workshop is that you've something to do when you're bored.. If you're just entering something you already made, then where's the fun in that? -=-=- ''Load, Next List!''
Tue, 26 Jun 2007, 15:57
Blitz3Dman	Erm, what are the requirements, exactly?
Tue, 26 Jun 2007, 16:23
Jayenkai	Make a very very pink game!
Tue, 26 Jun 2007, 20:54
magicman	YEY PINK!!!!
Wed, 27 Jun 2007, 09:16
Dabz	mmm pink, mmmm.... scratches head and rubs chin maDenathorn -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Thu, 28 Jun 2007, 10:32
shroom_monk	Jayenkai Two entries were posted last week, but neither of them were coded within the actual week. I think I'm going to change the rules to disallow that. The rules always have said that it is disallowed. Just no-one ever listens... -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Fri, 29 Jun 2007, 16:24
Dabz	Well, I have the main engine set up for a gay..cough erm, pink game, just got to add levels, and scores and such stuff! Nothing fancy, just a game engine I've fancied doing for a couple of weeks now. maDenathorn -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Fri, 29 Jun 2007, 19:03
Forklift_Fred	If I wasn't laid up with the flu (OK an annoying head cold!) I'd have mine posted by now... It's playable and everything, just needs work on presentation and bits that will stop it being "must try harder" coding -=-=- Come rain or shine...
Sat, 30 Jun 2007, 17:28
magicman	I think my entry is pretty much done, just have to go through and see if it needs anything else. -=-=- Stuff... Yeah...
Sun, 01 Jul 2007, 11:25
Forklift_Fred	OK, I'm done. Instructions are in the game, the bonus scoring goes up with every level as it gets harder to achieve each time. If you get to level 16 it'll loop back to level 1 but with half the time... that said, I've yet to get past level 11! Turn the majority pink to progress... ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Think Pink! ;; ;; =========== ;; ;; ;; ;; By Forklift_Fred ;; ;; For SoCodor's Wednesday Workshop ;; ;; #106 (27/06/07 - 04/07/07) ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AppTitle "Think Pink!" Graphics 640,480,32,2 arial64=LoadFont("Arial",64,True,False,False) arial32=LoadFont("Arial",32,True,False,False) ClsColor 100,0,100 Cls mode=0 SetFont arial64 Color 255,0,255 Text 320,100,"Select Screen Mode",1,0 SetFont arial32 Text 320,160,"(1=Full Screen, 2=Window)",1,0 While mode<49 Or mode>50 mode=GetKey() Wend Graphics 640,480,32,mode-48 ClsColor 100,0,100 arial32=LoadFont("Arial",32,True,False,False) arial24=LoadFont("Arial",24,True,False,False) arial64=LoadFont("Arial",64,True,False,False) Type tile Field x Field y Field colour End Type Type flippingtile Field x Field y Field colour1 Field colour2 Field steps End Type Global score=0 Global tilesize Global level=0 Global pink#,blank#,colour#,total#,ratio# Global timerstep=1 Global highscore point=CreateImage(12,21) SetBuffer ImageBuffer(point) For y=0 To 20 For x=0 To 11 Read n If n=3 Then Exit If n=0 Then Color 250,128,250 If n=1 Then Color 128,50,128 If n=2 Then Color 0,0,0 Plot x,y Next Next MaskImage point,0,0,0 Global multi=CreateImage(60,480) SetBuffer ImageBuffer(multi) For y=0 To 480 For x=0 To 60 SetColour(Rnd(0,8)) Plot x,y Next Next SetBuffer BackBuffer() HidePointer Dim sizes(15) For n=1 To 15 Read sizes(n) Next Dim qtys(15) For n=1 To 15 Read qtys(n) Next .intro SetFont arial64 Cls Color 255,0,255 Text 320,10,"Think Pink!",1 SetFont arial24 Text 320,100-10,"Race against the clock to keep the other colours at bay...",1,1 Text 320,125-10,"As the time ticks down, more squares will appear...",1,1 Text 320,150-10,"It is your job to click on them to flip them over to the pink side!",1,1 Text 320,190-10,"For every colour you change you will gain a point but...",1,1 Text 320,215-10,"Every pink square you click will change to another colour",1,1 Text 320,240-10,"and loose you 5 points!",1,1 Text 320,275-10,"Watch the bar on the right of the screen, if it drops below 50%",1,1 Text 320,300-10,"then you are in danger of failing the level and it's game over.",1,1 Text 320,325-10,"But if it reaches 100% (meaning all the squares are pink)",1,1 Text 320,350-10,"then you will gain bonus points. The longer it stays at 100%",1,1 Text 320,375-10,"then more bonus you gain!",1,1 Text 320,410-10,"Each level has smaller squares and more of them...",1,1 Text 320,435-5,"Have you got what it takes? Press a key to find out...",1,1 SetFont arial32 Color 255,128,255 Text 320,460,"Current highscore: "+highscore,1,1 Flip WaitKey() SetFont arial32 .start SeedRnd MilliSecs() level=level+1 If level=16 Then level=1 timerstep=timerstep+1 End If Global timer=30000/timerstep Global newtime Global oldtime=MilliSecs() tilesize=sizes(level) Global count=(480/tilesize)-1 Dim grid.tile(count,count) Dim flippers.flippingtile(count,count) For tile.tile=Each tile Delete tile Next For flippingtile.flippingtile=Each flippingtile Delete flippingtile Next For x=0 To count For y=0 To count grid(x,y)=New tile grid(x,y)\x=x grid(x,y)\y=y grid(x,y)\colour=0 Next Next For n=1 To qtys(level) go=True While go x=Rand(0,count) y=Rand(0,count) If grid(x,y)\colour=0 Then grid(x,y)\x=x grid(x,y)\y=y grid(x,y)\colour=Rand(1,7) If grid(x,y)\colour=3 Then grid(x,y)\colour=0 go=True Else go=False End If End If Wend Next While Not KeyHit(1) Cls CheckMouse(MouseX()/tilesize,MouseY()/tilesize) UpdateTiles() UpdateTimer() DrawGrid() DrawTimer() UpdateRatio() DrawImage point,MouseX(),MouseY() If timer=<0 Then For x=0 To 25 Color 0+(x10),0,0+(x10) Rect 200-25+x,190-25+x,240+50-x2,100+50-x2,0 Next Color 0,0,0 Rect 200,190,240,100,1 Color 205,50,205 Text 320,210,"TIME UP!",1,1 If ratio<50 Then Text 320,241,"Level Failed!",1,1 Else Text 320,241,"Level Complete!",1,1 End If Text 320,272,"Level Bonus "+Int(ratio),1,1 score=score+ratio Flip WaitKey If ratio<50 Then For x=0 To 25 Color 0+(x10),0,0+(x10) Rect 200-25+x,190-25+x,240+50-x2,100+50-x2,0 Next Color 0,0,0 Rect 200,190,240,100,1 Color 205,50,205 Text 320,210,"Final Score",1,1 Text 320,241,"(Level "+leveltimerstep+")",1,1 Text 320,272,score,1,1 Flip WaitKey If score>highscore Then For x=0 To 25 Color 0+(x10),0,0+(x10) Rect 200-25+x,190-25+x,240+50-x2,100+50-x2,0 Next Color 0,0,0 Rect 200,190,240,100,1 Color 205,50,205 Text 320,210,"New Highscore!",1,1 Text 320,241,"(By "+(score-highscore)+" Points)",1,1 Text 320,272,score,1,1 Flip highscore=score WaitKey End If level=0 score=0 Goto intro End If Goto start End If Flip Wend WaitKey End Function CheckMouse(x,y) If MouseHit(1) And xtilesize<((count+1)tilesize) Then If grid(x,y)<>Null And flippers(x,y)=Null Then FlipTile(x,y) End If End Function Function UpdateTiles() For ftile.flippingtile=Each flippingtile ftile\steps=ftile\steps-(tilesize/10) If ftile\steps=<-tilesize Then grid(ftile\x,ftile\y)\x=ftile\x grid(ftile\x,ftile\y)\y=ftile\y grid(ftile\x,ftile\y)\colour=ftile\colour2 Delete ftile End If Next End Function Function UpdateTimer() newtime=MilliSecs() dtime=oldtime-newtime If Int(timer/1000)<>Int((timer+dtime)/1000) Then For n=1 To level FlipTile(Rand(0,count),Rand(0,count),False) Next End If timer=timer+dtime oldtime=newtime End Function Function DrawGrid() For y=0 To count For x=0 To count If grid(x,y)<>Null Then SetColour(grid(x,y)\colour) Rect xtilesize,ytilesize,tilesize,tilesize,1 Next Next For ftile.flippingtile=Each flippingtile If ftile\steps>0 Then SetColour(ftile\colour1) Oval ftile\xtilesize,(ftile\ytilesize)+(tilesize-ftile\steps)/2,tilesize,ftile\steps,1 Else SetColour(ftile\colour2) Oval ftile\xtilesize,(ftile\ytilesize)+(tilesize/2)+(ftile\steps/2),tilesize,Abs(ftile\steps),1 End If Next End Function Function DrawTimer() timerlength=timer/72 For x=0 To 25 Color 255,0+(x10),255 Rect 500+x,450-timerlength,52-x2,timerlength,0 Next Color 200,50,200 Text 526,450,Int(timer/1000),1 Text 500,0,score End Function Function UpdateRatio() pink=0 blank=0 colour=0 total=0 For tile.tile=Each tile If tile\colour=3 Then pink=pink+1 Else If tile\colour=0 Then blank=blank+1 Else colour=colour+1 End If Next total=pink+colour ratio=(100/total)pink If ratio=100 Then score=score+(100level) DrawImage multi,600,0 length#=(4.8)ratio top#=480-length Color 255,0,255 Rect 600,top,42,length,1 For x=0 To 12 Color 0+(x20),0,0+(x20) Rect 600+x,top,42-x2,length,0 Next Color 255,128,255 Text 620,top+2,Int(ratio),1 End Function Function FlipTile (x,y,sc=True) flippers(x,y)=New flippingtile flippers(x,y)\x=x flippers(x,y)\y=y flippers(x,y)\steps=tilesize+1 flippers(x,y)\colour1=grid(x,y)\colour If grid(x,y)\colour=3 Then flippers(x,y)\colour2=Rand(1,7) If sc Then score=score-5 Else If grid(x,y)\colour=0 Then If Not sc flippers(x,y)\colour2=Rand(1,7) Else flippers(x,y)\colour2=3 If sc Then score=score+1 End If grid(x,y)\colour=0 End Function Function SetColour(n) Select n Case 1 ; Blue Color 0,0,255 Case 2 ; Red Color 255,0,0 Case 3 ; Magenta Color 255,0,255 Case 4 ; Green Color 0,255,0 Case 5 ; Cyan Color 0,255,255 Case 6 ; Yellow Color 255,255,0 Case 7 ; White Color 255,255,255 Case 0 ; "Black" Color 100,0,100 End Select End Function .pointer Data 1,3 Data 1,1,3 Data 1,0,1,3 Data 1,0,0,1,3 Data 1,0,0,0,1,3 Data 1,0,0,0,0,1,3 Data 1,0,0,0,0,0,1,3 Data 1,0,0,0,0,0,0,1,3 Data 1,0,0,0,0,0,0,0,1,3 Data 1,0,0,0,0,0,0,0,0,1,3 Data 1,0,0,0,0,0,0,0,0,0,1,3 Data 1,0,0,0,0,0,0,1,1,1,1,1 Data 1,0,0,0,1,0,0,1,3 Data 1,0,0,1,1,0,0,1,3 Data 1,0,1,2,2,1,0,0,1,3 Data 1,1,2,2,2,1,0,0,1,3 Data 1,2,2,2,2,2,1,0,0,1,3 Data 2,2,2,2,2,2,1,0,0,1,3 Data 2,2,2,2,2,2,2,1,0,0,1,3 Data 2,2,2,2,2,2,2,1,0,0,1,3 Data 2,2,2,2,2,2,2,2,1,1,3 .sizes Data 96,80,60,48,40,34,32,30,24,22,20,16,15,12,10 .qtys Data 3,5,8,11,16,24,35,51,75,110,161,236,346,507,743 --v It's 2D coded in Blitz3D, graphics could be better but it's all in the code and does the job well enough. (much like some of the code ) If you need an EXE, you can download it HERE (I've yet to sort out my web space again so it's not a direct download yet, open the page then* download) -=-=- Come rain or shine...
Sun, 01 Jul 2007, 12:12
magicman	Thats pretty cool Fred. very nice, very nice indeed! -=-=- Stuff... Yeah...
Mon, 02 Jul 2007, 19:35
magicman	Heres mine, its just a simple asteroids clone, nothing to special. ;;;;;;;JOLT!!;;;;;;;;;;created by Chris Davis;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;ok, so its just and asteroids clone, what do you want from me, huh.;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Arow keys to move, space to shoot ;the squares are power-ups AppTitle "JOLT" Graphics 800,600,16,2 AutoMidHandle True Type part Field x#,y#,xv#,yv#,r#,b#,g# End Type Type bullet Field x#,y#,xv#,yv# End Type Type enemy Field x#,y#,xv#,yv#,s End Type Type pu Field x#,y#,xv#,yv# End Type puimage = CreateImage(20,20) SetBuffer ImageBuffer(puimage) Color 255,130,255 Rect 0,0,20,20,0 enemyimage = CreateImage(50,50) SetBuffer ImageBuffer(enemyimage) Color 255,130,255 Oval 0,0,50,50,0 enemyimage2 = CreateImage(25,25) SetBuffer ImageBuffer(enemyimage2) Color 255,130,255 Oval 0,0,25,25,0 enemyimage3 = CreateImage(12,12) SetBuffer ImageBuffer(enemyimage3) Color 255,130,255 Oval 0,0,12,12,0 bulletimage = CreateImage(2,2) SetBuffer ImageBuffer(bulletimage) Color 255,130,255 Rect 0,0,2,2 Global powerup = 0 Global angle = 1 Global x# = 400 Global y# = 300 Global v# = 0 Global score = 0 Global lives = 3 player = CreateImage(10,20) SetBuffer ImageBuffer(player) Color 255,130,255 Line 0,20,5,0 Line 9,20,5,0 Line 0,19,9,19 Const rotate=180 Dim frames(rotate) For i=1 To rotate frames(i)=CopyImage(player) RotateImage frames(i),i360/rotate Next sheildimage = CreateImage(40,40) SetBuffer ImageBuffer(sheildimage) Color 255,130,255 Oval 0,0,40,40,0 Global sheild = 1 Global sheildtime = 140 font = LoadFont("neuropol",25,25) SetFont font font2 = LoadFont("neuropol",35,35) font3 = LoadFont("neuropol",15,15) Global game = 0 Global gameover = 0 Global pv# = 0 Global createpu = 0 SetBuffer BackBuffer() While Not KeyDown(1) Cls If game = 0 newp = Rnd(0,15) npx = Rnd(0,800) npy = Rnd(0,600) pv = Rnd(1,5) If newp = 7 For i = 0 To 72 p.part = New part p\x = npx p\y = npy p\xv = Cos(pangle)pv p\yv = Sin(pangle)pv p\r = 255 p\g = 130 p\b = 255 pangle = pangle + 5 Next EndIf For p.part = Each part Color p\r,p\g,p\b Rect p\x,p\y,2,2 p\x = p\x + p\xv p\y = p\y + p\yv p\g = p\g - 3 p\r = p\r - 3 p\b = p\b - 3 If p\r < 5 p\r = 5 If p\g < 5 p\g = 5 If p\b < 5 p\b = 5 If p\r < 5 If p\b < 5 Delete p EndIf EndIf Next Color 255,130,255 SetFont font2 Text 345,30,"JOLT" SetFont font Text 305,450,"Press Enter" SetFont font3 Text 10,580,"Created by Chris Davis" If KeyHit(28) game = 1 score = 0 gameover = 0 sheild = 1 sheildtime = 140 x = 400 y = 300 lives = 5 back = 0 v = 0 powerup = 0 For i = 0 To 25 e.enemy = New enemy e\x = Rnd(-90,890) e\y = Rnd(-90,690) e\xv = Rnd(-4,4) e\yv = Rnd(-4,4) e\s = Rnd(1,2) Next numleft = 26 EndIf EndIf If game = 1 SetFont font If gameover = 0 If KeyDown(200) v = v + .05 EndIf If Not KeyDown(200) v = v -.05 EndIf If v > 4 v = 4 If v < 0.0 v = 0 If KeyDown(203) angle = angle - 2 If KeyDown(205) angle = angle + 2 If angle => 179 angle = 1 If angle =< 0 angle = 179 x=x+Cos(angle2-90)v y=y+Sin(angle2-90)v If x > 810 x = -9 If x < -10 x = 809 If y > 610 y = -9 If y < -10 y = 609 If KeyHit(57) If powerup = 0 b.bullet = New bullet b\x = x b\y = y b\xv = Cos(angle2-90)10 b\yv = Sin(angle2-90)10 EndIf If powerup = 1 b.bullet = New bullet b\x = x b\y = y b\xv = Cos((angle-3)2-90)10 b\yv = Sin((angle-3)2-90)10 b.bullet = New bullet b\x = x b\y = y b\xv = Cos((angle+3)2-90)10 b\yv = Sin((angle+3)2-90)10 EndIf If powerup = 2 b.bullet = New bullet b\x = x b\y = y b\xv = Cos(angle2-90)10 b\yv = Sin(angle2-90)10 b.bullet = New bullet b\x = x b\y = y b\xv = Cos((angle-3)2-90)10 b\yv = Sin((angle-3)2-90)10 b.bullet = New bullet b\x = x b\y = y b\xv = Cos((angle+3)2-90)10 b\yv = Sin((angle+3)2-90)10 EndIf EndIf EndIf For b.bullet = Each bullet For e.enemy = Each enemy If e\s = 1 If ImagesOverlap(enemyimage,e\x,e\y,bulletimage,b\x,b\y) b\x = 810 b\xv = 5 e\s = 2 e\xv = Rnd(-3,3) e\yv = Rnd(-3,3) oldx = e\x oldy = e\y For i = 1 To 36 p.part = New part p\x = e\x p\y = e\y p\xv = Cos(pangle)2 p\yv = Sin(pangle)2 p\r = 255 p\b = 255 p\g = 130 pangle = pangle + 10 Next e.enemy = New enemy e\x = oldx e\y = oldy e\xv = Rnd(-3,3) e\yv = Rnd(-3,3) e\s = 2 score = score + 5 numleft = numleft + 1 EndIf EndIf Next Next For b.bullet = Each bullet For e.enemy = Each enemy If e\s = 2 If ImagesOverlap(enemyimage2,e\x,e\y,bulletimage,b\x,b\y) b\x = 810 b\xv = 5 e\s = 3 e\xv = Rnd(-3,3) e\yv = Rnd(-3,3) oldx = e\x oldy = e\y For i = 1 To 36 p.part = New part p\x = e\x p\y = e\y p\xv = Cos(pangle)3 p\yv = Sin(pangle)3 p\r = 255 p\b = 255 p\g = 130 pangle = pangle + 10 Next e.enemy = New enemy e\x = oldx e\y = oldy e\xv = Rnd(-3,3) e\yv = Rnd(-3,3) e\s = 3 score = score + 5 numleft = numleft + 1 EndIf EndIf Next Next For b.bullet = Each bullet For e.enemy = Each enemy If e\s = 3 If ImagesOverlap(enemyimage3,e\x,e\y,bulletimage,b\x,b\y) For i = 1 To 36 p.part = New part p\x = e\x p\y = e\y p\xv = Cos(pangle)2 p\yv = Sin(pangle)2 p\r = 255 p\b = 255 p\g = 130 pangle = pangle + 10 Next Delete e b\x = 810 b\xv = 5 score = score + 5 numleft = numleft - 1 EndIf EndIf Next Next For e.enemy = Each enemy If e\s = 1 If ImagesCollide(player,x,y,0,enemyimage,e\x,e\y,0) lives = lives - 1 sheild = 1 sheildtime = 140 For i = 0 To 180 p.part = New part p\x = x p\y = y p\xv = Cos(pangle)3 p\yv = Sin(pangle)3 p\r = 255 p\g = 130 p\b = 255 pangle = pangle + 2 Next Delete e numleft = numleft - 1 EndIf EndIf Next For e.enemy = Each enemy If e\s = 2 If ImagesCollide(player,x,y,0,enemyimage2,e\x,e\y,0) lives = lives - 1 sheild = 1 sheildtime = 140 For i = 0 To 180 p.part = New part p\x = x p\y = y p\xv = Cos(pangle)3 p\yv = Sin(pangle)3 p\r = 255 p\g = 130 p\b = 255 pangle = pangle + 2 Next Delete e numleft = numleft - 1 EndIf EndIf Next For e.enemy = Each enemy If e\s = 3 If ImagesCollide(player,x,y,0,enemyimage3,e\x,e\y,0) lives = lives - 1 sheild = 1 sheildtime = 140 For i = 0 To 180 p.part = New part p\x = x p\y = y p\xv = Cos(pangle)3 p\yv = Sin(pangle)3 p\r = 255 p\g = 130 p\b = 255 pangle = pangle + 2 Next Delete e numleft = numleft - 1 EndIf EndIf Next If sheild = 1 For e.enemy = Each enemy If e\s = 1 If ImagesCollide(sheildimage,x,y,0,enemyimage,e\x,e\y,0) For i = 0 To 36 p.part = New part p\x = e\x p\y = e\y p\xv = Cos(pangle) p\yv = Sin(pangle) p\r = 255 p\g = 130 p\b = 255 pangle = pangle + 10 Next Delete e numleft = numleft - 1 EndIf EndIf Next For e.enemy = Each enemy If e\s = 2 If ImagesCollide(sheildimage,x,y,0,enemyimage2,e\x,e\y,0) For i = 0 To 36 p.part = New part p\x = e\x p\y = e\y p\xv = Cos(pangle) p\yv = Sin(pangle) p\r = 255 p\g = 130 p\b = 255 pangle = pangle + 10 Next Delete e numleft = numleft - 1 EndIf EndIf Next For e.enemy = Each enemy If e\s = 3 If ImagesCollide(sheildimage,x,y,0,enemyimage3,e\x,e\y,0) For i = 0 To 36 p.part = New part p\x = e\x p\y = e\y p\xv = Cos(pangle) p\yv = Sin(pangle) p\r = 255 p\g = 130 p\b = 255 pangle = pangle + 10 Next Delete e numleft = numleft - 1 EndIf EndIf Next EndIf createpu = Rnd(0,200) If createpu = 10 pu.pu = New pu pu\x = Rnd(0,800) pu\y = Rnd(0,600) pu\xv = Rnd(-2,2) pu\yv = Rnd(-2,2) EndIf For pu.pu = Each pu If ImagesCollide(puimage,pu\x,pu\y,0,player,x,y,0) powerup = Rnd(1,2) poweruptime = 400 Delete pu EndIf Next poweruptime = poweruptime - 1 If poweruptime =< 0 powerup = 0 For b.bullet = Each bullet Color 255,0,255 DrawImage bulletimage,b\x,b\y b\x = b\x + b\xv b\y = b\y + b\yv If (b\x > 810) Or (b\x < -10) Or (b\y > 610) Or (b\y < -10) Delete b Next For e.enemy = Each enemy If e\s = 1 DrawImage enemyimage,e\x,e\y If e\s = 2 DrawImage enemyimage2,e\x,e\y If e\s = 3 DrawImage enemyimage3,e\x,e\y e\x = e\x + e\xv e\y = e\y + e\yv If e\x > 850 e\x = -49 If e\x < -50 e\x = 849 If e\y > 650 e\y = -49 If e\y < -50 e\y = 649 Next For p.part = Each part Color p\r,p\g,p\b Rect p\x,p\y,2,2 p\x = p\x + p\xv p\y = p\y + p\yv p\g = p\g - 3 p\r = p\r - 3 p\b = p\b - 3 If p\g < 5 p\g = 5 If p\r < 5 If p\b < 5 Delete p EndIf EndIf Next For pu. pu = Each pu DrawImage puimage,pu\x,pu\y pu\x = pu\x + pu\xv pu\y = pu\y + pu\yv If (pu\x < -100) Or (pu\x > 900) Delete pu Next If numleft =< 0 For i = 0 To 25 e.enemy = New enemy e\x = Rnd(-90,890) e\y = Rnd(-90,690) e\xv = Rnd(-4,4) e\yv = Rnd(-4,4) e\s = Rnd(1,2) Next numleft = 26 EndIf DrawImage(frames(angle),x,y) If sheild = 1 DrawImage sheildimage,x,y EndIf sheildtime = sheildtime - 1 If sheildtime =< 0 sheild = 0 Color 255,130,255 Text 50,10,"SCORE: " + score For i= 1 To lives DrawImage player,650+i20,20 Next Rect 400-(sheildtime),10,sheildtime*2,20 Color 0,0,0 Text 350,8,"SHEILD" If lives =< 0 gameover = 1 If gameover = 1 Color 255,130,255 Text 310,250,"GAME OVER" back = back + 1 If back => 150 game = 0 For e.enemy = Each enemy Delete e Next For p.part = Each part Delete p Next For b.bullet = Each bullet Delete b Next For pu.pu = Each pu Delete pu Next EndIf EndIf EndIf Flip Wend End --v -=-=- Stuff... Yeah...
Tue, 03 Jul 2007, 16:45
Jayenkai	15 minutes remaining, and 2 entries in. That's a nice average number of entries. The next workshop will be opening shortly. You won't w-ant to miss it! -=-=- ''Load, Next List!''
Tue, 03 Jul 2007, 19:23
Forklift_Fred	Thanks magicman, I'll check your out tomorrow, I'm about to go to bed (about time too!) I c-ant wait to see the next workshop! OK, I already have but it was worth the extra pun wasn't it? Couple of ideas brewing already... -=-=- Come rain or shine...