скрипт для убегания от персонажа
Практическое применение скрипта - неизвестно (так сказать - l'art pour l'art) Но весело бегает IL
Оффтоп
delphi Код:
const
name='Sonja'; //кто убегает
ContrName='Lorreina';//от кого (контролируемый)
var
Mov:TTimer;
MyX,MyY,MyZ:integer;
ContrOID, ContrX, ContrY, ContrZ:integer;//координаты контролируемого перса
ToX, ToY, ToZ:integer;//куда скочет
MToX, MToY, MToZ:integer;//куда скакать боту
x1, y1,z1:integer;//дельта
dx,dy,dz:extended;//еще одна дельта, но за еденицу времени :)
virtX,virtY,virtZ:integer;//проверочные координаты
j:integer;//сдвиг в чаринфо
cosx,siny,path:extended;//косинус х\у и путь между точками Contr-To
rspeed, timetorun,step:integer;//скорость персонажа и расчетное время на путь
mult:extended;//множитель скорости передвижения
radius:integer;//радиус допустимого приближения.
procedure Init;
begin
ContrOID:=0;
ContrX:=0; ToX:=0; MToX:=0;
ContrY:=0; ToY:=0; MToX:=0;
ContrZ:=0; ToZ:=0; MToZ:=0;
step:=0;
radius:=300;
Mov:=TTimer.Create(nil);
Mov.OnTimer:=@Schet;
Mov.enabled:=false;
Mov.interval:=1000
end;
Procedure Schet;
begin
if (step<timetorun) then begin
virtX:=virtX+int(dx);
virtY:=virtY+int(dy);
virtZ:=virtZ+int(dz);
Sendmsg('virtX: '+inttostr(virtX)+' virtY: '+inttostr(virtY)+'virtZ: '+inttostr(virtZ));
inc(step);
end else begin
step:=0;
Mov.enabled:=false;
Sendmsg('Прибежали?');
end;
if (sqrt((virtX-MyX)*(virtX-MyX)+(virtY-MyY)*(virtY-MyY)+(virtZ-MyZ)*(virtZ-MyZ))<radius) then begin
//ф-ла расстояния между точками
SendMsg('ALARM!');
cosx:=(MyX-virtX)/(sqrt((virtX-MyX)*(virtX-MyX)+(virtY-MyY)*(virtY-MyY)));
siny:=(MyY-virtY)/(sqrt((virtX-MyX)*(virtX-MyX)+(virtY-MyY)*(virtY-MyY)));
MToX:=int(radius*siny)+MyX;//sin и cos поменяны местами
MToY:=int(radius*cosx)+MyY;//вроде так он должен убегать перпендикулярно траектории вражины
buf:=#$01;
WriteD(MToX);
WriteD(MToY);
WriteD(MyZ);
WriteD(MyX);
WriteD(MyY);
WriteD(MyZ);
WriteD(1);
Sendmsg(strtohex(buf));
Sendtoserverex(name);
end;
end;
procedure Free;
begin
Mov.free;
end;
begin
if fromserver and (connectname=name) then begin
if (pck[1]=#$03) and (ReadS(22)=ContrName) then begin
ContrOID:=ReadD(18);
ContrX:=ReadD(2);
ContrY:=ReadD(6);
ContrZ:=ReadD(10);
virtX:=ContrX;
virtY:=ContrY;
virtZ:=ContrZ;
j:=22;
ReadS(j);
j:=j+15*4+48+6*4;//смещение для считывания скорости перса
rspeed:=ReadD(j);//считываем "чистую" скорость
mult:=ReadF(j+7*4);//считываем множитель скорости
rspeed:=int(rspeed*mult);//пересчитываем скорость передвижения
Sendmsg('Find player '+ContrName+' OID:'+inttostr(ContrOID)+' X:'+inttostr(ContrX)+' Y:'+inttostr(ContrY)+' Z:'+inttostr(ContrZ));
Sendmsg('Speed: '+inttostr(rspeed));
end;
if (pck[1]=#$01) and (ReadD(2)=ContrOID) then begin
ToX:=ReadD(6);
ToY:=ReadD(10);
ToZ:=ReadD(14);
ContrX:=ReadD(18);
ContrY:=ReadD(22);
ContrZ:=ReadD(26);
virtX:=ContrX;
virtY:=ContrY;
virtZ:=ContrZ;
x1:=ToX-ContrX;
y1:=ToY-ContrY;
z1:=ToZ-ContrZ;
path:=Sqrt(x1*x1+y1*y1+z1*z1);
//патч\рспид - время на путь
timetorun:=int(path/rspeed);
if (path<>0) and (rspeed<>0) then begin
dx:=(x1/(path/rspeed));
dy:=(y1/(path/rspeed));
dz:=(z1/(path/rspeed));
step:=0;
Sendmsg('Timer - on!');
Mov.enabled:=True;
end;
Sendmsg('Player '+Contrname+' move to X:'+inttostr(ToX)+' Y:'+inttostr(ToY)+' Z:'+inttostr(ToZ));
Sendmsg('Length path: '+VarToStr(path));
Sendmsg('dx: '+vartostr(dx)+'dy: '+vartostr(dy)+'dz: '+vartostr(dz));
end;
if (pck[1]=#$60) and (ReadD(2)=ContrOID) then begin
ToX:=ReadD(14);
ToY:=ReadD(18);
ToZ:=ReadD(22);
Sendmsg('Player '+Contrname+' move to target in X:'+inttostr(ToX)+' Y:'+inttostr(ToY)+' Z:'+inttostr(ToZ));
end;
end;
if fromclient and (connectname=name) then begin
if (pck[1]=#$48) then begin
MyX:=ReadD(2);
MyY:=ReadD(6);
MyZ:=ReadD(10);
end;
end;
end.
Принцип: если в поле зрения попадает КонтрНейм - расчитывается путь его движения, и если он проходит от бота менее чем в "радиус" единиц, то бот (теоретически) ломится в сторону перпендикулярную вектору движения КонтрНейма, как-то так кстати - по причине сырости скрипта - не обрабатывает MoveToPawn. Еще надо вставить проверку на пересечение прямой движения КонтрНейма вектором движения бота - чтобы бот не ломанулся ненароком наперерез.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 06.12.2010 в 12:07.
|