Показать сообщение отдельно
Старый 07.05.2012, 15:27   #1
Новичок
 
Регистрация: 07.05.2012
Сообщений: 1
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
RackFor пока неопределено
Вопрос Скрипт на тп

Помогите пожалуйста, в написании скриптов ничего не понимаю... Как нибудь можно добавить свои координаты в уже готовый скрипт на тп, и как их добавить? Просто объясните откуда взять координаты(и как) куда вставить и на какую команду будет откликаться.
Код:
//******************************************************************************
{version 0.2 By tiranous How to teleport self anywhere you want

1.check the script
2.target yourself
3.teleport to every location you want
4.use one active skill (common craft,heal,etc)
5.Tested in L2DeathWhisper,L2Core,L2Evo,l2gm,l2zer0
}
//******************************************************************************
//Towns
//
//.gludio
//.gludiowh 
//.goddard
//.goddardwh 
//.aden
//.adenwh   
//.giran
//.giranwh 
//.rune 
//.oren 
//.heine 
//.dion 
//.schuttgart 
//.gludin 
//.elventree
//.elvenwh
//.elven
//.darkelven
//.darkelvenwh
//.dwarven
//.dwarvenwh
//.orcvillage
//.orcvillagewh
//.talkingisle
//.floran
//.hunter
//.hunterwh
//
//Harbors
//
//.giranharbor
//.runeharbor
//
//Castles
//
//.adencastle 
//.runecastle 
//.goddardcastle 
//.girancastle 
//.orencastle 
//.gludiocastle 
//.dioncastle 
//.schuttgartcastle 
//.innadrilcastle 
//
//Castle's Pray
//.giranpray
//.adenpray
//.runepray
//.orenpray
//.dionpray
//.gludiopray
//.innadrilpray
//.goddardpray1
//.goddardpray2
//.schuttgartpray1
//.schuttgartpray2
//
//Farm Places
//
//.dino 
//.vos 
//.varka 
//.mos 
//.ketra
//.hotsprings
//.imperialtomb
//.wallofargos
//.forgeofthegods
//.skarato
//.valleyofsaint
//.lostnest
//.blaizing
//.darkomens
//.aligaorisle
//.cruma
//
//Other Places
//
//.olympiad
//.olympiad2
//.dwarventower
//.dwarventower2
//.fieldofsilence
//.hideway
//.sea 
//.mount 
//.jail    
//.adencrest 
//.vodopad  
//.coliseum
//.secretcastle 
//.placetohide
// 
//Raid Bosses
//Special Raid Bosses
//
//.qa
//.core
//.orfen
//.zaken
//.baium
//.benom
//.antharas
//.valakas
//.frintezza
//.tyrannosaurus1
//.tyrannosaurus2
//.tyrannosaurus3
//
//70-80 lvl rbs
//
//.varkarb1
//.varkarb2
//.varkarb3
//.ketrarb1
//.ketrarb2
//.ketrarb3
//.ember
//.galaxia
//.golkonda
//.giantglaki
//lowest lvl rbs
//
//.blaizingrb1
//.blaizingrb2
//.blaizingrb3
//.blaizingrb4
//.blaizingrb5
//.hallate
//.korim
//.kernon
//.rahha
//.gorgolos
//.verfa
//
//Noblesse Quest
//
//.talien 
//.gabrielle 
//.gilmore
//.baraham 
//.melodymaestro
//.marluk 
//.stedmiel 
//.virgil 
//.rahorakti
//.splinterstakato 
//.caradine 
//.noel 
//.mdk 
//.kalis 
//.matild 
//.unicorn 
//.jp 
//.noblrb
//.ladd

var
//
ValidatePosition:string; c:integer; e:integer; n:integer; r:boolean;     
a:integer; b:boolean;  d:integer; f:integer; v:integer;
procedure Init; 
begin
SendMsc('Возьми себя в таргет!!!');
b:=false;
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('tiranous');
WriteS(msc);
SendToClient;
end;
Begin
begin
if FromClient and (pck[1]=#$04)and (not b) then 
begin
a:=ReadD(2); c:=ReadD(6);
d:=ReadD(10); e:=ReadD(14);
f:=ReadC(18);
SendMsc('Запомнен ID Обьекта = '+inttostr(a));
b:=true;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 71 00 61 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('C8 AB FF FF 17 C4 02 00 A6 E9 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 6F 00 72 00 65 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('61 45 00 00 5E B5 01 00 48 E6 FF FF '); 
SendToClient;
end;
end;
и т.д.(больше символов нельзя)
В этот наимер надо добавить, что бы работал по такому же принципу... Заранее спасибо
RackFor вне форума   Ответить с цитированием