Tetris - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|426\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Tetris
Fri, 28 Dec 2007, 11:41
garand	Hey, I'm going to post all of the questions/problems that I am having with my Tetris clone, here. Here's the first one. A problem with arrays. ;############################### ;# FALLING BRICKS # ;# ------------------------- # ;# GARAND # ;############################### Graphics 640,480,32,2 SetBuffer BackBuffer() ;############################## ; LOAD RESOURCES ;############################## red_block = LoadImage("gfx\blocks\red.bmp") blue_block = LoadImage("gfx\blocks\blue.bmp") green_block = LoadImage("gfx\blocks\green.bmp") orange_block = LoadImage("gfx\blocks\orange.bmp") gray_block = LoadImage("gfx\blocks\gray.bmp") yellow_block = LoadImage("gfx\blocks\yellow.bmp") ;############################## ; INITIALIZE RESOURCES ;############################## MaskImage red_block,255,0,255 MaskImage blue_block,255,0,255 MaskImage green_block,255,0,255 MaskImage orange_block,255,0,255 MaskImage gray_block,255,0,255 MaskImage yellow_block,255,0,255 ;############################## ; IMAGE ARRAY ;############################## Dim ImageBlocks$(6) ImageBlocks$(1) = "red_block" ImageBlocks$(2) = "blue_block" ImageBlocks$(3) = "green_block" ImageBlocks$(4) = "orange_block" ImageBlocks$(5) = "gray_block" ImageBlocks$(6) = "yellow_block" blockX = 0 For block_number = 1 To 6 DrawImage ImageBlocks$(block_number),blockX,50 blockX = blockX + 32 Next --v Thats what I've got so far. Displaying the blocks is just a test but it should work. If I replace DrawImage ImageBlocks$(block_number),blockX,50 --v with Print ImageBlocks$(block_number) --v It displays the right values but with the draw image code it says that the image doesn't exist. Thanks
Fri, 28 Dec 2007, 12:05
magicman	im just going to take a stab at this after looking at it for a couple secs but i think it might have something to do with the "imageblocks$(block_number)" being a string. i dont know if you can do that or not, but if i had to guess i would say thats the problem. \|edit\| ok, yeah, try making it not a string and changing ImageBlocks$(1) = "red_block" --v to ImageBlocks(1) = copyimage(red_block) --v see if that helps -=-=- Stuff... Yeah...
Fri, 28 Dec 2007, 12:32
garand	Yea, that worked, thanks.
Sat, 29 Dec 2007, 03:26
garand	Array index out of bounds when trying to display the image. ;############################### ;# FALLING BRICKS # ;# ------------------------- # ;# GARAND # ;############################### Graphics 640,480,32,2 SetBuffer BackBuffer() SeedRnd (MilliSecs()) HUD() main() ;############################## ; LOAD RESOURCES ;############################## Global red_block = LoadImage("gfx\blocks\red.bmp") Global blue_block = LoadImage("gfx\blocks\blue.bmp") Global green_block = LoadImage("gfx\blocks\green.bmp") Global orange_block = LoadImage("gfx\blocks\orange.bmp") Global gray_block = LoadImage("gfx\blocks\gray.bmp") Global yellow_block = LoadImage("gfx\blocks\yellow.bmp") ;############################## ; INITIALIZE RESOURCES ;############################## MaskImage red_block,255,0,255 MaskImage blue_block,255,0,255 MaskImage green_block,255,0,255 MaskImage orange_block,255,0,255 MaskImage gray_block,255,0,255 MaskImage yellow_block,255,0,255 ;############################## ; IMAGE ARRAY ;############################## Dim ImageBlocks(6) ImageBlocks(1) = CopyImage(red_block) ImageBlocks(2) = CopyImage(blue_block) ImageBlocks(3) = CopyImage(green_block) ImageBlocks(4) = CopyImage(orange_block) ImageBlocks(5) = CopyImage(gray_block) ImageBlocks(6) = CopyImage(yellow_block) ;############################## ; TYPES ;############################## Type block Field block_color Field x Field y End Type ;############################## ; DATA ;############################## .config1 Data 1,1,1 Data 0,1,0 .config2 Data 1 Data 1 Data 1 .config3 Data 1,1,1 Data 1,0,0 .config4 Data 1,1,1 Data 0,0,1 .config5 Data 0,1,0 Data 1,1,1 .config6 Data 0,1 Data 0,1 Data 1,1 .config7 Data 0,1 Data 1,1 Data 1,0 .config8 Data 1,1,1 .config9 Data 1,1 Data 1,1 Global imagecolor = Rand(1,6) ;############################## ; HUD ;############################## Function HUD() End Function ;############################## ; MAIN ;############################## Function main() x=32 y=32 Rect 32,32,320,416,0 Viewport 32,32,320,416 DrawImage ImageBlocks(imagecolor),x,y End Function WaitKey End --v
Sat, 29 Dec 2007, 03:38
garand	Now no error but also no image. ;############################### ;# FALLING BRICKS # ;# ------------------------- # ;# GARAND # ;############################### Graphics 640,480,32,2 SetBuffer BackBuffer() SeedRnd (MilliSecs()) HUD() main() Global x=32 Global y=32 ;############################## ; LOAD RESOURCES ;############################## Global red_block = LoadImage("gfx\blocks\red.bmp") Global blue_block = LoadImage("gfx\blocks\blue.bmp") Global green_block = LoadImage("gfx\blocks\green.bmp") Global orange_block = LoadImage("gfx\blocks\orange.bmp") Global gray_block = LoadImage("gfx\blocks\gray.bmp") Global yellow_block = LoadImage("gfx\blocks\yellow.bmp") ;############################## ; INITIALIZE RESOURCES ;############################## MaskImage red_block,255,0,255 MaskImage blue_block,255,0,255 MaskImage green_block,255,0,255 MaskImage orange_block,255,0,255 MaskImage gray_block,255,0,255 MaskImage yellow_block,255,0,255 ;############################## ; IMAGE ARRAY ;############################## Dim ImageBlocks(6) ImageBlocks(1) = CopyImage(red_block) ImageBlocks(2) = CopyImage(blue_block) ImageBlocks(3) = CopyImage(green_block) ImageBlocks(4) = CopyImage(orange_block) ImageBlocks(5) = CopyImage(gray_block) ImageBlocks(6) = CopyImage(yellow_block) ;############################## ; TYPES ;############################## Type block Field block_color Field x Field y End Type ;############################## ; DATA ;############################## .config1 Data 1,1,1 Data 0,1,0 Data "END" .config2 Data 1 Data 1 Data 1 .config3 Data 1,1,1 Data 1,0,0 .config4 Data 1,1,1 Data 0,0,1 .config5 Data 0,1,0 Data 1,1,1 .config6 Data 0,1 Data 0,1 Data 1,1 .config7 Data 0,1 Data 1,1 Data 1,0 .config8 Data 1,1,1 .config9 Data 1,1 Data 1,1 Global imagecolor = Rand(1,6) ;############################## ; HUD ;############################## Function HUD() End Function ;############################## ; MAIN ;############################## Function main() Rect 32,32,320,416,0 Viewport 32,32,320,416 Restore config1 Repeat Read in$ If in$<>"END" Then Do(in$) Until in$="END" End Function Function Do(in$) Select Asc(in$) Case Asc("1") If imagecolor>0 Then DrawImage ImageBlocks(imagecolor),32,32 Case Asc("0") End Select End Function WaitKey End --v
Sat, 29 Dec 2007, 03:46
garand	Got it. Wonderful.
Sat, 29 Dec 2007, 11:53
Hotshot	I think making teris game isnt easy unless you know how to do it.
Sat, 29 Dec 2007, 14:02
Scherererer	I think making teris game isnt easy unless you know how to do it. That statement can be applied to pretty much anything. -=-=- YouTube Twitter Computer Science Series: Logic (pt1) (part 2) (part 3) 2's Complement Mathematics: Basic Differential Calculus
Sat, 29 Dec 2007, 14:48
Forklift_Fred	Very true. It's more complicated than you might first think but it's as good a place to start as any, just to see how things go together. Anyone starting out shouldn't expect their first project to amount to a great deal. If you are simply running through tutorials or trying out exercises then the results will be pleasing because they work but they won't be much to look at on the whole. -=-=- Come rain or shine...
Sun, 30 Dec 2007, 16:50
garand	Hey, Ive got the type stuff done but it doesnt display anything. I dont know why? Any help, code, and or guidance would be greatly appreciated. ;############################### ;# FALLING BRICKS # ;# ------------------------- # ;# GARAND # ;############################### AppTitle "Falling Bricks - Garand" Graphics 383,480,32,2 SetBuffer BackBuffer() SeedRnd (MilliSecs()) ;############################## ; INITIALIZE VARIABLES ;############################## Global score = 0 Global level = 1 ;############################## ; LOAD RESOURCES ;############################## Global red_block = LoadImage("gfx\blocks\red.bmp") Global blue_block = LoadImage("gfx\blocks\blue.bmp") Global green_block = LoadImage("gfx\blocks\green.bmp") Global orange_block = LoadImage("gfx\blocks\orange.bmp") Global gray_block = LoadImage("gfx\blocks\gray.bmp") Global yellow_block = LoadImage("gfx\blocks\yellow.bmp") Global backdrop = LoadImage("gfx\backdrop.bmp") ;############################## ; INITIALIZE RESOURCES ;############################## MaskImage red_block,255,0,255 MaskImage blue_block,255,0,255 MaskImage green_block,255,0,255 MaskImage orange_block,255,0,255 MaskImage gray_block,255,0,255 MaskImage yellow_block,255,0,255 ;############################## ; IMAGE ARRAY ;############################## Dim ImageBlocks(6) ImageBlocks(1) = CopyImage(red_block) ImageBlocks(2) = CopyImage(blue_block) ImageBlocks(3) = CopyImage(green_block) ImageBlocks(4) = CopyImage(orange_block) ImageBlocks(5) = CopyImage(gray_block) ImageBlocks(6) = CopyImage(yellow_block) ;############################## ; TYPES ;############################## Type block Field block_color Field x Field y Field speed Field config End Type ;############################## ; DATA ;############################## .config1 Data 1,1,1,2 Data 0,1,0,2 Data "END" .config2 Data 1,2 Data 1,2 Data 1,2 Data "END" .config3 Data 1,1,1,2 Data 1,0,0,2 Data "END" .config4 Data 1,1,1,2 Data 0,0,1,2 Data "END" .config5 Data 0,1,0,2 Data 1,1,1,2 Data "END" .config6 Data 0,1,2 Data 0,1,2 Data 1,1,2 Data "END" .config7 Data 0,1,2 Data 1,1,2 Data 1,0,2 Data "END" .config8 Data 1,1,1,2 Data "END" .config9 Data 1,1,2 Data 1,1,2 Data "END" ;############################## ; HUD ;############################## Function HUD() Cls Text 32,435,"Score:" + score Text 32,435+16,"Level:" + level End Function ;############################## ; INITAILIZE ;############################## Function initialize() Rect 31,11,321,417,0 Viewport 32,12,319,415 End Function ;############################## ; MAIN ;############################## Function main() Cls DrawImage backdrop,32,12 blocksmax = 10 For blocks = 1 To blocksmax If fallingblock.block <> Null fallingblock.block = New block fallingblock\block_color= Rand (1,6) fallingblock\config = Rand (1,9) fallingblock\x = Rand (32,416) fallingblock\y = 12 fallingblock\speed = 32 EndIf Next For fallingblock.block = Each block CreateBlock(fallingblock\block_color,fallingblock\config,fallingblock\x,fallingblock\y,fallingblock\speed) Next Flip End Function ;############################## ; CREATE BLOCK ;############################## Function CreateBlock(blockColor,blockConfig,blockX,blockY,blockSpeed) Restore config1 Repeat Read in$ If in$<>"END" Then Do(in$,blockColor,blockConfig,blockX,blockY,blockSpeed) Until in$="END" End Function Function Do(in$,blockColor,blockConfig,blockX,blockY,blockSpeed) Select Asc(in$) Case Asc("1") If blockColor>0 Then DrawImage ImageBlocks(blockColor),blockX,blockY blockX=blockX+32 Case Asc("2") blockX=32 blockY=blockY+32 Case Asc("0") blockX=blockX+32 End Select End Function ;############################## While Not KeyHit(1) HUD() initialize() main() Flip Wend End ;############################## --v
Tue, 01 Jan 2008, 13:27
Forklift_Fred	OK... I took a look and there are several issues to address. First of all, you should only use Cls and Flip once every cycle so I would suggest removing all the ones within functions and put Cls at the start of your "While Not KeyHit(1)" loop and Flip at the the end of it (where it is at the moment) This won't solve your problem of nothing being drawn though... The problem is that no blocks are being created. If you run the code in debug mode and step through it, you'll see it checks If fallingblock.block <> Null and then skips over it. This is because fallingblock.block is ALWAYS null before any blocks have been created if you change it to If fallingblock.block = Null then it will work... but only once each cycle. I'm not sure what you are trying to do here but I suggest you remove the If...Then statement completely. That way it creates 10 new blocks every time... It does 10 every cycle though which I suspect isn't what you are after... As I say, there are several issues with your code, some of which I suspect are because it is still in development and you are still working things out so that's fine. However, I don't know about anyone else but I was disorientated by your layout order. Personally, I start with the variables etc (which you have to), then the program loop, then functions and finally any data statements. I'm sure everyone has their own preferences and I don't think it has caused any problems but it confused me to start with because I thought you just had your functions but weren't calling them I don't normally criticise other peoples coding style so I apologise but it threw me off right at the start. I'm not sure I understand your CreateBlock() and Do() functions but have a look at what is happening when you change the If fallingblock.block <> Null part and we can take it from there. Oh, what are the images like? Just a minor detail but I made them as simple coloured squares to see what was happening because I got the impression that was basically the idea of them?? (also, it may help later on to know what size they are) I hope this is all as helpful as I'm trying to be...! -=-=- Come rain or shine...