Blogs - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|634\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Blogs Home -> Blogs

Blitz3Dman	Created : 22 April 2007 Edited : 22 April 2007 TANKTICS my first WW
It's nearly done. All I have to do is implement bullets and then make more levels. Screenies: title screen game

Comments
Monday, 23 April 2007, 06:16
Blitz3Dman	Bullets implemented. I am now finishing up my game by making loads of levels.
Monday, 23 April 2007, 06:34
Blitz3Dman	Finished! rapidshare.com/files/27480819/TANKTICS.zip.html
Saturday, 28 April 2007, 19:28
bram32	Cool game, man. I like the levels a lot, they are very nice.
Saturday, 28 April 2007, 21:36
power mousey	hey Blitz3dman, reminiscent of the fine Dos graphics of such games as Wasteland and Fountain of Dreams. Are you going to add icons like cities or towns? Where when you enter onto the city or town it will display a screen asking you if you want to enter or not the city or town limits. And if you do, then it will bring up a new level for that particular town or city. How about Las Vegas, or even Death Valley? cheers power mousey
Sunday, 29 April 2007, 00:32
shroom_monk	I think it's probably to do with my computer, but I found this very slow! Although I still won...
Sunday, 29 April 2007, 05:44
Blitz3Dman	That's odd,It draws 5 images, uses ovals for bullets and does not do very many checks each loop.
Sunday, 29 April 2007, 05:53
shroom_monk	How fast does it run for you?
Sunday, 29 April 2007, 06:00
Blitz3Dman	Let me add a FPS to it real quick then you run the modified code to see yours.
Sunday, 29 April 2007, 06:06
Blitz3Dman	I get a nearly constant 61. Graphics 1632,1632,8,2 SetBuffer BackBuffer() AppTitle"TANKTICS BY DAVID" splash=LoadImage("splash.bmp") Color 255,255,0 Repeat Cls DrawImage splash,0,0 Text 256,250,"PRESS 'P' TO PLAY",1 Flip Until KeyDown(25) FlushKeys() FreeImage splash SeedRnd MilliSecs() Global fps, fps_time, fps_counter ;globals for Diablos' fps function Global tiles=LoadAnimImage("tiles.bmp",16,16,0,9) Global tank=LoadAnimImage("tanks.bmp",16,16,0,19) MaskImage tank,255,0,255 Global map=CreateImage(1632,1632) SetBuffer ImageBuffer(map) Dim grid(31,31) level=Rand(1,11) file=OpenFile("levels\Level_"+level+".tnk") For x=0 To 31 For y=0 To 31 grid(x,y)=ReadByte(file) DrawImage tiles,x16,y16,grid(x,y) Next Next CloseFile file SetBuffer BackBuffer() Type tank Field x#,y#,clr,hp,dir,go,ai,change,aix,aiy,fire End Type Type bullet Field x,y,dir,time End Type Global alive=1 Const red=1,green=2,blue=3,yellow=4 Const N=0,E=1,S=2,W=3 Const north=0,east=1,south=2,west=3,point=4,still=5 For do=1 To 4 t.tank=New tank If do=1 Then t\x=0:t\y=0 Else If do=2 t\x=31:t\y=0 Else If do=3 Then t\x=31:t\y=31 Else If do=4 t\x=0:t\y=31 t\hp=6 t\clr=(do-1)4 frame=do+1 If frame=5 Then frame=1 t\dir=(frame-1) Next Repeat alive=0 ais=0 Cls DrawImage map,0,0 For b.bullet=Each bullet die=0 b\time=b\time+1 Color 0,0,0 Oval b\x-2,b\y-2,4,4 Select b\dir Case n:b\y=b\y-10 Case e:b\x=b\x+10 Case s:b\y=b\y+10 Case w:b\x=b\x-10 End Select For t.tank=Each tank If RectsOverlap(t\x16,t\y16,16,16,b\x,b\y,4,4) Then t\hp=t\hp-1:die=1 Next If b\time>=16 Then die=1 EndIf If die=1 Then Delete b Next For t.tank=Each tank If t\hp=<0 Then Delete t:Exit If t\x<0 Then t\x=0 Else If t\x>31 Then t\x=31 If t\y<0 Then t\y=0 Else If t\y>31 Then t\y=31 lastx=t\x:lasty=t\y DrawImage tank,t\x16,t\y16,t\clr+t\dir Color 0,0,0 Rect t\x16-4,t\y16-4,64,2 Color 0,255,0 Rect t\x16-4,t\y16-4,t\hp4,2 If t\clr=0 Then If t\fire=0 Then If KeyDown(57) Then Select t\dir Case n:bullet(t\x16+8,t\y16+8-20,t\dir):t\fire=30 Case s:bullet(t\x16+8,t\y16+8+20,t\dir):t\fire=30 Case e:bullet(t\x16+8+20,t\y16+8,t\dir):t\fire=30 Case w:bullet(t\x16+8-20,t\y16+8,t\dir):t\fire=30 End Select EndIf Else t\fire=t\fire-1 EndIf alive=1 If t\go=0 Then If KeyDown(200) Then t\y=t\y-1:t\dir=n Else If KeyDown(208) Then t\y=t\y+1:t\dir=s Else If KeyDown(203) Then t\x=t\x-1:t\dir=w Else If KeyDown(205) Then t\x=t\x+1:t\dir=e If t\x<0 Then t\x=0 Else If t\x>31 Then t\x=31 If t\y<0 Then t\y=0 Else If t\y>31 Then t\y=31 If grid(t\x,t\y)=5 Then t\x=lastx:t\y=lasty If grid(t\x,t\y)=0 Then t\go=10 If grid(t\x,t\y)=1 Then t\go=15 If grid(t\x,t\y)=2 Then t\go=20 If grid(t\x,t\y)=3 Then t\go=25 If grid(t\x,t\y)=4 Then t\go=30 Else t\go=t\go-1 EndIf Else If t\fire=0 Then Select t\dir Case n:bullet(t\x16+8,t\y16+8-20,t\dir):t\fire=Rand(20,120) Case s:bullet(t\x16+8,t\y16+8+20,t\dir):t\fire=Rand(20,120) Case e:bullet(t\x16+8+20,t\y16+8,t\dir):t\fire=Rand(20,120) Case w:bullet(t\x16+8-20,t\y*16+8,t\dir):t\fire=Rand(20,120) End Select Else t\fire=t\fire-1 EndIf t\change=t\change-1 If t\change<=0 Then t\ai=Rand(0,5):t\change=Rand(60,180):If t\ai=4 Then t\aix=Rand(0,31):t\aiy=Rand(0,31) If t\go=0 Then Select t\ai Case 0:t\y=t\y-1:t\dir=n Case 1:t\x=t\x+1:t\dir=e Case 2:t\y=t\y+1:t\dir=s Case 3:t\x=t\x-1:t\dir=w Case 4:If t\x>t\aix Then t\x=t\x-1:t\dir=w Else If t\x<t\aix Then t\x=t\x+1:t\dir=e Else If t\y>t\aiy Then t\y=t\y-1:t\dir=n Else If t\y<t\aiy Then t\y=t\y+1:t\dir=s Case 5:t\x=t\x:t\y=t\y End Select If t\x<0 Then t\x=0 Else If t\x>31 Then t\x=31 If t\y<0 Then t\y=0 Else If t\y>31 Then t\y=31 If grid(t\x,t\y)=5 Then t\x=lastx:t\y=lasty If grid(t\x,t\y)=0 Then t\go=10 If grid(t\x,t\y)=1 Then t\go=15 If grid(t\x,t\y)=2 Then t\go=20 If grid(t\x,t\y)=3 Then t\go=25 If grid(t\x,t\y)=4 Then t\go=30 Else t\go=t\go-1 EndIf EndIf Next If alive=0 Then Cls Repeat Cls Color 255,255,0 Text 256,256,"GAME OVER",1,1 Flip If KeyDown(1) Then End Forever EndIf For t.tank=Each tank If t\clr>0 Then ais=ais+1 Next If ais=0 Then Cls Repeat Cls Color 255,255,0 Text 256,256,"CONGRATULATIONS; YOU WIN!",1,1 Flip If KeyDown(1) Then End Forever EndIf Text 10,10,fps() Flip Until KeyDown(1) End Function bullet(x,y,dir) b.bullet=New bullet b\x=x:b\y=y:b\dir=dir End Function Function fps() ;function by Diablos fps_counter = fps_counter+1 If fps_time < MilliSecs() fps = fps_counter fps_counter = 0 fps_time = MilliSecs()+1000 EndIf Return fps End Function --v
Sunday, 29 April 2007, 06:13
shroom_monk	I get 6...
Sunday, 29 April 2007, 06:41
Blitz3Dman	O_o Let me see if I can speed it up any...
Sunday, 29 April 2007, 06:44
Blitz3Dman	Well, I was working on a speed test of my own that tested more things than Jay's so try running this program and copy the debuglog. NOTE: the 'rating compared to mine' is not finished yet. It is only accurate with the first 2 tests. Use mousewheel to scroll the results when it's done. Graphics 800,768,0,2 AppTitle "drawing functions speed test" screen=CreateImage(800,2000) SetBuffer ImageBuffer(screen) Cls Dim ms(5) Global y=1,rate$="",avg#=0 For t=1 To 5 ms(t)=MilliSecs() For go=1 To 500 WritePixel 150+go,-5,$ffffff Next ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to writepixel 500 times: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>6 Then rate="incredibly slow!" Else If avg>4 Then rate="remarkably slow" Else If avg>1 Then rate="very slow" Else If avg>0.2 Then rate="slow" Else If avg=<0.1 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 LockBuffer() ms(t)=MilliSecs() For go=1 To 500 WritePixelFast 150+go,-5,$ffffff Next ms(t)=MilliSecs()-ms(t) UnlockBuffer() cout "milliseconds taken to writepixelfast 500 times not counting locking and unlocking buffer: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>6 Then rate="incredibly slow!" Else If avg>4 Then rate="remarkably slow" Else If avg>1 Then rate="very slow" Else If avg>0.2 Then rate="slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 ms(t)=MilliSecs() For go=1 To 500 LockBuffer() WritePixelFast 150+go,-5,$ffffff UnlockBuffer() Next ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to writepixelfast 500 times locking and unlocking buffer for each pixel: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 LockBuffer() ms(t)=MilliSecs() Line 150,-5,650,-5 ms(t)=MilliSecs()-ms(t) UnlockBuffer() cout "milliseconds taken to draw a line of 500 pixels not counting time to lock and unlock buffer: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 ms(t)=MilliSecs() LockBuffer() Line 150,-5,650,-5 UnlockBuffer() ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to draw a line of 500 pixels counting time to lock and unlock buffer: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 ms(t)=MilliSecs() For go=1 To 500 Plot 150+go,-5 Next ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to plot 500 times: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 ms(t)=MilliSecs() Rect 150,-5,500,1 ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to draw a rectangle of 500 pixels: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 ms(t)=MilliSecs() For go=1 To 500 Rect 150+go,-5,1,1 Next ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to draw 1x1 rectangles 500 times: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 ms(t)=MilliSecs() Oval 150,-5,500,1 ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to draw an oval of 500 pixels: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 ms(t)=MilliSecs() For go=1 To 500 Oval 150+go,-5,1,1 Next ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to draw 1x1 ovals 500 times: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 ms(t)=MilliSecs() Dim array(500) ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to create an array of containing 500 integers: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 ms(t)=MilliSecs() For go=1 To 500 array(go)=CreateImage(8,8) Next ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to create 500 8x8 images: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 ms(t)=MilliSecs() For go=1 To 100 gogo=gogo+1 FreeImage array(gogo) Next ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to free 100 of the 8x8 images: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" For t=1 To 5 ms(t)=MilliSecs() For go=1 To 50000 Next ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to run through a for-next loop 50,000 times: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "" gogo=0 For t=1 To 5 ms(t)=MilliSecs() For go=1 To 500 gogo=gogo+1 array(go)=WriteFile("Really important file #"+gogo) For writereallyimportantinfo=1 To 100 WriteByte(array(go),128) Next CloseFile array(go) Next ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to write 500 0.1KB files on your computer: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "What? You expect me to delete them now or something?" cout "" gogo=0 For t=1 To 5 ms(t)=MilliSecs() For go=1 To 500 gogo=gogo+1 DeleteFile("Really important file #"+gogo) Next ms(t)=MilliSecs()-ms(t) cout "milliseconds taken to delete 500 0.1KB files: "+ms(t) Next avg=((ms(1)+ms(2)+ms(3)+ms(4)+ms(5))/5.00) cout "average milliseconds: "+avg If avg>0.2 Then rate="slow" Else If avg>1 Then rate="very slow" Else If avg>3 Then rate="remarkably slow" Else If avg=0 Then rate="the same; excellent" Else rate="good" cout "your rating compared to mine is: "+rate cout "Yea, that's right; I deleted them. Happy now?" cout "" cout "milliseconds taken to delete folder 'My Documents': "+Rand(40,80) cout "milliseconds taken to delete folder 'Control Panel': "+Rand(40,80) cout "milliseconds taken to delete folder 'C:': "+Rand(80,180) cout "" cout "nah, I'm just kidding ya :D" SetBuffer BackBuffer() Repeat Cls DrawImage screen,0,MouseZ()*60 Flip Until KeyDown(1) End Function cout(txt$) Text 4,y,txt y=y+13 DebugLog txt End Function --v my results: milliseconds taken to writepixel 500 times: 0 milliseconds taken to writepixel 500 times: 0 milliseconds taken to writepixel 500 times: 1 milliseconds taken to writepixel 500 times: 0 milliseconds taken to writepixel 500 times: 0 average milliseconds: 0.2 your rating compared to mine is: good milliseconds taken to writepixelfast 500 times not counting locking and unlocking buffer: 0 milliseconds taken to writepixelfast 500 times not counting locking and unlocking buffer: 0 milliseconds taken to writepixelfast 500 times not counting locking and unlocking buffer: 0 milliseconds taken to writepixelfast 500 times not counting locking and unlocking buffer: 0 milliseconds taken to writepixelfast 500 times not counting locking and unlocking buffer: 0 average milliseconds: 0.0 your rating compared to mine is: the same; excellent milliseconds taken to writepixelfast 500 times locking and unlocking buffer for each pixel: 4 milliseconds taken to writepixelfast 500 times locking and unlocking buffer for each pixel: 5 milliseconds taken to writepixelfast 500 times locking and unlocking buffer for each pixel: 4 milliseconds taken to writepixelfast 500 times locking and unlocking buffer for each pixel: 5 milliseconds taken to writepixelfast 500 times locking and unlocking buffer for each pixel: 5 average milliseconds: 4.6 your rating compared to mine is: slow milliseconds taken to draw a line of 500 pixels not counting time to lock and unlock buffer: 0 milliseconds taken to draw a line of 500 pixels not counting time to lock and unlock buffer: 0 milliseconds taken to draw a line of 500 pixels not counting time to lock and unlock buffer: 0 milliseconds taken to draw a line of 500 pixels not counting time to lock and unlock buffer: 0 milliseconds taken to draw a line of 500 pixels not counting time to lock and unlock buffer: 0 average milliseconds: 0.0 your rating compared to mine is: the same; excellent milliseconds taken to draw a line of 500 pixels counting time to lock and unlock buffer: 0 milliseconds taken to draw a line of 500 pixels counting time to lock and unlock buffer: 0 milliseconds taken to draw a line of 500 pixels counting time to lock and unlock buffer: 0 milliseconds taken to draw a line of 500 pixels counting time to lock and unlock buffer: 0 milliseconds taken to draw a line of 500 pixels counting time to lock and unlock buffer: 0 average milliseconds: 0.0 your rating compared to mine is: the same; excellent milliseconds taken to plot 500 times: 0 milliseconds taken to plot 500 times: 0 milliseconds taken to plot 500 times: 0 milliseconds taken to plot 500 times: 0 milliseconds taken to plot 500 times: 0 average milliseconds: 0.0 your rating compared to mine is: the same; excellent milliseconds taken to draw a rectangle of 500 pixels: 0 milliseconds taken to draw a rectangle of 500 pixels: 0 milliseconds taken to draw a rectangle of 500 pixels: 0 milliseconds taken to draw a rectangle of 500 pixels: 0 milliseconds taken to draw a rectangle of 500 pixels: 0 average milliseconds: 0.0 your rating compared to mine is: the same; excellent milliseconds taken to draw 1x1 rectangles 500 times: 0 milliseconds taken to draw 1x1 rectangles 500 times: 0 milliseconds taken to draw 1x1 rectangles 500 times: 0 milliseconds taken to draw 1x1 rectangles 500 times: 0 milliseconds taken to draw 1x1 rectangles 500 times: 0 average milliseconds: 0.0 your rating compared to mine is: the same; excellent milliseconds taken to draw an oval of 500 pixels: 0 milliseconds taken to draw an oval of 500 pixels: 0 milliseconds taken to draw an oval of 500 pixels: 0 milliseconds taken to draw an oval of 500 pixels: 0 milliseconds taken to draw an oval of 500 pixels: 0 average milliseconds: 0.0 your rating compared to mine is: the same; excellent milliseconds taken to draw 1x1 ovals 500 times: 0 milliseconds taken to draw 1x1 ovals 500 times: 0 milliseconds taken to draw 1x1 ovals 500 times: 0 milliseconds taken to draw 1x1 ovals 500 times: 0 milliseconds taken to draw 1x1 ovals 500 times: 0 average milliseconds: 0.0 your rating compared to mine is: the same; excellent milliseconds taken to create an array of containing 500 integers: 0 milliseconds taken to create an array of containing 500 integers: 0 milliseconds taken to create an array of containing 500 integers: 0 milliseconds taken to create an array of containing 500 integers: 0 milliseconds taken to create an array of containing 500 integers: 0 average milliseconds: 0.0 your rating compared to mine is: the same; excellent milliseconds taken to create 500 8x8 images: 17 milliseconds taken to create 500 8x8 images: 16 milliseconds taken to create 500 8x8 images: 18 milliseconds taken to create 500 8x8 images: 18 milliseconds taken to create 500 8x8 images: 17 average milliseconds: 17.2 your rating compared to mine is: slow milliseconds taken to free 100 of the 8x8 images: 1 milliseconds taken to free 100 of the 8x8 images: 2 milliseconds taken to free 100 of the 8x8 images: 2 milliseconds taken to free 100 of the 8x8 images: 2 milliseconds taken to free 100 of the 8x8 images: 1 average milliseconds: 1.6 your rating compared to mine is: slow milliseconds taken to run through a for-next loop 50,000 times: 1 milliseconds taken to run through a for-next loop 50,000 times: 3 milliseconds taken to run through a for-next loop 50,000 times: 2 milliseconds taken to run through a for-next loop 50,000 times: 3 milliseconds taken to run through a for-next loop 50,000 times: 3 average milliseconds: 2.4 your rating compared to mine is: slow milliseconds taken to write 500 0.1KB files on your computer: 254 milliseconds taken to write 500 0.1KB files on your computer: 260 milliseconds taken to write 500 0.1KB files on your computer: 369 milliseconds taken to write 500 0.1KB files on your computer: 338 milliseconds taken to write 500 0.1KB files on your computer: 381 average milliseconds: 320.4 your rating compared to mine is: slow What? You expect me to delete them now or something? milliseconds taken to delete 500 0.1KB files: 95 milliseconds taken to delete 500 0.1KB files: 218 milliseconds taken to delete 500 0.1KB files: 95 milliseconds taken to delete 500 0.1KB files: 114 milliseconds taken to delete 500 0.1KB files: 1562 average milliseconds: 416.8 your rating compared to mine is: slow Yea, that's right; I deleted them. Happy now? milliseconds taken to delete folder 'My Documents': 54 milliseconds taken to delete folder 'Control Panel': 70 milliseconds taken to delete folder 'C:': 112 nah, I'm just kidding ya :D --v
Sunday, 29 April 2007, 07:16
mike_g	If its drawing the tiles that is so slow, and you game maps are only one screen in size, then maybe you could draw the entire map to an image buffer once when the level loads. Then draw the image of the map each loop.
Sunday, 29 April 2007, 07:24
Blitz3Dman	that's what it does! didn't you read '5 images each loop' that's the map, and the 4 tanks
Sunday, 29 April 2007, 08:01
power mousey	again, I'd say it makes a good beginning retro type of Wasteland or Fountain of Dreams games. en.wikipedia.org/wiki/Wasteland_(computer_game) en.wikipedia.org/wiki/Fountain_of_Dreams so....I was thinking, how about T A N K T A C T I C S or some similar name. a group of special army troops drive thru certain regions in their assigned areas to look for survivors, bring order, combat renegade and foreign troops, in an aftermath of World War III. the tank runs on regular gas, hybrid fuels, and even has a fuel cell system for limited runs. Yet, needs to be recharged...either thru solar, electrical, and thru other eco-friendly energy systems.
Sunday, 29 April 2007, 11:49
shroom_monk	B3DMan - Your program crashes every time I try to run it... I think my computer is just useless.
Sunday, 29 April 2007, 11:53
Blitz3Dman	Tanktics or the speed tester?
Sunday, 29 April 2007, 11:58
shroom_monk	The speed tester.
Sunday, 29 April 2007, 12:01
Blitz3Dman	Hmm.... at what point was it when it crashed?
Sunday, 29 April 2007, 14:00
power mousey	well heya shroom, seriously, perhaps it could be something in Windows Me and with the graphics card. Before my mom upgraded her Dell to XP and also her graphics card, the computer had a lot of crashing and slowness. Perhaps an upgrade to XP or a retrofit to something better than ME... like Windows 98.
Monday, 30 April 2007, 00:03
shroom_monk	Yeah, I think it is mostly the graphics card. We really need a new computer... Anyway, B3DMan, your speed tester just sat on a black screen and stopped responding. So it didn't really run at all. I just think my computer couldn't handle it.
Monday, 30 April 2007, 00:39
JL235	It runs perfectly fine on this PC at a full 60fps, but it is a very sluggish game. Perhaps this is where some of Shrooms slowdown problems lie, it's general slow speed rather then any performance issues. Blitz3DMan, you should bear in mind that images are drawn upto magnitudes faster then ovals (I've heard one a claim from one person, that on their machine it's faster to draw 1x1 images then pixels). Of course, you should test any claims yourself. But I've had one project come to a hault in the past because of slowdown caused by drawing ovals, and generally the Blitz drawing routines are slower then drawing images of the same size. As for the game, nice as an early project, but I thought it was pretty poor. It could do with a lot of improvement. Finally, using RapidShare links do put some people off, and those who do regularly use RapidShare for free may be blocked from the site when they see your link (which happens when you've download too much). Either way, in the long run you'd probably get more downloads if you hosted the file somewhere and used direct links instead. \|edit\| I'm pretty certain free RapidShare links also expire after a while if they don't get enough regular downloads. \|edit\|
Monday, 30 April 2007, 05:09
Blitz3Dman	download it here
Monday, 30 April 2007, 05:28
Blitz3Dman	Graphics 1632,1632,8,2 SetBuffer BackBuffer() AppTitle"TANKTICS BY DAVID" splash=LoadImage("splash.bmp") Color 255,255,0 Repeat Cls DrawImage splash,0,0 Text 256,250,"PRESS 'P' TO PLAY",1 Flip Until KeyDown(25) FlushKeys() FreeImage splash SeedRnd MilliSecs() Global fps, fps_time, fps_counter ;globals for Diablos' fps function Global tiles=LoadAnimImage("tiles.bmp",16,16,0,9) Global tank=LoadAnimImage("tanks.bmp",16,16,0,19) MaskImage tank,255,0,255 Global map=CreateImage(1632,1632) SetBuffer ImageBuffer(map) Dim grid(31,31) level=Rand(1,11) file=OpenFile("levels\Level_"+level+".tnk") For x=0 To 31 For y=0 To 31 grid(x,y)=ReadByte(file) DrawImage tiles,x16,y16,grid(x,y) Next Next CloseFile file SetBuffer BackBuffer() Type tank Field x#,y#,clr,hp,dir,go,ai,change,aix,aiy,fire End Type Type bullet Field x,y,dir,time End Type Global alive=1 Const red=1,green=2,blue=3,yellow=4 Const N=0,E=1,S=2,W=3 Const north=0,east=1,south=2,west=3,point=4,still=5 For do=1 To 4 t.tank=New tank If do=1 Then t\x=0:t\y=0 Else If do=2 t\x=31:t\y=0 Else If do=3 Then t\x=31:t\y=31 Else If do=4 t\x=0:t\y=31 t\hp=6 t\clr=(do-1)4 frame=do+1 If frame=5 Then frame=1 t\dir=(frame-1) Next Repeat alive=0 ais=0 Cls DrawImage map,0,0 Color 0,0,0 For b.bullet=Each bullet die=0 b\time=b\time+1 Rect b\x-2,b\y-2,4,4 Select b\dir Case n:b\y=b\y-10 Case e:b\x=b\x+10 Case s:b\y=b\y+10 Case w:b\x=b\x-10 End Select For t.tank=Each tank If RectsOverlap(t\x16,t\y16,16,16,b\x,b\y,4,4) Then t\hp=t\hp-1:die=1 Next If b\time>=16 Then die=1 EndIf If die=1 Then Delete b Next For t.tank=Each tank If t\hp=<0 Then Delete t:Exit If t\x<0 Then t\x=0 Else If t\x>31 Then t\x=31 If t\y<0 Then t\y=0 Else If t\y>31 Then t\y=31 lastx=t\x:lasty=t\y DrawImage tank,t\x16,t\y16,t\clr+t\dir Color 0,0,0 Rect t\x16-4,t\y16-4,64,2 Color 0,255,0 Rect t\x16-4,t\y16-4,t\hp4,2 If t\clr=0 Then If t\fire=0 Then If KeyDown(57) Then Select t\dir Case n:bullet(t\x16+8,t\y16+8-20,t\dir):t\fire=30 Case s:bullet(t\x16+8,t\y16+8+20,t\dir):t\fire=30 Case e:bullet(t\x16+8+20,t\y16+8,t\dir):t\fire=30 Case w:bullet(t\x16+8-20,t\y16+8,t\dir):t\fire=30 End Select EndIf Else t\fire=t\fire-1 EndIf alive=1 If t\go=0 Then If KeyDown(200) Then t\y=t\y-1:t\dir=n Else If KeyDown(208) Then t\y=t\y+1:t\dir=s Else If KeyDown(203) Then t\x=t\x-1:t\dir=w Else If KeyDown(205) Then t\x=t\x+1:t\dir=e If t\x<0 Then t\x=0 Else If t\x>31 Then t\x=31 If t\y<0 Then t\y=0 Else If t\y>31 Then t\y=31 If grid(t\x,t\y)=5 Then t\x=lastx:t\y=lasty If grid(t\x,t\y)=0 Then t\go=10 If grid(t\x,t\y)=1 Then t\go=15 If grid(t\x,t\y)=2 Then t\go=20 If grid(t\x,t\y)=3 Then t\go=25 If grid(t\x,t\y)=4 Then t\go=30 Else t\go=t\go-1 EndIf Else If t\fire=0 Then Select t\dir Case n:bullet(t\x16+8,t\y16+8-20,t\dir):t\fire=Rand(20,120) Case s:bullet(t\x16+8,t\y16+8+20,t\dir):t\fire=Rand(20,120) Case e:bullet(t\x16+8+20,t\y16+8,t\dir):t\fire=Rand(20,120) Case w:bullet(t\x16+8-20,t\y*16+8,t\dir):t\fire=Rand(20,120) End Select Else t\fire=t\fire-1 EndIf t\change=t\change-1 If t\change<=0 Then t\ai=Rand(0,5):t\change=Rand(60,180):If t\ai=4 Then t\aix=Rand(0,31):t\aiy=Rand(0,31) If t\go=0 Then Select t\ai Case 0:t\y=t\y-1:t\dir=n Case 1:t\x=t\x+1:t\dir=e Case 2:t\y=t\y+1:t\dir=s Case 3:t\x=t\x-1:t\dir=w Case 4:If t\x>t\aix Then t\x=t\x-1:t\dir=w Else If t\x<t\aix Then t\x=t\x+1:t\dir=e Else If t\y>t\aiy Then t\y=t\y-1:t\dir=n Else If t\y<t\aiy Then t\y=t\y+1:t\dir=s Case 5:t\x=t\x:t\y=t\y End Select If t\x<0 Then t\x=0 Else If t\x>31 Then t\x=31 If t\y<0 Then t\y=0 Else If t\y>31 Then t\y=31 If grid(t\x,t\y)=5 Then t\x=lastx:t\y=lasty If grid(t\x,t\y)=0 Then t\go=10 If grid(t\x,t\y)=1 Then t\go=15 If grid(t\x,t\y)=2 Then t\go=20 If grid(t\x,t\y)=3 Then t\go=25 If grid(t\x,t\y)=4 Then t\go=30 Else t\go=t\go-1 EndIf EndIf Next If alive=0 Then Cls Repeat Cls Color 255,255,0 Text 256,256,"GAME OVER",1,1 Flip If KeyDown(1) Then End Forever EndIf For t.tank=Each tank If t\clr>0 Then ais=ais+1 Next If ais=0 Then Cls Repeat Cls Color 255,255,0 Text 256,256,"CONGRATULATIONS; YOU WIN!",1,1 Flip If KeyDown(1) Then End Forever EndIf Text 10,10,fps() Flip Until KeyDown(1) End Function bullet(x,y,dir) b.bullet=New bullet b\x=x:b\y=y:b\dir=dir End Function Function fps() ;function by Diablos fps_counter = fps_counter+1 If fps_time < MilliSecs() fps = fps_counter fps_counter = 0 fps_time = MilliSecs()+1000 EndIf Return fps End Function --v try it now.

TANKTICS

Comments