|
Рабочие Скрипты: Пишу скрипты сам ... - Боты, скрипты и прочий софт для Aion - Весь софт по Aion, скрипты и боты для игры |
24.12.2011, 14:55
|
#1
|
|
|
|
Разведчик
|
Регистрация: 02.10.2011
Сообщений: 19
Популярность: 18
Сказал(а) спасибо: 2
Поблагодарили 4 раз(а) в 3 сообщениях
|
Рабочие Скрипты: Пишу скрипты сам ...
PHP код:
var
SpeedTable1:array[1..10] of integer;
cSpeed:integer;
rSpeed:single;
vx1:variant;
DangePacket:array[1..10] of string;
//DangePacket1:string;
//DangePacket2:string;
CharID:array[1..4] of integer;
TargetID:integer;
{
$413F851F - 12.0(9.0+3.0)
$40C00000 - 6.0
$3FC00000 - 1.5
$40EA3D71 - 7.3 (6.0+1.3) ($2A3D71)
}
procedure Init; //Вызывается при включении скрипта
begin
SpeedTable1[1]:=$413F851F;
SpeedTable1[2]:=$41C00000;
SpeedTable1[3]:=$42C00000;
SpeedTable1[4]:=$42C00000;
cSpeed:=SpeedTable1[1];
rSpeed:=11.7;
vx1:=rSpeed;
//cSpeed:=vx1;
//sendmsg(Format('%x',[WriteSi(11.7)]));
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
var
msgName:string;
procedure PHX_Message(msg1:string);
begin
buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
msgName:='[PHX]';
WriteS(msgName);
WriteS(msg1);
SendToClient;
end;
procedure Resurect;
begin
pck:='';
buf:=HStr('6B 57 08 03 ');
SendToServer;
end;
procedure SetSpeed1;
begin
pck:='';
PHX_Message('Use Speed 1');
cSpeed:=SpeedTable1[1];
end;
procedure SetSpeed2;
begin
pck:='';
PHX_Message('Use Speed 2');
cSpeed:=SpeedTable1[2];
end;
procedure SetSpeed3;
begin
pck:='';
PHX_Message('Use Speed 3');
cSpeed:=SpeedTable1[3];
end;
procedure InitDange(d1:integer);
begin
DangePacket[d1]:='';
pck:='';
PHX_Message(Format('Обнулил Данж %d',[d1]));
end;
procedure TP_To_Dange(d1:integer);
begin
buf:=DangePacket[d1];
pck:='';
SendToServer;
PHX_Message(Format('Телепорт в Данж %d',[d1]));
end;
procedure OpenAuk1;
begin
pck:='';
buf:=HStr('9C 57 5B 00 00 00 00 0D 00 01 00 0A 00 00 00 00 00 00 00 ');
WriteD(TargetID,4);
SendToServer;
end;
procedure OpenWrh1;
begin
pck:='';
buf:=HStr('9C 57 5B 00 00 00 00 14 00 01 00 0A 00 00 00 00 00 00 00 ');
WriteD(TargetID,4);
SendToServer;
end;
procedure TestTP1;
begin
pck:='';
buf:=HStr('9E 57 5D B3 D2 C0 44 1D 1A C2 44 06 0F 98 43 0C 00 ');
SendToServer;
buf:=HStr('67 57 04 ');
SendToServer;
end;
procedure StealLoot;
var
i:integer;
begin
pck:='';
for i:=1 to 30 do
begin
buf:=Hstr('39 57 F6 ');
writeD(TargetID);
writeC(i);
SendToServer;
end;
end;
var
x1,y1,z1:integer;
speed_triger1:boolean;
sp1:single;
procedure TpToSave1;
begin
pck:='';
buf:=HStr('9E 57 5D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ');
WriteD(X1,4);
WriteD(Y1,8);
WriteD(Z1,12);
SendToServer;
buf:=HStr('67 57 04 ');
SendToServer;
end;
begin
// buf:=Hstr('42 54 E1 BA A0 0B 00 0B 02 00 00 00 40 41 ');
// buf:=Hstr('42 54 E1 BA A0 0B 00 0B 02 00 00 00 40 42 ');
// SendToClient;
if FromServer and (ReadC(1)=$42) and (speed_triger1) then
begin
buf:=pck;
// sp1:=(readd(11));
// PHX_Message(FloatToStr(sp1));
pck:='';
WriteD(cSpeed,11);
SendToClient;
end;
if FromClient and (ReadD(1)=$1A6657C9) then
begin
speed_triger1:=not speed_triger1;
pck:='';
buf:=HStr('AC 57 4B 79 63 01 00 58 02 00 00 07 00 00 00 ');
SendToServer;
if speed_triger1 then PHX_Message('Set Fast Speed') else PHX_Message('Set Normal Speed');
end;
if FromServer and (ReadC(1)=$56) then
begin
x1:=ReadD(16);
y1:=ReadD(20);
z1:=ReadD(24);
//sendMSG(Format('sdfsdfsd %d',[x1]));
buf:=HStr('17 54 D4 08 00 00 00 00 00 5B 00 50 00 48 00 58 00 5D 00 00 00 ');
WriteS(Format('Save Coordinates [%d, %d, %d]',[x1,y1,z1]));
SendToClient;
end;
if FromClient and (ReadC(1)=$C9) and (ReadH(4)=533) then
begin
pck:='';
buf:=HStr('9E 57 5D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ');
WriteD(X1,4);
WriteD(Y1,8);
WriteD(Z1,12);
SendToServer;
buf:=HStr('67 57 04 ');
SendToServer;
end;
//Видеть инвиз 2
if FromServer and (ReadC(1)=$63) then
begin
buf:=pck;
pck:='';
WriteC(2,9);
SendToClient;
end;
if FromClient and (ReadC(1)=$9A{Use Target}) then
begin
if DangePacket[1]='' then
begin
DangePacket[1]:=pck;
PHX_Message(Format('Set Dange 1 %x',[ReadD(4)]));
end;
if DangePacket[2]='' then
begin
DangePacket[2]:=pck;
PHX_Message(Format('Set Dange 2 %x',[ReadD(4)]));
end;
end;
if FromClient and (ReadC(1)=$B5{select}) then
begin
TargetID:=ReadD(4);
if DangePacket[1]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[1]:=buf;
PHX_Message(Format('Set Dange 1 %x',[TargetID]));
end;
if DangePacket[2]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[2]:=buf;
PHX_Message(Format('Set Dange 2 %x',[TargetID]));
end;
end;
if FromClient and (ReadC(1)=$66) then
CharID[1]:=ReadD(4);
if FromClient and (ReadC(1)=$B5) then TargetID:=ReadD(4);
if FromClient and (ReadC(1)=$B9) then
begin
if (ReadS(5)='.') then Resurect;
if (ReadS(5)='.spd1') then SetSpeed1;
if (ReadS(5)='.spd2') then SetSpeed2;
if (ReadS(5)='.spd3') then SetSpeed3;
if (ReadS(5)='.initD1') then InitDange(1);
if (ReadS(5)='.initD2') then InitDange(2);
if (ReadS(5)='.tptoD1') then TP_To_Dange(1);
if (ReadS(5)='.tptoD2') then TP_To_Dange(2);
if (ReadS(5)='.openAuk') then OpenAuk1;
if (ReadS(5)='.openWrh') then OpenWrh1;
if (ReadS(5)='.tpToP1') then TestTP1;
if (ReadS(5)='.steal') then StealLoot;
if (ReadS(5)='.tpToSave1') then TpToSave1;
end;
end.
Скил пак на инвиз скорость бега 12
PHP код:
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;
begin
StartSkill := 2126;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(2126, 5);
Delay(500);
DoTheSkill(1987, 1);
Delay(500);
DoTheSkill(1990, 1);
end;
end.
Скил пак на сина Засада Атака ядом Клинок обморока С паузами 0,5 сек
PHP код:
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;
begin
StartSkill := 2115;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(2115, 2);
Delay(500);
DoTheSkill(2280, 2);
Delay(500);
DoTheSkill(853, 3);
end;
end.
Скил пак 2 на сина Кровоточащий порез Клык зверя воздушный плен
PHP код:
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;
begin
StartSkill := 721;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(721, 4);
Delay(500);
DoTheSkill(737, 4);
Delay(500);
DoTheSkill(2074, 3);
end;
end.
Скил пак 1 на лучника Выстрел град стрел спиральный выстрел
PHP код:
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;
begin
StartSkill := 736;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(736, 4);
Delay(500);
DoTheSkill(719, 3);
end;
end.
Скил пак для лучника 2 Внезаптный выстрел Взрывной выстрел
Позже сделаю на эти 2 класса бафы с паузами что бы не было паливно.
Скил паки рабочие сам тестил на каком сервере не буду говорить.
Факт в том что скил пак работает но нужно учитывать еще и вашь пинг. Если пинг слишком высокий то вам лутше убрать со скрипта паузы ..
Но тогда больше палива для вас ((.
Для отдельных классов приму заявку на скилпак только сразу оговариваю прописывайте мне серию которую вы хотели бы видеть на своем персонаже ..
Кому помог ловлю спасибо ...
|
|
|
2 пользователя(ей) сказали cпасибо:
|
|
24.12.2011, 15:07
|
#2
|
|
|
|
Сержант
|
Регистрация: 01.10.2011
Сообщений: 128
Популярность: 5723
Сказал(а) спасибо: 25
Поблагодарили 174 раз(а) в 105 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
Что бы не парить мозг автору, объясню пару моментов:
Код:
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;
begin
StartSkill := 2238; //ID скилла при котором начнется макрос
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(2238, 4); //первое значение ID выполняемого скила, второе значение его уровень
Delay(500); //Задержка в миллисекундах
DoTheSkill(2233, 5); //первое значение ID выполняемого скила, второе значение его уровень
//Сюда можете добавить еще сколько угодно скиллов в формате DoTheSkill(<ID скила>,<уровень скила>);
end;
end.
ЗЫ Нафига еще одна такая тема, мне вообще не понятно, но кто я такой что бы судить
________________
Talk is cheap. Show me the code
— Linus Torvalds
Последний раз редактировалось Yukikaze; 24.12.2011 в 15:09.
|
|
|
Пользователь сказал cпасибо:
|
|
24.12.2011, 15:09
|
#3
|
|
|
|
Пехотинец
|
Регистрация: 11.09.2010
Сообщений: 85
Популярность: 142
Сказал(а) спасибо: 57
Поблагодарили 47 раз(а) в 34 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
автор напишы что рабоает только до 2.5 версии !
|
|
|
24.12.2011, 15:50
|
#4
|
|
|
|
Разведчик
|
Регистрация: 02.10.2011
Сообщений: 19
Популярность: 18
Сказал(а) спасибо: 2
Поблагодарили 4 раз(а) в 3 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
|
Цитата: |
|
|
|
|
|
|
|
|
|
автор напишы что рабоает только до 2.5 версии !
|
|
|
|
|
|
Эти скилпаки работаю на версиях 2.6 2.7
Помог поставь спасибо ...
Добавлено через 2 минуты
|
Цитата: |
|
|
|
|
|
|
|
|
|
Что бы не парить мозг автору, объясню пару моментов:
Код:
var
TargetID:integer;
StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;
begin
StartSkill := 2238; //ID скилла при котором начнется макрос
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(2238, 4); //первое значение ID выполняемого скила, второе значение его уровень
Delay(500); //Задержка в миллисекундах
DoTheSkill(2233, 5); //первое значение ID выполняемого скила, второе значение его уровень
//Сюда можете добавить еще сколько угодно скиллов в формате DoTheSkill(<ID скила>,<уровень скила>);
end;
end.
ЗЫ Нафига еще одна такая тема, мне вообще не понятно, но кто я такой что бы судить
|
|
|
|
|
|
Не все люди которые только начинают играть понимают такие вот темы им проще взять срисовать и поставь себе готовый скил пак для того и нужна такая тема..
Кому помог поставь спасибку ...
Последний раз редактировалось f1qwer; 24.12.2011 в 15:53.
Причина: Добавлено сообщение
|
|
|
24.12.2011, 16:10
|
#5
|
|
|
|
Сержант
|
Регистрация: 01.10.2011
Сообщений: 128
Популярность: 5723
Сказал(а) спасибо: 25
Поблагодарили 174 раз(а) в 105 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
________________
Talk is cheap. Show me the code
— Linus Torvalds
|
|
|
24.12.2011, 16:24
|
#6
|
|
|
|
Лейтенант-командор
|
Регистрация: 17.07.2009
Сообщений: 683
Популярность: 11669
Золото Zhyk.Ru: 100
Сказал(а) спасибо: 567
Поблагодарили 1,011 раз(а) в 383 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
________________
подполье Аион - для суровых подпольщиков
Восстановлена работоспособность одного из лучших радаров для Аион. Спасибо автору(ам) =)
Path of Exile - в настоящее время там.
|
|
|
24.12.2011, 16:36
|
#7
|
|
|
|
Сержант
|
Регистрация: 12.11.2009
Сообщений: 110
Популярность: 748
Сказал(а) спасибо: 68
Поблагодарили 104 раз(а) в 46 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
|
|
|
24.12.2011, 18:29
|
#8
|
|
|
|
Рыцарь-лейтенант
|
Регистрация: 10.06.2011
Сообщений: 467
Популярность: 31147
Сказал(а) спасибо: 231
Поблагодарили 488 раз(а) в 226 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
Автор, скрипты для классов писать Тут тема, прежде чем корзину создавать, посмотри на полках.
|
|
|
25.12.2011, 14:08
|
#9
|
|
|
|
Разведчик
|
Регистрация: 01.11.2011
Сообщений: 44
Популярность: 13
Сказал(а) спасибо: 1
Поблагодарили 11 раз(а) в 10 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
ахахах афтар красавчег))
первый скрипт нагло стырен отсюда - http://zhyk.ru/forum/showthread.php?t=202685
то как сделать все остальние скрипты я думаю все уже знают, а то что вы в них добавили ( Delay(500) ) сразу показивает что в скриптах вы ничерта не разбираетесь)) http://zhyk.ru/forum/showthread.php?p=2120867
|
|
|
12.01.2012, 10:40
|
#10
|
|
|
|
Разведчик
|
Регистрация: 24.08.2010
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
можно написать скрипт на обнуления Отката ДАНЖА(данжей)?
|
|
|
12.01.2012, 16:08
|
#11
|
|
|
|
Разведчик
|
Регистрация: 01.11.2011
Сообщений: 44
Популярность: 13
Сказал(а) спасибо: 1
Поблагодарили 11 раз(а) в 10 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
|
|
|
25.01.2012, 11:20
|
#12
|
|
|
|
Разведчик
|
Регистрация: 02.10.2011
Сообщений: 19
Популярность: 18
Сказал(а) спасибо: 2
Поблагодарили 4 раз(а) в 3 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
Скрипт для глада активация серии Яростный удар
PHP код:
var TargetID:integer; StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte); begin buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00'); WriteH(SkillID, 4); WriteC(Level, 6); WriteD(TargetID, 8); SendToServer; end;
begin StartSkill := 177; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); DoTheSkill(177, 5); Delay(500); DoTheSkill(180, 5); Delay(500); DoTheSkill(304, 4); end; end.
Скрипт для глада активация серии Вамперическая волна
PHP код:
var TargetID:integer; StartSkill:word;
procedure DoTheSkill(SkillID:word; Level:byte); begin buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00'); WriteH(SkillID, 4); WriteC(Level, 6); WriteD(TargetID, 8); SendToServer; end;
begin StartSkill := 2268; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); DoTheSkill(2268, 2); Delay(800); DoTheSkill(2017, 3); Delay(500); DoTheSkill(297, 3); end; end.
|
|
|
25.01.2012, 11:40
|
#13
|
|
|
|
Пехотинец
|
Регистрация: 11.09.2010
Сообщений: 85
Популярность: 142
Сказал(а) спасибо: 57
Поблагодарили 47 раз(а) в 34 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
|
Цитата: |
|
|
|
|
|
|
|
|
|
Эти скилпаки работаю на версиях 2.6 2.7
Помог поставь спасибо ..
|
|
|
|
|
|
на 2.7 он не будет работать , да и на 2.6 тоже !
тк сменились пакеты на 2 байтные
форма будет такого типа D0 но не как не CF !!!
пс . это 101 повтор ! таких тем на форуме полного ....
есть даже гайд как их состовлять http://zhyk.ru/forum/showthread.php?t=248490
и за что тебе спасибку ? ты мне лично нечем не помог !
|
|
|
26.01.2012, 18:43
|
#14
|
|
|
|
Разведчик
|
Регистрация: 21.11.2011
Сообщений: 43
Популярность: 14
Сказал(а) спасибо: 18
Поблагодарили 2 раз(а) в 2 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
Интересно 1 скрипт только инвиз кросов и стрелков палит или админа может попалить?? хД
|
|
|
26.01.2012, 19:24
|
#15
|
|
|
|
Разведчик
|
Регистрация: 10.01.2012
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Рабочие Скрипты: Пишу скрипты сам ...
Сможешь прописать скрипт на закла,что то вроде бы атака элементаля земли "Волнение"?
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 23:41.
|
|