|
|
| Скриптинг Форум посвещенный созданию скриптов для L2PacketHack |
27.04.2008, 17:41
|
#1
|
|
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
|
Автоматизация движения по маршруту
Организация движения чара по маршруту. Выдернул из скрипта рыбалки.
delphi Код:
//Автоматизация движения по маршруту by NLObP для L2PacketHack v.3.1.8+//
program Move;
{
Скрипт распространяется как есть, и я не несу ответственности
за то, что ВЫ натворили у себя, его используя.
}
const
Name='NLObP'; //имя чара для которого включаем скрипт
//***************************************************************
var
moveto1: TTimer;
distanciya:boolean;
MestoLovli, mov, i, j, MyID, MyXpos, MyYpos, MyZpos: integer;
//***************************************************************
//Вызывается при включении скрипта
//***************************************************************
procedure Init;
begin
MestoLovli:=1; //номер маршрута
//таймеры, можно поправить время по обстоятельствам
moveto1:=TTimer.Create(nil);
moveto1.OnTimer:=@Onmoveto1;
moveto1.enabled:=false;
moveto1.interval:=1000; //время задержки
end;
//***************************************************************
//Вызывается при выключении скрипта
//***************************************************************
procedure Free;
begin
moveto1.OnTimer := nil;
moveto1.Enabled := false;
moveto1.Interval := 0;
moveto1.Free;
end;
//***************************************************************
// Все перемещения чара здесь!!!
//***************************************************************
procedure OnMoveTo1(Sender: TObject);
begin
case mov of
//-------------------------------------------------
//1 бежим к фишерману в Гиран-харбор
//-------------------------------------------------
1100: MoveTo(51049,186286,-3672);
1101: MoveTo(50920,186425,-3631);
1102: MoveTo(50553,186269,-3631);
1103: MoveTo(49912,185723,-3561);
1104: MoveTo(49126,185867,-3491);
1105: MoveTo(48806,186219,-3491);
1106: Mov:=1315;
//-------------------------------------------------
//2 бежим к фишерману в Гиран-харбор
//-------------------------------------------------
1200: MoveTo(50931,185930,-3672);
1201: MoveTo(51030,186033,-3676);
1202: MoveTo(51065,186124,-3676);
1203: MoveTo(50987,186359,-3656);
1204: MoveTo(50837,186416,-3630);
1205: MoveTo(50620,186268,-3630);
1206: MoveTo(50397,186114,-3630);
1207: MoveTo(50152,185954,-3589);
1208: MoveTo(49912,185830,-3560);
1209: MoveTo(49625,185825,-3560);
1210: MoveTo(49347,185813,-3490);
1211: MoveTo(49118,185886,-3490);
1212: MoveTo(48942,186034,-3490);
1213: MoveTo(48786,186220,-3490);
1214: Mov:=1315;
//-------------------------------------------------
//3 бежим к фишерману в Гиран-харбор
//-------------------------------------------------
1300: MoveTo(52452,186940,-3665);
1301: MoveTo(52280,187089,-3631);
1302: MoveTo(52025,187265,-3631);
1303: MoveTo(51755,187315,-3631);
1304: MoveTo(51476,187101,-3631);
1305: MoveTo(51228,186902,-3631);
1306: MoveTo(50977,186692,-3631);
1307: MoveTo(50676,186423,-3631);
1308: MoveTo(50425,186213,-3631);
1309: MoveTo(50182,186015,-3599);
1310: MoveTo(49932,185836,-3560);
1311: MoveTo(49591,185850,-3560);
1312: MoveTo(49290,185853,-3490);
1313: MoveTo(49032,185921,-3490);
1314: MoveTo(48790,186223,-3490);
1315: begin
//мы у фишермана, покупаем крючки и обмениваем мусор на пруфы
MoveTo1.enabled:=false;
trade:=200;
trade1.enabled:=true;
TradeCount:=0;
Mov:=0;
msg.Lines.Add('Продадим/купим/обменяем...');
end;
//-------------------------------------------------
//1 бежим от фишермана на берег в Гиран-харбор
//-------------------------------------------------
2100: MoveTo(48786,186215,-3480);
2101: MoveTo(48922,186037,-3490);
2102: MoveTo(49058,185930,-3490);
2103: MoveTo(49170,185860,-3490);
2104: MoveTo(49585,185865,-3560);
2105: MoveTo(49908,185843,-3560);
2106: MoveTo(50121,185970,-3587);
2107: MoveTo(50502,186174,-3630);
2108: MoveTo(50701,186330,-3630);
2109: MoveTo(50904,186471,-3630);
2110: MoveTo(51062,186567,-3630);
2111: MoveTo(51164,186504,-3676);
2112: MoveTo(51381,186442,-3676);
2113: Mov:=2320;
//-------------------------------------------------
//2 бежим от фишермана на берег в Гиран-харбор
//-------------------------------------------------
2200: MoveTo(48781,186197,-3490);
2201: MoveTo(48899,186049,-3490);
2202: MoveTo(49066,185916,-3490);
2203: MoveTo(49222,185843,-3490);
2204: MoveTo(49580,185846,-3560);
2205: MoveTo(49783,185862,-3560);
2206: MoveTo(50012,185914,-3568);
2207: MoveTo(50191,186002,-3599);
2208: MoveTo(50375,186097,-3630);
2209: MoveTo(50515,186211,-3630);
2310: MoveTo(50619,186301,-3630);
2311: MoveTo(50715,186381,-3630);
2312: MoveTo(50831,186422,-3630);
2313: MoveTo(50949,186359,-3647);
2314: MoveTo(51033,186267,-3676);
2315: MoveTo(51100,186129,-3676);
2316: MoveTo(51001,186029,-3676);
2317: MoveTo(50933,185934,-3676);
2318: Mov:=2320;
//-------------------------------------------------
//3 бежим от фишермана на берег в Гиран-харбор
//-------------------------------------------------
2300: MoveTo(48784,186224,-3480);
2301: MoveTo(48906,186063,-3490);
2302: MoveTo(49037,185949,-3490);
2303: MoveTo(49200,185858,-3490);
2304: MoveTo(49601,185833,-3560);
2305: MoveTo(49844,185827,-3560);
2306: MoveTo(50200,186064,-3607);
2307: MoveTo(50448,186242,-3630);
2308: MoveTo(50648,186407,-3630);
2309: MoveTo(50848,186584,-3630);
2310: MoveTo(51077,186782,-3630);
2311: MoveTo(51258,186927,-3630);
2312: MoveTo(51424,187069,-3630);
2313: MoveTo(51630,187205,-3630);
2314: MoveTo(51787,187300,-3630);
2315: MoveTo(52019,187216,-3630);
2316: MoveTo(52192,187106,-3630);
2317: MoveTo(52329,187024,-3630);
2318: MoveTo(52482,186920,-3677);
2319: MoveTo(52568,186838,-3677);
2320: begin
MoveTo1.enabled:=false;
Mov:=0;
fishin.enabled:=true; //продолжим ловить рыбу
msg.Lines.Add('Продолжим ловить рыбу!!!');
end;
//-------------------------------------------------
//1 бежим после смерти на берег в Гиран-харбор...
//-------------------------------------------------
3100: MoveTo(48786,186215,-3480);
3101: MoveTo(48922,186037,-3490);
3102: MoveTo(49058,185930,-3490);
3103: MoveTo(49170,185860,-3490);
3104: MoveTo(49585,185865,-3560);
3105: MoveTo(49908,185843,-3560);
3106: MoveTo(50121,185970,-3587);
3107: MoveTo(50502,186174,-3630);
3108: MoveTo(50701,186330,-3630);
3109: MoveTo(50904,186471,-3630);
3110: MoveTo(51062,186567,-3630);
3111: MoveTo(51164,186504,-3676);
3112: MoveTo(51381,186442,-3676);
3113: Mov:=3317;
//-------------------------------------------------
//2 бежим после смерти на берег в Гиран-харбор...
//-------------------------------------------------
3200: MoveTo(48785,186203,-3490);
3201: MoveTo(48907,186068,-3490);
3202: MoveTo(49041,185940,-3490);
3203: MoveTo(49201,185825,-3490);
3204: MoveTo(49628,185829,-3560);
3205: MoveTo(49983,185850,-3560);
3206: MoveTo(50507,186220,-3630);
3207: MoveTo(50760,186382,-3630);
3208: MoveTo(50889,186435,-3630);
3209: MoveTo(51030,186278,-3676);
3210: MoveTo(51096,186134,-3676);
3211: MoveTo(50915,185939,-3676);
3212: Mov:=3317;
//-------------------------------------------------
//3 бежим после смерти на берег в Гиран-харбор...
//-------------------------------------------------
3300: MoveTo(48768,186185,-3490);
3301: MoveTo(48918,186002,-3490);
3302: MoveTo(49080,185890,-3490);
3303: MoveTo(49238,185821,-3490);
3304: MoveTo(49598,185839,-3560);
3305: MoveTo(49835,185826,-3560);
3306: MoveTo(50052,185868,-3568);
3307: MoveTo(50434,186189,-3630);
3308: MoveTo(50744,186457,-3630);
3309: MoveTo(51096,186752,-3630);
3310: MoveTo(51487,187037,-3630);
3311: MoveTo(51717,187227,-3630);
3312: MoveTo(51881,187325,-3630);
3313: MoveTo(52007,187299,-3630);
3314: MoveTo(52181,187192,-3630);
3315: MoveTo(52349,187025,-3630);
3316: MoveTo(52579,186835,-3676);
3317: begin
MoveTo1.enabled:=false;
Mov:=0;
if not isEquipRod then giverod;
delay(1000);
if not isEquipLure then givelure;
delay(1000);
fishin.enabled:=true; //продолжим ловить рыбу
msg.Lines.Add('Продолжим ловить рыбу!!!');
end;
//-------------------------------------------------
//1 меняем место
//-------------------------------------------------
4100: MoveTo(51384,186429,-3672);
4101: MoveTo(51219,186267,-3672);
4102: MoveTo(51036,186050,-3672);
4103: MoveTo(50932,185926,-3672);
4104: Mov:=4306;
//-------------------------------------------------
//2 меняем место
//-------------------------------------------------
4200: MoveTo(51090,186099,-3671);
4201: MoveTo(51076,186201,-3671);
4202: MoveTo(50977,186336,-3653);
4203: MoveTo(50876,186510,-3625);
4204: MoveTo(51181,186804,-3625);
4205: MoveTo(51365,186967,-3625);
4206: MoveTo(51572,187157,-3625);
4207: MoveTo(51752,187311,-3625);
4208: MoveTo(51955,187368,-3625);
4209: MoveTo(52123,187211,-3625);
4210: MoveTo(52334,187043,-3625);
4211: MoveTo(52586,186835,-3672);
4212: Mov:=4306;
//-------------------------------------------------
//3 меняем место
//-------------------------------------------------
4300: MoveTo(52359,187030,-3626);
4301: MoveTo(51784,187362,-3626);
4302: MoveTo(51365,186951,-3626);
4303: MoveTo(51087,186638,-3626);
4304: MoveTo(51275,186445,-3672);
4305: MoveTo(51378,186435,-3671);
4306: begin
MoveTo1.enabled:=false;
Mov:=0;
MMesto:=0;
fishin.enabled:=true; //продолжим ловить рыбу
msg.Lines.Add('Продолжим ловить рыбу на новом месте!!!');
end;
//-------------------------------------------------
//1 Репозиция на месте рыбалки после боя с мобом
//-------------------------------------------------
9100: begin
moveto1.interval:=500; //время задержки 0,5 сек
MoveTo(51333,186383,-3671);
end;
9101: MoveTo(51381,186427,-3671);
9102: Mov:=9302;
//-------------------------------------------------
//2 Репозиция на месте рыбалки после боя с мобом
//-------------------------------------------------
9200: begin
moveto1.interval:=500; //время задержки 0,5 сек
MoveTo(50966,185965,-3672);
end;
9201: MoveTo(50931,185931,-3672);
9202: Mov:=9302;
//-------------------------------------------------
//3 Репозиция на месте рыбалки после боя с мобом
//-------------------------------------------------
9300: begin
moveto1.interval:=500; //время задержки 0,5 сек
MoveTo(52589,186837,-3672);
end;
9301: MoveTo(52586,186837,-3672);
9302: begin
MoveTo1.enabled:=false;
Mov:=0;
fishin.enabled:=true; //продолжим ловить рыбу
msg.Lines.Add('Продолжим ловить рыбу!!!');
moveto1.interval:=1000; //время задержки 1 сек
end;
end;
end;
//***************************************************************
//ПЕРЕМЕЩЕНИЕ:
//Идти в точку с координатами x,y,z
procedure MoveTo(TargetX,TargetY,TargetZ:integer);
begin
if PosInRange(TargetX,TargetY,TargetZ,100) then inc(mov)
else MoveTo2(TargetX,TargetY,TargetZ);
end;
//***************************************************************
procedure MoveTo2(TargetX,TargetY,TargetZ:integer);
begin
//01=MoveBackwardToLocation:d(targetX)d(targetY)d(targetZ)d(originX)d(originY)d(originZ)d(moveByMouse)
buf:=#$01;
WriteD(targetx); //куда
WriteD(targety);
WriteD(targetz);
WriteD(MyXpos); //откуда
WriteD(MyYpos);
WriteD(MyZpos);
WriteD(1); //используем 1-мышь 0-клавиатура
SendToServerEx(Name);
msg.Lines.Add('MoveTo('+inttostr(targetx)+','+inttostr(targety)+','+inttostr(targetz)+')');
end;
//***************************************************************
//Ориентация на местности:
//Проверка находится ли заданная точка в пределах досягаемости.
function PosInRange(targetx,targety,targetz,distanciya:extended):boolean;
begin
if delta(targetx, targety, MyXpos, MyYpos)<=distanciya
then result:=true else result:=false;
end;
//***************************************************************
// вызывается при приходе каждого пакета, если скрипт включен
//***************************************************************
begin
//****************************************************************************
//не обрабатываем пустые пакеты
if pck='' then exit;
//****************************************************************************
if (ConnectName=Name) and FromServer then begin
case pck[1] of
#$04: begin
//msg.Lines.Add('S>Пакет UserInfo #$04');
//пакет с инфой о моём чаре
i:=2;
MyXpos:=ReadD(i); //получаю координату х моего чара
MyYpos:=ReadD(i); //получаю координату у моего чара
MyZpos:=ReadD(i); //получаю координату z моего чара
//Запоминаем ИД
i:=18;
MyID:=ReadD(i); //получаю ид моего чара
end;
end;
end;
//****************************************************************************
if (ConnectName=Name) and FromClient then begin
case pck[1] of
#$1B: begin
//msg.Lines.Add('C>Пакет RequestSicialAction #$1B');
//социальное действие
case ReadD(2) of
8: begin //unaware
case MestoLovli of
1: mov:=210;
2: mov:=220;
3: mov:=230;
end;
moveto1.enabled:=true;
//msg.Lines.Add('Бежим из магазина на берег...');
//не передаем серверу
pck:='';
end;
//для облечения написания маршрута (требуется панель информации!)
{ 11: begin //applaud - чекаем точку движения для внесения в скрипт.
info.Lines.Add(': begin');
info.Lines.Add(' if PosInRange('+inttostr(MyXpos)+','+inttostr(MyYpos)+','+inttostr(MyZpos)+',50) then inc(mov)');
info.Lines.Add(' else MoveTo('+inttostr(MyXpos)+','+inttostr(MyYpos)+','+inttostr(MyZpos)+');');
info.Lines.Add('end;');
//не передаем серверу
pck:='';
end;}
12: begin //dance
case MestoLovli of
1: mov:=110;
2: mov:=120;
3: mov:=130;
end;
moveto1.enabled:=true;
//msg.Lines.Add('Бежим в магазин...');
//не передаем серверу
pck:='';
end;
end;
end;
//ValidatePosition пакет от клиента с моими кординатами
#$48: begin
//msg.Lines.Add('C>Пакет ValidatePosition #$48');
MyXpos:=ReadD(2); //получаю координату х моего чара
MyYpos:=ReadD(6); //получаю координату у моего чара
MyZpos:=ReadD(10); //получаю координату z моего чара
end;
end;
end;
end.
Последний раз редактировалось NLObP, 14.05.2008 в 01:00.
Причина: изменение скрипта
|
|
|
|
За это сообщение NLObP нажился 13 спасибками от:
|
ad01f, Alan, Anton5, APXAHGEJI, dyh9l, DzumoHu4, Emocean, Grinch, nezabudkin, soel2, TAMBIK, vovanchik, wanick |
|
13.05.2008, 18:08
|
#2
|
|
Пользователь
Регистрация: 22.04.2008
Сообщений: 51
Сказал Спасибо: 14
Имеет 36 спасибок в 11 сообщенях
|
маленькая лепта в скриптоводстве, возможно кому-нибудь понадобится.
что делает:
- автоматически записывает в файл маршрут следования.
- можно загрузить данные пути из файла
- передвигается по маршруту.
Для начала, нужно создать маршрут(ы), запись происходит так:
1. соц. действ. Да - начать запись
2 соц. действ. Нет - остановить.
(записывает в файл все события от клиента на движение юзера, событе мув))
=== вот примерная структкра файла (x,y,z)=========
|19007|145255|-3151|
|19016|144485|-3130|
|19124|144579|-3128|
|19112|144059|-3103|
======================================
Следование по маршруту:
1. соц.дейст. Виктори
(определяется ближ. чекпоинт из массива данных MovePath и следует к данной точке, если достигнит ее то переходит к следующей в зависимости от направления.)
зы: есть мысль, допустим зациклить путь, чтобы бегал по маршруту и по ходу движения проверять на нападение на нас, если напали то приостонавить скрипт. тоды можно включить в паре с любым ботом "локомотив" представленные на данном форуме. В итоге получим место кача не круглое а допустим с более сложной геометрией или там отход на безопастную позицию для ребафа и ренегена манны или .....
зыы: интересно выслушать различные мнения по данному вопросу
delphi Код:
var
// movement data
MovePath, // данные по которому мы будем двигатся в данный момент
MyFile: TStringList; // данные для записи пути
PointsCount: integer;
SavePathEnabled: boolean;
MoveToPathEnabled: boolean;
MoveToForward: boolean;
MoveStepIndex: integer;
MoveTimer: TTimer;
MoveStepTime: integer;
// self states
myX,myY,myZ: integer;
myID: integer;
myHP,myMP,myMaxHP,myMaxMP: integer;
const
MyFileName = 'c:\myfile.txt';
MyNick = 'МойНик';
interlude = false;
debug = false;
procedure Init; //Вызывается при включении скрипта
begin
MoveTimer := TTimer.Create(nil);
MoveTimer.Enabled := False;
MoveTimer.Interval := 1000;
MoveTimer.OnTimer := @OnMove;
buf:=hstr('0F');
SendToServerEX(MyNick);
MyFile:=TStringList.Create;
MovePath:=TStringList.Create;
try
MyFile.LoadFromFile(MyFileName);
except
end;
//ShowMessage(inttostr(ExtractValue('|100|12345|300|',2))); // debug
end;
procedure Free; //Вызывается при выключении скрипта
begin
if MyFile<>nil then
begin
MyFile.Free;
end;
if MovePath<>nil then
MovePath.Free;
end;
function GetValue(ValName: string): string;
begin
result:=MyFile.Values[ValName];
end;
procedure SetValue(ValName: string; Value: string);
begin
MyFile.Values[ValName]:=Value;
end;
procedure StartRecord;
begin
if SavePathEnabled then
exit;
if MoveToPathEnabled then
begin
SendMsg('Во время следования по маршруту запись не возможна');
exit;
end;
MyFile.Clear;
PointsCount:=0;
SendMsg('Начата запись маршрута');
SavePathEnabled := True
end;
procedure StopRecord;
begin
if not SavePathEnabled then
exit;
MyFile.SaveToFile(MyFileName);
SendMsg('Запись маршрута завершена');
SavePathEnabled := False;
end;
procedure SendMsg(msg:string); // отправка системных сообщений клиенту
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClientEx(MyNick);
end;
procedure ParseMoveClient;
var
i,x,y,z: integer; s: string;
begin
if not SavePathEnabled then
exit;
i:=2;
x:=readd(i);
y:=readd(i);
z:=readd(i);
inc(PointsCount);
s:='|'+inttostr(x)+'|'+inttostr(y)+'|'+inttostr(z)+'|';
MyFile.Add(s);
SendMsg('добавлен чекпоинт № '+inttostr(PointsCount));
end;
function delta(xpos1, ypos1, xpos2, ypos2:extended):integer; //возвращает переменную rezu которая является растоянием между 2 точками
var
dx,dy,summa: extended;
begin
dx:= xpos1-xpos2;
dy:= ypos1-ypos2;
summa:= dx*dx+dy*dy;
if summa = 0 then result:= 0 else result:= Round(sqrt(summa));
if debug then
SendMsg('delta='+inttostr(result));
{
try
result:= Round(Sqrt(((xpos1-xpos2)*(xpos1-xpos2))+((ypos1-ypos2)*(ypos1-ypos2))));
if debug then
SendMsg('delta='+inttostr(result));
except
result:=-1;
if debug then
SendMsg('error in delta');
end;
}
end;
function GetMinCheckPoint(PointsList: TStringList): integer;
var
i,m,min_dist: integer;
s: string;
x,y,z: integer;
begin
result:=-1;
min_dist:=-1;
if PointsList.Count<=1 then
exit;
for i:=0 to PointsList.count-1 do
begin
s:=PointsList[i];
y:=ExtractValue(s,2);
x:=ExtractValue(s,1);
if debug then
SendMsg(s+' x:='+inttostr(x)+' y:='+inttostr(y));
m:=delta(x,y,myx,myy);
if m>0 then
begin
if (result=-1) then
begin
min_dist:=m;
result:=i;
end
else
if m<min_dist then
begin
min_dist:=m;
result:=i;
end;
end;
end;
end;
//*********************************************
// основная процедура запуска на движение по маршруту
//*********************************************
procedure GoToPath(ToForward: boolean);
var
x,y,z,i: integer;
s: string;
begin
MoveToPathEnabled:= not MoveToPathEnabled;
MoveToForward:=ToForward;
if not MoveToPathEnabled then
begin
MoveTimer.Enabled:=False;
SendMsg('Следование по маршруту остановлено');
exit;
end;
//***********************
// берем путь из MyFile
MovePath.assign(MyFile);
//**********************
SendMsg('Пробуем выйти на путь...');
// сперва идем к ближайшему чекпоинту
i:= GetMinCheckPoint(MovePath);
if i<0 then
begin
SendMsg('чекпоинт не найден');
MoveToPathEnabled:=False;
end else
begin
SendMsg('найден ближайший чекпоинт бежим туды');
MoveToPathEnabled:=True;
MoveStepIndex:=i;
if debug then
SendMsg('checkpoint #'+inttostr(i));
s:=MovePath[MoveStepIndex];
x:=ExtractValue(s,1);
y:=ExtractValue(s,2);
z:=ExtractValue(s,3);
MoveTo(x,y,z);
end;
MoveTimer.Enabled:=True;
end;
procedure OnMove(Sender: TObject);
var
x,y,z: integer; s: string;
begin
if not MoveToPathEnabled then
begin
TTimer(Sender).Enabled:=False;
if debug then
SendMsg('OnMove disabled');
exit;
end;
try
// проверяем на существ. объекта
// при отладке всякое может быть
MovePath.Count;
except
TTimer(Sender).Enabled:=False;
exit;
end;
s:=MovePath[MoveStepIndex];
x:=ExtractValue(s,1);
y:=ExtractValue(s,2);
z:=ExtractValue(s,3);
if PosInRange(x,y,z,100) then
begin
if MoveToForward then
begin
if MoveStepIndex=MovePath.Count-1 then
begin
MoveToPathEnabled:=False;
SendMsg('Мы по идее в конечной точке');
exit;
end
else
begin
inc(MoveStepIndex);
end;
end
else
begin
if MoveStepIndex>0 then dec(MoveStepIndex)
else
begin
MoveToPathEnabled:=False;
SendMsg('Мы по идее в начальной точке');
exit;
end;
end;
// мы достигли чекпоинта идем далее
SendMsg('бежим к #'+inttostr(MoveStepIndex));
s:=MovePath[MoveStepIndex];
x:=ExtractValue(s,1);
y:=ExtractValue(s,2);
z:=ExtractValue(s,3);
MoveTo(x,y,z);
end;
end;
function ExtractValue(sData: string;nIndex: integer): integer;
var
s: string;
i,j: integer;
begin
i:=0;j:=0;s:='';
s:=sData;
while j<nIndex do
begin
i:=pos('|',S);
if i>=0 then
begin
s:=copy(s,i+1,length(s)-i);
inc(j);
end
else
break;
end;
i:=pos('|',s);
if i>=0 then
s:=copy(s,1,i-1);
try
result:=strtoint(s);
except
end;
end;
//******************************************************************
//Bot by Skymanrus
//modified by NLObP специально для Владера, моего сына!
//ПЕРЕМЕЩЕНИЕ:
//Идти в точку с координатами x,y,z
//MOVETO(x,y,z)
procedure MoveTo(TargetX,TargetY,TargetZ:integer);
begin
//01=MoveBackwardToLocation:d(targetX)d(targetY)d(targetZ)d(originX)d(originY)d(originZ)d(moveByMouse)
buf:=#$01;
WriteD(targetx); //куда
WriteD(targety);
WriteD(targetz);
WriteD(MyX); //откуда
WriteD(MyY);
WriteD(MyZ);
WriteD(1); //используем 1-мышь 0-клавиатура
SendToServerEx(MyNick);
end;
//Ориентация на местности:
//Проверка находится ли заданная точка в пределах досягаемости. Если да, то выполняется кусок скрипта в фигурных скобках {}.
function PosInRange(targetx,targety,targetz,distanciya:integer):boolean;
begin
if delta(targetx, targety, MyX, MyY)<=distanciya
then result:=true else result:=false;
end;
procedure UserInfo; // обновление донных о себе
var
i:word;
begin
MyID:=ReadD(18);
MyX:=ReadD(2);
MyY:=ReadD(6);
MyZ:=ReadD(10);
if interlude then i:=i+48 else i:=i+44;
MyMaxHP:=ReadD(i);
MyHP:=ReadD(i);
MyMaxMP:=ReadD(i); // чисто информативно
MyMP:=ReadD(i);
end;
procedure StatusUpdate; // обновление данных о себе
var
i:integer;
begin
for i:=0 to ReadD(6)-1 do
case pck[i*8+10] of
#$09: MyHP:=ReadD(i*8+14);
#$0A: MyMaxHP:=ReadD(i*8+14);
#$0B: MyMP:=ReadD(i*8+14);
#$0C: MyMaxMP:=ReadD(i*8+14);
end;
end;
//***************************************************************
procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin
end;
procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin
end;
function iif(Bool: Boolean;aTrue: variant; aFalse: variant): variant;
begin
if Bool then
result:=aTrue
else
result:=aFalse;
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
var
i: integer;
begin
if FromClient and (ConnectName=MyNick)then
case pck[1] of
#$1B: // social
case pck[2] of
#$06: StartRecord; //Yes
#$05: StopRecord;//No
#$04: begin GoToPath(true); pck:=''; end;//attack!
end; //case
#$01: // move
ParseMoveClient;
#$48:
begin
myx:=ReadD(2);
myY:=ReadD(6);
myZ:=ReadD(10);
end;
end; // case
if FromServer and (ConnectName=MyNick) then
case pck[1] of
#$04: UserInfo;
#$0E: StatusUpdate;
end; // case
end.
Последний раз редактировалось alexsl, 13.05.2008 в 18:20.
|
|
|
|
|
За это сообщение alexsl нажился 10 спасибками от:
|
|
|
13.05.2008, 18:52
|
#3
|
|
Заблокирован
Регистрация: 10.03.2008
Адрес: Тула
Сообщений: 1,098
Сказал Спасибо: 188
Имеет 108 спасибок в 60 сообщенях
|
ппц откуда этот скрипт? сам писал?
|
|
|
|
|
13.05.2008, 19:43
|
#4
|
|
Пользователь
Регистрация: 22.04.2008
Сообщений: 51
Сказал Спасибо: 14
Имеет 36 спасибок в 11 сообщенях
|
Цитата:
Сообщение от DashKAaa
ппц откуда этот скрипт? сам писал?
|
так сказать на вольную тему (для изучения). естестено с встаками из готовых скриптов. Чтото конкретно интересует? |
|
|
|
|
13.05.2008, 20:15
|
#5
|
|
Заблокирован
Регистрация: 10.03.2008
Адрес: Тула
Сообщений: 1,098
Сказал Спасибо: 188
Имеет 108 спасибок в 60 сообщенях
|
да просто маштаб скрипта и функциональность его удивила, можно немножко его подправить и будет готовый фармер для S рецептиков)
|
|
|
|
|
13.05.2008, 22:26
|
#6
|
|
Рыцарь
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
|
NLObP, а последнюю версию скрипта не выложишь она вроде у тя оптимизирована и писанины меньше, честно до фарма дальше записать пакеты разговора с нпц не ушёл  а тут ты вроде уменьшил объём скрипта, плиз выложи если не затруднит
|
|
|
|
|
14.05.2008, 02:10
|
#7
|
|
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
|
Цитата:
Сообщение от alexsl
маленькая лепта в скриптоводстве, возможно кому-нибудь понадобится.
что делает:
- автоматически записывает в файл маршрут следования.
- можно загрузить данные пути из файла
- передвигается по маршруту.
|
Надо попробовать развить скрипт в разрезе ASTAR (A*) алгоритма
Добавлено через 1 час 16 минут
Цитата:
Сообщение от alexsl
Следование по маршруту:
1. соц.дейст. Виктори
|
Здесь опечатка: надо Адвансе!
Потестил скрипт. Очень удобен в использовании. Из Гирана в Гиран-харбор 73 чекпоинта. Гном теперь бегает туда и обратно по маршруту как экспресс! В рыбалку можно засунуть и менять места станет намного легче.
Последний раз редактировалось NLObP, 14.05.2008 в 03:23.
Причина: Добавлено сообщение
|
|
|
|
|
14.05.2008, 08:32
|
#8
|
|
Пользователь
Регистрация: 22.04.2008
Сообщений: 51
Сказал Спасибо: 14
Имеет 36 спасибок в 11 сообщенях
|
важно: скрипт токо для отладки
Спасибо всем за замечание, вот вчерашний дописанный скрипт. В описаловке к скрипту все написано. Замечание:
- теперь можно управлять скрипом из других скриптов через чат.
- социальные действия отключены (если надо раскоментировать)
delphi Код:
///////////////////////////////////////////////////////////////
// для: L2PacketHack by xkor
// посл. редактирование: 14.05.2008, 15:03msk, alexsl
// назначение: перемещение чара по заранее записаным маршруту(м)
//
// краткая инструкция:
//
// 1. прописать ник в MyNick
//
// - для записи пути в файл:
// 1. встаем на исходную позицию
// 2. в чат пишим "===rec test1" (test1 - или другое имя без пробелов)
// 3. бежим куда нужно. (желательно много не кликать на одно и тоже место. все клики записываются в файл)
// 4. в чат пишим "===save"
// 5. все. теперь данные записаны на диск, согласно настройкам и под именем test1 указ. в п.п.2
//
// - записываем требуемые пути с разными маршрутами и названиями
//
// - использование
// 1. бег до последнего чекпоинта(при достижении скрипт завершает работу):
// пишим в чат "===go test1" (test1 - название записанного маршрута)
// 2. бег до первого чекпоинта (при достижении скрипт завершает работу):
// пишим в чат "===back test1" (test1 - название записанного маршрута)
// 3. для остановки скрипта при передвижении: пишим в чат "===stop"
//
// как работает?: при запуске бежит к ближайшему чекпоинту и следует согласно направлению
// Использовались идеии, коды участников форума за, что спасибо
/////////////////////////////////////////////////////////////////////
var
// movement data
MovePath, // данные по которому мы будем двигатся в данный момент
RecordPath: TStringList; // данные для записи пути
RecordPathFileName: string; // название файла для записи
PointsCount: integer; // кол-во поинтов в процессе записи пути
SavePathEnabled: boolean; // флаг записи пути
MoveToPathEnabled: boolean; // флаг движения по пути
MoveToForward: boolean; // направление движения да-вперед, нет - назад
MoveStepIndex: integer; // текущ. чекпоинт (куды бежим сейчас)
MoveTimer: TTimer; //
old_X,old_Y,old_Z,old_time: integer;
myX,myY,myZ: integer; // наши статы
myID: integer;
myHP,myMP,myMaxHP,myMaxMP: integer;
const
MyNick = 'Мой ник';// <------------------------------
interlude = false;
debug = false;
// эта переменная указывает уничтожить пакет или нет если он обработан
// может данные нужны для других скриптов
EraseCommandFromChat = true;
//*******************************************************
RecordFilesPath = 'c:\'; // путь где хранятся наши файлы
RecordPathName = 'recordmove'; // файл по умолчанию
RecordFileExt = '.txt';// расширение по умолчанию
RangeToCheckPoint = 150; // дистанция до чекпоинта при которой считается , что мы достигли оного
MoveTrigerDelay = 800; // срабатывание таймера на движение 0,8 сек
cmdPrefix = '===';// с этих символов начинается команда
cmdDlm = ' ';// разделитель параметров команды, параметры не должены содержать разделитель
// команды в общий чат
// пример
cmdRecordPath = 'rec'; // в общий чат "===rec giran1"
cmdSavePath = 'save'; // в общий чат "===save"
cmdMove = 'go'; // в общий чат "===go giran1"
cmdBack = 'back'; // в общий чат "===back giran1"
cmdStop = 'stop'; // останавливает следование по маршруту
//*******************************************************
procedure Init; //Вызывается при включении скрипта
begin
MoveTimer := TTimer.Create(nil);
MoveTimer.Enabled := False;
MoveTimer.Interval := MoveTrigerDelay;
MoveTimer.OnTimer := @OnMove;
RecordPathFileName:='';
buf:=hstr('0F');
SendToServerEX(MyNick);
RecordPath:=TStringList.Create;
MovePath:=TStringList.Create;
end;
procedure Free; //Вызывается при выключении скрипта
begin
if RecordPath<>nil then
try
RecordPath.Free;
except
debugmsg('error free RecordPath');
end;
if MovePath<>nil then
try
MovePath.Free;
except
debugmsg('error free MovePath');
end;
end;
procedure debugmsg(s: string);
begin
if debug then
SendMsg(s);
end;
function GetValue(ValName: string): string;
begin
result:=RecordPath.Values[ValName];
end;
procedure SetValue(ValName: string; Value: string);
begin
RecordPath.Values[ValName]:=Value;
end;
procedure StartRecord;
begin
if SavePathEnabled then
exit;
if MoveToPathEnabled then
begin
SendMsg('Во время следования по маршруту запись не возможна');
exit;
end;
RecordPath.Clear;
PointsCount:=0;
SendMsg('Начата запись маршрута');
SavePathEnabled := True
end;
procedure StopRecord;
begin
if not SavePathEnabled then
exit;
// записываем
RecordPath.SaveToFile(GetRecordFileName);
SendMsg('Запись маршрута завершена');
SavePathEnabled := False;
end;
function GetRecordFileName: string;
begin
result:=RecordFilesPath+RecordPathFileName+RecordFileExt;
end;
procedure SendMsg(msg:string); // отправка системных сообщений клиенту
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClientEx(MyNick);
end;
procedure ParseMoveClient;
var
i,x,y,z: integer; s: string;
begin
if not SavePathEnabled then
exit;
i:=2;
x:=readd(i);
y:=readd(i);
z:=readd(i);
inc(PointsCount);
s:='|'+inttostr(x)+'|'+inttostr(y)+'|'+inttostr(z)+'|';
RecordPath.Add(s);
SendMsg('добавлен чекпоинт № '+inttostr(PointsCount));
end;
function delta(xpos1, ypos1, xpos2, ypos2:extended):integer; //возвращает переменную rezu которая является растоянием между 2 точками
var
dx,dy,summa: extended;
begin
try
dx:= xpos1-xpos2;
dy:= ypos1-ypos2;
summa:= dx*dx+dy*dy;
if summa = 0 then result:= 0 else result:= Round(sqrt(summa));
debugmsg('delta='+inttostr(result));
except
debugmsg('error in delta');
end;
end;
function GetMinCheckPoint(PointsList: TStringList): integer;
var
i,m,min_dist: integer;
s: string;
x,y,z: integer;
begin
result:=-1;
min_dist:=-1;
// проверка на наличие маршрута
if PointsList.Count=0 then
begin
exit;
MoveTimer.Enabled:=False;
MoveToPathEnabled:=False;
SendMsg('Нет данных по маршруту');
exit;
end;
try
for i:=0 to PointsList.count-1 do
begin
s:=PointsList[i];
y:=ExtractValue(s,2);
x:=ExtractValue(s,1);
debugMsg(s+' x:='+inttostr(x)+' y:='+inttostr(y));
m:=delta(x,y,myx,myy);
if m>0 then
begin
if (result=-1) then
begin
min_dist:=m;
result:=i;
end
else
if m<min_dist then
begin
min_dist:=m;
result:=i;
end;
end;
end;
except
debugMsg('error in GetMinCheckPoint');
end;//try
end;
procedure GoToPath(ToForward: boolean);
var
x,y,z,i: integer;
s: string;
begin
MoveToPathEnabled:= not MoveToPathEnabled;
MoveToForward:=ToForward;
if not MoveToPathEnabled then
begin
MoveTimer.Enabled:=False;
SendMsg('Следование по маршруту остановлено');
exit;
end;
//
// предположительно путь уже прописан в MovePath
//
SendMsg('Пробуем выйти на путь...');
// сперва идем к ближайшему чекпоинту
i:= GetMinCheckPoint(MovePath);
if i<0 then
begin
SendMsg('чекпоинт не найден');
MoveToPathEnabled:=False;
end else
begin
SendMsg('найден ближайший чекпоинт бежим туды');
MoveToPathEnabled:=True;
MoveStepIndex:=i;
if debug then
SendMsg('checkpoint #'+inttostr(i));
s:=MovePath[MoveStepIndex];
x:=ExtractValue(s,1);
y:=ExtractValue(s,2);
z:=ExtractValue(s,3);
if (old_x<>x) and (old_y<>y) and (old_z<>z) then
begin
MoveTo(x,y,z);
old_x:=x;
old_y:=y;
old_z:=z;
old_time:=0;
end;
end;
MoveTimer.Enabled:=True;
end;
//***************************************************************
procedure OnMove(Sender: TObject);
var
x,y,z: integer; s: string;
begin
inc(old_time);// счетчик, сколько тиков прошло с последнего клика. исп. при следованию по маршруту
if not MoveToPathEnabled then
begin
try
TTimer(Sender).Enabled:=False;
except
end;
SendMsg('Движение остановлено');
exit;
end;
// возможно мы пали смертью храбрых, то не дергаемся пока
if myHP<=0 then
begin
sendmsg('Die');
MoveToPathEnabled:=False;
exit;
end;
debugmsg('hp:'+inttostr(myhp));
try
// проверяем на существ. объекта
// при отладке всякое может быть
MovePath.Count;
except
TTimer(Sender).Enabled:=False;
exit;
end;
s:=MovePath[MoveStepIndex];
x:=ExtractValue(s,1);
y:=ExtractValue(s,2);
z:=ExtractValue(s,3);
if PosInRange(x,y,z,RangeToCheckPoint) then
begin
if MoveToForward then
begin
if MoveStepIndex=MovePath.Count-1 then
begin
MoveToPathEnabled:=False;
SendMsg('Мы по идее в конечной точке');
exit;
end
else
begin
inc(MoveStepIndex);
end;
end
else
begin
if MoveStepIndex>0 then dec(MoveStepIndex)
else
begin
MoveToPathEnabled:=False;
SendMsg('Мы по идее в начальной точке');
exit;
end;
end;
// мы достигли чекпоинта идем далее
SendMsg('бежим к #'+inttostr(MoveStepIndex));
s:=MovePath[MoveStepIndex];
x:=ExtractValue(s,1);
y:=ExtractValue(s,2);
z:=ExtractValue(s,3);
MoveTo(x,y,z);
end;
end;
function ExtractValue(sData: string;nIndex: integer): integer;
var
s: string;
i,j: integer;
begin
i:=0;j:=0;s:='';
s:=sData;
while j<nIndex do
begin
i:=pos('|',S);
if i>=0 then
begin
s:=copy(s,i+1,length(s)-i);
inc(j);
end
else
break;
end;
i:=pos('|',s);
if i>=0 then
s:=copy(s,1,i-1);
try
result:=strtoint(s);
except
end;
end;
//******************************************************************
//Bot by Skymanrus
//modified by NLObP специально для Владера, моего сына!
//ПЕРЕМЕЩЕНИЕ:
//Идти в точку с координатами x,y,z
//MOVETO(x,y,z)
procedure MoveTo(TargetX,TargetY,TargetZ:integer);
begin
//01=MoveBackwardToLocation:d(targetX)d(targetY)d(targetZ)d(originX)d(originY)d(originZ)d(moveByMouse)
buf:=#$01;
WriteD(targetx); //куда
WriteD(targety);
WriteD(targetz);
WriteD(MyX); //откуда
WriteD(MyY);
WriteD(MyZ);
WriteD(1); //используем 1-мышь 0-клавиатура
SendToServerEx(MyNick);
end;
//Ориентация на местности:
//Проверка находится ли заданная точка в пределах досягаемости. Если да, то выполняется кусок скрипта в фигурных скобках {}.
function PosInRange(targetx,targety,targetz,distanciya:integer):boolean;
begin
if delta(targetx, targety, MyX, MyY)<=distanciya
then result:=true else result:=false;
end;
procedure UserInfo; // обновление донных о себе
var
i:word;
begin
MyID:=ReadD(18);
MyX:=ReadD(2);
MyY:=ReadD(6);
MyZ:=ReadD(10);
i:=22;
ReadS(i);
if interlude then i:=i+48 else i:=i+44;
MyMaxHP:=ReadD(i);
MyHP:=ReadD(i);
MyMaxMP:=ReadD(i); // чисто информативно
MyMP:=ReadD(i);
end;
procedure StatusUpdate; // обновление данных о себе
var
i: integer;
begin
for i:=0 to ReadD(6)-1 do
case pck[i*8+10] of
#$09: MyHP:=ReadD(i*8+14);
#$0A: MyMaxHP:=ReadD(i*8+14);
#$0B: MyMP:=ReadD(i*8+14);
#$0C: MyMaxMP:=ReadD(i*8+14);
end;
end;
//***************************************************************
procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin
end;
procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin
end;
function iif(Bool: Boolean;aTrue: variant; aFalse: variant): variant;
begin
if Bool then
result:=aTrue
else
result:=aFalse;
end;
function ParseCmd(cmd: string):boolean;
var
s: string;
i,j,k: integer;
params: array[0..9] of string; // до 10 параметров, должно хватить
begin
result:=False;
try
j:=-1;
i:=pos(cmdPrefix,trim(cmd));
if i=0 then
exit;
debugmsg('start ParseCmd: idx:'+inttostr(i)+' cmd: '+cmd);
result:=true;
k:=length(cmdPrefix);
s:=trim(lowercase(cmd));
s:=trim(copy(s,i+k,length(cmd)-i));
debugmsg('trim:'+s);
repeat
inc(j);
k:=pos(cmdDlm,s);
if k>0 then
begin
params[j]:=copy(s,1,k-1);
// s:=copy(s,k+length(cmdDlm),length(s)-k-length(cmdDlm));
s:=trim(copy(s,k+length(cmdDlm),length(s)-k));
debugmsg('extract idx:'+inttostr(j) +' param:'+params[j]);
end
else
begin
params[j]:=s;
debugmsg('parm is one');
end;
until pos(cmdDlm,S)=0;
if j>-1 then
begin
inc(j);
params[j]:=s;
debugmsg('extract idx:'+inttostr(j) +' param:'+params[j]);
end;
if j=-1 then
exit;
//*******************************************************
// пропарсили команду
// теперь выполняем
//*******************************************************
if params[0]=cmdRecordPath then
begin
if params[1]<>'' then
RecordPathFileName:=params[1]
else
RecordPathFileName:=RecordPathName;
StartRecord;
end
else
if params[0]=cmdSavePath then
begin
StopRecord;
end
else
if params[0]=cmdMove then
begin
if params[1]='' then
begin
SendMsg('хз куда бежать, укажите имя');
exit;
end;
try
MovePath.LoadFromFile(RecordFilesPath+params[1]+RecordFileExt);
except
SendMsg('файл пути не найден');
exit;
end;
GoToPath(true);
end
else
if params[0]=cmdBack then
begin
if params[1]='' then
begin
SendMsg('хз куда бежать, укажите имя');
exit;
end;
try
MovePath.LoadFromFile(RecordFilesPath+params[1]+RecordFileExt);
except
SendMsg('файл пути не найден');
exit;
end;
GoToPath(false);
end
else
if (params[0]=cmdStop) and MoveToPathEnabled then
MoveToPathEnabled:=False;
except
debugmsg('error in ParseCmd,params='+cmd);
end;
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
var
i: integer;
begin
if FromClient and (ConnectName=MyNick)then
case pck[1] of
{
#$1B: // social
case pck[2] of
#$06: StartRecord; //Yes
#$05: StopRecord;//No
#$04: begin GoToPath(true); pck:=''; end;
end; //case
}
#$01: // move
ParseMoveClient;
#$38: // say2
// если это команда и она обработана и надо очистить чат
if ParseCmd(ReadS(2)) and EraseCommandFromChat then
pck:='';// kill packet
#$48:
begin
myx:=ReadD(2);
myY:=ReadD(6);
myZ:=ReadD(10);
end;
end; // case
if FromServer and (ConnectName=MyNick) then
case pck[1] of
#$04: UserInfo;
#$0E: StatusUpdate;
end; // case
end.
Добавлено через 48 минут
Цитата:
|
Надо попробовать развить скрипт в разрезе ASTAR (A*)
|
интересная идея, гдето видел геодату от явы сервера, вечерком посмотрю может можно будет прикрутить. ну а на счет оценки стоимости передвижения ... ммм .. какие идеи? вариант: бот камикадзе, бегает туды сюды тыкается или самому отмечать чекпоинты или если есть в геодате инфа о проходимости того или иного участка юзать ее.
Последний раз редактировалось alexsl, 16.05.2008 в 15:01.
|
|
|
|
|
За это сообщение alexsl нажился 5 спасибками от:
|
|
|
14.05.2008, 11:17
|
#9
|
|
Рыцарь
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
|
Цитата:
Сообщение от alexsl
интересная идея, гдето видел геодату от явы сервера, вечерком посмотрю может можно будет прикрутить. ну а на счет оценки стоимости передвижения ... ммм .. какие идеи? вариант: бот камикадзе, бегает туды сюды тыкается или самому отмечать чекпоинты или если есть в геодате инфа о проходимости того или иного участка юзать ее.
|
да, на счет геодаты было бы круто, тогда перемещение бота можно было бы вообще сделать рандомным, что б он просто проверял возможность перемещения в определюнную точку сверяясь с маской геодаты.
ЗЫ а вообще в каком виде и где именно хранится геодата? |
|
|
|
|
14.05.2008, 13:31
|
#10
|
|
Пользователь
Регистрация: 22.04.2008
Сообщений: 51
Сказал Спасибо: 14
Имеет 36 спасибок в 11 сообщенях
|
вот нарыл
Цитата:
да, на счет геодаты было бы круто, тогда перемещение бота можно было бы вообще сделать рандомным, что б он просто проверял возможность перемещения в определюнную точку сверяясь с маской геодаты.
ЗЫ а вообще в каком виде и где именно хранится геодата?
|
_http://l2j-geodata.sourceforge.net в общем геодата, есть общее описание но нет формата файла или не туды глядел. Может общими усилиями попробуем вычислить формат или гдето уже есть описание? или ну его нх  игра не стои свеч
зы: ИМХО довольно удачно продуманный формат описания геодаты
че понял основное:
- мир резделен на 32*32 района/региона
- район разделен на 256*256 блоков
- блок разделен на 8*8 ячеек
- ячейка равняется 16*16 игровым units
ну и всякие вкусности, проверка возможности передвижения
в сторону из ячейки и т.д.
Последний раз редактировалось alexsl, 14.05.2008 в 13:44.
|
|
|
|
|
За это сообщение alexsl нажился 2 спасибками от:
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 09:06.
|
|
Линейный вид
