hedgewars/uScript.pas
changeset 15938 4c0f8dbf6c13
parent 15604 6a38a30e772a
parent 15937 1becf4a0e907
child 15980 77f1973611ec
equal deleted inserted replaced
15928:73cdc306888f 15938:4c0f8dbf6c13
  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