Автор: TrojanX: Дата: 10.25.2009

Нашол на офе седня такой скриптик:)
[HTML]

prontera,147,159,4 script Детектив::LDetective 407,{

// Options
set .@AllowWarp,2; // 1 = block warp to other player
// 2 = allow warp to other player
set .@DisableOnAgit,2; // 1 = allow npc during WoE
// 2 = disable warp during WoE
// 3 = disable npc during WoE

set .@SPrice,10000; // Search price -> 0 = free (don't show msg)
set .@WPrice,100000; // Warp price -> 0 = free (don't show msg)
// End of options

if (agitcheck() && .@DisableOnAgit==3) goto LAgitModeOn;
mes "[Детектив]";
mes "Здраствуйте, "+strcharinfo(0)+".Я великий детектив всего Рун-Минграда.";
mes "Что желаете?";
next;
menu "Найдите моего друга!",-,"Ничего",LNothing;

if (.@SPrice==0) goto LInputName;
mes "[Детектив]";
mes "Я не могу работать бесплатно";
mes "Я найду вашего друга за "+.@SPrice+" zeny.";
mes "Согласны?";
next;
menu "Да!",-,"Нет",LNo;
if (Zeny<.@SPrice) goto LNoZeny;

LInputName:
mes "[Детектив]";
mes "Скажите мне его имя.";
input .@playername$;
mes "Я постараюсь его найти";
mes "Его имя ^0000ff"+.@playername$+"^000000";
mes "Правильно?";
next;
menu "Да!",-,"Не",LInputName;

mes "[Детектив]";
mes "Начнем!";
next;
if (getmapxy(.@mname$,.@mx,.@my,0,.@playername$)!=0) goto LNotFound;
mes "Я нашел его тут: ";
mes .@mname$+" at X:"+.@mx+" Y:"+.@my+" !";
set Zeny,Zeny-.@SPrice;
next;
if (.@AllowWarp==1 || (agitcheck() && .@DisableOnAgit==2)) goto LSearchEnd;
mes "[Detective]";
mes "Варпнуть вас к нему?.";
next;
menu "Конечно!",-,"Нет",LNo;

if (.@WPrice==0) goto LWarp;
mes "[Detective]";
mes "За сумму варпну "+.@WPrice+" zeny.";
mes "Согласны?";
next;
menu "Да",-,"Не",LNo;

LWarp:
if (Zeny<.@WPrice) goto LNoZeny;
set zeny,Zeny-.@WPrice;
mes "[Детектив]";
mes "В путь!";
close2;
warp .@mname$,.@mx,.@my;
end;

LNotFound:
mes "[Detective]";
mes "Я не могу его найти,возможно он в оффлайне";;
mes "Зени-Зени Оо";
close;

LSearchEnd:
mes "[Detective]";
mes "Спасибо что воспользовались моей услугой!)";
close;

LAgitModeOn:
mes "[Detective]";
mes "Я не могу найти его на гв!";
close;

LNo:
mes "[Detective]";
mes "....!";
close;

LNothing:
mes "[Detective]";
mes "Не беспокой меня!!";
close;

LNoZeny:
mes "[Детектив]";
mes "У тебя не хватает денег!";
close;
}

Автор: : Дата: 01.01.1970