![](/zhyk/misc/sp.gif) |
Телепорт по локации мышкой 2,7 - Боты, скрипты и прочий софт для Aion - Весь софт по Aion, скрипты и боты для игры |
16.04.2012, 12:34
|
#31
|
|
|
|
Разведчик
|
![](/zhyk/misc/regist.png) Регистрация: 13.07.2009
![](/zhyk/misc/messages.png) Сообщений: 7
![](/zhyk/misc/reput.png) Популярность: 16
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 0
Поблагодарили 3 раз(а) в 2 сообщениях
|
Re: Телепорт по локации мышкой 2,7
у меня вообще такой папки нету...
можешь залить куда-то что бы я скачал и вставил потому что я даже в скачанном архиве не могу найти
________________
I dare everything what may become a man, who dares more is none.
|
|
|
16.04.2012, 15:16
|
#32
|
|
|
|
Сержант
|
![](/zhyk/misc/regist.png) Регистрация: 22.10.2010
![](/zhyk/misc/messages.png) Сообщений: 105
![](/zhyk/misc/reput.png) Популярность: 521
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 40
Поблагодарили 122 раз(а) в 26 сообщениях
|
Re: Телепорт по локации мышкой 2,7
|
|
|
17.05.2012, 03:12
|
#33
|
|
|
|
Разведчик
|
![](/zhyk/misc/regist.png) Регистрация: 04.05.2010
![](/zhyk/misc/messages.png) Сообщений: 13
![](/zhyk/misc/reput.png) Популярность: 12
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 1
Поблагодарили 1 раз в 1 сообщении
|
Re: Телепорт по локации мышкой 2,7
при ТП по точкамперс просто недолетает до нужного места и падает под текстуры(( (по записанным координатам)
|
|
|
17.05.2012, 09:32
|
#34
|
|
|
|
Разведчик
|
![](/zhyk/misc/regist.png) Регистрация: 15.05.2012
![](/zhyk/misc/messages.png) Сообщений: 29
![](/zhyk/misc/reput.png) Популярность: 10
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 5
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Телепорт по локации мышкой 2,7
Только на 2,7 работает?
|
|
|
18.05.2012, 15:34
|
#35
|
|
|
|
Сержант
|
![](/zhyk/misc/regist.png) Регистрация: 22.10.2010
![](/zhyk/misc/messages.png) Сообщений: 105
![](/zhyk/misc/reput.png) Популярность: 521
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 40
Поблагодарили 122 раз(а) в 26 сообщениях
|
Re: Телепорт по локации мышкой 2,7
________________
Disce, sed а doctis, indoctos ipse doceto
|
|
|
24.05.2012, 14:11
|
#36
|
|
|
|
Разведчик
|
![](/zhyk/misc/regist.png) Регистрация: 24.06.2011
![](/zhyk/misc/messages.png) Сообщений: 7
![](/zhyk/misc/reput.png) Популярность: 12
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
|
Re: Телепорт по локации мышкой 2,7
на Atr***world отлично работает
только у меня проблема, я записал в лист свои координаты и когда тепаюсь на них, то улетаю в текстуры
Последний раз редактировалось nykich; 24.05.2012 в 15:23.
|
|
|
25.05.2012, 04:01
|
#37
|
|
|
|
Разведчик
|
![](/zhyk/misc/regist.png) Регистрация: 27.12.2010
![](/zhyk/misc/messages.png) Сообщений: 35
![](/zhyk/misc/reput.png) Популярность: 18
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 19
Поблагодарили 4 раз(а) в 4 сообщениях
|
Re: Телепорт по локации мышкой 2,7
|
|
|
01.06.2012, 03:01
|
#38
|
|
|
|
Разведчик
|
![](/zhyk/misc/regist.png) Регистрация: 09.09.2010
![](/zhyk/misc/messages.png) Сообщений: 17
![](/zhyk/misc/reput.png) Популярность: -226
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 19
Поблагодарили 1 раз в 1 сообщении
|
Re: Телепорт по локации мышкой 2,7
Здрасте... может скрипт и отличный но увы на 175пх вылетает ошибка короче фейл (только из за активации скрипта в л2пх "Галочку тыкаешь и ошибка")
|
|
|
01.06.2012, 22:29
|
#39
|
|
|
|
Сержант
|
![](/zhyk/misc/regist.png) Регистрация: 22.10.2010
![](/zhyk/misc/messages.png) Сообщений: 105
![](/zhyk/misc/reput.png) Популярность: 521
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 40
Поблагодарили 122 раз(а) в 26 сообщениях
|
Re: Телепорт по локации мышкой 2,7
________________
Disce, sed а doctis, indoctos ipse doceto
|
|
|
01.06.2012, 22:55
|
#40
|
|
|
|
Разведчик
|
![](/zhyk/misc/regist.png) Регистрация: 26.02.2012
![](/zhyk/misc/messages.png) Сообщений: 1
![](/zhyk/misc/reput.png) Популярность: 10
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Телепорт по локации мышкой 2,7
У меня тоже ошибка вылетает The applicatioin has encountered a problem. We are sorry for the incovenience
|
|
|
02.06.2012, 00:55
|
#41
|
|
|
|
Сержант
|
![](/zhyk/misc/regist.png) Регистрация: 22.10.2010
![](/zhyk/misc/messages.png) Сообщений: 105
![](/zhyk/misc/reput.png) Популярность: 521
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 40
Поблагодарили 122 раз(а) в 26 сообщениях
|
Re: Телепорт по локации мышкой 2,7
________________
Disce, sed а doctis, indoctos ipse doceto
|
|
|
05.08.2012, 17:52
|
#42
|
|
|
|
Разведчик
|
![](/zhyk/misc/regist.png) Регистрация: 19.07.2012
![](/zhyk/misc/messages.png) Сообщений: 7
![](/zhyk/misc/reput.png) Популярность: 10
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Телепорт по локации мышкой 2,7
На 3.0 будет работать?
|
|
|
06.08.2012, 10:17
|
#43
|
|
|
|
Разведчик
|
![](/zhyk/misc/regist.png) Регистрация: 17.01.2012
![](/zhyk/misc/messages.png) Сообщений: 3
![](/zhyk/misc/reput.png) Популярность: 10
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Телепорт по локации мышкой 2,7 Обновленный
altairalentus, переделай на 3.0 плиз, или помоги разобраться какие пакеты и за что отвечают.. хотя бы ту часть скрипта где ТП мышкой по местности.
|
|
|
14.08.2012, 22:00
|
#44
|
|
|
|
Сержант
|
![](/zhyk/misc/regist.png) Регистрация: 22.10.2010
![](/zhyk/misc/messages.png) Сообщений: 105
![](/zhyk/misc/reput.png) Популярность: 521
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 40
Поблагодарили 122 раз(а) в 26 сообщениях
|
Re: Телепорт по локации мышкой 2,7 Обновленный
![](/zhyk/misc/quotes/quot-top-left.gif) |
Цитата: |
![](/zhyk/misc/quotes/quot-top-right.gif) |
|
|
|
|
|
|
|
|
altairalentus, переделай на 3.0 плиз, или помоги разобраться какие пакеты и за что отвечают.. хотя бы ту часть скрипта где ТП мышкой по местности.
|
|
![](/zhyk/misc/quotes/quot-bot-left.gif) |
|
![](/zhyk/misc/quotes/quot-bot-right.gif) |
|
Я сейчас сижу на 2,7 но скоро перелезу на 3,0 тогда переделаю.
Добавлено через 34 минуты
![](/zhyk/misc/quotes/quot-top-left.gif) |
Цитата: |
![](/zhyk/misc/quotes/quot-top-right.gif) |
|
|
|
|
|
|
|
|
У меня такая проблема при тп я прилитаю в сохранённую точку и проваливаюсь под текстуру( что делать?
|
|
![](/zhyk/misc/quotes/quot-bot-left.gif) |
|
![](/zhyk/misc/quotes/quot-bot-right.gif) |
|
Попробуй так
Код:
//Black_Hole 1.03
//Script by AltairAlentus
var
coordinat:array[0..1,0..3] of integer;
xyzh,pak: array[0..3] of integer;
packet,blick_mode,mouse_mode,action:byte;
blick_start,mouse_start,teleport_start:boolean;
t_pak,list,ps:string;
s,n,v:tstringlist;
Timer:ttimer;
x,y,z:single;
procedure init ;
begin
packet:=0;
s:=tstringlist.create;
n:=tstringlist.create;
v:=tstringlist.create;
list:='Teleport\teleport.txt';
s.loadfromfile(list);
n.loadfromfile('Teleport\lists.txt');
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@TimerOn;
Timer.interval:=20000;
Timer.enabled:=false;
end;
procedure TimerOn ;
begin
Timer.enabled:=false;
action:=0;
end;
procedure chatmode(mode:byte);
begin
if mode=0 then action:=0
else
begin
action:=mode;
Timer.enabled:=true;
end;
end;
procedure Free ;
begin
s.savetofile(list);
v.savetofile('1.txt');
Timer.enabled:=false;
end;
procedure blick(mode:integer);
var
i:integer;
begin
if blick_start=true then
begin
xyzh[0]:=readD(6);
xyzh[1]:=readD(10);
xyzh[2]:=readD(14);
xyzh[3]:=readc(18);
if packet=0 then
begin
for i:=0 to 3 do coordinat[0,i]:=xyzh[i];
packet:=1;
end
else
begin
for i:=0 to 3 do coordinat[1,i]:=xyzh[i];
packet:=0;
case blick_mode of
1:
begin
pak[0]:=coordinat[1,0]+((coordinat[1,0]-coordinat[0,0])*10);
pak[1]:=coordinat[1,1]+((coordinat[1,1]-coordinat[0,1])*10);
pak[2]:=coordinat[1,2]+((coordinat[1,2]-coordinat[0,2])*10)+50000;
pak[3]:=coordinat[1,3];
end;
2:
begin
pak[0]:=coordinat[1,0]-((coordinat[1,0]-coordinat[0,0])*10);
pak[1]:=coordinat[1,1]-((coordinat[1,1]-coordinat[0,1])*10);
pak[2]:=coordinat[1,2]-((coordinat[1,2]-coordinat[0,2])*10)+50000;
pak[3]:=coordinat[1,3];
end;
3:
begin
pak[0]:=coordinat[1,0]+((coordinat[1,0]-coordinat[0,0]));
pak[1]:=coordinat[1,1]+((coordinat[1,1]-coordinat[0,1]));
pak[2]:=coordinat[1,2]+((coordinat[1,2]-coordinat[0,2]))+10000000;
pak[3]:=coordinat[1,3];
end;
end;
buf:=hstr('C2 00 57 61 FF 05');
for i:=0 to 2 do writed(pak[i]);
writec(xyzh[3]);
sendtoserver;
buf:='';
blick_start:=false;
blick_mode:=0;
end;
end
else
begin
blick_start:=true;
blick_mode:=mode;
end;
end;
procedure mouse(mode:integer);
var
i:integer;
begin
if mouse_start then
begin
if Length(pck)=31 then
begin
xyzh[0]:=readD(20);
xyzh[1]:=readD(24);
xyzh[2]:=readD(28);
xyzh[3]:=readc(18);
pck:='';
buf:=hstr('C2 00 57 61 FF');
case mouse_mode of
1: writec(4);
2: writec(5);
end;
for i:=0 to 2 do writed(xyzh[i]);
writec(xyzh[3]);
sendtoserver;
buf:='';
mouse_start:=false;
mouse_mode:=0;
end
else
begin
message('Не тот пакет ',8);
mouse_start:=false;
mouse_mode:=0;
end;
end
else
begin
mouse_start:=true;
mouse_mode:=mode;
end;
end;
procedure message(msg:string;chatID:byte);
begin
buf:=HStr('16 00 54 D5 FF 00 00 E3 10 37 00 ');
writec(chatID,6);
WriteS('L2ph');
WriteS(msg);
SendToClient;
end;
procedure teleport_corinat;
var
i:integer;
begin
if teleport_start then
begin
xyzh[0]:=readD(6);
xyzh[1]:=readD(10);
xyzh[2]:=readD(14)+500000; //здесь идет прибавка к высоте попробуй так, если не поможет добавь еще
xyzh[3]:=readc(18);
teleport_start:=false;
buf:='';
for i:=0 to 2 do writed(xyzh[i]);
writec(xyzh[3]);
t_pak:=buf;
buf:='';
pck:='';
end
else teleport_start:=true;
end;
procedure tptosave;
begin
buf:=hstr('C2 00 57 61 FF 04')+t_pak;
sendtoserver;
buf:='';
pck:='';
end;
procedure addtolist(go:boolean);
begin
if go then
begin
s.add(reads(7)+'='+t_pak);
chatmode(0);
message('Кординати '+reads(7)+' сохранены',8);
end
else
begin
if t_pak='' then message('Нет сохранених кординат используйте .save',8)
else
begin
message('Введите имя ',8);
chatmode(1);
end;
end;
pck:='';
end;
procedure showlist;
var
np:string;
i:integer;
begin
for i:=0 to s.count-1 do
begin
np:=np+HStr('0D 0A')+inttostr(i+1)+' -- '+s.names[i];
end;
chatmode(2);
message(np,7);
np:='';
pck:='';
end;
procedure tpfromlist(tpid:byte);
begin
if tpid<>0 then
begin
buf:=hstr('C2 00 57 61 FF 04')+s.values[s.names[tpid-1]];
sendtoserver;
chatmode(0);
pck:='';
end;
end;
procedure sendpaty(c: array[0..3] of integer);
begin
buf:=#$B2#$00#$57#$71#$FF#$05;
writes('t'+' '+IntToStr(c[0])+' '+IntToStr(c[1])+' '+IntToStr(c[2])+' '+IntToStr(c[3]));
SendToServer;
end;
procedure tppaty(go:boolean;choise:byte);
var
str,tm: string;
i,c:integer;
begin
if go then
begin
if choise=1 then
begin
buf:=hstr('C2 00 57 61 FF 04');
for i:=0 to 2 do writed(xyzh[i]);
writec(xyzh[3]);
sendtoserver;
buf:='';
pck:='';
end;
end
else
begin
str:=reads(28);
if str[1]='t' then
begin
i:=pos(' ',str)+1;
for c:=0 to 3 do
begin
tm:='';
while (str[i]<>' ') do
begin
tm:=tm+str[i];
inc(i);
end;
xyzh[c]:=StrToInt(tm);
Inc(i);
end;
message('Вас призывает персонаж '+reads(12)+#$0D#$0A+'1 -- Принять'+#$0D#$0A+'2 -- Отклонить',7);
chatmode(5);
pck:='';
end;
end;
end;
procedure chengelist(go:boolean;lid:integer);
var
np:string;
i:integer;
begin
if go then
begin
pck:='';
s.savetofile(list);
list:=n.values[n.names[lid-1]];
s.loadfromfile(list);
end
else
begin
for i:=0 to n.count-1 do
begin
np:=np+HStr('0D 0A')+inttostr(i+1)+' -- '+n.names[i];
end;
chatmode(3);
message(np,7);
np:='';
pck:='';
end;
pck:='';
end;
procedure addlist(go:boolean;lname:string);
begin
if go then
begin
n.add(lname+'='+'Teleport\'+lname+'.txt');
s.savetofile(list);
s.clear;
list:=n.values[lname];
s.savetofile(list);
message('Список '+lname+' сохранен',8);
pck:='';
end
else
begin
message('Введите имя списка',8);
chatmode(4);
end;
pck:='';
end;
procedure GetPos;
var
i:integer;
tmp:string;
begin
tmp:='';
i:=pos(' ',ps)+1;
while (ps[i]<>' ') do
begin
if (ps[i]<>'.') then
tmp:=tmp+ps[i]
else
tmp:=tmp+',';
inc(i);
end;
x:=StrToFloat(tmp);
tmp:='';
i:=i+1;
while (ps[i]<>' ') do
begin
if (ps[i]<>'.') then
tmp:=tmp+ps[i]
else
tmp:=tmp+',';
inc(i);
end;
y:=StrToFloat(tmp);
tmp:='';
i:=pos(']',ps)+1;
if (i<>Length(ps)) then
z:=z+StrToFloat(Copy(ps,i+1,Length(ps)-i));
end;
procedure SendTP;
begin
buf:=HStr('C2 00 57 61 FF 04 ');
WriteN(x);
WriteN(y);
WriteN(z);
SendToServer;
end;
begin
if FromClient then
case pck[1] of
#$9f:
begin
if blick_start then blick(0);
if mouse_start then mouse(0);
if teleport_start then teleport_corinat ;
end;
#$c2: if readh(6)in [24596..26645] then pck:='';
#$b2:
case reads(7) of
'.go1': blick(1);
'.go2': blick(2);
'.go3': blick(3);
'.m1': mouse(1);
'.m2': mouse(2);
'.save':teleport_corinat ;
'.addtolist': addtolist(false);
'.showlist': showlist;
'.tptosave': tptosave;
'.clist':s.clear;
'.summon': sendpaty(xyzh);
'.addlist': addlist(false,'');
'.chengelist': chengelist(false,0);
else
case action of
0: ;
1: addtolist(true);
2: tpfromlist(strtoint(reads(7)));
3: chengelist(true,strtoint(reads(7)));
4: addlist(true,reads(7));
5: tppaty(true,strtoint(reads(7)));
end;
end;
end;
if FromServer and (pck[1]=#$16) then tppaty(false,0);
if FromClient and (ReadC(1)=$B2) and (ReadC(7)=$5B) and (ReadC(9)=$70) and (ReadC(11)=$6F) and (ReadC(13)=$73) then
begin
ps:=ReadS(15);
GetPos;
SendTP;
pck:='';
end;
if FromClient and (ReadC(1)=$9F) then
z:=ReadN(14)+10;
end.
________________
Disce, sed а doctis, indoctos ipse doceto
Последний раз редактировалось altairalentus; 14.08.2012 в 22:34.
Причина: Добавлено сообщение
|
|
|
15.08.2012, 08:34
|
#45
|
|
|
|
Разведчик
|
![](/zhyk/misc/regist.png) Регистрация: 24.04.2012
![](/zhyk/misc/messages.png) Сообщений: 29
![](/zhyk/misc/reput.png) Популярность: 428
![](/zhyk/misc/thnx.png) Сказал(а) спасибо: 55
Поблагодарили 5 раз(а) в 4 сообщениях
|
Re: Телепорт по локации мышкой 2,7
Здраствуй altairalentus . Когда ввожу команду .save нече не происходит , .showlist ввожу вроде робит , там на листе 3 место по умолчанию. И как к листу тп-нуть потом? лпх 76
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 17:19.
|
![](/zhyk/misc/sp.gif) |