hedgewars/uScript.pas
changeset 8460 75e771c3c039
parent 8370 0c79946e96f8
child 8473 555235e90010
equal deleted inserted replaced
8459:d0c60699f606 8460:75e771c3c039
  1279 end;
  1279 end;
  1280 
  1280 
  1281 function lc_endgame(L : Plua_State) : LongInt; Cdecl;
  1281 function lc_endgame(L : Plua_State) : LongInt; Cdecl;
  1282 begin
  1282 begin
  1283     L:= L; // avoid compiler hint
  1283     L:= L; // avoid compiler hint
  1284     GameState:= gsExit;
  1284     AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000);
  1285     lc_endgame:= 0
  1285     lc_endgame:= 0
  1286 end;
  1286 end;
  1287 
  1287 
  1288 function lc_findplace(L : Plua_State) : LongInt; Cdecl;
  1288 function lc_findplace(L : Plua_State) : LongInt; Cdecl;
  1289 var gear: PGear;
  1289 var gear: PGear;