Elysian Shadows

Posted: **Mon Mar 17, 2014 4:14 pm**

I have a problem, sort of.
To a some degree I understand how types work, but the problem comes when I try to do this:


New Type
  Field Xpos
  Field Ypos
  Field .....
  .
  .
  .
End Type

For some_number = 0 to 3
  type_pointer.Type = New Type
  type_pointer\Xpos = blahblah
  type_pointer\Ypos = blahblah
Next


For type_pointer.Type = Each Type
pHandle = Handle(type_pointer) 
 
;Handle takes an address of the pointer (previous/next) and stores it in a specific number from 1 to infinity    ;when it is destroyed it cannot be reused again, handle of that pointer = 0

 If type_pointer\Xpos = blehbleh
     For type_pointer.Type = Each Type
        type_pointer\Xpos = blohbloh
     Next
 End if

type_pointer = Object.Type(pHandle)

 If type_pointer\Ypos = blehbleh
     For type_pointer.Type = Each Type
        type_pointer\Ypos = blohbloh
     Next
 End if

type_pointer = Object.Type(pHandle)

;Object.Type(pointer_handle) is taking a handle from a pointer and returns an object or pointer if you wish, of that "Type"
;I'm returning an object to a type_pointer of a first For/Each loop 
;I did this because pointer gets to the last object/pointer in Type once it loops through nested For/Each loop

Next

This code is basically saying if any object from "Type"(or "Class") has such and such parameters, or such and such X position Then set such and such parameters for every object of that "Type". E.G. if "this" block hits the ground then every other block should "stop" too.

The problem is that it is only applied to the last created object, every Check, or If statement gets applied to the last pointer, so I can't check for every object just the last one, which works properly. So basically all blocks of that "Type" will stop only if last created block (within the Type) stops, so If statements are not including other blocks in their conditions (I think so, I'm not sure)

Now, I know that there is thing called inheritance, composition and stuff, but it is all relatively new to me...
It is still so vague...

Posted: **Fri Mar 21, 2014 2:53 pm**

I "fixed" it.

The problem existed in collision function (btw I had a problem with horizontal collision).
Every shape is made of many other blocks that have same speed of falling down and their side "delta" movement

Click here to see the hidden message (It might contain spoilers)

But
The loop, that checks parameters of every block of "a" particular shape, ended on last block and then it stopped because it was the last object(block.Tetblock) created within the "shape.Tetris" Type, and on top of that I didn't have any condition that would stop the loop immediately after any of the created blocks touched solid surface so it just continued.
It was that delta value that I had to bring to 0, but I had no condition that would say stop and wait until something is done:

Click here to see the hidden message (It might contain spoilers)

Posted: **Sat Mar 22, 2014 9:38 am**

Thanks for posting the answer. I hate when people say "Nvm, fixed." then carry on leaving the future Googlers baffled.

Posted: **Sat Mar 22, 2014 12:44 pm**

dandymcgee wrote:Thanks for posting the answer. I hate when people say "Nvm, fixed." then carry on leaving the future Googlers baffled.

The problem was easier to solve viewed from a different point of view, but I thought it was something else, I thought it was much more than that, but now, at least I'm 100% sure that I know how Types and pointers work in BB comparing to some other languages. Because it made me search for the answer much deeply and widely.

Okay, okay, one last touch, I just added a piece that says to shift "current" pointer to a last pointer in pointer loop when that "current" satisfies the particular condition, so it just stops movement when any pointer satisfies the condition.

Code: Select all

	For lx = 0 To 4
	shape\delta_l = 20
	Select True
	Case position(x_pos(shape\block\Xpos - 20),y_pos(shape\block\Ypos) - lx) = 1 Or shape\block\Xpos = 140
		shape\delta_l = 0
			
		shape\block.Tetblock = Last Tetblock ;<<<<<<<<<<< Here
		lx = 5 ;<<< Also if you have an additional for-loop like I do make sure it ends here as well
	End Select

Elysian Shadows

Anybody familiar with blitzplus?

Anybody familiar with blitzplus?

Re: Anybody familiar with blitzplus?

Re: Anybody familiar with blitzplus?

Re: Anybody familiar with blitzplus?