Type Field initializers

I did a quick search but didn't come up with anything.

Is it possible to initialize Type Fields?

This bit of code compiles:

Type TypeWeapon
	Field WeaponID% = 1
	Field Ammo% = 500
	Field FireRate% = 2
	Field Velocity% = 100
	Field Range% = 500
	Field Damage% = 1
	Field Force% = 1
	Field Weight% = 50
End Type

but it doesn't seem to actually work...

No, but you could do something like ...

Function CreateTypeWeapon()

   tw.TypeWeapon = New TypeWeapon
   tw\WeaponID% = 1
   tw\Ammo% = 500
   tw\FireRate% = 2
   tw\Velocity% = 100
   tw\Range% = 500
   tw\Damage% = 1
   tw\Force% = 1
   tw\Weight% = 50

End Function

Then you could just call the function to create a new instance with all the variables initialized. Of course you probably do that already and don't care but I thought I'd try something more than just ... no.

This is possible in BlitzMax.

Great, is a stable win32 possible in Blitzmax? is it released officially?

Thought so, until then, keep your blitzmax in its proper forum.

/tired of blitzmax hype with no show.

Would it be difficult for Mark to fix?

It might be an idea to return the instance.

Function CreateTypeWeapon.TypeWeapon()

   tw.TypeWeapon = New TypeWeapon
   tw\WeaponID% = 1
   tw\Ammo% = 500
   tw\FireRate% = 2
   tw\Velocity% = 100
   tw\Range% = 500
   tw\Damage% = 1
   tw\Force% = 1
   tw\Weight% = 50
   Return tw

End Function

Hmm. How sad that it COMPILES but that it doesn't work...

Do you think this could be called a BUG that needs fixing? ;)

On the other hand
John pickfords solution ( I personally prefere the Handle / Object Variant ) gives you additional Options.
You could for instance pre-initialize your complete weaponset or fleet of spaceships.

Type TypeWeapon
	Field WeaponID%
	Field Ammo%
	Field FireRate%
	Field Velocity%
	Field Range%
	Field Damage%
	Field Force%
	Field Weight%
End Type
For i=1 To 2
	x.TypeWeapon=Object.TypeWeapon(CreateTypeWeapon(i))
	Print x\WeaponID
	Print x\Ammo
Next
WaitKey()
End

Function CreateTypeWeapon(Flag=0)
	tw.TypeWeapon = New TypeWeapon
	If Flag=1
		tw\WeaponID% = 1
		tw\Ammo% = 500
		tw\FireRate% = 2
		tw\Velocity% = 100
		tw\Range% = 500
		tw\Damage% = 1
		tw\Force% = 1
		tw\Weight% = 50
	ElseIf Flag=2
		tw\WeaponID% = 2
		tw\Ammo% = 2000
		tw\FireRate% = 30
		tw\Velocity% = 1000
		tw\Range% = 20000
		tw\Damage% = 4
		tw\Force% = 5
		tw\Weight% = 250
	EndIf
	Return Handle(tw)
End Function

Ahhh yes, This is how the weapon system works in Supernova. Useful for say, a shoot function where you just want to tell it what kind of bullet needs to be shot.