Скрипты

Давно пльзуюсь скриптами, а у вас сижу 2-ой день) Если повторяюсь то сорь))

--------------------------------------------------------------------------------------

//Скрипт на возрождение на месте после смерти.
//Включите скрипт,когда вы умерли возьмите себя в таргет и нажмите в город.
//Вы встанете наместе.
//Автор pmen ICQ - 479917081
//=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
const
//======================================
Name='Никнейм'; //<-----Ник Персонажа
//======================================
var
a:integer;x:integer;MyID:string;
y:integer;z:integer;
b:boolean;ValidatePosition:string;
procedure Init; //Вызывается при включении скрпта
begin
SendMsc('Возьми себя в таргет'); //Системное сообщение
b:=false; //Условие b первоночально False
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msc);
SendToClient;
end;
begin
//Нечитаем пустые пакеты
if pck='' then exit;
//Если Имя соединения Name
//И Пакет Action от клиента то
if FromClient and (ConnectName=Name) and (pck[1]=#$04) then
begin
//Сохраняем мой Обжект Ид
MyID:= pck[2]+pck[3]+pck[4]+pck[5];
a:=ReadD(2); x:=ReadD(6); //Читаем и запоминаем данные
y:=ReadD(10); z:=ReadD(14);
SendMsc('Все данные сохранены!'); //Оповещаем о том что все прошло успешно
b:=true;
end;
begin
if pck='' then exit; //Не читаем пустые пакеты
//Если от Клиента пакет RequestRestartPoint
//Запоминаем ValidatePosition до revive
//Посылаем клиенту TeleportToLocation
if FromClient and (ConnectName=Name) and (pck=hstr('6D 00 00 00 00')) then
if FromClient and (ConnectName=Name) and (pck[1]=#$48) then ValidatePosition:=pck;
if FromServer and (ConnectName=Name) and (pck[1]=#$28) and (MyID= pck[2]+pck[3]+pck[4]+pck[5]) then
begin
pck:=''; //Убиваем стандартный пакет
buf:=ValidatePosition; //посылаем ValidatePosition
SendToServerEX(Name);
buf:=#$28;
WriteD(A); //Obj.ID
WriteD(X); //Coord.X
WriteD(Y); //Coord.Y
WriteD(Z); //Coord.Z
SendtoclientEX(Name);
buf:=ValidatePosition; //посылаем ValidatePosition
SendToServerEX(Name);
end;
end;
end.
----------------------------------------------------------------------------------------------------

//================================
//
// Делевел чара до 68 уровня в дионе
//
// Начало: Площадь Диона
//
//================================

LABEL(Start)
DELAY(1000)
MOVETO(18645,145463,-3112)
MOVETO(21543,145859,-3114)
LABEL(Attack)
FORCEATTACK(Bright)
CHARSTATUS(CHP,!=,0)
{
DELAY(2000)
JMP(Attack)
}
GOHOME()
CHARSTATUS(LV,==,45)
{
EXIT()
}
JMP(Start)

---------------------------------------------
до кокого левла долевл можно изменить
---------------------------------------------
срипт на тт
---------------------------------------------

//Скрипт переделан под комплекс серверов shock-world.com
Label(Jeremy)
USEITEM(Haste Potion[ID=734])
delay(1000)
MOVETO (149463,-112659,-2064)
NPCSEL(Jeremy[ID=8521])
DELAY(1000)
NPCDLG(Jeremy[ID=8521])
DELAY(1000)
DLGSEL(Quest)
DELAY(1000)
DLGSEL([Delivery of Special Liquor])
DELAY(1000)
DLGSEL("I'll deliver your liquor.")
DELAY(1000)
MOVETO(149181,-112464,-2064)
DELAY(250)
MOVETO(147535,-113278,-2064)
//1 остановка
JMP(Beolin)
LABEL(Beolin)
NPCSEL(Beorin[ID=8547])
DELAY(1000)
NPCDLG(Beolin[ID=8547])
DELAY(1000)
DLGSEL(Quest)
DELAY(2000)
DLGSEL( "I'm here to deliver some liquor." )
DELAY(1000)
UseSkill(Stealth[ID=411])
delay(1000)
UseSkill(Dash[ID=4])
delay(1000)
JMP(Kuber)
LABEL(Kuber)
MOVETO(146175,-111424,-2472) // вершина обрыва
DELAY(250)
MOVETO(141646,-109432,-3584)
DELAY(250)
NPCSEL(Kuber[ID=8546])
DELAY(1000)
UseSkill(Stealth[ID=411])//Стелс
delay(1600)
NPCDLG(Kuber[ID=8546])
DELAY(1000)
DLGSEL( Quest)
DELAY(1000)
DLGSEL("I'm here to deliver some liquor." )
DELAY(1000)
JMP(Crocus)
LABEL(Crocus)
MOVETO(140627,-105522,-3624)
NPCSEL(Crocus[ID=8545])
DELAY(1000)
NPCDLG(Crocus[ID=8545])
DELAY(1000)
DLGSEL( Quest)
DELAY(1000)
DLGSEL("I have your liquor right here!")
DELAY(1000)
UseSkill(Stealth[ID=411])
delay(1000)
UseSkill(Dash[ID=4])
delay(1000)
JMP(Naff)
LABEL(Naff)
MOVETO(144223,-108773,-3464)
DELAY(250)
MOVETO(145599,-108903,-3400)
DELAY(250)
MOVETO(147518,-108847,-3392)
DELAY(250)
MOVETO(148795,-108808,-2616)
DELAY(250)
MOVETO(149312,-109348,-2456)
DELAY(250)
MOVETO(150502,-112497,-2200)
DELAY(250)
UseSkill(Stealth[ID=411])//Стелс
delay(1600)
MOVETO(152474,-111262,-2432)
DELAY(250)
MOVETO(153957,-110132,-2552)
DELAY(250)
UseSkill(Stealth[ID=411])//Стелс
delay(1600)
MOVETO(154987,-107283,-2680)
DELAY(250)
MOVETO(155595,-105790,-2744)
NPCSEL(Naff[ID=8544])
DELAY(1000)
NPCDLG(Naff[ID=8544])
DELAY(1000)
DLGSEL(Quest)
DELAY(1000)
DLGSEL([Delivery of Special Liquor (Continue)])
DELAY(1000)
DLGSEL(Say "I've brought you some specially brewed liquor!")
DELAY(1000)
UseSkill(Stealth[ID=411])//Стелс
delay(1600)
UseSkill(Dash[ID=4])
delay(1000)
JMP(Pulin)
LABEL(Pulin)
MOVETO(155595,-105790,-2744)
DELAY(250)
MOVETO(154987,-107283,-2680)
DELAY(250)
MOVETO(153957,-110132,-2552)
DELAY(250)
UseSkill(Stealth[ID=411])//Стелс
delay(1600)
UseSkill(Dash[ID=4])
delay(1000)
MOVETO(152474,-111262,-2432)
DELAY(250)
UseSkill(Stealth[ID=411])//Стелс
delay(1600)
MOVETO(150502,-112497,-2200)
DELAY(250)
MOVETO(150326,-113371,-2072)
DELAY(250)
UseSkill(Stealth[ID=411])//Стелс
delay(1600)
MOVETO(149992,-114175,-1904)
DELAY(250)
MOVETO(150355,-115025,-1704)
DELAY(250)
UseSkill(Stealth[ID=411])//Стелс
delay(1600)
MOVETO(151480,-115139,-1560)
DELAY(250)
MOVETO(156259,-115410,-1704)
DELAY(250)
MOVETO(157568,-115377,-1896)
NPCSEL(Pulin[ID=8543])
DELAY(1000)
UseSkill(Stealth[ID=411])//Стелс
delay(1600)
NPCDLG(Pulin[ID=8543])
DELAY(1000)
DLGSEL(Quest )
DELAY(1000)
DLGSEL("Here's the liquor delivery.")
UseSkill(Stealth[ID=411])//Стелс
delay(1600)
DELAY(1000)
JMP(2Jeremy)
LABEL(2Jeremy)
UseSkill(Dash[ID=4])
delay(1000)
MOVETO(157568,-115377,-1896)
DELAY(250)
MOVETO(156259,-115410,-1704)
DELAY(250)
UseSkill(Stealth[ID=411])//Стелс
delay(1600)
MOVETO(151480,-115139,-1560)
DELAY(250)
MOVETO(150355,-115025,-1704)
DELAY(250)
MOVETO(150115,-112889,-2144)
DELAY(250)
MOVETO(149902,-112760,-2080)
DELAY(250)
MOVETO (149463,-112659,-2064)
NPCSEL(Jeremy[ID=8521])
DELAY(1000)
NPCDLG(Jeremy[ID=8521])
DELAY(1000)
DLGSEL(Quest)
DELAY(1000)
DLGSEL([Delivery of Special Liquor (Continue)])
DELAY(1000)
DLGSEL("Yes, I finished all the deliveries.")
DELAY(1000)
JMP(Jeremy)

-------------------------------------
бот автоматически поговорит с сундуком как убьют рб на 3 этаже
-------------------------------------

LABEL(1)
ITEMCOUNT(Hallate's Infernium Scepter[ID=4669],<,1)
{
NPCSEL(Chest of Hallate[ID=31030])
DELAY(1000)
NPCDLG(Chest of Hallate[ID=31030])
DELAY(1000)
DLGSEL(Quest)
JMP(1)
}

----------------------------------
тоже самое на 8 этаже ТОИ
----------------------------------

LABEL(1)
ITEMCOUNT(Kernon's Infernium Scepter[ID=4667],<,1)
{
NPCSEL(Chest of Kernon[ID=31028])
DELAY(1000)
NPCDLG(Chest of Kernon[ID=31028])
DELAY(1000)
DLGSEL(Quest)
JMP(1)
}
MSG(УРААА!!! СУНДУУУК!)

-------------------------------
и на 11)
-------------------------------

LABEL(1)
ITEMCOUNT(Golkonda's Infernium Scepter[ID=4668],<,1)
{
NPCSEL(Chest of Golkonda[ID=31029])
DELAY(1000)
NPCDLG(Chest of Golkonda[ID=31029])
DELAY(1000)
DLGSEL(Quest)
JMP(1)
}
MSG(УРААА!!! СУНДУУУК!

---------------------------------
и цеметри
---------------------------------

LABEL(1)
ITEMCOUNT(Reiria's Soul Orb[ID=4666],<,1)
{
NPCSEL(Coffer of the Dead[ID=31027])
NPCDLG(Coffer of the Dead[ID=31027])
DELAY(1000)
DLGSEL(Quest)
DELAY(1000)
JMP(1)
}
MSG(УРААА!!! СУНДУУУК!)

MegaChiter

Меню навигации

Пользовательские ссылки

Объявление

Информация о пользователе

Скрипты

Сообщений 1 страница 2 из 2

Поделиться12010-01-24 07:28:20

Поделиться22010-02-02 22:56:01