hedgewars: comparison hedgewars/PascalExports.pas

equal deleted inserted replaced

-:4c35e9cf6057
+:40e5af28d026
 followGear:= CurrentHedgehog^.Gear;
 end;
 function HW_zoomFactor: GLfloat; cdecl; export;
 begin
-exit( ZoomValue / cDefaultZoomLevel );
+HW_zoomFactor:= ZoomValue / cDefaultZoomLevel;
 end;
 function HW_zoomLevel: LongInt; cdecl; export;
 begin
-exit( trunc((ZoomValue - cDefaultZoomLevel) / cZoomDelta) );
+HW_zoomLevel:= trunc((ZoomValue - cDefaultZoomLevel) / cZoomDelta);
 end;
 procedure HW_walkingKeysUp; cdecl; export;
 begin
 leftKey:= false;
 pauseAction:= true;
 end;
 function HW_isPaused: boolean; cdecl; export;
 begin
-exit( isPaused );
+HW_isPaused:= isPaused;
 end;
 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup
 procedure HW_terminate(closeFrontend: boolean); cdecl; export;
 begin
 ParseCommand('forcequit', true);
 end;
 function HW_getSDLWindow: pointer; cdecl; export;
 begin
+HW_getSDLWindow:= nil;
 {$IFDEF SDL13}
-exit( SDLwindow );
+HW_getSDLWindow:= SDLwindow;
-{$ELSE}
-exit( nil );
 {$ENDIF}
 end;
 // cursor handling
 procedure HW_setCursor(x,y: LongInt); cdecl; export;
 end;
 // ammo menu related functions
 function HW_isAmmoMenuOpen: boolean; cdecl; export;
 begin
-exit( bShowAmmoMenu );
+HW_isAmmoMenuOpen:= bShowAmmoMenu;
 end;
 function HW_isAmmoMenuNotAllowed: boolean; cdecl; export;
 begin;
-exit( (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil)
+HW_isAmmoMenuNotAllowed:= ( (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil) or
-or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) );
+((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) );
 end;
 function HW_isWeaponRequiringClick: boolean; cdecl; export;
 begin
+HW_isWeaponRequiringClick:= false;
 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) and (CurrentHedgehog^.BotLevel = 0) then
-exit( (CurrentHedgehog^.Gear^.State and gstHHChooseTarget) <> 0 )
+HW_isWeaponRequiringClick:= (CurrentHedgehog^.Gear^.State and gstHHChooseTarget) <> 0;
-else
-exit(false);
 end;
 function HW_isWeaponTimerable: boolean; cdecl; export;
 begin
+HW_isWeaponTimerable:= false;
 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Ammo <> nil) and (CurrentHedgehog^.BotLevel = 0) then
-exit( (Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_Timerable) <> 0)
+HW_isWeaponTimerable:= (Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_Timerable) <> 0;
-else
-exit(false);
 end;
 function HW_isWeaponSwitch: boolean cdecl; export;
 begin
+HW_isWeaponSwitch:= false;
 if (CurAmmoGear <> nil) and (CurrentHedgehog^.BotLevel = 0) then
-exit(CurAmmoGear^.AmmoType = amSwitch)
+HW_isWeaponSwitch:= (CurAmmoGear^.AmmoType = amSwitch);
-else
-exit(false)
 end;
 function HW_isWeaponRope: boolean cdecl; export;
 begin
+HW_isWeaponRope:= false
 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Ammo <> nil) and (CurrentHedgehog^.BotLevel = 0) then
-exit(CurrentHedgehog^.CurAmmoType = amRope)
+HW_isWeaponRope:= (CurrentHedgehog^.CurAmmoType = amRope);
-else
-exit(false);
 end;
 procedure HW_setGrenadeTime(time: LongInt); cdecl; export;
 begin
 ParseCommand('/timer ' + inttostr(time), true);
 end;
 function HW_getGrenadeTime: LongInt; cdecl; export;
 var CurWeapon: PAmmo;
-res: LongInt = 3;
+begin
-begin
+HW_getGrenadeTime:= 3;
 if HW_isWeaponTimerable then
 begin
 CurWeapon:= GetCurAmmoEntry(CurrentHedgehog^);
-res:= CurWeapon^.Timer div 1000;
+HW_getGrenadeTime:= CurWeapon^.Timer div 1000;
 end;
-exit(res);
 end;
 procedure HW_setPianoSound(snd: LongInt); cdecl; export;
 begin
 // this most likely won't work in network game
 end;
 end;
 function HW_getWeaponNameByIndex(whichone: LongInt): PChar; cdecl; export;
 begin
-exit(str2pchar(trammo[Ammoz[TAmmoType(whichone+1)].NameId]));
+HW_getWeaponNameByIndex:= (str2pchar(trammo[Ammoz[TAmmoType(whichone+1)].NameId]));
 end;
 function HW_getWeaponCaptionByIndex(whichone: LongInt): PChar; cdecl; export;
 begin
-exit(str2pchar(trammoc[Ammoz[TAmmoType(whichone+1)].NameId]));
+HW_getWeaponCaptionByIndex:= (str2pchar(trammoc[Ammoz[TAmmoType(whichone+1)].NameId]));
 end;
 function HW_getWeaponDescriptionByIndex(whichone: LongInt): PChar; cdecl; export;
 begin
-exit(str2pchar(trammod[Ammoz[TAmmoType(whichone+1)].NameId]));
+HW_getWeaponDescriptionByIndex:= (str2pchar(trammod[Ammoz[TAmmoType(whichone+1)].NameId]));
 end;
-function HW_getNumberOfWeapons:LongInt; cdecl; export;
+function HW_getNumberOfWeapons: LongInt; cdecl; export;
 begin
-exit(ord(high(TAmmoType)));
+HW_getNumberOfWeapons:= ord(high(TAmmoType));
 end;
 procedure HW_setWeapon(whichone: LongInt); cdecl; export;
 begin
 if (CurrentTeam = nil) then exit;
 SetWeapon(TAmmoType(whichone+1));
 end;
 function HW_isWeaponAnEffect(whichone: LongInt): boolean; cdecl; export;
 begin
-exit(Ammoz[TAmmoType(whichone+1)].Ammo.Propz and ammoprop_Effect <> 0)
+HW_isWeaponAnEffect:= Ammoz[TAmmoType(whichone+1)].Ammo.Propz and ammoprop_Effect <> 0;
 end;
 function HW_getAmmoCounts(counts: PLongInt): LongInt; cdecl; export;
 var a : PHHAmmo;
-slot, index: LongInt;
+slot, index, res: LongInt;
 begin
+HW_getAmmoCounts:= -1;
 // nil check
 if (CurrentHedgehog = nil) or (CurrentHedgehog^.Ammo = nil) or (CurrentTeam = nil) then
-exit(-1);
+exit;
 // hog controlled by opponent (net or ai)
 if (CurrentTeam^.ExtDriven) or (CurrentTeam^.Hedgehogs[0].BotLevel <> 0) then
-exit(1);
+exit;
 a:= CurrentHedgehog^.Ammo;
 for slot:= 0 to cMaxSlotIndex do
 for index:= 0 to cMaxSlotAmmoIndex do
 if a^[slot,index].Count <> 0 then // yes, ammomenu is hell
 counts[ord(a^[slot,index].AmmoType)-1]:= a^[slot,index].Count;
-exit(0);
+HW_getAmmoCounts:= 0;
 end;
 procedure HW_getAmmoDelays (skipTurns: PByte); cdecl; export;
 var a : TAmmoType;
 begin
 skipTurns[ord(a)-1]:= byte(Ammoz[a].SkipTurns);
 end;
 function HW_getTurnsForCurrentTeam: LongInt; cdecl; export;
 begin
+HW_getTurnsForCurrentTeam:= 0;
 if (CurrentTeam <> nil) and (CurrentTeam^.Clan <> nil) then
-exit(CurrentTeam^.Clan^.TurnNumber)
+HW_getTurnsForCurrentTeam:= CurrentTeam^.Clan^.TurnNumber;
-else
-exit(0);
 end;
 function HW_getMaxNumberOfHogs: LongInt; cdecl; export;
 begin
-exit(cMaxHHIndex+1);
+HW_getMaxNumberOfHogs:= cMaxHHIndex + 1;
 end;
 function HW_getMaxNumberOfTeams: LongInt; cdecl; export;
 begin
-exit(cMaxTeams);
+HW_getMaxNumberOfTeams:= cMaxTeams;
 end;
 procedure HW_memoryWarningCallback; cdecl; export;
 begin
 ReleaseSound(false);

changeset 6990	40e5af28d026
parent 6954	a61458a81480
child 6997	2356bf174df8