hedgewars/PascalExports.pas
changeset 3981 928e2040d34f
parent 3973 0d1a420531ef
child 3989 adffb668f06e
equal deleted inserted replaced
3980:070fdd33ce0d 3981:928e2040d34f
   265 function HW_getWeaponNameByIndex(whichone: LongInt): PChar; cdecl; export;
   265 function HW_getWeaponNameByIndex(whichone: LongInt): PChar; cdecl; export;
   266 begin
   266 begin
   267     exit (str2pchar(trammo[Ammoz[TAmmoType(whichone+1)].NameId]));
   267     exit (str2pchar(trammo[Ammoz[TAmmoType(whichone+1)].NameId]));
   268 end;
   268 end;
   269 
   269 
       
   270 function HW_getWeaponCaptionByIndex(whichone: LongInt): PChar; cdecl; export;
       
   271 begin
       
   272     exit (str2pchar(trammoc[Ammoz[TAmmoType(whichone+1)].NameId]));
       
   273 end;
       
   274 
       
   275 function HW_getWeaponDescriptionByIndex(whichone: LongInt): PChar; cdecl; export;
       
   276 begin
       
   277     exit (str2pchar(trammod[Ammoz[TAmmoType(whichone+1)].NameId]));
       
   278 end;
       
   279 
   270 function HW_getNumberOfWeapons:LongInt; cdecl; export;
   280 function HW_getNumberOfWeapons:LongInt; cdecl; export;
   271 begin
   281 begin
   272     exit(ord(high(TAmmoType)));
   282     exit(ord(high(TAmmoType)));
   273 end;
   283 end;
   274 
   284