29.07.2010, 02:30
|
#44
|
Местный
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
|
Автобег в указанную сторону: запустить скрипт, нажать "Приветствие", ткнуть мышкой в нужную сторону - бежит не останавливаясь пока не упрется. На ходу возможно изменение направления\шага пробежки. Интерлюд.
Оффтоп
delphi Код:
//interlude
//Включить\выключить - соц.действие Приветствие
Const
Name='';
var
ToX, ToY, ToZ, beg:integer;
CurX, CurY, CurZ, DeltaX, DeltaY, DeltaZ, DeltaX1, DeltaY1, DeltaZ1:integer;
ARun:Boolean; //AutoRun on\off
procedure Init; //Вызывается при включении скрипта
begin
ARun:=False;
ToX:=0;
ToY:=0;
ToZ:=0;
CurX:=0;
CurY:=0;
CurZ:=0;
DeltaX:=0;
DeltaY:=0;
DeltaZ:=0;
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromClient and (Connectname=(name)) and (pck[1]=#$01) then begin
CurX:=ReadD(14);
CurY:=ReadD(18);
CurZ:=ReadD(22);
ToX:=ReadD(2);
ToY:=ReadD(6);
ToZ:=ReadD(10);
DeltaX:=ToX-CurX;
DeltaY:=ToY-CurY;
DeltaZ:=ToZ-CurZ;
SendMsg('CurX '+Inttostr(CurX)+' CurY '+Inttostr(CurY)+' CurZ '+Inttostr(CurZ));
SendMsg('ToX '+Inttostr(ToX)+' ToY '+Inttostr(ToY)+' ToZ '+Inttostr(ToZ));
SendMsg('DeltaX '+Inttostr(DeltaX)+' DeltaY '+Inttostr(DeltaY)+' DeltaZ '+Inttostr(DeltaZ));
end;
if FromClient and (Connectname=(name)) and (pck[1]=#$48) then begin
DeltaX1:=(ToX-(ReadD(2)));
DeltaY1:=(ToY-(ReadD(6)));
DeltaZ1:=(ToZ-(ReadD(10)));
If (DeltaX1<0) then DeltaX1:=(DeltaX1*(-1));
If (DeltaY1<0) then DeltaY1:=(DeltaY1*(-1));
If (DeltaZ1<0) then DeltaZ1:=(DeltaZ1*(-1));
end;
If (DeltaX1<200) and (DeltaY1<200) and ((ToX+ToY)<>0) and ARun then begin
SendMSG('Прибыли !');
SendMSG('Повторный клик');
DeltaX1:=200;
DeltaY1:=200;
DeltaZ1:=100;
CurX:=ToX;
CurY:=ToY;
CurZ:=ToZ;
ToX:=CurX+DeltaX;
ToY:=CurY+DeltaY;
ToZ:=CurZ+DeltaZ;
buf:=#$01;
WriteMask('ddddddd',[ToX,ToY,ToZ,CurX,CurY,CurZ,1]);
SendMsg(StrtoHex(buf));
SendtoServerex(name);
end;
If FromClient and (Connectname=name) and (pck[1]+pck[2]=#$1b+#$02) then begin
ARun:=not(Arun);
if Arun then begin
SendMSG('Run Mode on');
end else begin
SendMSG('Run Mode off');
end;
end;
end.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
|
|
|