The "why won't this work" thread.

[Draco9898]

Why doesn't this work?

Code Select Expand


TYPE tAssist
alive, X#, Y#
ENDTYPE
TYPE tPlayerChar
Assist(2) AS tassist
ENDTYPE
Dim PlayerChar AS tPlayerChar
PlayerChar.Assist(2).X# = 1


[kevin]

 Typed array fields are not supported.

[Draco9898]

thought so, would be interesting though, wouldn't it
guess I'll just do this:

TYPE tPlayerChar
   Assistalive(2)
   AssistX#(2)
   AssistY#(2)
ENDTYPE
Dim PlayerChar AS tPlayerChar
PlayerChar.AssistX#(2) = 1

[kevin]

PlayerChar.AssistX#(2) = 1

That won't work either :)

You can't mix data with static arrays ATM, so it needs to be

PlayerChar.AssistX#(2) = 1.0

So it's moving a float to float

[Draco9898]

Ok, I got a new one. Why won't THIS example work?

I'm going to be stuck if I can't get this to work.

Code Select Expand

`~~~~Enemies~~~~
Type BasicEnemy
alive, life, defense#
variation
animstate
X#, Y#
XVelo#, YVelo#
Angle#,Anglevelo#
Direction
sprite, spriteMode, curimage
FireRate#, ShootTime#, shootTimer#, shootBeginTime#
FlashTimeSET#, FlashBTime#, FlashTimer#
EndType
`A special type
Type AlienSerpent As BasicEnemy
SinVal1#, SinVal2#
SegX
Segz#(23)
SegY#(8)
   EndType

Dim EnemyCol(1) As BasicEnemy

EnemyCol(1) = New AlienSerpent

Dim typedpointer As AlienSerpent Pointer
typedpointer =EnemyCol(index).BasicEnemy

`works
typedpointer.SinVal1# = 56.0   `don't forget it must float
print typedpointer.SinVal1#
`works
typedpointer.SegX = 52
print typedpointer.SegX

`doesn't work!?
typedpointer.Segz#(23) =242.0

sync
waitkey

[kevin]

 not supported. (yet :) )

[kevin]

it does now :).

[Rembrandt Q Einstein]

Awesome.  I just wanted to make sure you know Kevin that Draco wasn't the only one interested in inheritance/pointer improvements.  I often have random arrays lying around outside my types due to problems like these.

[Draco9898]

hey cool, what version is this going to be supported in?

[kevin]

PB V3.678

[kevin]

or

Pb1.63m (login required)