hedgewars/uScript.pas
branch1.0.0
changeset 15907 1becf4a0e907
parent 15177 a22013a817e4
child 15908 4c0f8dbf6c13
equal deleted inserted replaced
15885:ed84eb580643 15907:1becf4a0e907
  3223 var gear: PGear;
  3223 var gear: PGear;
  3224 begin
  3224 begin
  3225     if CheckLuaParamCount(L, 1, 'HideHog', 'gearUid') then
  3225     if CheckLuaParamCount(L, 1, 'HideHog', 'gearUid') then
  3226         begin
  3226         begin
  3227         gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
  3227         gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
  3228         if (gear <> nil) and (gear^.hedgehog <> nil) then
  3228         if (gear <> nil) and (gear^.hedgehog <> nil) and (gear^.hedgehog^.gear <> nil) then
  3229             begin
  3229             begin
  3230             HideHog(gear^.hedgehog);
  3230             HideHog(gear^.hedgehog);
  3231             lua_pushboolean(L, true);
  3231             lua_pushboolean(L, true);
  3232             end
  3232             end
  3233         else
  3233         else