;1 ;ennemi Type T00 Field T00v10v00%;numero du groupe End Type Function GESTION00A(a1%) Select a1 ;******************************** Case 13;objet 13 ;================================ ;creation [Type] T00.T00=New T00 T00\T00v10v00=a1;numero du groupe End Select End Function ;2 If Edi41v00>(Float#(Gen00v01)/Car11v09(0)) Edi41v00=(Float#(Gen00v01)/Car11v09(0))
Thanks for 3 !