Wednesday Workshop - Socoder

Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|621\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #106 (27 Jun 2007) The Pink 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!!

Think Pink by Forklift_Fred for Workshop #106 Race against the clock to keep the other colours at bay... Mouse ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; 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-x*2,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

Jolt by magicman for Workshop #106 ok, so its just and asteroids clone, what do you want from me, huh. Cursors and Spacebar ;;;;;;;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

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

Wednesday Workshop - Socoder