hedgewars/tunsetborder.inc
author unc0rr
Mon, 08 Jan 2007 18:21:40 +0000
changeset 311 b8905423f19f
parent 184 f97a7a3dc8f6
child 351 29bc9c36ad5f
permissions -rw-r--r--
- Limit list of teams in game with 200 px - 'New team@ button in teams selecting widget - New game options, not yet used

        begin
        X:= X + dX;
        Y:= Y + dY;
        tx:= round(X);
        ty:= round(Y);
        if ((ty and $FFFFFC00) = 0) and ((tx and $FFFFF800) = 0)and (Land[ty, tx] = $FFFFFF) then
           SetLandPixel(ty, tx)
	end;