Подскажите пжл а как сделать проверку(по типу проверки спойла) на проход ослабления к ветру?
Вопрос к рыцарям- Имеется недоработанный скипт на сх производная локомотива нужно ли выкладывать?
И ышо вопрос как в этом таймере сделать запуск с 0 позиции а продолжение со 2ой? Зараннее спс
const
Name='ххххх';
var
timer1: TTimer;
x: integer;
procedure OnTimer1(Sender: TObject);
begin
case x of
0: begin
timer1.interval := интервал_через_который_будет_отослан_первый_пакет;
end;
1: begin
buf:=hstr('пакет №1');
SendToServerEx(Name);
timer1.interval := интервал_через_который_будет_отослан_второй_пакет;
end;
2: begin
buf:=hstr('пакет №2');
SendToServerEx(Name);
timer1.interval := интервал_через_который_будет_отослан_третий_пакет;
end;
3: begin
buf:=hstr('пакет №3');
SendToServerEx(Name);
end;
else
begin
timer1.enabled := false;
x := 0;
end;
end;
inc(x);
end;
//************************************************** ****************************
// Вызывается при включении скрипта
//************************************************** ****************************
procedure Init;
begin
x := 0;
timer1:=TTimer.Create(nil);//выделяем памать и т.п.
timer1.OnTimer:=@OnTimer1;//привязываем процедуру к событию
timer1.enabled:=true;//начальное положение true-включен/false-выключен
timer1.interval:=1;//интервал
end;
procedure Free;
begin
timer1.free;
end;
begin
end.
Последний раз редактировалось tiranosaur, 08.12.2009 в 15:30.
Подскажите пжл как в этой части бота
if MinDistID > 0 then // иначе ищем ближайшего
begin
TargetID:= MobsObjID[MinDistID];
PhisicalAttack; // берем вражину в таргет
AttackCycle:= 0;
exit;
end;
// if (abs(MyX-CenterX) > 20) and (abs(MyY-CenterY) > 20) then MoveTo (CenterX, CenterY, CenterZ);
end;
сделать чтобы пакет moveto в центр приходил один раз а не спамился постоянно?
Прикрути какуюнть флаговую переменную RunToPoint(boolean), и в проверку ее:
delphi Код:
if((abs(MyX-CenterX) > 20)and(abs(MyY-CenterY) > 20)thenbeginif(!RunToPoint)thenbegin
RunToPoint:=true;
MoveTo (CenterX, CenterY, CenterZ);
end;
endelse
RunToPoint:=False;
end;
end;
(синтаксис может и хромать)
примерно так вобщем
///так если точка к которой надо бежать, будет находиться на одной оси с текущим положением, эта проверка ж провалится - if ((abs(MyX-CenterX) > 20) and (abs(MyY-CenterY) > 20) then ..... и вроде никуда он не побежит...Может там OR уместнее? или ошибаюсь я....
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 01.02.2010 в 06:43.
юзал поиск курил мануалы, решил написать в этой теме.
Возможно ли посредством скрипта делать релог персу по приближении любого перса, обычный релог или выход, или экстренное закрытие соеденения, как, допустим в валкере ? Заранее благодарен.