hedgewars/uCollisions.pas
changeset 3697 d5b30d6373fc
parent 3609 bc63ed514b70
child 4357 a1fcfc341a52
equal deleted inserted replaced
3695:c11abf387a7d 3697:d5b30d6373fc
   385 
   385 
   386     // edge-crawl
   386     // edge-crawl
   387     for i:= 0 to 8 do
   387     for i:= 0 to 8 do
   388         begin
   388         begin
   389         // using mx,my as temporary value buffer here
   389         // using mx,my as temporary value buffer here
   390         
   390 
   391         jfr:= 8+li+1;
   391         jfr:= 8+li+1;
   392         jto:= 8+li-1;
   392         jto:= 8+li-1;
   393 
   393 
   394         for j:= jfr downto jto do
   394         for j:= jfr downto jto do
   395             begin
   395             begin