hedgewars/uScript.pas
changeset 10613 f2597a21f562
parent 10611 58cad46782ff
child 10615 e3dcb235a354
equal deleted inserted replaced
10611:58cad46782ff 10613:f2597a21f562
  2275 
  2275 
  2276 
  2276 
  2277 function lc_addPoint(L : Plua_State) : LongInt; Cdecl;
  2277 function lc_addPoint(L : Plua_State) : LongInt; Cdecl;
  2278 var np, param: integer;
  2278 var np, param: integer;
  2279 begin
  2279 begin
  2280     if CheckAndFetchParamCountRange(L, 2, 4, 'AddPoint', 'x, y, width [, erase]', np) then
  2280     if CheckAndFetchParamCountRange(L, 2, 4, 'AddPoint', 'x, y [, width [, erase] ]', np) then
  2281         begin
  2281         begin
  2282         // x
  2282         // x
  2283         param:= lua_tointeger(L,1);
  2283         param:= lua_tointeger(L,1);
  2284         PointsBuffer:= PointsBuffer + char((param and $FF00) shr 8);
  2284         PointsBuffer:= PointsBuffer + char((param and $FF00) shr 8);
  2285         PointsBuffer:= PointsBuffer + char((param and $FF));
  2285         PointsBuffer:= PointsBuffer + char((param and $FF));