hedgewars/tunsetborder.inc
changeset 393 db01cc79f278
parent 358 236bbd12d4d9
child 768 2886dafa5bcf
equal deleted inserted replaced
392:25be13ae29da 393:db01cc79f278
       
     1 (*
       
     2  * Hedgewars, a worms-like game
       
     3  * Copyright (c) 2006-2007 Andrey Korotaev <unC0Rr@gmail.com>
       
     4  *
       
     5  * This program is free software; you can redistribute it and/or modify
       
     6  * it under the terms of the GNU General Public License as published by
       
     7  * the Free Software Foundation; version 2 of the License
       
     8  *
       
     9  * This program is distributed in the hope that it will be useful,
       
    10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
       
    11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
       
    12  * GNU General Public License for more details.
       
    13  *
       
    14  * You should have received a copy of the GNU General Public License
       
    15  * along with this program; if not, write to the Free Software
       
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
       
    17  *)
       
    18 
     1         begin
    19         begin
     2         X:= X + dX;
    20         X:= X + dX;
     3         Y:= Y + dY;
    21         Y:= Y + dY;
     4         tx:= hwRound(X);
    22         tx:= hwRound(X);
     5         ty:= hwRound(Y);
    23         ty:= hwRound(Y);