hedgewars/PascalExports.pas
changeset 3779 3351a017d4ad
parent 3778 2e61bb50cc57
child 3789 c3eb56754e92
equal deleted inserted replaced
3778:2e61bb50cc57 3779:3351a017d4ad
   195 end;
   195 end;
   196 
   196 
   197 function HW_isPaused: boolean; cdecl; export;
   197 function HW_isPaused: boolean; cdecl; export;
   198 begin
   198 begin
   199     exit( isPaused );
   199     exit( isPaused );
       
   200 end;
       
   201 
       
   202 function HW_isWaiting: boolean; cdecl; export;
       
   203 begin
       
   204     exit( ReadyTimeLeft > 0 );
   200 end;
   205 end;
   201 
   206 
   202 function HW_isWeaponRequiringClick: boolean; cdecl; export;
   207 function HW_isWeaponRequiringClick: boolean; cdecl; export;
   203 begin
   208 begin
   204     if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) and (CurrentHedgehog^.BotLevel = 0) then
   209     if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) and (CurrentHedgehog^.BotLevel = 0) then