- 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;
}