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; } //===== Конец Функциональной части =========================== //============================================================
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; }