Копирование типа

[WaReZ_MEN]

Есть у меня к примеру тип

   Type TWeapon 
       Field ID:Int 

       Field Name:String 
 
 
   Method Shot()
         ......................
   End Method
 
   Function Create:TWeapon(xId:Int,xName:String)
       self.ID=xID
            self.Name=xName
     End Function
   End Type
 
................................................
 
Local Blaster:TWeapon=TWeapon.Create(1,"Бластер")

Так вот мне нужно сделать точную копию Blaster причем со всеми функциями и методами. Причем когда я тока сделал копию все данные будут равын к примеру я сделал копию бластера и назвал ее Blaster2 тоесть у Blaster2.ID=1 и Blaster2.Name="Бластер"
И если я гдето в коде захочу поменять у Blaster2 к примеру ID на 2, то у Blaster ID должен остатся равным 1.
Подскажите как такое сделать.

ну вот так к примеру :

Type TTest
	Field id1% = 0
	
	Method Copy:TTest()
		Local t:TTest = TTest.Create()
		t.id1 = id1
		Return t
	End Method
	
	Function Create:TTest()
		Local t:TTest = New TTest
		Return t
	End Function
End Type

Global t1:TTest = TTest.Create()
t1.id1 = 1

Global t2:TTest = t1.Copy()
DebugLog "t1 id : "+t1.id1+" t2 id : "+t2.id1

t2.id1 = 2
DebugLog "t1 id : "+t1.id1+" t2 id : "+t2.id1

End

ps. у тебя не правильная функция создания типа, потому что она не создает ничего

[dimanche13]

да, действительно WaReZ_MEN : ты объявил функцию create с возращаемым знчением своего типа, но не вернул... странно это.

[WaReZ_MEN]

Яж писал прам на форуме забыл просто добавить а так там есть что нужно

Local Out:TWeapon =New TWeapon

Out.id=xID
Out.Name=xName
Return Out

Тем немение спасибо за помощь. Очень помог.