My Shroom is as slow as a Snail...

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|664\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> My Shroom is as slow as a Snail...
Fri, 05 Jan 2007, 14:17
shroom_monk	OK, I've been working on one of my entries for the Community Project, called Shroom Maze Run. You have to get your Shroom from the red to the green square of the maze, but not get touched by the evil acid of doom. However, it's really, really slow!!! Now, I know that my computer is slow, but I do wish to speed up my game. If anyone can tell me how to make it faster I would be most grateful. Download zip file (19KB) You need to run the file 'starter.bb' to run the main thing, but the actual code is in the 'shroom_maze_run.bb' file. Thanks. -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Fri, 05 Jan 2007, 15:27
bram32	It looks okay, the speed isn't too bad on my PC. I think the biggest slowdown is using ImageCollide. Maybe instead, you could use ReadPixel() ? Sometimes, the space doesn't work. It is better to read KeyHit(57) only one time each loop. You could store it in a variable 'SpaceHit' o.s. If you change the 'Flip' in the main loop to 'Flip False', you can see the actual speed of the program. Otherwise it gets rounded to the refreshrate of the monitor.
Fri, 05 Jan 2007, 15:58
power mousey	thank you bram32. I was going to download and check it. But I see you got to it first...did your homework first. haha I like the topic of this post. My Shroom is slow as a snail. Thats good. true cheers, power mousey
Fri, 05 Jan 2007, 16:07
steve_ancell	Shroom... Your game is so fast, it told me that I lost as soon as I run it.
Fri, 05 Jan 2007, 16:31
JL235	Very nice, but I have a few minor issues. First the acid starts too quickly, or more it's not shown approaching. The first 5 times I didn't understand why it was suddenly dying as I was still on the left and the acid killed me by only one pixel. You could also have the acid continue to move across, which would show to the player why they died. Second the maze is too hard, as if you don't go up right at the beginning, you've lost, but I really like the idea. Finally nothing happened when I got to the green square. As I said, I really liked the idea, and it's fast and short too. \|edit\| Also Bram, 'Flip True' does not make the frame rate round to the monitors refresh rate. It makes Blitz wait until the vertical blank before drawing, which is entirely different. Although I also know exactly what you meant, to say 'Flip False' will give you the 'actual speed' of the program is also misleading. With 'Flip True' the vertical wait is now a deliberate aspect of the program, and just as if you added drawing functions, this requires time to be achieved (even if the program spends that time waiting). To say removing this will give you the 'actual speed' is like saying removing drawing functions will give you the 'actual speed'. \|edit\|
Fri, 05 Jan 2007, 17:59
bram32	:o i didn't want to mislead .. You are right, I chose my words carelessly. I'm sorry. With 'Rounding' I ment, that if your program can't make, say, the 60 hz vsync, it will wait for the next one. So it will run at 30 hz. In this case, changing to flip false didn't speed up the program. However, commenting out all ImageCollide calls, made the program much faster. I believe that when optimizing, it is helpful to change to 'flip false'. That way, you can see how much 'spare capacity' you have.
Fri, 05 Jan 2007, 18:20
JL235	I know exactly what you meant Bram, but I feel we could really start a proper game and programming society here. But if you want to truely debate a subject, you need to first use the correct terminology.
Fri, 05 Jan 2007, 18:49
bram32	I agree, it would be nice to have a good community. For me, helping out on the forums has been very helpful. I read somewhere (I believe back on cw) that you learn the most by helping out others. That, I found, is true. I learnt a lot about game programming while trying to help the last year. For every answer, I take my time. Before I post links or routines, I check them, twice if needed. I often read my posts and try to correct spelling mistakes. I admit, terminology is a problem, since English isn't my mother's tongue. So if I'm using any incorrect terms, please just correct me. I won't feel offended. I'd be happy to learn. But I do want you to know, that when I answer, I try to answer seriously and to the best of my knowledge.
Sat, 06 Jan 2007, 00:46
shroom_monk	OK, thanks guys. I will try out your suggestions. @mousey - I'm glad you like my title. -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Sat, 06 Jan 2007, 02:52
shroom_monk	OK, I've made some more changes, based on what you said. But for the new collision thing without using the image, I put in a whole new system. And I think that collision loop is what is now slowing it down. Any suggestions on that? (use the old download link at the top) -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Sat, 06 Jan 2007, 09:11
bram32	It is difficult to optimize the program, because it runs fairly okay on my system. I tried ReadPixel instead and removed the timer. I don't know if it helps: Global black Graphics 800,600,0,2 SetBuffer BackBuffer() HidePointer SeedRnd MilliSecs() Cls Print "Press any key to start..." Flip WaitKey() won = shroom_monk_maze_run() Cls Print "Game Over" If won Then Print "You Won" Else Print "You Lost" Print "Press any key to exit..." Flip FlushKeys WaitKey() End Type SHROOM_block Field x,y Field kind End Type Global SHROOM_wall.SHROOM_block Function shroom_monk_maze_run() ; initialize: ; variables SHROOM_gameover = False SHROOM_won = False SHROOM_playerX = 200 SHROOM_playerY = 310 SHROOM_acidwidth# = 0 SHROOM_dead = False ; images SHROOM_playerImg = LoadImage("Shroom Maze Run/player.bmp") MaskImage SHROOM_playerImg,0,255,0 SHROOM_playerdeadImg = LoadImage("Shroom Maze Run/playerdead.bmp") MaskImage SHROOM_playerdeadImg,0,255,0 SHROOM_acidImg = LoadImage("Shroom Maze Run/acid.bmp") MaskImage SHROOM_acidImg,255,0,255 HandleImage SHROOM_acidImg,403,0 ; load maze wall blocks Restore SHROOM_maze1 For SHROOM_my = 0 To 14 For SHROOM_mx = 0 To 19 SHROOM_wall.SHROOM_block = New SHROOM_block SHROOM_wall\x = (SHROOM_mx * 20) + 200 SHROOM_wall\y = (SHROOM_my * 20) + 150 Read SHROOM_wall\kind Next Next ; main loop SHROOM_maintimer = CreateTimer(20) black = ReadPixel(10, 10) starttime = MilliSecs() While Not SHROOM_gameover SHROOM_frames = 1;WaitTimer(SHROOM_maintimer) For SHROOM_k = 1 To SHROOM_frames ; update stuff ; player If SHROOM_dead = False And SHROOM_won = False Then If KeyHit(200) And SHROOM_kindofblock(SHROOM_playerX,SHROOM_playerY - 20) <> 0 And SHROOM_playerY - 20 => 151 Then SHROOM_playerY = SHROOM_playerY - 20 If KeyHit(203) And SHROOM_kindofblock(SHROOM_playerX - 20,SHROOM_playerY) <> 0 And SHROOM_playerX - 20 => 201 Then SHROOM_playerX = SHROOM_playerX - 20 If KeyHit(205) And SHROOM_kindofblock(SHROOM_playerX + 20,SHROOM_playerY) <> 0 And SHROOM_playerX + 20 <= 581 Then SHROOM_playerX = SHROOM_playerX + 20 If KeyHit(208) And SHROOM_kindofblock(SHROOM_playerX,SHROOM_playerY + 20) <> 0 And SHROOM_playerY + 20 <= 451 Then SHROOM_playerY = SHROOM_playerY + 20 If SHROOM_playerX = 580 And SHROOM_playerY = 250 Then SHROOM_won = True ; acid If SHROOM_acidwidth < 451 Then SHROOM_acidwidth = (MilliSecs() - starttime) * 0.03 ; player/acid collision ;If SHROOM_playerX + 9 < SHROOM_acidwidth + 150 Then SHROOM_dead = True End If ; other stuff If KeyHit(1) Then SHROOM_gameover = True SHROOM_kh57 = False If KeyHit(57) Then SHROOM_kh57 = 1 If SHROOM_won And SHROOM_kh57 Then SHROOM_gameover = True If SHROOM_dead And SHROOM_kh57 Then SHROOM_gameover = True Next ; draw stuff Cls Viewport 199,149,402,302 Color 255,255,255 Rect 199,149,402,302,1 Color 255,0,0 Rect 200,150,20,300,1 Color 0,255,0 Rect 580,150,20,300,1 DrawImage SHROOM_acidImg,SHROOM_acidwidth + 150,149 Color 0,0,0 For SHROOM_wall.SHROOM_block = Each SHROOM_block If SHROOM_wall\kind = 0 Then Rect SHROOM_wall\x,SHROOM_wall\y,20,20,True Next Color 255,0,0 For SHROOM_wall.SHROOM_block = Each SHROOM_block If SHROOM_wall\kind = 2 Then Rect SHROOM_wall\x,SHROOM_wall\y,20,20,True Next Color 0,255,0 For SHROOM_wall.SHROOM_block = Each SHROOM_block If SHROOM_wall\kind = 3 Then Rect SHROOM_wall\x,SHROOM_wall\y,20,20,True Next If SHROOM_dead Then DrawImage SHROOM_playerdeadImg,SHROOM_playerX,SHROOM_playerY Else DrawImage SHROOM_playerImg,SHROOM_playerX,SHROOM_playerY End If Viewport 0,0,800,600 Color 255,255,255 Text 0,0,"SHROOM MAZE RUN" Text 0,12,"Guide you Shroom from the red square of the maze to the green square." Text 0,24,"But avoid the acid!" If SHROOM_won Then Text 0,48,"You have won!!!" Text 0,60,"Press SPACE to continue..." End If If SHROOM_dead Then Text 0,48,"You have lost!!!" Text 0,60,"Press SPACE to continue..." End If Text 0,300,"SHROOM_gameover: " + SHROOM_gameover Text 0,312,"SHROOM_won: " + SHROOM_won Text 0,324,"SHROOM_playerX: " + SHROOM_playerX Text 0,336,"SHROOM_playerY: " + SHROOM_playerY Text 0,348,"SHROOM_acidwidth: " + SHROOM_acidwidth Text 0,360,"SHROOM_dead: " + SHROOM_dead Text 0,372,"SHROOM_frames: " + SHROOM_frames Flip 0 Wend FreeTimer SHROOM_maintimer ; free variables FreeImage SHROOM_playerImg FreeImage SHROOM_playerdeadImg FreeImage SHROOM_acidImg For SHROOM_wall.SHROOM_block = Each SHROOM_block Delete SHROOM_wall Next ; return whether won or not Return SHROOM_won End Function Function SHROOM_kindofblock(SHROOM_x,SHROOM_y) Return ReadPixel(SHROOM_x, SHROOM_y) = black ; For SHROOM_wall.SHROOM_block = Each SHROOM_block ; If SHROOM_wall\x = SHROOM_x And SHROOM_wall\y = SHROOM_y Then Return SHROOM_wall\kind ; Next End Function .SHROOM_maze1: Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data 0,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,0 Data 0,0,1,0,0,1,0,1,1,1,0,0,0,0,0,1,0,0,0,0 Data 0,1,1,1,1,1,1,0,0,0,1,1,0,0,0,0,1,1,1,0 Data 0,0,1,0,0,0,1,1,1,1,1,0,0,0,0,1,1,0,1,0 Data 0,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,0,1,1,3 Data 0,1,0,1,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0 Data 0,1,0,0,1,1,1,1,0,1,0,0,1,1,1,1,1,1,1,0 Data 2,1,1,1,1,0,0,0,1,1,1,0,1,0,0,0,0,0,0,0 Data 0,1,0,0,0,1,1,1,0,1,0,0,1,0,1,1,1,1,1,0 Data 0,1,1,1,0,1,0,1,0,1,1,0,1,1,1,0,0,0,1,0 Data 0,1,0,1,1,1,0,1,1,0,1,1,0,0,0,1,1,0,1,0 Data 0,1,0,0,0,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0 Data 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0 Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 --v
Sat, 06 Jan 2007, 10:48
shroom_monk	Bram32 - I couldn't make your system work with my game for some reason. Anyway, it appears to run at decent speeds on other peoples computers, so I'll leave it as it is, and work on my other idea. -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Sun, 07 Jan 2007, 07:52
power mousey	shroom, I tried your program. the source looks cool and the backgrounds too. But.....but, the game runs too fast cause after I press any key it says game over and that I lose. Either that, or my mousey paws n claws move slower than a snail. At a speed of a sloth. I just hang in the trees and sleep. cheers, power sloth mousey
Sun, 07 Jan 2007, 09:00
shroom_monk	Have you tried the newer version in the Community Project topic? I added some other stuff to that. -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!