ScriptCore3.weap2obj

function weap2obj(Style: Byte): Byte
 Style: Position(Style) of the weapon in the TWeapon.WType
 Result: Position(Style) of the weapon in the TMapObject.Style

Description

Translates the position of the weapon in the WType property of a Weapon Object (TWeapon.WType) to the corresponding position of the Style property of a Map Object - lying weapon (TMapObject.Style).

Examples

begin
    WriteLn('weap2obj: '+inttostr(weap2obj(1))); //5
    WriteLn('weap2obj: '+inttostr(weap2obj(13))); //26
    WriteLn('weap2obj: '+inttostr(weap2obj(15))); //Exception: Invalid weapon style (Archery is bowing. Sorry, this just doesn't work)
end.