hedgewars/PascalExports.pas
changeset 3697 d5b30d6373fc
parent 3680 aaf832c6fbd7
child 3737 2ba6ac8a114b
equal deleted inserted replaced
3695:c11abf387a7d 3697:d5b30d6373fc
   188 begin
   188 begin
   189     CurSlot:= CurrentHedgehog^.CurSlot;
   189     CurSlot:= CurrentHedgehog^.CurSlot;
   190     CurAmmo:= CurrentHedgehog^.CurAmmo;
   190     CurAmmo:= CurrentHedgehog^.CurAmmo;
   191     // this most likely won't work in network game
   191     // this most likely won't work in network game
   192     if (CurrentHedgehog^.Ammo^[CurSlot, CurAmmo].AmmoType = amPiano) then
   192     if (CurrentHedgehog^.Ammo^[CurSlot, CurAmmo].AmmoType = amPiano) then
   193         case snd of 
   193         case snd of
   194             0: PlaySound(sndPiano0);
   194             0: PlaySound(sndPiano0);
   195             1: PlaySound(sndPiano1);
   195             1: PlaySound(sndPiano1);
   196             2: PlaySound(sndPiano2);
   196             2: PlaySound(sndPiano2);
   197             3: PlaySound(sndPiano3);
   197             3: PlaySound(sndPiano3);
   198             4: PlaySound(sndPiano4);
   198             4: PlaySound(sndPiano4);
   225 end;
   225 end;
   226 
   226 
   227 function HW_isWeaponSwitch: boolean cdecl; export;
   227 function HW_isWeaponSwitch: boolean cdecl; export;
   228 begin
   228 begin
   229     if CurAmmoGear <> nil then
   229     if CurAmmoGear <> nil then
   230         exit(CurAmmoGear^.AmmoType = amSwitch) 
   230         exit(CurAmmoGear^.AmmoType = amSwitch)
   231     else
   231     else
   232         exit(false)
   232         exit(false)
   233 end;
   233 end;
   234 
   234 
   235 function HW_isPaused: boolean; cdecl; export;
   235 function HW_isPaused: boolean; cdecl; export;