Ragnar-files

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

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Ragnar-files » Скрипты » Заливаем все скрипты сюда


Заливаем все скрипты сюда

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

1

Рыбалка

//===== eAthena Script ======================================
//= Рыбалка
//===========================================================
//===== By ==================================================
//= Revan
//===== Version =============================================
//= 1.2
//===========================================================
ayothaya.gat,257,95,1 script Удочка::Fishing 111,{
mes "На крючке этой удочки нет наживки. Но если насадить на крючок одну Tentacle то можно попробовать поймать рыбу.";
next;
menu "Насадить Tentacle и ловить рыбу",Lfish,"Отмена",L_close;

Lfish:
if(countitem(962)<1) goto Notenta;
delitem 962,1;
mes "Теперь можно ждать, когда рыба начнет клевать.";
initnpctimer;
attachnpctimer;
close;

OnTimer10000:
detachnpctimer;
set @rand, rand(1,7);
if(@rand == 1) goto FiFail;
if(@rand == 2) goto FiFail;
if(@rand == 3) goto FiSucc;
if(@rand == 4) goto FiSucc2;
if(@rand == 5) goto FiSucc3;
if(@rand == 6) goto FiFail;
if(@rand == 7) goto FiSucc;

FiFail:
mes "Была поклевка, но рыба сорвалась.";
close;

FiSucc:
mes "Вы поймали одну рыбку.";
getitem 544,1;
close;

FiSucc2:
mes "Вы поймали сразу две рыбки.";
getitem 544,2;
close;

FiSucc3:
mes "Вы поймали сразу три рыбки.";
getitem 544,3;
close;

Notenta:
mes "У вас нет Tentacle.";
close;

L_close:
close;
}

ayothaya.gat,86,90,1 script Сеть::Fishnet 111,{
mes "Если вы наложите в эту сеть наживку Tentacle, можно попробовать заккинуть сеть в воду и поймать рыбу.";
next;
menu "Положить в сеть 3 Tentacles",Lfish,"Отмена",L_close;

Lfish:
if(countitem(962)<3) goto Notenta;
delitem 962,3;
mes "Теперь можно ждать, когда рыба попадется в сеть.";
initnpctimer;
attachnpctimer;
close;

OnTimer20000:
detachnpctimer;
set @rand, rand(1,7);
if(@rand == 1) goto FiFail;
if(@rand == 2) goto FiFail;
if(@rand == 3) goto FiSucc;
if(@rand == 4) goto FiSucc2;
if(@rand == 5) goto FiSucc3;
if(@rand == 6) goto FiFail;
if(@rand == 7) goto FiSucc;

FiFail:
mes "К сожалению улова нет.";
close;

FiSucc:
mes "Вы поймали две рыбки.";
getitem 544,2;
close;

FiSucc2:
mes "Вы поймали четыре рыбки.";
getitem 544,4;
close;

FiSucc3:
mes "Вы поймали шесть рыбок.";
getitem 544,6;
close;

Notenta:
mes "У вас нет 3 Tentacle.";
close;

L_close:
close;
}
ayothaya.gat,257,98,1 duplicate(Fishing) Удочка#2 111
ayothaya.gat,66,87,1 duplicate(Fishnet) Сеть#2 111

Мой скрипт, ПвП арена с показателем народа...

prontera.gat,168,162,4 script Arena 722Ѓ¦3,{
set @red$,"^FF0000";
set @reset$,"^000000";
mes "[Arena]";
mes "Привет, я могу телепортнуть тебя на арену";
next;
mes "[Arena]";
mes "Выбирай";
menu "PvP Arena[" + @red$ + getmapusers("guild_vs1.gat") + @reset$ + "]",PvP,"Выйти",No;
PVP:
warp "guild_vs1.gat",50,50;
close;
No:
close;
}

Вот скрипт для ПвП серверов, обмен манеток на деньги и обратно.

prontera.gat,147,174,5 script Coins 108 ,{
mes "[Coins]";
mes "Привет "+strcharinfo(0)+", я могу поменять деньги на монетки или монетки на деньги выбирай!";
menu "Обменять деньги на монетки",M1,"Обменять монетки на деньги",M2;
next;
M1:
mes "[Coins]";
mes "500kk - Mithril Coin ";
mes "250kk - Golden Coin";
mes "175kk - Platinum Coin";
mes "100kk - Silver Coin";
mes "50kk - Bronze Coin";
next;
mes "Какую ты хочешь получить монетку?";
menu "Mithril Coin",M,"Golden Coin",G,"Platinum Coin",P,"Silver Coin",S,"Bronze Coin",B;
M:
mes "[Coins]";
mes "Выбирай";
menu "Зделать",-,"Уйти",No;
if (zeny < 500000000) goto NoZeny;
set Zeny,Zeny-500000000;
getitem 674,1;
mes "[Coins]";
mes "Удачи";
close;
G:
mes "[Coins]";
mes "Выбирай";
menu "Зделать",-,"Уйти",No;
if (zeny < 250000000) goto NoZeny;
set Zeny,Zeny-250000000;
getitem 671,1;
mes "[Coins]";
mes "Удачи";
close;
P:
mes "[Coins]";
mes "Выбирай";
menu "Зделать",-,"Уйти",No;
if (zeny < 175000000) goto NoZeny;
set Zeny,Zeny-175000000;
getitem 677,1;
mes "[Coins]";
mes "Удачи";
close;
S:
mes "[Coins]";
mes "Выбирай";
menu "Зделать",-,"Уйти",No;
if (zeny < 100000000) goto NoZeny;
set Zeny,Zeny-100000000;
getitem 675,1;
mes "[Coins]";
mes "Удачи";
close;
B:
mes "[Coins]";
mes "Выбирай";
menu "Зделать",-,"Уйти",No;
if (zeny < 50000000) goto NoZeny;
set Zeny,Zeny-50000000;
getitem 673,1;
mes "[Coins]";
mes "Удачи";
close;
M2:
mes "[Coins]";
mes "Mithril Coin - 500kk";
mes "Golden Coin - 250kk";
mes "Platinum Coin - 175kk";
mes "Silver Coin - 100kk";
mes "Bronze Coin - 50kk";
mes "Какую монетку хочешь поменять на зени?";
menu "Mithril Coin",lM,"Golden Coin",lG,"Platinum Coin",lP,"Silver Coin",lS,"Bronze Coin",lB;
lM:
mes "[Coins]";
mes "Выбирай";
menu "Поменять",-,"Уйти",No;
if (countitem(674) < 1) goto NoItems;
delitem 674,1;
set Zeny,Zeny+500000000;
mes "[Coins]";
mes "Вот ваши деньги, удачи";
close;
lG:
mes "[Coins]";
mes "Выбирай";
menu "Поменять",-,"Уйти",No;
if (countitem(671) < 1) goto NoItems;
delitem 671,1;
set Zeny,Zeny+250000000;
mes "[Coins]";
mes "Вот ваши деньги, удачи";
close;
lP:
mes "[Coins]";
mes "Выбирай";
menu "Поменять",-,"Уйти",No;
if (countitem(677) < 1) goto NoItems;
delitem 677,1;
set Zeny,Zeny+175000000;
mes "[Coins]";
mes "Вот ваши деньги, удачи";
close;
lS:
mes "[Coins]";
mes "Выбирай";
menu "Поменять",-,"Уйти",No;
if (countitem(675) < 1) goto NoItems;
delitem 675,1;
set Zeny,Zeny+100000000;
mes "[Coins]";
mes "Вот ваши деньги, удачи";
close;
lB:
mes "[Coins]";
mes "Выбирай";
menu "Поменять",-,"Уйти",No;
if (countitem(673) < 1) goto NoItems;
delitem 673,1;
set Zeny,Zeny+50000000;
mes "[Coins]";
mes "Вот твои деньги, Удачи";
close;
NoItems:
mes "[Coins]";
mes ""+strcharinfo(0)+", у Вас нету монетки, уходите!";
close;
NoZeny:
mes "[Coins]";
mes "У тебя нету денег что бы забрать у меня монетку!";
close;
No:
close;
}

Добавлено (01.05.2008, 23:14)
---------------------------------------------
Вот ещо парочка простых скриптов:

Русский Арендатор (птиц, телег, пеко пека).

prontera.gat,127,197,5 script Арендатор 726,{
mes "[Арендатор]";
mes "Привет, здесь Вы можете арендовать Повозки, Соколов или Пеко-пеко.";
next;

L_Menu:
menu "Аренда Повозки",L_Cart,"Аренда Сокола",L_Falcon,"Аренда Пеко-пеко",L_Peco,"Выход",L_Quit;
close;

L_Cart:
if((BaseClass == Job_Merchant || BaseJob == Job_SuperNovice) && checkcart() == 0) goto L_Cart_Ok;
if(getskilllv(39)<1) goto L_Need_Skill;

mes "[Арендатор]";
mes "Извините " + strcharinfo(0) + ", но Я арендую повозки только Продовцам, которые имеют достаточно навыков.";
close;

L_Cart_Ok:
setcart;
goto L_Quit2;

L_Need_Skill:
mes "[Арендатор]";
mes "Извините Вы не имеете необходимое количество умени, чтобы арендовать повозку.";
close;

L_Falcon:
if(BaseJob != Job_Archer && BaseClass == Job_Archer && checkfalcon() == 0) goto L_Falc;
if(getskilllv(127)<1) goto L_Need_Skill2;

mes "[Арендатор]";
mes "Извините " + strcharinfo(0) + ", но Я арендую соколов только Охотникам и Снайперам, которые имеют достаточно навыков.";
close;

L_Falc:
setfalcon;
goto L_Quit2;

L_Need_Skill2:
mes "[Арендатор]";
mes "Извините,но у вас нет необходимых умений для аренды Сокола.";
close;

L_Peco:
if (BaseJob != Job_Swordman && BaseClass == Job_Swordman && checkriding() == 0) goto L_Peco_Ok;
if(getskilllv(63)<1) goto L_Need_Skill3;

mes "[Арендатор]";
mes "Извините " + strcharinfo(0) + ", но Я арендую Пеко-пеко только Рыцарям и Крусайдерам, которые имеют достаточно навыков.";
close;

L_Peco_Ok:
setriding;
goto L_Quit2;

L_Need_Skill3:
mes "[Арендатор]";
mes "Извините, но у вас нет необходимых умений, чтобы ездить на Пеко-пеко.";
close;

L_Quit:
mes "[Арендатор]";
mes strcharinfo(0) + ", пожалуйста возвращайте тогда, когда Вы будете готорвы что-либо арендовать.";
close;

L_Quit2:
mes "[Арендатор]";
mes strcharinfo(0) + ", пожалуйста приходите снова, если вам что-нибудь пондобиться... .";
close;
}

А вот кафра, которая будет стоять в центре пронты (Кому надо берите)...

// Center ===========================================
prontera.gat,160,184,4 script Kafra 115,{
cutin "kafra_03",2;
callfunc "F_KafSetPront";
callfunc "F_Kafra",0,0,0;
M_Save:
menu "-Save outside city.",sM_Out,"-Save inside city.",sM_In;

sM_In:
savepoint "prontera.gat",155,184;
callfunc "F_KafEnd",0,1;
}

0

2

Код:

Код:
guild_vs1.gat,64,71,4	script	Angeling Hat Quest	1096,{
	mes "[Angeling Hat Quest]";
	mes "Это квест на шапку Ангелинга";
	mes "Взамен этой вещи я прошу собрать для меня 2 предмета...хочешь пройти этот квест?";
	next;
	menu "Да, Конечно!",L_Join,"Какие предметы?",L_Information,"Нет, тяжёлый!",L_Cancel; 

L_Join:
	mes "[Angeling Hat Quest]";
	mes "Так посмотрим....";
	next;
	if (countitem(671)<50) goto L_FaltaItem;
	if (countitem(7227)<5) goto L_FaltaItem;


	mes "[Angeling Hat Quest]";
	mes "Ничего себе! Вы собрали все необходимые вещи! Подождите секунду...";
	next;
	delitem 671,20;
	delitem 7227,5;

	mes "[Angeling Hat Quest]";
	mes "Ура!!! ^FF0000Deviling Hat^000000...!";
	getitem 5132,1;
	next;
	mes "[Angeling Hat Quest]";
	mes "Спасибо!";
	close;

L_FaltaItem:
	mes "[Angeling Hat Quest]";
	mes "Хахаха, собери все предметы...";
	close;

L_Information:
	mes "[Angeling Hat Quest]";
	mes "Ты должен принести:";
	mes "^FF000020 Gold Coin (Золотые монеты)^000000.";
	mes "^FF00005 TCG Card (ТЦГ Карта)^000000.";
	next;
	mes "[Angeling Hat Quest]";
	mes "Возвращайтесь после добычи всех вещей!";
	close;

L_Cancel:
        mes "[Angeling Hat Quest]";
	mes "Счастливо!";
	close;
}

0

3

Курица хиллер

Код:
prontera.gat,150,184,5   script   Healer   800,{
percentheal 100,100;
sc_start SC_BLESSING,300000,10;
sc_start SC_INCREASEAGI,300000,10;
}
morocc.gat,159,96,5   duplicate(Healer)   Healer#h1-2   742
ayothaya.gat,155,111,5   duplicate(Healer)   Healer#h1-3   742
geffen.gat,121,61,5   duplicate(Healer)   Healer#h1-4   742
umbala.gat,94,162,5   duplicate(Healer)   Healer#h1-5   742
payon.gat,180,105,5   duplicate(Healer)   Healer#h1-6   742
alberta.gat,185,144,5   duplicate(Healer)   Healer#h1-7   742
aldebaran.gat,134,123,5   duplicate(Healer)   Healer#h1-8   742
izlude.gat,125,118,5   duplicate(Healer)   Healer#h1-9   742
xmas.gat,149,136,5   duplicate(Healer)   Healer#h1-10   742
comodo.gat,188,162,5   duplicate(Healer)   Healer#h1-11   742
amatsu.gat,200,80,5   duplicate(Healer)   Healer#h1-12   742
gonryun.gat,164,130,5   duplicate(Healer)   Healer#h1-13   742
yuno.gat,152,186,5   duplicate(Healer)   Healer#h1-14   742
niflheim.gat,188,180,5   duplicate(Healer)   Healer#h1-15   742
louyang.gat,225,103,5   duplicate(Healer)   Healer#h1-16   742

квест на Ангелинг Хет

Код:
prontera.gat, 160,184,5   script   Шапка   61,{
mes "[Шапка]";
mes "Если ты хочешь Angeling Hat, тогда принеси мне эти вещи:";
mes "10 Gold,";
mes "10 Emperium";
mes "1 Poring Hat";
mes "1 Angel Wing";
next;
mes "[шапка]";
mes "У тебя есть все эти вещи??";
next;
menu "Да.",-,"Нет.",M_EXIT;

if(countitem(2254) < 1 || countitem(5035) < 1 || countitem(969) < 10 || countitem(714) < 10) GOTO L_NOITEM;
delitem 2254,1;
delitem 5035,1;
delitem 969,10;
delitem 714,10;
getitem 5132,1;
mes "[Шапка]";
mes "Большое спасибо!";
close;

L_NOITEM:
mes "[Шапка]";
mes "У тебя нет этих вещей!Приходи в следущий раз.";
emotion e_sry;
close;

M_EXIT:
mes "[Шапка]";
mes callfunc("F_Bye");
close;
}

Премиум система, только для сервера SQL

Код:
-   script   PCLoginEvent   -1{
   if(getgmlevel() > 0 && getgmlevel() < 20) goto CheckPayment;
   end;

CheckPayment:
   if(getgmlevel() == 10 && #PayDaySPrem <= 0) {
      set #PayDaySPrem,0;
      callfunc "DisablePayment";
   } else if(getgmlevel() == 1 && #PayDayPrem <= 0) {
      set #PayDayPrem,0;
      callfunc "DisablePayment";
   }
   if(getgmlevel() == 1) {
      announce "Ваш статус: Платный. | Осталось дней: "+#PayDayPrem,3;
   } else if(getgmlevel() == 10) {
      announce "Ваш статус: Платный. | Осталось дней: "+#PayDaySPrem,3;
   } else {
      announce "Ваш статус: Бесплатный. | Оплата аккаунта у [Premium Maker]`a",3;
   }
   end;
}

function   script   DisablePayment   {
   query_sql "SELECT account_id FROM `char` WHERE name='"+strcharinfo(0)+"'", @premium_acc_id$;
   query_sql "UPDATE `login` SET level=0 WHERE account_id='"+@premium_acc_id$[0]+"'";
   atcommand strcharinfo(0)+":@reloadgmdb";
   return;
}
//===== Конец Функциональной части ===========================
//============================================================

//============================================================
//===== Вычитание дней оплаты ================================
-   script   PaymentControl   -1,{
   end;

OnClock0000:
   query_sql "UPDATE `global_reg_value` SET value=value - 1 WHERE str='#PayDayPrem'";
   query_sql "UPDATE `global_reg_value` SET value=value - 1 WHERE str='#PayDaySPrem'";
   end;
}
//===== Конец системы вычитания ==============================
//============================================================

prontera.gat,136,171,6   script   Premium Maker   862,{
   set @PricePrem, 3000000;
   set @PriceSP, 5000000;
   if(getgmlevel() > 10) goto CannotPay;
   if(getgmlevel() == 1 && #PayDayPrem > 0) goto Prem_Menu2;
   if(getgmlevel() > 1 && #PayDaySPrem > 0) goto SPrem_menu2;
   mes "[Premium Maker]";
   mes "Здравствуйте, я могу сделать вас ^0000FFПремиумом^000000.";
   next;
   mes "[Premium Maker]";
   mes "Вы хотите стать ^0000FFПлатным^000000 игроком?";
   next;
   menu "Стать ^0000FFПремиумом^000000",MakePrem,"Стать ^0000FFСупер Премиумом^000000",MakeSuperPrem,"Нет, спасибо",-;
   close;

MakePrem:
   mes "[Premium Maker]";
   mes "Итак, вы решили стать ^0000FFПремиумом^000000. Стоимость данной услуги ^FF0000"+@PricePrem+" зен за 1 период^000000, 1 период = 30 дням.";
   next;

MenuMakePrem:
   menu "Я согласен",Yes_MakePrem,"Можно поподробнее",Wht_Prem,"Нет, спасибо.",-;
   close;

Wht_Prem:
   mes "[Premium Maker]";
   mes "^0000FFПремиуму^000000 доступны бонусы, не доступные обычным игрокам.";
   next;
   goto MenuMakePrem;

Yes_MakePrem:
   mes "[Premium Maker]";
   mes "Пожалуйста, введите число периодов, на которое вы хотите оплатить премиум.";
   input @PremMonth;
   next;
   if(@PremMonth < 1) set @PremMonth, 1;
   if(@PremMonth > 12) set @PremMonth, 12;
   set @NeededZeny, @PricePrem*@PremMonth;
   mes "[Premium Maker]";
   mes "Выбрано периодов: ^008080"+@PremMonth+"^000000";
   mes "Необходимо зенег: ^FF0000"+@NeededZeny+"^000000";
   next;
   mes "[Premium Maker]";
   mes "Вы согласны?";
   menu "Да",-,"Нет",CancelMake;

   if (Zeny < @NeededZeny) goto MaloZeneg;
   set Zeny,zeny-@NeededZeny;
   set #PayDayPrem, 30*@PremMonth;
   query_sql "SELECT account_id FROM `char` WHERE name='"+strcharinfo(0)+"'", @just_acc_id$;
   query_sql "UPDATE `login` SET level=1 WHERE account_id='"+@just_acc_id$[0]+"'";
   atcommand strcharinfo(0)+":@reloadgmdb";
   mes "[Premium Maker]";
   mes "Поздравляю вас, вы оплатили ^0000FFПремиум^000000. Оплачено дней: ^FF8040"+#PayDayPrem+"^000000";
   close;

MakeSuperPrem:
   mes "[Premium Maker]";
   mes "Итак, вы решили стать ^0000FFСупер Премиумом^000000. Стоимость данной услуги ^FF0000"+@PriceSP+" зен за 1 период^000000, 1 период = 30 дням.";
   next;

MenuMakeSuperPrem:
   menu "Я согласен",Yes_MakeSuperPrem,"Можно поподробнее",Wht_SuperPrem,"Нет, спасибо.",-;
   close;

Wht_SuperPrem:
   mes "[Premium Maker]";
   mes "^0000FFСупер премиумам^000000 становятся доступны все команды, доступные премиумам, а так же несколько новых команд. Появляется доступ к НПЦ, не доступным больше никому, кроме СП, а у НПЦ, даступных только премиумам у СП появляются скидки.";
   next;
   goto MenuMakeSuperPrem;

Yes_MakeSuperPrem:
   mes "[Premium Maker]";
   mes "Пожалуйста, введите число периодов, на которое вы хотите оплатить премиум.";
   input @SPMonth;
   next;
   if(@SPMonth < 1) set @SPMonth, 1;
   if(@SPMonth > 12) set @SPMonth, 12;
   set @NeededZeny, @PriceSP*@SPMonth;
   mes "[Premium Maker]";
   mes "Выбрано периодов: ^008080"+@SPMonth+"^000000";
   mes "Необходимо зенег: ^FF0000"+@NeededZeny+"^000000";
   next;
   mes "[Premium Maker]";
   mes "Вы согласны?";
   menu "Да",-,"Нет",CancelMake;

   if (Zeny < @NeededZeny) goto MaloZeneg;
   set Zeny,zeny-@NeededZeny;
   if(#PayDaySPrem <= 0) set #PayDaySPrem,0;
   set #PayDaySPrem, 30*@SPMonth;
   query_sql "SELECT account_id FROM `char` WHERE name='"+strcharinfo(0)+"'", @just_acc_id$;
   query_sql "UPDATE `login` SET level=10 WHERE account_id='"+@just_acc_id$[0]+"'";
   atcommand strcharinfo(0)+":@reloadgmdb";
   mes "[Premium Maker]";
   mes "Поздравляю вас, вы оплатили ^0000FFCупер Премиумом^000000. Оплачено дней: ^FF8040"+#PayDaySPrem+"^000000";
   close;

Prem_Menu2:
   mes "[Premium Maker]";
   mes "Добрый день ^800000"+strcharinfo(0)+"^000000. Что вы желаете сделать?";
   next;
   menu "Продлить ^0000FFПремиум^000000",Add_Prem,"Стать ^0000FFСупер Премиумом^000000",MakeSuperPrem,"Остаток периода",Status,"Ничего",-;
   close;

Add_Prem:
   mes "[Premium Maker]";
   mes "Введите число периодов, на которое вы хотите продлить ^0000FFПремиум^000000.";
   input @AddPrem;
   next;
   if(@AddPrem < 1) set @AddPrem, 1;
   if(@AddPrem > 12) set @AddPrem, 12;
   set @NeededZeny, @PricePrem*@AddPrem;
   mes "[Premium Maker]";
   mes "Выбрано периодов: ^008080"+@AddPrem+"^000000";
   mes "Необходимо зенег: ^FF0000"+@NeededZeny+"^000000";
   next;
   mes "[Premium Maker]";
   mes "Вы согласны?";
   menu "Да",-,"Нет",CancelMake;

   if (Zeny < @NeededZeny) goto MaloZeneg;
   set Zeny,zeny-@NeededZeny;
   if(#PayDayPrem < 0) set #PayDayPrem,0;
   set #PayDayPrem, #PayDayPrem+(30*@AddPrem);
   mes "[Premium Maker]";
   mes "^0000FFПремиум^000000 продлён. Оплачено дней: ^FF8040"+#PayDayPrem+"^000000";
   close;

SPrem_menu2:
   mes "[Premium Maker]";
   mes "Добрый день ^800000"+strcharinfo(0)+"^000000. Что вы желаете сделать?";
   next;
   menu "Продлить СП",Add_SPrem,"Остаток периода",Status,"Ничего",-;
   close;

Add_SPrem:
   mes "[Premium Maker]";
   mes "Введите число периодов, на которое вы хотите продлить Премиум.";
   input @AddSPrem;
   next;
   if(@AddSPrem < 1) set @AddSPrem, 1;
   if(@AddSPrem > 12) set @AddSPrem, 12;
   set @NeededZeny, @PriceSP*@AddSPrem;
   mes "[Premium Maker]";
   mes "Выбрано периодов: ^008080"+@AddSPrem+"^000000";
   mes "Необходимо зенег: ^FF0000"+@NeededZeny+"^000000";
   next;
   mes "[Premium Maker]";
   mes "Вы согласны?";
   menu "Да",-,"Нет",CancelMake;

   if (Zeny < @NeededZeny) goto MaloZeneg;
   set Zeny,zeny-@NeededZeny;
   if(#PayDaySPrem < 0) set #PayDaySPrem,0;
   set #PayDaySPrem, #PayDaySPrem+(30*@AddSPrem);
   mes "[Premium Maker]";
   mes "^0000FFСупер Премиум^000000 продлён. Оплачено дней: ^FF8040"+#PayDaySPrem+"^000000";
   close;

Status:
   mes "[Premium Maker]";
   if(getgmlevel() > 1) {
      mes "Ваш статус: ^0000FFСупер Премиум^000000";
      mes "Дней до окончания оплаты: ^FF8000"+#PayDaySPrem+"^000000";
   } else {
      mes "Ваш статус: ^0000FFПремиум^000000";
      mes "Дней до окончания оплаты: ^FF8000"+#PayDayPrem+"^000000";
   }
   close;

ConvertToSP:
   set @Convetr, @PricePrem+(@PriceSP/2);
   mes "[Premium Maker]";
   mes "Итак, Вы хотите преобразовать себя из премиума в СП. Эта услуга стоит: "+@Convetr+" зен.";
   next;
   mes "[Premium Maker]";
   mes "Продолжить конвертауию?";
   next;
   menu "Да, продолжим.",ContConvert,"Нет, спасибо.",-;
   goto SPrem_menu2;

ContConvert:
   mes "[Premium Maker]";
   mes "Введите число периодов оплаты СП.";
   input @ConvToSPrem;
   next;
   if(@ConvToSPrem < 1) set @Convetr, 1;
   if(@ConvToSPrem > 12) set @Convetr, 12;
   set @NeededZeny, @Convetr*@ConvToSPrem;
   mes "[Premium Maker]";
   mes "Выбрано периодов: ^008080"+@ConvToSPrem+"^000000";
   mes "Необходимо зенег: ^FF0000"+@NeededZeny+"^000000";
   next;
   mes "[Premium Maker]";
   mes "Вы согласны?";
   menu "Да",-,"Нет",CancelMake;

   if (Zeny < @NeededZeny) goto MaloZeneg;
   set Zeny,zeny-@NeededZeny;
   set #PayDaySPrem, #PayDayPrem+(30*@ConvToSPrem);
   set #PayDayPrem,0;
   mes "[Premium Maker]";
   mes "Теперь вы ^0000FFСупер Премиум^000000. Оплачено дней: ^FF8040"+#PayDaySPrem+"^000000";
   close;

MaloZeneg:
   mes "[Premium Maker]";
   mes "Я сделаю вас ^0000FFПремиумом/СП^000000 только тогда, когда вы принесёте мне нужную сумму!";
   close;

CancelMake:
   mes "[Premium Maker]";
   mes "Хорошо, приходите ко мне когда мои услуги станут вам нужны.";
   close;

CannotPay:
   mes "[Premium Maker]";
   mes "МММ... на вас установлен статус Хелпера... к сожалению я не могу оплатить вам аккаунт.";
   close;
}

Нпц дающий квестовые скиллы для всех професий в том числе и для 2ых проф

Код:
prontera.gat,169,179,4   script      The Spellmaster Kira   791,{

// Language System
// ===============
// Here you can select the language of npc
// 0 = english (default) | 1 = portuguese

set @language,0;

if (@language == 0)Debugmes "advplatinum.txt script activated by player.";
if (@language == 0)Debugmes "O script advplatinum.txt foi ativado pelo jogador.";
mes "[Kira]";
if (@language == 0)mes "Hello. I'm Kira, the Spell Master. I can give special skills for 2nd class. You want learn those skills now??";
if (@language == 0)mes "Be warned that I can't teach any skill if you aren't 2nd class.";
if (@language == 1)mes "Olб. Eu sou Kira, a Maga. Eu posso dб-lo as habilidades especiais das 2nd Classes. Vocк deseja aprende-las agora?";
if (@language == 1)mes "Seja avisado que eu nгo posso ensinar nenhuma habilidade se vocк nгo for 2nd Class.";
next;
if (@language == 0)menu "Yes!!! Teach ME!!! T_T",-,"No, thanks.",Lnogetskills;
if (@language == 1)menu "Sim!!! Me ensine!!! T_T",-,"Nгo, obrigado.",Lnogetskills;

// Block
if ((Class >= 0) && (Class <= 6)) goto Lsorry;
if ((Class >= 4001) && (Class <= 4007)) goto Lsorry;

// Swordsman
if ((Class==7) || (Class==4008) || (Class==4030)) goto Lskillkina;
if ((Class==14) || (Class==4015) || (Class==4037)) goto Lskillcrus;

// Mage
if ((Class==9) || (Class==4010) || (Class==4032)) goto Lskillwiza;
if ((Class==16) || (Class==4017) || (Class==4039)) goto Lskillsage;

// Archer
if ((Class==11) || (Class==4012) || (Class==4034)) goto Lskillhunt;
if ((Class==19) || (Class==4020) || (Class==4042)) goto Lskillbard;
if ((Class==20) || (Class==4021) || (Class==4043)) goto Lskilldanc;

// Acolyte
if ((Class==8) || (Class==4009) || (Class==4031)) goto Lskillprie;
if ((Class==15) || (Class==4016) || (Class==4038)) goto Lskillmonk;

// Merchant
if ((Class==10) || (Class==4011) || (Class==4033)) goto Lskillblac;
if ((Class==18) || (Class==4019) || (Class==4041)) goto Lskillalch;

// Thief
if ((Class==12) || (Class==4013) || (Class==4035)) goto Lskillassa;
if ((Class==17) || (Class==4018) || (Class==4040)) goto Lskillrogu;

Lsorry:
emotion e_sry;
mes "[Kira]";
if (@language == 0)mes "Sorry, I can't give any skills to you.";
if (@language == 1)mes "Desculpe-Me, eu nгo posso dб-lo nenhuma habilidade.";
close;

Lnogetskills:
emotion e_sry;
mes "[Kira]";
if (@language == 0)mes "Ok... So, be like you want...";
if (@language == 1)mes "Certo... Entгo, seja como desejar...";
close;

Lskillkina:
mes "[Kira]";
if(@language == 0)mes "I see that you are a Knight, Lord Knight or Baby Knight. I will add the special skills now.";
if(@language == 1)mes "Eu vejo que vocк й um Cavaleiro, Lorde ou Bebк Cavaleiro. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 144,1,0;
skill 145,1,0;
skill 146,1,0;
skill 1001,1,0;
next;
goto LskillsEND;

Lskillcrus:
mes "[Kira]";
if(@language == 0)mes "I see that you are a Crusader, Paladin or Baby Crusader. I will add the special skills now.";
if(@language == 1)mes "Eu vejo que vocк й um Templбrio, Paladino ou Bebк Templбrio. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 144,1,0;
skill 145,1,0;
skill 146,1,0;
skill 1002,1,0;
next;
goto LskillsEND;

Lskillwiza:
mes "[Kira]";
if(@language == 0)mes "I see that you are a Wizard, High Wizard or Baby Wizard. I will add the special skills now.";
if(@language == 1)mes "Eu vejo que vocк й um Bruxo, Arquimago ou Bebк Bruxo. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 157,1,0;
skill 1006,1,0;
next;
goto LskillsEND;

Lskillsage:
mes "[Kira]";
if(@language == 0)mes "I see that you are a Sage, Professor or Baby Sage. I will add the special skills now.";
if(@language == 1)mes "Eu vejo que vocк й um Sбbio, Professor ou Bebк Sбbio. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 157,1,0;
skill 1007,1,0;
if(sage_ele == 1) skill 1008,1,0;
if(sage_ele == 2) skill 1017,1,0;
if(sage_ele == 3) skill 1018,1,0;
if(sage_ele == 4) skill 1019,1,0;
if(sage_ele == 0) {
next;
mes "[Kira]";
if(@language == 0)mes "Well, now you need select wich element you want for the Elemental Change.";
if(@language == 0)switch( select("I want Water!","I want Earth!","I want Fire!","I want Wind!") ) {
if(@language == 1)mes "Bem, agora vocк necessita escolher qual elemento vocк quer para Elemental Change.";
if(@language == 1)switch( select("Eu quero Бgua!","Eu quero Terra!","Eu quero Fogo!","Eu quero Vento!") ) {
case 1: skill 1008,1,0; set sage_ele,1;
case 2: skill 1017,1,0; set sage_ele,2;
case 3: skill 1018,1,0; set sage_ele,3;
case 4: skill 1019,1,0; set sage_ele,4;
}
goto LskillsEND;
}
Lskillhunt:
mes "[Kira]";
if(@language == 0)mes "I see that you are a Hunter, Sniper or Baby Hunter. I will add the special skills now.";
if(@language == 1)mes "Eu vejo que vocк й um Caзador, Atirador de Elite ou Bebк Caзador. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 147,1,0;
skill 148,1,0;
skill 1009,1,0;
next;
goto LskillsEND;

Lskillbard:
mes "[Kira]";
if(@language == 0)mes "I see that you are a Bard, Clown or Baby Bard. I will add the special skills now.";
if(@language == 1)mes "Eu vejo que vocк й um Bardф, Menestrel ou Bebк Bardф. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 147,1,0;
skill 148,1,0;
skill 1010,1,0;
next;
goto LskillsEND;

Lskilldanc:
mes "[Kira]";
if(@language == 0)mes "I see that you are a Dancer, Gypsy or Baby Dancer. I will add the special skills now.";
if(@language == 1)mes "Eu vejo que vocк й um Danзarina, Cigana ou Bebк Danзarina. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 147,1,0;
skill 148,1,0;
skill 1011,1,0;
next;
goto LskillsEND;

Lskillprie:
mes "[Kira]";
if(@language == 0)mes "I see that you are a Priest, High Priest or Baby Priest. I will add the special skills now.";
if (@language == 1)mes "Eu vejo que vocк й um Sacerdote, Sumo Sacerdote ou Bebк Sacerdote. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 156,1,0;
skill 1014,1,0;
skill 363,10,0;
next;
goto LskillsEND;

Lskillmonk:
mes "[Kira]";
if(@langague == 0)mes "I see that you are a Monk, Champion or Baby Monk. I will add the special skills now.";
if(@language == 1)mes "Eu vejo que vocк й um Sacerdote, Sumo Sacerdote ou Bebк Sacerdote. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 156,1,0;
skill 1015,1,0;
skill 1016,10,0;
next;
goto LskillsEND;

Lskillblac:
mes "[Kira]";
if(@language == 0)mes "I see that you are a BlackSmith, White Smith or Baby BlackSmith. I will add the special skills now.";
if(@language == 1)mes "Eu vejo que vocк й um Ferreiro, Mestre Ferreiro ou Bebк Ferreiro. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 153,1,0;
skill 154,1,0;
skill 155,1,0;
skill 1012,1,0;
skill 1013,1,0;
next;
goto LskillsEND;

Lskillalch:
mes "[Kira]";
if(@language == 0)mes "I see that you are a Alchemist, Creator or Baby Alchemist. I will add the special skills now.";
if(@language == 1)mes "Eu vejo que vocк й um Alquimista, Criador ou Bebк Alquimista. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 153,1,0;
skill 154,1,0;
skill 155,1,0;
if(alch_bock != 1) {
getitem 7434,1; }
set alch_bock,1;
next;
goto LskillsEND;

Lskillassa:
mes "[Kira]";
if(@language == 0)mes "I see that you are a Assassin, Assassin Cross or Baby Assassin. I will add the special skills now.";
if(@language == 1)mes "Eu vejo que vocк й um Assassino, Algoz ou Bebк Assassino. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 149,1,0;
skill 150,1,0;
skill 151,1,0;
skill 152,1,0;
skill 1003,1,0;
skill 1004,1,0;
next;
goto LskillsEND;

Lskillrogu:
mes "[Kira]";
if(@language == 0)mes "I see that you are a Rogue, Stalker or Baby Rogue. I will add the special skills now.";
if(@language == 1)mes "Eu vejo que vocк й um Arruaceiro, Desordeiro ou Bebк Arruaceiro. Eu irei dб-lo as habilidades especiais agora.";
skill 142,1,0;
skill 149,1,0;
skill 150,1,0;
skill 151,1,0;
skill 152,1,0;
skill 1005,1,0;
next;
goto LskillsEND;

LskillsEND:
emotion 10;
mes "[Kira] ";
if(@language == 0)mes "Now you have the special skills available for your class.";
if(@language == 1)mes "Agora vocк tem as habilidades especiais liberadas de sua classe.";
next;
mes "[Kira]";
if(@language == 0)mes "Have a good day.";
if(@language == 1)mes "Tenha um bom dia.";
close;

}

Рент нпц:

Код:
prontera,147,175,5   script   Universal Rental Npc   838,{
    mes "[Universal Rental Npc]";
    mes "Hi, here you can rent Carts, Falcons or Pecopecos.";
    next;

L_Menu:
    menu "Rent a Cart",L_Cart,"Rent a Falcon",L_Falcon,"Rent a Pecopeco",L_Peco,"Quit",L_Quit;
    close;

L_Cart:
    if((BaseClass == Job_Merchant || BaseJob == Job_SuperNovice) && checkcart() == 0) goto L_Cart_Ok;
    mes "[Universal Rental Npc]";
    mes "Sorry " + strcharinfo(0) + ", but I only rent carts to people with the Merchant job root, who have enough skills to handle a cart.";
    close;

L_Cart_Ok:
    if(getskilllv(39)<1) goto L_Need_Skill;
    setcart;
    goto L_Quit2;

L_Need_Skill:
    mes "[Universal Rental Npc]";
    mes "Sorry you don't have the required skill to rent a cart.";
    close;

L_Falcon:
    if(BaseJob != Job_Archer && BaseClass == Job_Archer && checkfalcon() == 0) goto L_Falc;
    if(getskilllv(127)<1) goto L_Need_Skill2;

    mes "[Universal Rental Npc]";
    mes "Sorry " + strcharinfo(0) + ", but I only rent falcons to Hunters and Snipers who the ability to handle 'em.";
    close;

L_Falc:
    setfalcon;
    goto L_Quit2;

L_Need_Skill2:
    mes "[Universal Rental Npc]";
    mes "Sorry you don't have the required skill to own a Falcon.";
    close;

L_Peco:
    if (BaseJob != Job_Swordman && BaseClass == Job_Swordman && checkriding() == 0) goto L_Peco_Ok;
    if(getskilllv(63)<1) goto L_Need_Skill3;

    mes "[Universal Rental Npc]";
    mes "Sorry " + strcharinfo(0) + ", but I only rent Pecopecos to Knights and Crusaders who have the ability to handle 'em.";
    close;

L_Peco_Ok:
    setriding;
    goto L_Quit2;

L_Need_Skill3:
    mes "[Universal Rental Npc]";
    mes "Sorry you don't have the required skill to ride a Peco Peco.";
    close;

L_Quit:
    mes "[Universal Rental Npc]";
    mes strcharinfo(0) + ", please come back when you are ready to rent something.";
    close;

L_Quit2:
    mes "[Universal Rental Npc]";
    mes strcharinfo(0) + ", please come again when you want another...";
    close;
}

простенький Скрипт хороший ПвП арены:

Код:
// PvP Arena -------------------------------------------------------------------
prontera.gat,164,172,5   script   Arena   810,{
     mes "[Страж]";
     mes "Привет воин,";
     mes "Хочеш показать себя в бою??...";
     next;
     menu "Да!",Mwarpme,"Нет!",-;
     close;
Mwarpme:
       warp "prt_are01",     149,     150;     close;
//     warp "pvp_n_1-5.gat",     99,     100;     close;


}
prt_are01.gat,180,151,0   warp   arenatop      2,2,prontera.gat,161,176
prt_are01.gat,120,151,0   warp   arenabottom   2,2,prontera.gat,161,176
prt_are01.gat,150,180,0   warp   arenaleft      2,2,prontera.gat,161,176
prt_are01.gat,150,119,0   warp   arenaright   2,2,prontera.gat,161,176
//pvp_n_1-5.gat,65,100,0   warp   arenatop      2,2,prontera.gat,161,176
//pvp_n_1-5.gat,134,100,0   warp   arenabottom   2,2,prontera.gat,161,176
//pvp_n_1-5.gat,100,65,0   warp   arenaleft      2,2,prontera.gat,161,176
//pvp_n_1-5.gat,100,134,0     warp   arenaright   2,2,prontera.gat,161,176
//}

Нпц который превращает персоонажа в моба!!!

Код:
prontera.gat,164,164,5 script Disguiser 64,{
mes "[Disguiser]";
mes "Привет!Я могу превратить тебя в монстра!";
next;
menu "Да,да!Преврати!",-,"Не,спасибо.",no;
mes "[Disguiser]";
mes "Введи число между 1001 и 1796";
input @a; 
if((@a<1001) || (@a>1796)){
mes "[Disguiser]";
mes "Прости,я не могу прератить тебя в этого монстра.";
close;
}
atcommand "@disguise "+@a;
no:
mes "[Disguiser]";
mes "Ну как хочешь.Приходи еще!";
close;
}

Кому надо то вот доска объявлений!

Код:
prontera.gat,161,189,4   script   Доска объявлений   857,{

set @time_wait,10;
set @waittimer,600000;
set @info_money,1500;
set $@npcnames$,"[^0000ffДоска объявлений^000000]";
mes $@npcnames$;
mes "Добро пожаловать " + strcharinfo(0) + "!";
mes "----------------------";
mes "Сейчас [^0000FF " + getusers(1) + "^000000 ] игроков онлайн.";
mes "----------------------";
mes "Что я могу для вас сделать?";
next;
menu "Читать сообщения",G_Readnews,"Написать сообщение",G_Leavenews,"Уйти...",G_Quit;


G_Readnews:
mes $@npcnames$;
mes "Подобные сообщения будут очищены в ^135445 06:00 ^000000 каждый день...";
mes "Пожалуйста, выберите тип сообщений, которые нужно прочитать.";
next;
menu "Читать сообщения о продаже",G_Read_Sell,"Читать сообщения о покупке",G_Read_Buy,"Читать другие сообщения",G_Read_Other,"Уйти...",G_Quit;
G_Read_Sell:
if($Sell_info_count<1) goto G_Nonews;
set @Sell_info_count1,$Sell_info_count;
set @Sell_temp1,$Sell_temp;
set @Sell_name_temp1,$Sell_name_temp;
set @Sell_time_temp1,$Sell_time_temp;
mes $@npcnames$;
mes "Сейчас ^135445"+$Sell_info_count+"^000000 новых сообщений.";


G_retype_sell:
mes "^0066FF"+$Sell_times$[@Sell_time_temp1]+"^000000 [^AA00FF"+$Sell_names$[@Sell_name_temp1]+"^000000]:";
mes "^AA0000"+$Sell_infos$[@Sell_temp1]+"^000000";
mes "^CCCCCC----------^000000";
set @Sell_time_temp1,@Sell_time_temp1-1;
set @Sell_name_temp1,@Sell_name_temp1-1;
set @Sell_temp1,@Sell_temp1-1;
set @Sell_info_count1,@Sell_info_count1-1;
if(@Sell_info_count1>0) goto G_retype_sell;
goto G_Quit;

G_Read_Buy:
if($Buy_info_count<1) goto G_Nonews;
set @Buy_info_count1,$Buy_info_count;
set @Buy_temp1,$Buy_temp;
set @Buy_name_temp1,$Buy_name_temp;
set @Buy_time_temp1,$Buy_time_temp;
mes $@npcnames$;
mes "Сейчас ^135445"+$Buy_info_count+"^000000 новых сообщений.";


G_retype_Buy:
mes "^0066FF"+$Buy_times$[@Buy_time_temp1]+"^000000 [^AA00FF"+$Buy_names$[@Buy_name_temp1]+"^000000]:";
mes "^AA0000"+$Buy_infos$[@Buy_temp1]+"^000000";
mes "^CCCCCC----------^000000";
set @Buy_time_temp1,@Buy_time_temp1-1;
set @Buy_name_temp1,@Buy_name_temp1-1;
set @Buy_temp1,@Buy_temp1-1;
set @Buy_info_count1,@Buy_info_count1-1;
if(@Buy_info_count1>0) goto G_retype_Buy;
goto G_Quit;

G_Read_Other:
if($Other_info_count<1) goto G_Nonews;
set @Other_info_count1,$Other_info_count;
set @Other_temp1,$Other_temp;
set @Other_name_temp1,$Other_name_temp;
set @Other_time_temp1,$Other_time_temp;
mes $@npcnames$;
mes "Сейчас ^135445"+$Other_info_count+"^000000 новых сообщений.";


G_retype_Other:
mes "^0066FF"+$Other_times$[@Other_time_temp1]+"^000000 [^AA00FF"+$Other_names$[@Other_name_temp1]+"^000000]:";
mes "^AA0000"+$Other_infos$[@Other_temp1]+"^000000";
mes "^CCCCCC----------^000000";
set @Other_time_temp1,@Other_time_temp1-1;
set @Other_name_temp1,@Other_name_temp1-1;
set @Other_temp1,@Other_temp1-1;
set @Other_info_count1,@Other_info_count1-1;
if(@Other_info_count1>0) goto G_retype_Other;
goto G_Quit;


G_Leavenews:
mes $@npcnames$;
mes "Пожалуйста выберите тип сообщения,в которые нужно написать.";
next;
menu "Сообщения о продаже",G_Leave_Sell,"Сообщения о покупке",G_Leave_Buy,"Остальные сообщения",G_Leave_Other,"Уйти...",G_Quit;
G_Leave_Sell:
if(@WaitingTime_Sell==1) goto G_Waiting;
if($Sell_info_count>29) goto G_Fullnews;
if(zeny<@info_money) goto G_notmoney;
mes $@npcnames$;
mes "Вы можете оставить сообщение. В следующий раз вы можете оставить сообщение через ^135445"+@time_wait+"^000000 минут..";
mes "Данная услуга будет стоить ^135445"+@info_money+"^000000 Zeny.";
next;
input @Sell_info_text$;
mes @Sell_info_text$;
set zeny,zeny-@info_money;


set $Sell_temp,$Sell_temp+1;
set $Sell_info_count,$Sell_temp;
set $Sell_infos$[$Sell_temp],@Sell_info_text$;


set @Sell_name$,strcharinfo(0);
set $Sell_name_temp,$Sell_name_temp+1;
set $Sell_names$[$Sell_name_temp],@Sell_name$;


set @Sell_time$,gettimestr("%m/%d/%H:%M",24);
set $Sell_time_temp,$Sell_time_temp+1;
set $Sell_times$[$Sell_time_temp],@Sell_time$; 

set @WaitingTime_Sell,1;
//addtimer @waittimer,"ev_Waiting_Sell";
next;
mes $@npcnames$;
mes "Сообщение успешно добавлено!";
goto G_Quit;

G_Leave_Buy:
if(@WaitingTime_Buy==1) goto G_Waiting;
if($Buy_info_count>29) goto G_Fullnews;
if(zeny<@info_money) goto G_notmoney;
mes $@npcnames$;
mes "Вы можете оставить сообщение. В следующий раз вы можете оставить сообщение через  ^135445"+@time_wait+"^000000 минут..";
mes "Данная услуга будет стоить ^135445"+@info_money+"^000000 Zeny.";
next;
input @Buy_info_text$;
mes @Buy_info_text$;
set zeny,zeny-@info_money;


set $Buy_temp,$Buy_temp+1;
set $Buy_info_count,$Buy_temp;
set $Buy_infos$[$Buy_temp],@Buy_info_text$;


set @Buy_name$,strcharinfo(0);
set $Buy_name_temp,$Buy_name_temp+1;
set $Buy_names$[$Buy_name_temp],@Buy_name$;


set @Buy_time$,gettimestr("%m/%d/%H:%M?",24);
set $Buy_time_temp,$Sell_time_temp+1;
set $Buy_times$[$Buy_time_temp],@Buy_time$; 

set @WaitingTime_Buy,1;
//addtimer @waittimer,"ev_Waiting_Buy";
next;
mes $@npcnames$;
mes "Сообщение успешно добавлено!";
goto G_Quit;

G_Leave_Other:
if(@WaitingTime_Other==1) goto G_Waiting;
if($Other_info_count>29) goto G_Fullnews;
if(zeny<@info_money) goto G_notmoney;
mes $@npcnames$;
mes "Вы можете оставить сообщение. В следующий раз вы можете оставить сообщение через  ^135445"+@time_wait+"^000000 минут..";
mes "Данная услуга будет стоить ^135445"+@info_money+"^000000 Zeny.";
next;
input @Other_info_text$;
mes @Other_info_text$;
set zeny,zeny-@info_money;


set $Other_temp,$Other_temp+1;
set $Other_info_count,$Other_temp;
set $Other_infos$[$Other_temp],@Other_info_text$;

set @Other_name$,strcharinfo(0);
set $Other_name_temp,$Other_name_temp+1;
set $Other_names$[$Other_name_temp],@Other_name$;

set @Other_time$,gettimestr("%m/%d/%H:%M",24);
set $Other_time_temp,$Sell_time_temp+1;
set $Other_times$[$Other_time_temp],@Other_time$; 

set @WaitingTime_Other,1;
//addtimer @waittimer,"ev_Waiting_Other";
next;
mes $@npcnames$;
mes "Сообщение успешно добавлено!";
goto G_Quit;


G_notmoney:
mes $@npcnames$;
mes "Извините ... Услуга стоит ^135445"+@info_money+"^000000 Zeny";
mes "У вас нету столько денег";
goto G_Quit;


G_Fullnews:
mes $@npcnames$;
mes "Извините ... В почтовом ящике заполнен сообщениями ...";
mes "Вы не можете оставлять сообщения...";
goto G_Quit;


G_Waiting:
mes $@npcnames$;
mes "Вы оставили последнее сообщение.";
mes "пожалуйста подождите ^135445"+@time_wait+"^000000 минут до следующего сообщения.";
goto G_Quit;


G_Nonews:
mes $@npcnames$;
mes "Извините. Нет сообщений.";
mes "Хотите ли Вы оставить одно?";
next;
menu "Нет спасибо...",-,"Да, любыми средствами ...",G_Leavenews;
goto G_Quit;


G_Quit:
OnTimer600000:
set @WaitingTime_Sell,0;
setnpctimer 0;
close;
}


prontera.gat,158,187,4 script ev_Waiting_Sell -1,{
set @WaitingTime_Sell,0;
deltimer "ev_Waiting_Sell";
}

prontera.gat,158,187,4 script ev_Waiting_Buy -1,{
set @WaitingTime_Buy,0;
deltimer "ev_Waiting_Buy";
}
prontera.gat,158,187,4 script ev_Waiting_Other -1,{
set @WaitingTime_Other,0;
deltimer "ev_Waiting_Other";
}

prontera.gat,158,187,4 script ev_Clearnews -1,{
OnClock0600:
set $Sell_temp,0;
set $Sell_info_count,0;
set $Sell_name_temp,0;
set $Sell_time_temp,0;

set $Buy_temp,0;
set $Buy_info_count,0;
set $Buy_name_temp,0;
set $Buy_time_temp,0;

set $Other_temp,0;
set $Other_info_count,0;
set $Other_name_temp,0;
set $Other_time_temp,0;
Announce "[Доска объявлений] Все сообщения были удалены с доски объявлений ",8;
}

Варпер с городами, данджерами, локациями.

Код:
prontera.gat,160,185,5   script   Варпер.   721,{
   
mes "[Варпер]";
mes "Привет, я местный варпер..!";
next;
mes "[Варпер]";
mes "Куда хотим пойдти?";
next;
menu   "Towns",town,"Fields",field,"Dungeons",dungeon,"Guild Dungeons",gdungeon;

town:
menu    "Prontera",wprontera,
   "Alberta",walberta,
   "Aldebaran",waldebaran,
   "Amatsu",wamatsu,
   "Ayothaya",wayot,
   "Comodo",wcomodo,
   "Einbech (Mining Village)",weinbech,
   "Einbroch",weinbroch,
   "Geffen",wgeffen,
   "Gonryun",wgonryun,
   "Hugel",whugel,
   "Izlude",wizlude,
   "Jawaii",wjawaii,
   "Lighthalzen",wlighthalzen,
   "Louyang",wlouyang,
   "Lutie",wxmas,   
   "Morroc",wmorroc,
   "Nameless Island",wnameless,
   "Niflheim",wniflheim,
   "Payon",wpayon,
   "Prontera",wprontera,
   "Rachel",wafeltz,
   "Thor Camp",wthorcamp,
   "Veins",wveins,
   "Yuno",wyuno,
   "Umbala",wumbala;

field:
menu    "Amatsu Fields",wamafild,
   "Ayothaya Fields",wayofild,
   "Comodo Fields",wcmdfild,
   "Einbroch Fields",weinfild,
   "Geffen Fields",wgeffild,
   "Gonryun Fields",wgonfild,
   "Hugel Fields",whufild,
   "Lighthalzen Fields",wlhzfild,
   "Louyang Field",wloufild,
   "Lutie Field",wxmasfild,
   "Mjolnir Fields",wmjolnir,
   "Niflheim Fields",wniffild,
   "Odin Temple",wodint,
   "Payon Forests",wpayfor,
   "Prontera Fields",wprtfild,
   "Rachel Fields",warunfild,
   "Sograt Deserts",wmocfild,
   "Umbala Fields",wumfild,
   "Veins Fields",wveinsfild,
   "Yuno Fields",wyunofild;

dungeon:
menu    "Abbey, Cursed Monastery",wabbey,
   "Abyss Lakes",wabyss,
   "Amatsu Dungeon",ama,
   "Anthell",ant,
   "Beach Dungeon",beach,
   "Ayothaya Dungeons",wayodun,
   "Byalan Dungeon",byalan,
   "Clock Tower",clock,
   "Coal Mines",coal,
   "Culverts",culvert,
   "Einbroch Dungeons",weindun,
   "Gefenia",gefenia,
   "Geffen Dungeon",geffen,
   "Glast Heim",glast,
   "Gonryun Dungeon",gon,
   "Hidden Dungeon",hidden,
   "Ice Dungeon",iced,
   "Juperos Dungeons",wjuper,
   "Kiel Dungeons",wkieldun,
   "Lighthalzen",wlhzdun,
   "Louyang Dungeons",wloudun,
   "Magma Dungeon",magma,
   "Orc Dungeon",orc,
   "Payon Dungeon",payon,
   "Pyramids",pyramids,
   "Rachel Sanctuary",rachels,
   "Sphinx",sphinx,
   "Sunken Ship",sunken,
   "Thanatos Tower",wthat,
   "Thor Volcano",wthor,
   "Toy Factory",toy,
   "Turtle Dungeon",turtle,
   "Umbala Dungeons",wumdun;

gdungeon:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Baldur Guild Dungeon (Guild Dungeon 1)",dgldun1,
   "Luina Guild Dungeon (Guild Dungeon 2)",dgldun2,
   "Valkyrie Guild Dungeon (Guild Dungeon 3)",dgldun3,
   "Britoniah Guild Dungeon (Guild Dungeon 4)",dgldun4;



//-------------------------------
//          Fields
//-------------------------------

warunfild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Rachel Field 1",drunfild1,
   "Rachel Field 2",drunfild2,
   "Rachel Field 3",drunfild3,
   "Rachel Field 4",drunfild4,
   "Rachel Field 5",drunfild5,
   "Rachel Field 6",drunfild6,
   "Rachel Field 7",drunfild7,
   "Rachel Field 8",drunfild8,
   "Rachel Field 9",drunfild9,
   "Rachel Field 10",drunfild10,
   "Rachel Field 11",drunfild11,
   "Rachel Field 12",drunfild12,
   "Rachel Field 13",drunfild13;

wgeffild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Geffen Field 0",dgeffild00,
   "Geffen Field 1",dgeffild01,
   "Geffen Field 2",dgeffild02,
   "Geffen Field 3",dgeffild03,
   "Geffen Field 4",dgeffild04,
   "Geffen Field 5",dgeffild05,
   "Geffen Field 6",dgeffild06,
   "Geffen Field 7",dgeffild07,
   "Geffen Field 8",dgeffild08,
   "Geffen Field 9",dgeffild09,
   "Geffen Field 10",dgeffild10,
   "Geffen Field 11",dgeffild11,
   "Geffen Field 12",dgeffild12,
   "Geffen Field 13",dgeffild13,
   "Geffen Field 14",dgeffild14;

wmjolnir:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Mjolnir Field 1",dmjolnir1,
   "Mjolnir Field 2",dmjolnir2,
   "Mjolnir Field 3",dmjolnir3,
   "Mjolnir Field 4",dmjolnir4,
   "Mjolnir Field 5",dmjolnir5,
   "Mjolnir Field 6",dmjolnir6,
   "Mjolnir Field 7",dmjolnir7,
   "Mjolnir Field 8",dmjolnir8,
   "Mjolnir Field 9",dmjolnir9,
   "Mjolnir Field 10",dmjolnir10,
   "Mjolnir Field 11",dmjolnir11,
   "Mjolnir Field 12",dmjolnir12;

wmocfild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Sograt Desert 1",dmocfild1,
   "Sograt Desert 2",dmocfild2,
   "Sograt Desert 3",dmocfild3,
   "Sograt Desert 4",dmocfild4,
   "Sograt Desert 5",dmocfild5,
   "Sograt Desert 6",dmocfild6,
   "Sograt Desert 7",dmocfild7,
   "Sograt Desert 8",dmocfild8,
   "Sograt Desert 9",dmocfild9,
   "Sograt Desert 10",dmocfild10,
   "Sograt Desert 11",dmocfild11,
   "Sograt Desert 12",dmocfild12,
   "Sograt Desert 13",dmocfild13,
   "Sograt Desert 14",dmocfild14,
   "Sograt Desert 15",dmocfild15,
   "Sograt Desert 16",dmocfild16,
   "Sograt Desert 17",dmocfild17,
   "Sograt Desert 18",dmocfild18,
   "Sograt Desert 19",dmocfild19;

wpayfor:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Payon Forest 1",dpayfild1,
   "Payon Forest 2",dpayfild2,
   "Payon Forest 3",dpayfild3,
   "Payon Forest 4",dpayfild4,
   "Payon Forest 5",dpayfild5,
   "Payon Forest 6",dpayfild6,
   "Payon Forest 7",dpayfild7,
   "Payon Forest 8",dpayfild8,
   "Payon Forest 9",dpayfild9,
   "Payon Forest 10",dpayfild10,
   "Payon Forest 11",dpayfild11;

wprtfild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Prontera Field 1",dprtfild1,
   "Prontera Field 2",dprtfild2,
   "Prontera Field 3",dprtfild3,
   "Prontera Field 4",dprtfild4,
   "Prontera Field 5",dprtfild5,
   "Prontera Field 6",dprtfild6,
   "Prontera Field 7",dprtfild7,
   "Prontera Field 8",dprtfild8,
   "Prontera Field 9",dprtfild9,
   "Prontera Field 10",dprtfild10,
   "Prontera Field 11",dprtfild11;

wxmasfild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Lutie Field 1",dxmasfild1;

wcmdfild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Comodo Field 1",dcmdfild1,
   "Comodo Field 2",dcmdfild2,
   "Comodo Field 3",dcmdfild3,
   "Comodo Field 4",dcmdfild4,
   "Comodo Field 5",dcmdfild5,
   "Comodo Field 6",dcmdfild6,
   "Comodo Field 7",dcmdfild7,
   "Comodo Field 8",dcmdfild8,
   "Comodo Field 9",dcmdfild9;

wyunofild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Yuno Field 1",dyunofild1,
   "Yuno Field 2",dyunofild2,
   "Yuno Field 3",dyunofild3,
   "Yuno Field 4",dyunofild4,
   "Yuno Field 5",dyunofild5,
   "Yuno Field 6",dyunofild6,
   "Yuno Field 7",dyunofild7,
   "Yuno Field 8",dyunofild8,
   "Yuno Field 9",dyunofild9,
   "Yuno Field 10",dyunofild10,
   "Yuno Field 11",dyunofild11,
   "Yuno Field 12",dyunofild12;

wamafild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Amatsu Field 1",damafild1;

wgonfild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Gonryun Field 1",dgonfild1;

wumfild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Umbala Field 1",dumfild1,
   "Umbala Field 2",dumfild2,
   "Umbala Field 3",dumfild3,
   "Umbala Field 4",dumfild4;

wniffild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Niflheim Field 1",dniffild1,
   "Niflheim Field 2",dniffild2;

wodint:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Odin Temple 1",wodtemp1,
   "Odin Temple 2",wodtemp2,
   "Odin Temple 3",wodtemp3;

wloufild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Louyang Field 1",dloufild1;

wayofild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Ayothaya Field 1",dayofild1,
   "Ayothaya Field 2",dayofild2;

weinfild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Einbroch Field 1",deinfild1,
   "Einbroch Field 2",deinfild2,
   "Einbroch Field 3",deinfild3,
   "Einbroch Field 4",deinfild4,
   "Einbroch Field 5",deinfild5,
   "Einbroch Field 6",deinfild6,
   "Einbroch Field 7",deinfild7,
   "Einbroch Field 8",deinfild8,
   "Einbroch Field 9",deinfild9,
   "Einbroch Field 10",deinfild10;

wlhzfild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Lighthalzen Field 1",dlhzfild1,
   "Lighthalzen Field 2",dlhzfild2,
   "Lighthalzen Field 3",dlhzfild3;

whufild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Hugel Field 1",dhufild1,
   "Hugel Field 2",dhufild2,
   "Hugel Field 3",dhufild3,
   "Hugel Field 4",dhufild4,
   "Hugel Field 5",dhufild5,
   "Hugel Field 6",dhufild6,
   "Hugel Field 7",dhufild7;

wveinsfild:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu   "Veins Field 1",dvfild1,
   "Veins Field 2",dvfild2,
   "Veins Field 3",dvfild3,
   "Veins Field 4",dvfild4,
   "Veins Field 5",dvfild5,
   "Veins Field 6",dvfild6,
   "Veins Field 7",dvfild7;

//-------------------------------
//          Dungeons
//-------------------------------

wjuper:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",djuperos1,
   "Level 2",djuperos3,
   "Core",djuperos2;

wumdun:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Carpenter's Shop in the Tree",dumdun1,
   "Passage to a Foreign World",dumdun2,
   "Hvergermil's Fountain",dyggdrasil1;

wloudun:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "The Royal Tomb",dloudun1,
   "Inside the Royal Tomb",dloudun2,
   "Suei Long Gon",dloudun3;

wayodun:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Ancient Shrine Maze",dayodun1,
   "Inside Ancient Shrine",dayodun2;

weindun:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",deindun1,
   "Level 2",deindun2;

wlhzdun:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dlhzdun1,
   "Level 2",dlhzdun2,
   "Level 3",dlhzdun3;

wabyss:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dabyss1,
   "Level 2",dabyss2,
   "Level 3",dabyss3;

wthat:
mes "[Варпер]";
mes "На какой этаж?";
   next;
menu    "Level 1",dthat1,
   "Level 2",dthat2,
   "Level 3",dthat3,
   "Level 4",dthat4,
   "Level 5",dthat5,
   "Level 6",dthat6,
   "Level 7",dthat7,
   "Level 8",dthat8,
   "Level 9",dthat9,
   "Level 10",dthat10,
   "Level 11",dthat11,
   "Level 12",dthat12;

wkieldun:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dkieldun1,
   "Level 2",dkieldun2;

ant:
   mes "[Варпер]";
   mes "На какой этаж?";
   next;
menu    "Level 1",danthell1,
   "Level 2",danthell2;

beach:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dbeach1,
   "Level 2",dbeach2,
   "Level 3",dbeach3;

byalan:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dbyalan1,
   "Level 2",dbyalan2,
   "Level 3",dbyalan3,
   "Level 4",dbyalan4,
   "Level 5",dbyalan5;
clock:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dclock1,
   "Level 2",dclock2,
   "Level 3",dclock3,
   "Level 4",dclock4,
   "Basement 1",dalde1,
   "Basement 2",dalde2,
   "Basement 3",dalde3,
   "Basement 4",dalde4;

coal:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dcoal1,
   "Level 2",dcoal2,
   "Level 3",dcoal3;

culvert:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dculvert1,
   "Level 2",dculvert2,
   "Level 3",dculvert3,
   "Level 4",dculvert4;

geffen:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dgeffen1,
   "Level 2",dgeffen2,
   "Level 3",dgeffen3,
   "Level 4",dgeffen4;

glast:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Entrance",dglastent,
   "Castle 1",dglastcast1,
   "Castle 2",dglastcast2,
   "Chivalry 1",dglastchiv1,
   "Chivalry 2",dglastchiv2,
   "Churchyard",dglastyard,
   "Culvert 1",dglastcul1,
   "Culvert 2",dglastcul1,
   "Culvert 3",dglastcul3,
   "Culvert 4",dglastcul4,
   "St.Abbey",dglastchur,
   "Staircase Dungeon",dglaststep,
   "Underground Cave 1",dglastcave1,
   "Underground Cave 2",dglastcave2,
   "Underground Prison 1",dglastpris1,
   "Underground Prison 2",dglastpris2;

hidden:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dhidden1,
   "Level 2",dhidden2,
   "Level 3",dhidden3;

iced:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",diced1,
   "Level 2",diced2,
   "Level 3",diced3,
   "Level 4",diced4;

magma:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dmagma1,
   "Level 2",dmagma2;

orc:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dorc1,
   "Level 2",dorc2;

payon:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dpayon1,
   "Level 2",dpayon2,
   "Level 3",dpayon3,
   "Level 4",dpayon4,
   "Level 5",dpayon5;

pyramids:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dpyramids1,
   "Level 2",dpyramids2,
   "Level 3",dpyramids3,
   "Level 4",dpyramids4,
   "Basement 1",dpyramidsb1,
   "Basement 2",dpyramidsb2;

sphinx:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dsphinx1,
   "Level 2",dsphinx2,
   "Level 3",dsphinx3,
   "Level 4",dsphinx4,
   "Level 5",dsphinx5;

sunken:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dsunken1,
   "Level 2",dsunken2;

toy:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dtoy1,
   "Level 2",dtoy2;

turtle:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Entrance",dturtleent,
   "Level 1",dturtle1,
   "Level 2",dturtle2,
   "Level 3",dturtle3;

ama:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dama1,
   "Level 2",dama2,
   "Level 3",dama3;

gon:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dgon1,
   "Level 2",dgon2,
   "Level 3",dgon3;

gefenia:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dgefenia1,
   "Level 2",dgefenia2,
   "Level 3",dgefenia3,
   "Level 4",dgefenia4;

wthor:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dthor1,
   "Level 2",dthor2,
   "Level 3",dthor3;

rachels:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",drachel1,
   "Level 2",drachel2,
   "Level 3",drachel3,
   "Level 4",drachel4,      
   "Level 5",drachel5;

wabbey:
mes "[Варпер]";
mes "На какой этаж?";
next;
menu    "Level 1",dabbey1,
   "Level 2",dabbey2,
   "Level 3",dabbey3;


//-------------------------------
//          Town Warps
//-------------------------------

wafeltz:   warp "rachel.gat",130,137;      close;
walberta:   warp "alberta.gat",28,234;      close;
waldebaran:   warp "aldebaran.gat",140,131;      close;
wamatsu:   warp "amatsu.gat",198,84;      close;
wayot:      warp "ayothaya.gat",150,163;      close;
wcomodo:   warp "comodo.gat",209,143;      close;
weinbech:   warp "einbech.gat",70,95;      close;
weinbroch:   warp "einbroch.gat",64,200;      close;
whugel:      warp "hugel.gat",96,145;      close;
wlighthalzen:   warp "lighthalzen.gat",158,92;      close;
wgonryun:   warp "gonryun.gat",160,121;      close;
wgeffen:   warp "geffen.gat",119,59;      close;
wizlude:   warp "izlude.gat",128,114;      close;
wxmas:      warp "xmas.gat",147,134;      close;
wjawaii:   warp "jawaii.gat",213,230;      close;
wmorroc:   warp "morocc.gat",156,93;      close;
wnameless:   warp   "nameless_n.gat",256,215;   close;
wniflheim:   warp "niflheim.gat",85,154;      close;
wpayon:      warp "payon.gat",152,75;      close;
wprontera:   warp "prontera.gat",155,183;      close;
wyuno:      warp "yuno.gat",157,51;         close;
wumbala:   warp "umbala.gat",145,155;      close;
wlouyang:   warp "louyang.gat",210,108;      close;
wthorcamp:   warp "thor_camp.gat",254,90;      close;
wveins:      warp "veins.gat",216,123;      close;

//-------------------------------
//        Dungeon Warps
//-------------------------------


dkieldun1:   warp "kh_dun01.gat",28,226;   close;
dkieldun2:   warp "kh_dun02.gat",41,198;   close;
djuperos1:   warp "juperos_01.gat",53,247;   close;
djuperos3:   warp "juperos_02.gat",37,63;   close;
djuperos2:   warp "jupe_core.gat",150,285;   close;
dumdun1:   warp "um_dun01.gat",42,31;   close;
dumdun2:   warp "um_dun01.gat",48,30;   close;
dloudun1:   warp "lou_dun01.gat",218,196;   close;
dloudun2:   warp "lou_dun02.gat",282,20;   close;
dloudun3:   warp "lou_dun03.gat",165,38;   close;
dayodun1:   warp "ayo_dun01.gat",275,19;   close;
dayodun2:   warp "ayo_dun02.gat",24,26;   close;
deindun1:   warp "ein_dun01.gat",22,14;   close;
deindun2:   warp "ein_dun02.gat",292,290;   close;
dlhzdun1:   warp "lhz_dun01.gat",150,288;   close;
dlhzdun2:   warp "lhz_dun02.gat",150,18;   close;
dlhzdun3:   warp "lhz_dun03.gat",140,137;   close;
dabyss1:   warp "abyss_01.gat",192,207;   close;
dabyss2:   warp "abyss_02.gat",275,270;   close;
dabyss3:   warp "abyss_03.gat",116,27;   close;
dthat1:      warp "tha_t01.gat",150,39;   close;
dthat2:      warp "tha_t02.gat",150,136;   close;
dthat3:      warp "tha_t03.gat",220,158;   close;
dthat4:      warp "tha_t04.gat",59,143;   close;
dthat5:      warp "tha_t05.gat",62,11;   close;
dthat6:      warp "tha_t06.gat",89,221;   close;
dthat7:      warp "tha_t07.gat",35,166;   close;
dthat8:      warp "tha_t08.gat",93,148;   close;
dthat9:      warp "tha_t09.gat",29,107;   close;
dthat10:   warp "tha_t10.gat",159,138;   close;
dthat11:   warp "tha_t11.gat",19,20;   close;
dthat12:   warp "tha_t12.gat",130,52;   close;
danthell1:   warp "anthell01.gat",35,262;   close;
danthell2:   warp "anthell02.gat",168,170;   close;
dbeach1:   warp "beach_dun.gat",266,67;   close;
dbeach2:   warp "beach_dun2.gat",255,244;   close;
dbeach3:   warp "beach_dun3.gat",23,260;   close;
dbyalan1:   warp "iz_dun00.gat",168,168;   close;
dbyalan2:   warp "iz_dun01.gat",253,252;   close;
dbyalan3:   warp "iz_dun02.gat",236,204;   close;
dbyalan4:   warp "iz_dun03.gat",32,63;   close;
dbyalan5:   warp "iz_dun04.gat",26,27;   close;
dalde1:      warp "alde_dun01.gat",297,25;   close;
dalde2:      warp "alde_dun02.gat",127,169;   close;
dalde3:      warp "alde_dun03.gat",277,178;   close;
dalde4:      warp "alde_dun04.gat",268,74;   close;
dclock1:   warp "c_tower1.gat",199,159;   close;
dclock2:   warp "c_tower2.gat",148,283;   close;
dclock3:   warp "c_tower3.gat",65,147;   close;
dclock4:   warp "c_tower4.gat",56,155;   close;
dcoal1:      warp "mjo_dun01.gat",52,17;   close;
dcoal2:      warp "mjo_dun02.gat",381,343;   close;
dcoal3:      warp "mjo_dun03.gat",302,262;   close;
dculvert1:   warp "prt_sewb1.gat",131,247;   close;
dculvert2:   warp "prt_sewb2.gat",19,19;   close;
dculvert3:   warp "prt_sewb3.gat",180,169;   close;
dculvert4:   warp "prt_sewb4.gat",100,92;   close;
dgeffen1:   warp "gef_dun00.gat",104,99;   close;
dgeffen2:   warp "gef_dun01.gat",115,236;   close;
dgeffen3:   warp "gef_dun02.gat",106,132;   close;
dgeffen4:   warp "gef_dun03.gat",203,200;   close;
dglastent:   warp "glast_01.gat",375,304;   close;
dglastcast1:   warp "gl_cas01.gat",199,29;   close;
dglastcast2:   warp "gl_cas02.gat",104,25;   close;
dglastchiv1:   warp "gl_knt01.gat",150,15;   close;
dglastchiv2:   warp "gl_knt02.gat",157,287;   close;
dglastyard:   warp "gl_chyard.gat",147,15;   close;
dglastcul1:   warp "gl_sew01.gat",258,255;   close;
dglastcul2:   warp "gl_sew02.gat",108,291;   close;
dglastcul3:   warp "gl_sew03.gat",171,283;   close;
dglastcul4:   warp "gl_sew04.gat",68,277;   close;
dglastchur:   warp "gl_church.gat",156,7;   close;
dglaststep:   warp "gl_step.gat",12,7;   close;
dglastcave1:   warp "gl_dun01.gat",133,271;   close;
dglastcave2:   warp "gl_dun02.gat",224,274;   close;
dglastpris1:   warp "gl_prison.gat",14,70;   close;
dglastpris2:   warp "gl_prison1.gat",150,14;   close;
dhidden1:   warp "prt_maze01.gat",176,7;   close;
dhidden2:   warp "prt_maze02.gat",94,9;   close;
dhidden3:   warp "prt_maze03.gat",23,8;   close;
diced1:      warp "ice_dun01.gat",157,14;   close;
diced2:      warp "ice_dun02.gat",151,155;   close;
diced3:      warp "ice_dun03.gat",149,22;   close;
diced4:      warp "ice_dun04.gat",33,158;   close;
dmagma1:   warp "mag_dun01.gat",126,68;   close;
dmagma2:   warp "mag_dun02.gat",47,30;   close;
dorc1:      warp "orcsdun01.gat",32,170;   close;
dorc2:      warp "orcsdun02.gat",21,185;   close;
dpayon1:   warp "pay_dun00.gat",21,183;   close;
dpayon2:   warp "pay_dun01.gat",19,33;   close;
dpayon3:   warp "pay_dun02.gat",19,63;   close;
dpayon4:   warp "pay_dun03.gat",155,159;   close;
dpayon5:   warp "pay_dun04.gat",201,204;   close;
dpyramids1:   warp "moc_pryd01.gat",192,9;   close;
dpyramids2:   warp "moc_pryd02.gat",10,192;   close;
dpyramids3:   warp "moc_pryd03.gat",100,92;   close;
dpyramids4:   warp "moc_pryd04.gat",181,11;   close;
dpyramidsb1:   warp "moc_pryd05.gat",94,96;   close;
dpyramidsb2:   warp "moc_pryd06.gat",192,8;   close;
dsphinx1:   warp "in_sphinx1.gat",288,9;   close;
dsphinx2:   warp "in_sphinx2.gat",149,81;   close;
dsphinx3:   warp "in_sphinx3.gat",210,54;   close;
dsphinx4:   warp "in_sphinx4.gat",10,222;   close;
dsphinx5:   warp "in_sphinx5.gat",100,99;   close;
dsunken1:   warp "treasure01.gat",69,24;   close;
dsunken2:   warp "treasure02.gat",102,27;   close;
dtoy1:      warp "xmas_dun01.gat",205,15;   close;
dtoy2:      warp "xmas_dun02.gat",129,133;   close;
dturtleent:   warp "tur_dun01.gat",154,49;   close;
dturtle1:   warp "tur_dun02.gat",148,261;   close;
dturtle2:   warp "tur_dun03.gat",132,189;   close;
dturtle3:   warp "tur_dun04.gat",100,192;   close;
dama1:      warp "ama_dun01.gat",228,11;   close;
dama2:      warp "ama_dun02.gat",34,41;   close;
dama3:      warp "ama_dun03.gat",119,14;   close;
dgon1:      warp "gon_dun01.gat",153,53;   close;
dgon2:      warp "gon_dun02.gat",28,113;   close;
dgon3:      warp "gon_dun03.gat",68,16;   close;
dgefenia1:   warp "gefenia01.gat",40,103;   close;
dgefenia2:   warp "gefenia02.gat",203,34;   close;
dgefenia3:   warp "gefenia03.gat",266,168;   close;
dgefenia4:   warp "gefenia04.gat",130,272;   close;
dgldun1:   warp "gld_dun01.gat",119,93;   close;
dgldun2:   warp "gld_dun02.gat",39,161;   close;
dgldun3:   warp "gld_dun03.gat",50,44;   close;
dgldun4:   warp "gld_dun04.gat",116,45;   close;
casino:      warp "cmd_in02.gat",179,129;   close;
dthor1:      warp "thor_v01.gat",21,228;   close;
dthor2:      warp "thor_v02.gat",75,205;   close;
dthor3:      warp "thor_v03.gat",34,272;   close;
drachel1:   warp "ra_san01.gat",140,11;   close;
drachel2:   warp "ra_san02.gat",32,21;   close;
drachel3:   warp "ra_san03.gat",4,149;   close;
drachel4:   warp "ra_san04.gat",204,218;   close;
drachel5:   warp "ra_san05.gat",150,9;   close;
dabbey1:   warp "abbey01.gat",51,14;   close;
dabbey2:   warp "abbey02.gat",150,11;   close;
dabbey3:   warp "abbey03.gat",120,10;   close;

//-------------------------------
//         Field Warps
//-------------------------------

drunfild1:   warp "ra_fild01.gat",192,162;   close;
drunfild2:   warp "ra_fild02.gat",235,166;   close;
drunfild3:   warp "ra_fild03.gat",202,206;   close;
drunfild4:   warp "ra_fild04.gat",202,208;   close;
drunfild5:   warp "ra_fild05.gat",225,202;   close;
drunfild6:   warp "ra_fild06.gat",202,214;   close;
drunfild7:   warp "ra_fild07.gat",263,196;   close;
drunfild8:   warp "ra_fild08.gat",217,201;   close;
drunfild9:   warp "ra_fild09.gat",87,121;   close;
drunfild10:   warp "ra_fild10.gat",277,181;   close;
drunfild11:   warp "ra_fild11.gat",221,185;   close;
drunfild12:   warp "ra_fild12.gat",175,200;   close;
drunfild13:   warp "ra_fild13.gat",174,197;   close;
dgeffild00:   warp "gef_fild00.gat",46,199;   close;
dgeffild01:   warp "gef_fild01.gat",213,204;   close;
dgeffild02:   warp "gef_fild02.gat",195,212;   close;
dgeffild03:   warp "gef_fild03.gat",257,192;   close;
dgeffild04:   warp "gef_fild04.gat",188,171;   close;
dgeffild05:   warp "gef_fild05.gat",166,263;   close;
dgeffild06:   warp "gef_fild06.gat",248,158;   close;
dgeffild07:   warp "gef_fild07.gat",195,191;   close;
dgeffild08:   warp "gef_fild08.gat",186,183;   close;
dgeffild09:   warp "gef_fild09.gat",221,117;   close;
dgeffild10:   warp "gef_fild10.gat",178,218;   close;
dgeffild11:   warp "gef_fild11.gat",136,328;   close;
dgeffild12:   warp "gef_fild12.gat",240,181;   close;
dgeffild13:   warp "gef_fild13.gat",235,235;   close;
dgeffild14:   warp "gef_fild14.gat",211,185;   close;
dmjolnir1:   warp "mjolnir_01.gat",204,120;   close;
dmjolnir2:   warp "mjolnir_02.gat",175,193;   close;
dmjolnir3:   warp "mjolnir_03.gat",208,213;   close;
dmjolnir4:   warp "mjolnir_04.gat",179,180;   close;
dmjolnir5:   warp "mjolnir_05.gat",181,240;   close;
dmjolnir6:   warp "mjolnir_06.gat",195,270;   close;
dmjolnir7:   warp "mjolnir_07.gat",235,202;   close;
dmjolnir8:   warp "mjolnir_08.gat",188,215;   close;
dmjolnir9:   warp "mjolnir_09.gat",205,144;   close;
dmjolnir10:   warp "mjolnir_10.gat",245,223;   close;
dmjolnir11:   warp "mjolnir_11.gat",180,206;   close;
dmjolnir12:   warp "mjolnir_12.gat",196,208;   close;
dmocfild1:   warp "moc_fild01.gat",219,205;   close;
dmocfild2:   warp "moc_fild02.gat",177,206;   close;
dmocfild3:   warp "moc_fild03.gat",194,182;   close;
dmocfild4:   warp "moc_fild04.gat",184,217;   close;
dmocfild5:   warp "moc_fild05.gat",203,213;   close;
dmocfild6:   warp "moc_fild06.gat",213,208;   close;
dmocfild7:   warp "moc_fild07.gat",224,170;   close;
dmocfild8:   warp "moc_fild08.gat",229,177;   close;
dmocfild9:   warp "moc_fild09.gat",195,198;   close;
dmocfild10:   warp "moc_fild10.gat",209,168;   close;
dmocfild11:   warp "moc_fild11.gat",198,216;   close;
dmocfild12:   warp "moc_fild12.gat",156,187;   close;
dmocfild13:   warp "moc_fild13.gat",185,263;   close;
dmocfild14:   warp "moc_fild14.gat",209,219;   close;
dmocfild15:   warp "moc_fild15.gat",223,188;   close;
dmocfild16:   warp "moc_fild16.gat",206,228;   close;
dmocfild17:   warp "moc_fild17.gat",208,238;   close;
dmocfild18:   warp "moc_fild18.gat",209,223;   close;
dmocfild19:   warp "moc_fild19.gat",85,97;   close;
dpayfild1:   warp "pay_fild01.gat",158,206;   close;
dpayfild2:   warp "pay_fild02.gat",151,219;   close;
dpayfild3:   warp "pay_fild03.gat",205,148;   close;
dpayfild4:   warp "pay_fild04.gat",186,247;   close;
dpayfild5:   warp "pay_fild05.gat",134,204;   close;
dpayfild6:   warp "pay_fild06.gat",193,235;   close;
dpayfild7:   warp "pay_fild07.gat",200,177;   close;
dpayfild8:   warp "pay_fild08.gat",137,189;   close;
dpayfild9:   warp "pay_fild09.gat",201,224;   close;
dpayfild10:   warp "pay_fild10.gat",160,205;   close;
dpayfild11:   warp "pay_fild11.gat",194,150;   close;
dprtfild0:   warp "prt_fild00.gat",184,235;   close;
dprtfild1:   warp "prt_fild01.gat",190,206;   close;
dprtfild2:   warp "prt_fild02.gat",240,206;   close;
dprtfild3:   warp "prt_fild03.gat",190,143;   close;
dprtfild4:   warp "prt_fild04.gat",307,252;   close;
dprtfild5:   warp "prt_fild05.gat",239,213;   close;
dprtfild6:   warp "prt_fild06.gat",185,188;   close;
dprtfild7:   warp "prt_fild07.gat",193,194;   close;
dprtfild8:   warp "prt_fild08.gat",187,218;   close;
dprtfild9:   warp "prt_fild09.gat",210,183;   close;
dprtfild10:   warp "prt_fild10.gat",195,149;   close;
dprtfild11:   warp "prt_fild11.gat",198,164;   close;
dxmasfild1:   warp "xmas_fild01.gat",115,145;   close;
dcmdfild1:   warp "cmd_fild01.gat",180,178;   close;
dcmdfild2:   warp "cmd_fild02.gat",231,160;   close;
dcmdfild3:   warp "cmd_fild03.gat",191,172;   close;
dcmdfild4:   warp "cmd_fild04.gat",228,194;   close;
dcmdfild5:   warp "cmd_fild05.gat",224,203;   close;
dcmdfild6:   warp "cmd_fild06.gat",190,223;   close;
dcmdfild7:   warp "cmd_fild07.gat",234,177;   close;
dcmdfild8:   warp "cmd_fild08.gat",194,175;   close;
dcmdfild9:   warp "cmd_fild09.gat",172,172;   close;
dyunofild1:   warp "yuno_fild01.gat",189,224;   close;
dyunofild2:   warp "yuno_fild02.gat",192,207;   close;
dyunofild3:   warp "yuno_fild03.gat",221,157;   close;
dyunofild4:   warp "yuno_fild04.gat",226,199;   close;
dyunofild5:   warp "yuno_fild05.gat",223,177;   close;
dyunofild6:   warp "yuno_fild06.gat",187,232;   close;
dyunofild7:   warp "yuno_fild07.gat",231,174;   close;
dyunofild8:   warp "yuno_fild08.gat",196,203;   close;
dyunofild9:   warp "yuno_fild09.gat",183,214;   close;
dyunofild10:   warp "yuno_fild10.gat",200,124;   close;
dyunofild11:   warp "yuno_fild11.gat",195,226;   close;
dyunofild12:   warp "yuno_fild12.gat",210,304;   close;
damafild1:   warp "ama_fild01.gat",190,197;   close;
dgonfild1:   warp "gon_fild01.gat",220,227;   close;
dumfild1:   warp "um_fild01.gat",217,206;   close;
dumfild2:   warp "um_fild02.gat",223,221;   close;
dumfild3:   warp "um_fild03.gat",237,215;   close;
dumfild4:   warp "um_fild04.gat",202,197;   close;
dniffild1:   warp "nif_fild01.gat",215,229;   close;
dniffild2:   warp "nif_fild02.gat",167,234;   close;
dyggdrasil1:   warp "yggdrasil01.gat",204,78;   close;
dloufild1:   warp "lou_fild01.gat",229,187;   close;
dayofild1:   warp "ayo_fild01.gat",173,134;   close;
dayofild2:   warp "ayo_fild02.gat",212,150;   close;
deinfild1:   warp "ein_fild01.gat",142,225;   close;
deinfild2:   warp "ein_fild02.gat",182,141;   close;
deinfild3:   warp "ein_fild03.gat",187,228;   close;
deinfild4:   warp "ein_fild04.gat",185,173;   close;
deinfild5:   warp "ein_fild05.gat",216,173;   close;
deinfild6:   warp "ein_fild06.gat",195,148;   close;
deinfild7:   warp "ein_fild07.gat",272,220;   close;
deinfild8:   warp "ein_fild08.gat",173,214;   close;
deinfild9:   warp "ein_fild09.gat",207,174;   close;
deinfild10:   warp "ein_fild10.gat",196,200;   close;
dlhzfild1:   warp "lhz_fild01.gat",240,179;   close;
dlhzfild2:   warp "lhz_fild02.gat",185,235;   close;
dlhzfild3:   warp "lhz_fild03.gat",240,226;   close;
dhufild1:   warp "hu_fild01.gat",268,101;   close;
dhufild2:   warp "hu_fild02.gat",222,193;   close;
dhufild3:   warp "hu_fild03.gat",232,185;   close;
dhufild4:   warp "hu_fild04.gat",252,189;   close;
dhufild5:   warp "hu_fild05.gat",196,106;   close;
dhufild6:   warp "hu_fild06.gat",216,220;   close;
dhufild7:   warp "hu_fild07.gat",227,197;   close;
wodtemp1:   warp "odin_tem01.gat",298,167;   close;
wodtemp2:   warp "odin_tem02.gat",224,149;   close;
wodtemp3:   warp "odin_tem03.gat",266,280;   close;
dvfild1:   warp "ve_fild01",186,175;   close;
dvfild2:   warp "ve_fild02",196,370;   close;
dvfild3:   warp "ve_fild03",222,45;   close;
dvfild4:   warp "ve_fild04",51,250;   close;
dvfild5:   warp "ve_fild05",202,324;   close;
dvfild6:   warp "ve_fild06",150,223;   close;
dvfild7:   warp "ve_fild07",149,307;   close;
}

//-------------------------------
//       Duplicate NPCs
//-------------------------------

rachel.gat,122,148,4   duplicate(Warper)   Warp NPC   721
alberta.gat,31,240,4      duplicate(Warper)   Warp NPC   721
aldebaran.gat,145,118,4      duplicate(Warper)   Warp NPC   721
amatsu.gat,200,79,1      duplicate(Warper)   Warp NPC   721
ayothaya.gat,143,162,4   duplicate(Warper)   Warp NPC   721
comodo.gat,194,158,4      duplicate(Warper)   Warp NPC   721
einbech.gat,142,246,4   duplicate(Warper)   Warp NPC   721
einbroch.gat,69,202,4   duplicate(Warper)   Warp NPC   721
hugel.gat,90,159,4   duplicate(Warper)   Warp NPC   721
lighthalzen.gat,154,99,4   duplicate(Warper)   Warp NPC   721
geffen.gat,115,66,4      duplicate(Warper)   Warp NPC   721
izlude.gat,131,116,4      duplicate(Warper)   Warp NPC   721
xmas.gat,150,136,4   duplicate(Warper)   Warp NPC   721
morocc.gat,156,99,4      duplicate(Warper)   Warp NPC   721
payon.gat,182,110,4      duplicate(Warper)   Warp NPC   721
yuno.gat,137,162,4      duplicate(Warper)   Warp NPC   721
moc_fild04.gat,207,331,4   duplicate(Warper)   Warp NPC   721
izlu2dun.gat,104,82,4      duplicate(Warper)   Warp NPC   721
mjolnir_02.gat,85,363,4      duplicate(Warper)   Warp NPC   721
prt_fild05.gat,273,215,4   duplicate(Warper)   Warp NPC   721
glast_01.gat,370,308,4      duplicate(Warper)   Warp NPC   721
yuno_fild03.gat,37,135,4   duplicate(Warper)   Warp NPC   721
gef_fild10.gat,71,339,4      duplicate(Warper)   Warp NPC   721
pay_arche.gat,39,135,4      duplicate(Warper)   Warp NPC   721
moc_ruins.gat,64,166,4      duplicate(Warper)   Warp NPC   721
moc_fild19.gat,106,97,4      duplicate(Warper)   Warp NPC   721
alb2trea.gat,73,101,4      duplicate(Warper)   Warp NPC   721
tur_dun01.gat,148,239,4      duplicate(Warper)   Warp NPC   721
gonryun.gat,151,130,4      duplicate(Warper)   Warp NPC   721
louyang.gat,159,117,4      duplicate(Warper)   Warp NPC   721
umbala.gat,132,130,4      duplicate(Warper)   Warp NPC   721

0

4

смена рейтов

Код:
prontera.gat,3,4,5   script   FloatingRates   -1,{
   end;
OnInit:

// Срабатывает каждые 2 часа, время можно выставить свое

// OnClock1840: // Тестовый запуск в 18:40
OnHour20:
OnHour22:
OnHour00:
OnHour02:
OnHour04:
OnHour06:
OnHour08:
OnHour10:
OnHour12:
OnHour14:
OnHour16:
OnHour18:


//------------------- Диапазон рэйтов 1х(100)-10х(1000)
   set $@brate,rand(100,1000);  //базовый
   set $@jrate,rand(100,1000);  //джоб
   set $@dcrate,rand(100,1000); // Дропы
   set $@dhrate,rand(100,1000);
   set $@durate,rand(100,1000);
   set $@derate,rand(100,1000);
   set $@dkrate,rand(100,1000);

   //Base exp
   setbattleflag("base_exp_rate",$@brate);
   //Job exp
   setbattleflag("job_exp_rate",$@jrate);
   //Drops
   setbattleflag("item_rate_common",$@dcrate);
   setbattleflag("item_rate_heal",$@dhrate);
   setbattleflag("item_rate_use",$@durate);
   setbattleflag("item_rate_equip",$@derate);
   setbattleflag("item_rate_card",$@dkrate);

   announce "Смертные! Внимание!! Счастье и удача у вас такое:",bc_blue|bc_all;
   announce "Base/Job/Drop: x"+($@brate/100)+"/x"+($@jrate/100)+"/x"+($@dcrate/100)+"/x"+($@dhrate/100)+"/x"+($@durate/100)+"/x"+($@derate/100)+"/x"+($@dkrate/100),bc_blue|bc_all;
   announce "Не упустите момент! Удачи!",bc_blue|bc_all;
   end;
}

Статс селлер:

Код:
prontera.gat,160,180,0 script Стаселлер 752,{ 
mes "[statseller]"; 
mes "Ты хочешкупить статы?"; 
next; 
menu "ДА",yes,"НЕТ",no; 
yes: 
mes "Заплати мне 4 лимона и ты получиш 10 статов"; 
mes "Ты будиш покупать"; 
next; 
menu "Угу",yess,"Нее",no; 
yess: 
mes" Выбирай куда тебе расставить статы!"; 
next; 
menu "Str",str,"Agi",agi,"Vit",vit,"Int",int,"Dex",dex,"Luk",luk; 
str: 
if(Zeny < 4000000)goto No_Zeny; 
atcommand strcharinfo(0) + ":@str +10"; 
atcommand strcharinfo(0) + ":@zeny -4000000"; 
mes "Спс !! Пока!!"; 
close; 
agi: 
if(Zeny < 4000000)goto No_Zeny; 
atcommand strcharinfo(0) + ":@agi +10"; 
atcommand strcharinfo(0) + ":@zeny -4000000"; 
mes "Спс !! Пока!!"; 
close; 
vit: 
if(Zeny < 4000000)goto No_Zeny; 
atcommand strcharinfo(0) + ":@vit +10"; 
atcommand strcharinfo(0) + ":@zeny -4000000"; 
mes "Спс !! Пока!!"; 
close; 
int: 
if(Zeny < 4000000)goto No_Zeny; 
atcommand strcharinfo(0) + ":@int +10"; 
atcommand strcharinfo(0) + ":@zeny -4000000"; 
mes "Спс !! Пока!!"; 
close; 
dex: 
if(Zeny < 4000000)goto No_Zeny; 
atcommand strcharinfo(0) + ":@dex +10"; 
atcommand strcharinfo(0) + ":@zeny -4000000"; 
mes "Спс !! Пока!!"; 
close; 
luk: 
if(Zeny < 4000000)goto No_Zeny; 
atcommand strcharinfo(0) + ":@luk +10"; 
atcommand strcharinfo(0) + ":@zeny -4000000"; 
mes "Спс !! Пока!!"; 
close; 
no: 
mes" Как знаеш пока!!"; 
close; 
No_Zeny: 
mes"У тебя нету столько денег!!"; 
close; 
}

Полный Баффер

Код:
prontera.gat,149,187,4 script Бафер! 811,{ 
sc_start 21,  37000, 10;  // Endure
sc_start 49,  300000, 1;  // Energie Coat
sc_start 23, 240000, 10;  // Improve Concentration
sc_start 32,  240000, 10;  // Increase Agi
sc_start 29,  300000, 10;  // Angelus
sc_start 30, 240000, 10; // Blessing
sc_start 48, 300000, 1; // Crazy Uproar
sc_start 22, 300000, 10; // Twohand Quicken
sc_start 150, 300000, 1; // Onehand Quicken
sc_start 35,  60000, 5; // Impositio Manus
sc_start 40,  90000, 5; // Magnificat
sc_start 41,    30000,  5; // Gloria
sc_start 43,  150000,  5; // Adrenaline Rush
sc_start 44,    50000,  5; // Weapon Perfection
sc_start 45,  100000,  5; // Power-Thrust
sc_start 46,  360000,  5; // Maximize Power
sc_start 145,  150000,  1; // Full Adrenaline Rush 
sc_start 86,  300000, 10; // Spear Quicken
sc_start 118,    30000, 10; // Mystical Amplify
sc_start 156,  180000,  1; // Maximum Power Thrust
sc_start 121,  400000, 10; // Wind Walker
sc_start 154,  90000,  5; // Double Casting
sc_start 115, 100000,  5; // Assumptio
percentheal 100,100;
close;
}

Магазины:

Код:
turbo_room.gat,113,139,4   shop   Axes   744,1307:400000,1306:400000,1304:400000,1305:400000,1362:55000,1368:400000,1367:400000,1365:400000,1366:400000,1369:400000,1356:15500,1364:400000,1358:34000,1363:400000,1302:4000
turbo_room.gat,111,139,4   shop   Maces   795,1521:23000,1502:120,1512:400000,1528:400000,1524:400000,1529:400000,1525:400000,1505:4000,1515:41000,1527:400000,1526:400000,1509:9000,1523:400000,1522:60000,1516:50000,1531:400000
turbo_room.gat,109,139,4   shop   Staves   897,1611:45000,1615:400000,1622:86000,1613:400000,1602:4000,1472:400000,1608:9500,1618:85000,1620:85000,1614:400000,1605:2500,1616:86000,1473:400000
turbo_room.gat,107,139,4   shop   Bows   741,1715:48000,1722:400000,1702:1000,1705:2500,1711:17000,1724:400000,1716:42000,1709:10000,1718:64000,1723:400000,1721:89000,1719:400000,1720:400000,1725:400000
turbo_room.gat,125,137,3   shop   Knuckles   110,1814:400000,1810:67000,1812:58000,1808:53000,1815:400000,1813:400000,1804:25000,1806:32000,1802:8000
turbo_room.gat,127,135,3   shop   Instruments   51,1914:400000,1913:400000,1917:400000,1916:400000,1908:47000,1912:54000,1910:62000,1915:400000,1906:24500,1904:18000,1918:400000,1902:4000
turbo_room.gat,129,131,2   shop   Whips   725,1969:400000,1967:400000,1966:400000,1962:400000,1970:400000,1956:32000,1963:400000,1965:400000,1951:2500,1968:400000,1959:41000,1961:38000,1955:17500

turbo_room.gat,115,139,4   shop   Katars   87,1255:37200,1251:19500,1256:45000,1259:45000,1257:45000,1258:45000,1253:41000,1262:400000,1260:52500,1264:700000,1263:400000
turbo_room.gat,117,139,4   shop   Daggers   106,1232:400000,1235:400000,1231:400000,1246:40000,1228:400000,13004:52000,1241:400000,1204:1250,1242:400000,13000:10000,1215:14000,1226:49000,1212:8500,13001:400000,1233:400000,1249:10000,1223:400000,13002:400000,1220:43000,1237:400000,1244:400000,1230:400000,1229:400000,1202:50,1225:400000,1208:2400,1234:400000,1243:400000,1248:10000,1239:400000,1240:400000,1217:19500,1236:400000,1224:400000,1227:400000,1238:400000
turbo_room.gat,119,139,4   shop   2Hand Swords   66,1155:22500,1162:65000,1163:74000,1166:400000,1169:400000,1117:2000,1170:400000,1165:400000,1164:400000,1167:400000,1153:15000,1159:60000,1168:400000
turbo_room.gat,121,139,4   shop   Spears   730,1416:400000,1405:1700,1417:400000,1408:3450,1402:150,1413:400000,1414:400000,1415:400000,1467:400000,1470:400000,1466:400000,1474:400000,1455:20000,1452:13000,1464:54000,1471:400000,1412:60000,1469:400000,1458:27700,1461:51000,1468:400000
turbo_room.gat,123,139,4   shop   Swords   56,1108:2900,1140:400000,1134:400000,1135:400000,1132:400000,1137:400000,1105:1500,1133:400000,1129:60000,1143:400000,1128:50000,1145:400000,1131:400000,1141:400000,1142:400000,1138:400000,1130:400000,1124:400000,1111:10000,1125:24000,1127:49000,1144:400000,1115:17000,1136:400000,1148:400000,1103:100,1139:400000,1147:42000,1120:51000

turbo_room.gat,76,139,4   shop   Helmets   708,5093:300000,5142:300000,5094:500000,5131:300000,5017:300000,5014:300000,5025:300000,2229:44000,2299:300000,5009:300000,2261:100000,5120:6000
turbo_room.gat,78,139,4   shop   Robes   64,2356:400000,2327:400000,2334:400000,2308:10000,2343:400000,2326:54000,2322:8000,2333:7000,2324:6500
turbo_room.gat,80,139,4   shop   Shields   753,2104:14000,2102:500,2110:400000,2108:60000,2111:400000,2106:56000,2114:400000
turbo_room.gat,82,139,4   shop   ChestArmor   707,2306:1000,2349:136000,2315:65000,2351:136000,2317:80000,2319:400000,2304:200,2342:94000,2318:400000,2345:136000,2308:10000,2311:50000,2337:400000,2340:89000,2353:400000,2313:48000,2347:136000,2324:6500,2352:400000,2336:74000,2331:71000,2329:5500,2320:400000
turbo_room.gat,84,139,4   shop   Garments   68,2507:400000,2515:400000,2516:400000,2513:400000,2502:1000,2506:32000,2517:400000,2509:400000,2510:400000,2511:400000,2508:400000,2514:400000,2512:50000,2504:5000
turbo_room.gat,86,139,4   shop   FootGear   57,2406:18000,2415:34000,2407:400000,2417:400000,2412:48000,2409:8500,2416:35000,2414:100,2413:400000,2402:400,2408:5000,2404:3500,2418:400000
turbo_room.gat,88,139,4   shop   Jewelry   108,2631:100000,2616:75000,2613:45000,2622:30000,2612:1500,2636:100000,2610:30000,2640:100000,2645:100000,2665:100000,2670:100000,2621:30000,2653:100000,2615:75000,2643:100000,2637:100000,2611:20000,2609:10000,2658:100000,2626:15000,5002:100000,2235:100000,5036:100000
turbo_room.gat,90,139,4   shop   Accessory   59,2627:20000,2655:100000,2619:10000,2625:30000,2646:100000,2617:100000,2607:30000,2663:100000,2624:30000,2667:100000,2652:10000,2666:100000,2618:100000,2638:100000,2654:100000
turbo_room.gat,94,114,4   shop   Ельф   48,1766:40,1755:3,1750:1,1754:3,1761:3,1752:3,1760:3,1759:3,1757:3,1770:2,1769:3,1763:3,1762:3,1767:3,1764:3,1751:3,1768:3,1753:2,1756:3,1758:3,1771:50

turbo_room.gat,100,121,4   shop   HeadGear   101,5097:100000,5105:100000,5011:100000,5137:100000,2254:100000,2257:100000,5115:100000,2272:100000,5133:100000,5067:100000,2236:100000,2247:100000,5109:100000,5035:100000,5151:100000,2259:100000,5021:100000,2290:3000,5154:100000,5047:100000,5038:100000,5075:100000,2285:100000
turbo_room.gat,70,132,6   shop   SetArmor   728,2354:8000000,2419:8000000,5128:8000000,2520:8000000,2649:8000000,5126:8000000,2648:8000000,2518:8000000,2357:10000000,2524:10000000,2115:10000000,2421:10000000,2650:8000000,5127:8000000,2519:8000000,2651:8000000,2523:200000,2339:200000,2355:6000000,2116:6000000,2521:6000000,2420:6000000,5125:6000000
turbo_room.gat,106,117,6   shop   Wing Man   811,30000:5000000,30001:5000000,30002:5000000,30003:5000000
turbo_room.gat,93,117,6   shop   HeadGear2   110,5016:100000,5160:120000,5146:140000,5022:400000,5023:400000,5024:400000,5025:400000,5026:400000,5027:400000,5028:400000,5029:400000,5030:400000,5031:400000,5032:400000,5033:400000,5034:400000,5035:400000,5036:400000,5037:400000,5038:400000,5039:400000,5040:400000,5041:400000,5042:400000,5043:400000,5044:400000,5045:400000,5046:400000,5047:400000,5048:400000,5049:400000,5050:400000,5051:400000,5052:400000,5053:400000,5054:400000,5055:400000,5056:400000,5057:400000,5058:400000,5059:400000,5060:400000,5061:400000,5062:400000,5063:400000,5064:400000,5065:400000,5066:400000,5067:400000,5068:400000,5069:400000,5070:400000,5071:400000,5072:400000,5073:400000,5074:400000
turbo_room.gat,103,118,2   shop   Остальное Барохло   753,12028:-1,12033:-1,12032:-1,12030:-1,12034:-1,12031:-1
turbo_room.gat,96,118,2   shop   Бутылки   744,545:-1,547:-1,546:-1,610:-1,523:-1,525:-1,656:-1,657:-1,645:-1
turbo_room.gat,106,113,2   shop   Алхимик   741,7135:1000,7139:1000,7134:1000,7136:1000,7137:1000,7138:1000,678:150000,7142:200000
prontera.gat,147,175,2   shop   Алхимик   741,601:60,656:1500,645:800,602:300,1065:100,506:40,1750:1,611:40

Заточка 1 клик +100

Код:
sec_in01.gat,174,168,6   script   +100 Refiner   899,{
   callfunc   "Refiner1";
}
function   script   Refiner1   {
   if(getequipisequiped(1)){
   callfunc   "Refine Now1";
   }else
   callfunc   "Refiner2";
   }
function   script   Refiner2   {
   if(getequipisequiped(2)){
   callfunc   "Refine Now2";
   }else
   callfunc   "Refiner3";
   }
function   script   Refiner3   {
   if(getequipisequiped(3)){
   callfunc   "Refine Now3";
   }else
   callfunc   "Refiner4";
   }
function   script   Refiner4   {
   if(getequipisequiped(4)){
   callfunc   "Refine Now4";
   }else
   callfunc   "Refiner5";
   }
function   script   Refiner5   {
   if(getequipisequiped(5)){
   callfunc   "Refine Now5";
   }else
   callfunc   "Refiner6";
   }
function   script   Refiner6   {
   if(getequipisequiped(6)){
   callfunc   "Refine Now6";
   }else
   callfunc   "Refiner7";
   }
function   script   Refiner7   {
   if(getequipisequiped(7)){
   callfunc   "Refine Now7";
   }else
   callfunc   "Refiner8";
   }
function   script   Refiner8   {
   if(getequipisequiped(8)){
   callfunc   "Refine Now8";
   }else
   callfunc   "Refiner9";
   }
function   script   Refiner9   {
   if(getequipisequiped(9)){
   callfunc   "Refine Now9";
   }else
   callfunc   "Refiner10";
   }
function   script   Refiner10   {
   if(getequipisequiped(10)){
   callfunc   "Refine Now10";
   }else
   close;
   }
function   script   Refine Now1   {
if(getequiprefinerycnt(1) < 100){
   callfunc   "Star Refine1";
   }else
   callfunc   "Refiner2";
   }
function   script   Refine Now2   {
if(getequiprefinerycnt(2) < 100){
   callfunc   "Star Refine2";
   }else
   callfunc   "Refiner3";
   }
function   script   Refine Now3   {
if(getequiprefinerycnt(3) < 100){
   callfunc   "Star Refine3";
   }else
   callfunc   "Refiner4";
   }
function   script   Refine Now4   {
if(getequiprefinerycnt(4) < 100){
   callfunc   "Star Refine4";
   }else
   callfunc   "Refiner5";
   }
function   script   Refine Now5   {
if(getequiprefinerycnt(5) < 100){
   callfunc   "Star Refine5";
   }else
   callfunc   "Refiner6";
   }
function   script   Refine Now6   {
if(getequiprefinerycnt(6) < 100){
   callfunc   "Star Refine6";
   }else
   callfunc   "Refiner7";
   }
function   script   Refine Now7   {
if(getequiprefinerycnt(7) < 100){
   callfunc   "Star Refine7";
   }else
   callfunc   "Refiner8";
   }
function   script   Refine Now8   {
if(getequiprefinerycnt(8) < 100){
   callfunc   "Star Refine8";
   }else
   callfunc   "Refiner9";
   }
function   script   Refine Now9   {
if(getequiprefinerycnt(9) < 100){
   callfunc   "Star Refine9";
   }else
   callfunc   "Refiner10";
   }
function   script   Refine Now10   {
if(getequiprefinerycnt(10) < 100){
   callfunc   "Star Refine10";
   }else
   close;
   }
function   script   Star Refine1   {
while (getequiprefinerycnt(1) < 100) successrefitem 1;
   callfunc   "Refiner2";
   }
function   script   Star Refine2   {
while (getequiprefinerycnt(2) < 100) successrefitem 2;
   callfunc   "Refiner3";
   }
function   script   Star Refine3   {
while (getequiprefinerycnt(3) < 100) successrefitem 3;
   callfunc   "Refiner4";
   }
function   script   Star Refine4   {
while (getequiprefinerycnt(4) < 100) successrefitem 4;
   callfunc   "Refiner5";
   }
function   script   Star Refine5   {
while (getequiprefinerycnt(5) < 100) successrefitem 5;
   callfunc   "Refiner6";
   }
function   script   Star Refine6   {
while (getequiprefinerycnt(6) < 100) successrefitem 6;
   callfunc   "Refiner7";
   }
function   script   Star Refine7   {
while (getequiprefinerycnt(7) < 100) successrefitem 7;
   callfunc   "Refiner8";
   }
function   script   Star Refine8   {
while (getequiprefinerycnt(8) < 100) successrefitem 8;
   callfunc   "Refiner8";
   }
function   script   Star Refine9   {
while (getequiprefinerycnt(9) < 100) successrefitem 9;
   callfunc   "Refiner10";
   }
function   script   Star Refine10   {
while (getequiprefinerycnt(10) < 100) successrefitem 10;
   }

Монетчик:

Код:
prontera.gat,162,169,5   script   Монеты   121,{
   mes "[Монетчик]";
   mes "Официально введены в обращение следующие виды монет:";
   next;
   mes "^3355FFPlatinum Coin^000000 = 1,000,000,000z";
   mes "^3355FFGold Coin^000000 = 500,000,000z";
   mes "^3355FFSilver Coin^000000 = 100,000,000z";
   mes "^3355FFBronze Coin^000000 = 50,000,000z";
   mes "^3355FFMithril Coin^000000 = 10,000,000z";
   next;
   mes "Вы можете купить у меня монеты и спокойно расплачиваться ими. Это стабильная валюта хранения денежных средств и обмена между игроками. А так же вы можете продать мне ваши монеты за Зени.";
   next;
   mes "Что вы хотите сделать с монетами?";
   menu "Купить монеты.",M_1,"Продать монеты.",M_2,"Я не буду покупать или продавать монеты.",L_OUT;
M_1:
   mes "Какие монеты вы хотите приобрести?";
   next;
   menu "Platinum Coin за 1,000,000,000z",B_1,"Gold Coin за 500,000,000z",B_2,"Silver Coin за 100,000,000z",B_3,"Bronze Coin за 50,000,000z",B_4,"Mithril Coin за 10,000,000z",B_5,"Я не буду покупать монеты.",L_OUT;
   
   B_1:
      set @price,1000000000;
      if(Zeny < @price) goto L_NOTENOUGH;
      mes "Отлично, сейчас открою сейф...";
      next;
      mes "Беру у вас Зени....";
      set Zeny,Zeny-1000000000;
      next;
      mes "А вот и ваша монета.";
      getitem 677,1;
      next;
      mes "Удачного дня.";
      close;
   B_2:
      set @price,500000000;
      if(Zeny < @price) goto L_NOTENOUGH;
      mes "Отлично, сейчас открою сейф...";
      next;
      mes "Беру у вас Зени....";
      set Zeny,Zeny-500000000;
      next;
      mes "А вот и ваша монета.";
      getitem 671,1;
      next;
      mes "Удачного дня.";
      close;
   B_3:
      set @price,100000000;
      if(Zeny < @price) goto L_NOTENOUGH;
      mes "Отлично, сейчас открою сейф...";
      next;
      mes "Беру у вас Зени....";
      set Zeny,Zeny-100000000;
      next;
      mes "А вот и ваша монета.";
      getitem 675,1;
      next;
      mes "Удачного дня.";
      close;
   B_4:
      set @price,50000000;
      if(Zeny < @price) goto L_NOTENOUGH;
      mes "Отлично, сейчас открою сейф...";
      next;
      mes "Беру у вас Зени....";
      set Zeny,Zeny-50000000;
      next;
      mes "А вот и ваша монета.";
      getitem 673,1;
      next;
      mes "Удачного дня.";
      close;
   B_5:
      set @price,10000000;
      if(Zeny < @price) goto L_NOTENOUGH;
      mes "Отлично, сейчас открою сейф...";
      next;
      mes "Беру у вас Зени....";
      set Zeny,Zeny-10000000;
      next;
      mes "А вот и ваша монета.";
      getitem 674,1;
      next;
      mes "Удачного дня.";
      close;
M_2:
   mes "Какие монеты вы хотите продать?";
   next;
   menu "Platinum Coin за 1,000,000,000z"S_1,"Gold Coin за 500,000,000z",S_2,"Silver Coin за 100,000,000z",S_3,"Bronze Coin за 50,000,000z",S_4,"Mithril Coin за 10,000,000z",S_5,"Я не буду покупать монеты.",L_OUT;
   
   S_1:
      if(countitem(677) < 1 ) goto L_NOTENOUGH2;
      next;
      mes "Отлично, сейчас открою сейф...";
      mes "Беру у вас Монету....";
      delitem 677,1;
      next;
      mes "А вот ваши деньги.";
      set Zeny,Zeny+1000000000;
      next;
      mes "Удачного дня.";
      close;

   S_2:
      if(countitem(671) < 1 ) goto L_NOTENOUGH2;
      mes "Отлично, сейчас открою сейф...";
      next;
      mes "Беру у вас Монету....";
      delitem 671,1;
      next;
      mes "А вот ваши деньги.";
      set Zeny,Zeny+500000000;
      next;
      mes "Удачного дня.";
      close;

   S_3:
      if(countitem(675) < 1 ) goto L_NOTENOUGH2;
      mes "Отлично, сейчас открою сейф...";
      next;
      mes "Беру у вас Монету....";
      delitem 675,1;
      next;
      mes "А вот ваши деньги.";
      set Zeny,Zeny+100000000;
      next;
      mes "Удачного дня.";
      close;

   S_4:
      if(countitem(673) < 1 ) goto L_NOTENOUGH2;
      mes "Отлично, сейчас открою сейф...";
      next;
      mes "Беру у вас Монету....";
      delitem 673,1;
      next;
      mes "А вот ваши деньги.";
      set Zeny,Zeny+50000000;
      next;
      mes "Удачного дня.";
      close;

   S_5:
      if(countitem(674) < 1 ) goto L_NOTENOUGH2;
      mes "Отлично, сейчас открою сейф...";
      next;
      mes "Беру у вас Монету....";
      delitem 674,1;
      next;
      mes "А вот ваши деньги.";
      set Zeny,Zeny+10000000;
      next;
      mes "Удачного дня.";
      close;

L_OUT:
   mes "[Монетчик]";
   mes "Если захочешь, то я буду ждать тебя тут.";
   close;

L_NOTENOUGH:
   mes "[Монетчик]";
   mes "У тебя не хватает денежных средств.";
   close;
L_NOTENOUGH2:
   mes "[Монетчик]";
   mes "У тебя нет ни одной монеты.";
   close;
}

шляпочник:

Код:
prontera.gat,156,174,5   script   Mr.Шляпкин   714,{
mes "[Шляпкин]";
mes "Добрый день ^FF0000"+ strcharinfo(0) + "^000000 !";
next;
mes "[Шляпкин]";
mes "Я предлогаю тебе вещичку, выбери какую хочешь и принеси требуемый лут и я вознагражу этой вещичкой.";
next;
menu   "Flying Angel",fa,"Love Dad Cap",ba,"Solar Panel's",snh,"Rabbit Ears",re,"Elephant Hat",eh;

fa:
mes "[Шляпкин]";
mes "Принеси мне 50 Angel Wing, 100 Little Evil horn, 5 Holy Water, 20 Gold";
mes "Информация:  Increases Attack Speed by 3%.Reduce Casting Time by 3%.";
mes "Class : Headgear, Applicable Job : Every Job";
mes "[Шляпкин]";
mes "У тебя есть эти вещи?";
next;
menu "Да.",-,"Нет.",M_EXIT;
   
if(countitem(2254) < 50 || countitem(1038) < 100 || countitem(523) < 5 || countitem(969) < 20) GOTO L_NOITEM;
delitem 2254,50;
delitem 1038,100;   
delitem 523,5;
delitem 969,20;
getitem 5210,1;
mes "[Шляпкин]";
mes "Приходи ещё раз!.";
close;
   
ba:
mes "[Шляпкин]";
mes "Принеси мне 5 Emperium, Dark Blinder, 10 Gold";
mes "Информация: Headgear player who love Ro games.Class : Headgear,Defense : 3";
mes "Equipped on : Upper,Applicable Job : Every Job";
mes "[Шляпкин]";
mes "У тебя есть эти вещи?";
next;
menu "Да.",-,"Нет.",M_EXIT;
   
if(countitem(714) < 5 || countitem(5104) < 1 || countitem(969) < 10 ) GOTO L_NOITEM;
delitem 714,5;
delitem 5104,1;   
delitem 969,1;
getitem 5209,1;
mes "[Шляпкин]";
mes "Приходи ещё раз!.";
close;
   
snh:
mes "[Шляпкин]";
mes "Принеси мне 30 Gold, 50 Elunium, 100 Steel";
mes "Информация: Use 1 lvl Ruwach MAX hp +50 Sp + 10, Class : Headgear";
mes "[Шляпкин]";
mes "У тебя есть эти вещи?";
next;
menu "Да.",-,"Нет.",M_EXIT;

if(countitem(999) < 100 || countitem(985) < 50 || countitem(969) < 30 ) GOTO L_NOITEM;
delitem 999,100;
delitem 985,50;   
delitem 969,30;
getitem 5112,1;
mes "[БуГАГга]";
mes "Приходи ещё раз!.";
close;


re:
mes "[Шляпкин]";
mes "Принеси мне Bunny Band, 5 Gold, 5 Angel Wing, 5 Evil Wing";
mes "Информация: AGI + 2, MDEF + 3 Hair lace specially designed for the sexy you!";
mes "Applicable Job : Every Job, Class : Headgear";
mes "[Шляпкин]";
mes "У тебя есть эти вещи?";
next;
menu "Да.",-,"Нет.",M_EXIT;

if(countitem(2214) < 1 || countitem(2254) < 5 || countitem(969) < 5|| countitem(2255) < 5 ) GOTO L_NOITEM;
delitem 2214,1;
delitem 2255,5;   
delitem 969,5;
delitem 2254,5;
getitem 5213,1;
mes "[БуГАГга]";
mes "Приходи ещё раз!.";
close;

eh:
mes "[Шляпкин]";
mes "Принеси мне 100 Crystal Blue, 150 Animal Skin, 5 Emperium";
mes "Информация:Add a 1% chance of auto casting Level 3 Water Ball";
mes " on the enemy when attacking.VIT + 1,Applicable Job : Every Job, Class : Headgear ";
mes "[Шляпкин]";
mes "У тебя есть эти вещи?";
next;
menu "Да.",-,"Нет.",M_EXIT;

if(countitem(991) < 100 || countitem(919) < 150 || countitem(714) < 5 ) GOTO L_NOITEM;
delitem 991,100;
delitem 919,150;   
delitem 714,5;
getitem 5259,1;
mes "[БуГАГга]";
mes "Приходи ещё раз!.";
close;

L_NOITEM:
mes "[Шляпкин]";
mes "У тебя нет этих вещей!";
mes "Приходи в следущий раз.";
emotion e_sry;
close;

M_EXIT:
mes "[Шляпкин]";
mes callfunc("F_Bye");
close;
}

Квестик на Блуди Бранчи

Код:
prontera.gat,154,174,5   script   Mr.BloodyBranch   714,{
mes "[BloodyBranch]";
mes "Добрый день ^FF0000"+ strcharinfo(0) + "^000000 !";
next;
mes "[BloodyBranch]";
mes "Я предлогаю тебе 5 Блуди Бранч, принеси требуемый лут и я вознагражу тебя.";
next;
mes "[BloodyBranch]";
mes "50 Dead Brunch + 500k";
mes "У тебя есть все эти вещи??";
next;
menu "Да.",-,"Нет.",M_EXIT;

if( Zeny < 500000 || countitem(604) < 50 ) GOTO L_NOITEM;
delitem 604,50;
set Zeny,Zeny-500000;
getitem 12103,5;
mes "[BloodyBranch]";
mes "Большое спасибо!";
close;

L_NOITEM:
mes "[BloodyBranch]";
mes "У тебя нет этих вещей!Приходи в следущий раз.";
emotion e_sry;
close;

M_EXIT:
mes "[BloodyBranch]";
mes callfunc("F_Bye");
close;
}

Рулетка

Код:
guild_vs4.gat,50,50,2   script   Crazy Boris   85,{
   mes "Crazy Boris";
   set @counter,1;
   mes "Желаешь ли в Рулетку сыграть?";
   next;
   menu "Да поф давай.",PLAY,"Нук расскажи чо за байда.",RULES,"пока",LEAVE;
   SAME:
   mes "Нук крутанём разок ещё!";
   next;
   goto PLAY;

WIN:
   mes "ппц, ты выйграл!";
   emotion 19;
   next;
   goto OPPPULL;

LOSE:
   emotion 18;
   mes "Хех! проиграл!";
   next;
   goto YOUPULL;

PLAY:
   mes "Камень ... Ножницы...";
   set @opp,rand (1,3);
   menu "^0000FFКамень!",ROCK,"^FF0000Ножницы!",SCISSORS,"^00FF00Бумажка!^000000",PAPER;

ROCK:
     if (@lastchoice == 1) set @opp,rand (1,3);
     if (@opp == 1) emotion 11;
     if (@opp == 2) emotion 10;
     if (@opp == 3) emotion 12;
     set @lastchoice,1;
   if (@opp == 1) goto SAME;
   if (@opp == 2) goto WIN;
   if (@opp == 3) goto LOSE;

SCISSORS:
   if (@lastchoice == 2) set @opp,rand (1,2);
     if (@opp == 1) emotion 11;
     if (@opp == 2) emotion 10;
     if (@opp == 3) emotion 12;
     set @lastchoice,2;
   if (@opp == 1) goto LOSE;
   if (@opp == 2) goto SAME;
   if (@opp == 3) goto WIN;

PAPER:
   if (@lastchoice == 3) set @opp,rand (2,3);
     if (@opp == 1) emotion 11;
     if (@opp == 2) emotion 10;
     if (@opp == 3) emotion 12;
     set @lastchoice,3;
   if (@opp == 1) goto WIN;
   if (@opp == 2) goto LOSE;
   if (@opp == 3) goto SAME;

YOUPULL:
   if (@counter == 1) goto ONE;
   if (@counter == 2) goto TWO;
   if (@counter == 3) goto THREE;
   if (@counter == 4) goto FOUR;
   if (@counter == 5) goto FIVE;
   if (@counter == 6) goto SIX;

OPPPULL:
   if (@counter == 1) goto ONEa;
   if (@counter == 2) goto TWOa;
   if (@counter == 3) goto THREEa;
   if (@counter == 4) goto FOURa;
   if (@counter == 5) goto FIVEa;
   if (@counter == 6) goto SIXa;

ONE:
   set @counter,2;
   mes "1 of 6";
   set @pull,rand (1,6);
   next;
   if (@pull == 1) goto DIE;
   if (@pull != 1) goto SAFE;

TWO:
   set @counter,3;
   mes "2 of 6";
   set @pull,rand (1,5);
   next;
   if (@pull == 1) goto DIE;
   if (@pull != 1) goto SAFE;

THREE:
   set @counter,4;
   mes "3 of 6";
   set @pull,rand (1,4);
   next;
   if (@pull == 1) goto DIE;
   if (@pull != 1) goto SAFE;

FOUR:
   set @counter,5;
   mes "4 of 6";
   set @pull,rand (1,3);
   next;
   if (@pull == 1) goto DIE;
   if (@pull != 1) goto SAFE;

FIVE:
   set @counter,6;
   mes "5 of 6";
   set @pull,rand (1,2);
   if (@pull == 1) set @pull,rand (1,2);
   next;
   if (@pull == 1) goto DIE;
   if (@pull != 1) goto SAFE;

SIX:
   mes "6 of 6";
   mes "Say your prayers";
   set @pull,1;
   next;
   if (@pull == 1) goto DIE;
   if (@pull != 1) goto SAFE;

ONEa:
   set @counter,2;
   mes "1 of 6";
   set @pull,rand (1,6);
   next;
   if (@pull == 1) goto KILL;
   if (@pull != 1) goto SAFE;

TWOa:
   set @counter,3;
   mes "2 of 6";
   set @pull,rand (1,5);
   next;
   if (@pull == 1) goto KILL;
   if (@pull != 1) goto SAFE;

THREEa:
   set @counter,4;
   mes "3 of 6";
   set @pull,rand (1,4);
   next;
   if (@pull == 1) goto KILL;
   if (@pull != 1) goto SAFE;

FOURa:
   set @counter,5;
   mes "4 of 6";
   set @pull,rand (1,3);
   next;
   if (@pull == 1) goto KILL;
   if (@pull != 1) goto SAFE;

FIVEa:
   set @counter,6;
   mes "5 of 6";
   set @pull,rand (1,2);
   next;
   if (@pull == 1) goto KILL;
   if (@pull != 1) goto SAFE;

SIXa:
   mes "6 of 6";
   mes "Сказал -)";
   set @pull,1;
   next;
   if (@pull == 1) goto KILL;
   if (@pull != 1) goto SAFE;

SAFE:
   emotion 32;
   mes "*^0000FFНажал^000000* воуу...";
   goto PLAY;

DIE:
   specialeffect2 183;
   emotion 29;
   percentheal -100,-100;
   mes "*^0000FFНажал^000000* *^FF0000БУМ^000000*";
   mes "Сдох ты!";
   close;

KILL:
   specialeffect 183;
   emotion 23;
   mes "*^0000FFНажал^000000* *^FF0000БУМ^000000*";
   mes "OWWW @#$%^!! Чувствуеться как АД!!";
   next;
   goto PRIZE;

RULES:
   mes "Ладно вот те правила:";
   mes "Ну ты типа со мной ^FF00006^000000 в рулетку играешь ^FF00001^000000 раунд. первое ^FF0000Ножницы ^00FF00Бумага ^0000FFКамень^000000. Проигравший подыхает. Победивший  получает призы).";
   mes "Убей меня за приз -).";
   menu "Лан давай.",CONT,"Не не хочу.",LEAVE;

CONT:
   mes "погнали...";
   next;
   goto PLAY;

PRIZE:
   mes "Ну поздравляю, ты победил...";
   set @prize,rand (1,10);
   if (@prize == 1) goto P1;
   if (@prize == 2) goto P2;
   if (@prize == 3) goto P3;
   if (@prize == 4) goto P4;
   if (@prize == 5) goto P5;
   if (@prize == 6) goto P6;
   if (@prize == 7) goto P7;
   if (@prize == 8) goto P8;
   if (@prize == 9) goto P9;
   if (@prize == 10) goto P10;

P1:
   mes "10x Oridicon!";
   getitem 984,10;
   close;

P2:
   mes "10x Elunium!";
   getitem 985,10;
   close;

P3:
   mes "100x Fly Wings!";
   getitem 601,100;
   close;

P4:
   mes "8x Old Blue Box!";
   getitem 603,8;
   close;

P5:
   mes "4x Old Violet Box!";
   getitem 617,4;
   close;

P6:
   mes "1x Old Card Album!";
   getitem 616,1;
   close;

P7:
   mes "10x Dead Branch!";
   getitem 604,10;
   close;

P8:
   mes "3x Gold!";
   getitem 969,3;
   close;

P9:
   mes "10x Elunium!";
   getitem 985,10;
   close;

P10:
   mes "20x Blue Potion!";
   getitem 505,20;
   close;

LEAVE:
   mes "Поки.";
   close;
}

Варп к рулетке:

Код:
prontera.gat,164,169,5   script   Рулетка   810,{
   mes "[Рулетка]";
   mes "Привет воин,";
   mes "Не желаешь сыграть в рулетку? вход платный 1 000 000 зени...";
   next;
   menu "Да!",Mwarpme,"Нет!",-;
   close;
Mwarpme:
   if (zeny < 1000000) goto S_Quit;
   set zeny,zeny-1000000;
   warp "guild_vs4",     48,     50;     close;

S_Quit:
   mes "[Рулетка]";
   mes "У тебя нехватает денег.";
   close;
}
guild_vs4.gat,46,46,0   warp   boom      2,2,prontera.gat,161,176

Гм чекер,говорит есть ли на данный момент в игре ГМы:

Код:
prontera.gat,153,163,5   script   GM Status Checker   796,{
//   Поменяйте айди ГМов на вам нужное.
//   Имя ГМа примерно выглядит так [GMxx].
//   Если вы незнаете ,то 'isloggedin' это для сообщения когда админ онлайн '!isloggedin' когда не онлайн.

   mes "[GM Status Checker]";
   
   if (isloggedin(2000002))  mes "[GM Smeha] is^0000FF В игре. ^000000";
   if (!isloggedin(2000002)) mes "[GM Smeha] is^FF0000 Не в игре. ^000000";
   if (isloggedin(2000005))  mes "[GM smeha1] is^0000FF В игре. ^000000";
   if (!isloggedin(2000005)) mes "[GM smeha1] is^FF0000 Не в игре. ^000000";
   
   close;

0


Вы здесь » Ragnar-files » Скрипты » Заливаем все скрипты сюда


Создать форум.