hedgewars/uScript.pas
changeset 7517 f287f00063e8
parent 7426 55b49cc1f33a
child 7546 b50556f2a0e8
equal deleted inserted replaced
7515:8957b05d368a 7517:f287f00063e8
   410         end
   410         end
   411     else
   411     else
   412         begin
   412         begin
   413         gear:= GearByUID(lua_tointeger(L, 1));
   413         gear:= GearByUID(lua_tointeger(L, 1));
   414         if gear <> nil then
   414         if gear <> nil then
   415             DeleteGear(gear);
   415             gear^.Message:= gear^.Message or gmDelete;
   416         end;
   416         end;
   417     lc_deletegear:= 0
   417     lc_deletegear:= 0
   418 end;
   418 end;
   419 
   419 
   420 function lc_addvisualgear(L : Plua_State) : LongInt; Cdecl;
   420 function lc_addvisualgear(L : Plua_State) : LongInt; Cdecl;