Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|35\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Jayenkai	Created : 24 October 2010 Edited : 24 October 2010 System : Windows Language : Blitz 4096 Baddies
Graphics 640,480,32,2 SetBuffer BackBuffer() bigimg=CreateImage(1024,1024) Global img=CreateImage(16,8,2) Global seed=MilliSecs() ex=0 ey=0 Repeat MakeBad() SetBuffer ImageBuffer(bigimg) DrawImage img,ex,ey,0 DrawImage img,ex+16,ey,1 SetBuffer BackBuffer() DrawImage img,ex,ey,0 DrawImage img,ex+16,ey,1 Flip False ex=ex+32 If ex=>1024 Then ex=0:ey=ey+8 Until ey=>1024 Color 0,0,0 Text 321,241,"SAVING IMAGE",1,1 Color 255,255,255 Text 320,240,"SAVING IMAGE",1,1 Flip SaveImage bigimg,"Baddies.bmp" Type die Field x,y#,n,anim,s# End Type Graphics 320,240,32,3 SetBuffer BackBuffer() Flip Cls Color 255,255,255 Text 320/2,240/2,"RELOADING AS SPRITES",1,1 Text 320/2,260/2,"(This bit takes a while)",1,1 Flip baddies=LoadAnimImage("Baddies.bmp",16,8,0,8192) Repeat Cls If Rand(0,32)=1 Then bad.die=New die:bad\x=Rand(16,320-32):bad\y=-16:bad\n=Rand(4095):bad\s=Rnd(.25,.75) For bad.die=Each die bad\y=bad\y+bad\s bad\anim=bad\anim+Rnd(2) If bad\anim>31 Then bad\anim=0 DrawImage baddies,bad\x,bad\y,(bad\n2)+(bad\anim/16) If bad\y>240 Then Delete bad.die Next Flip Until KeyDown(1) Function MakeBad() seed=seed+Rand(12985) Repeat Color Rand(0,2)125,Rand(0,2)125,Rand(0,2)125 Until ColorRed()>0 Or ColorGreen()>0 Or ColorBlue()>0 SeedRnd seed SetBuffer ImageBuffer(img,0) Cls For n=1 To 24 x=Rand(0,7) y=Rand(0,7) up=Rand(0,1) lft=Rand(0,1) Plot x,y Plot 15-x,y Next SeedRnd seed SetBuffer ImageBuffer(img,1) Cls For n=1 To 24 x=Rand(0,7) y=Rand(0,7) up=Rand(0,4) lft=Rand(0,4) If up=1 And x>2 Then x=x-2 If Lft=1 And y>1 Then y=y-1 If up=2 And x<6 Then x=x+2 If Lft=2 And y<7 Then y=y+1 Plot x,y Plot 15-x,y Next Color Rand(0,5)50,Rand(0,5)50,Rand(0,5)*50 SeedRnd seed+1 SetBuffer ImageBuffer(img,0) For n=1 To 12 x=Rand(0,7) y=Rand(0,7) up=Rand(0,1) lft=Rand(0,1) Plot x,y Plot 15-x,y Next SeedRnd seed+1 SetBuffer ImageBuffer(img,1) For n=1 To 12 x=Rand(0,7) y=Rand(0,7) up=Rand(0,4) lft=Rand(0,4) If up=1 And x>3 Then x=x-3 If Lft=1 And y>2 Then y=y-2 If up=2 And x<5 Then x=x+3 If Lft=2 And y<6 Then y=y+2 Plot x,y Plot 15-x,y Next SetBuffer BackBuffer() End Function --v Results in.. View on YouTube Which, to be frank, looks a bit shit.. But if you're planning to code an entire shoot em up within the next 24 hours, you're probably going to need something like this! Classic retro 8-bit tiny Shoot-em-up baddies!

Comments
Monday, 25 October 2010, 01:59
waroffice	I actually like that

4096 Baddies

Comments