bistriy, хамить заканчивай. Если совсем ничего в программировании не понимаешь и код чужой разобрать не можешь, так нефиг умничать
delphi Код:
if delta(MyX,MyY,StartX+currentx*(ComboBoxScale.ItemIndex+1),StartY+currenty*(ComboBoxScale.ItemIndex+1))>240 then begin //расстояние между точками
buf:=#$01;
WriteD(StartX+currentx*(ComboBoxScale.ItemIndex+1));
writeD(StartY+currenty*(ComboBoxScale.ItemIndex+1));
WriteD(StartZ);
WriteD(MyX);
WriteD(MyY);
WriteD(StartZ);
WriteD(1);
SendToServerEx(Name);
timer.enabled:=false; //Отключаем на время передвижения
ready:=true;
exit;
дословно код: если расстояние до точки выброса адены больше чем 240, тогда топаем в эту точку. Эспешиал фор ю, как говорится, а почему не срабатывает - это другая история.