Премиум

[Миксмастер]

Здравствуйте, возник вопрос в какой строчки можно изменить чтобы премиум давался не на 1 месяц а к примеру 6 часов.

prontera,158,285,6 script Премиум 108,{
	 set @PricePrem, 1;
	 if(#Premdate > 0) {
			 mes "[Премиум]";
			 mes "Добрый день ^800000"+strcharinfo(0)+"^000000. Что вы желаете сделать?";
			 next;
			 switch(select("Продлить ^0000FFПремиум^000000","Остаток периода","Ничего")) {
					 case 1:
							 mes "[Премиум]";
							 mes "Пожалуйста, введите число месяцев, на которое вы хотите оплатить премиум.";
							 input @PremMonth;
							 next;
							 if(@PremMonth < 1) set @PremMonth, 1;
							 if(@PremMonth > 12) set @PremMonth, 12;
							 set @NeededZeny, @PricePrem*@PremMonth;
							 mes "[Премиум]";
							 mes "Выбрано месяцев: ^008080"+@PremMonth+"^000000";
							 mes "Необходимо Premium Coin: ^FF0000"+@NeededZeny+"^000000";
							 next;
							 mes "[Премиум]";
							 mes "Вы согласны?";
							 next;
							 if(select("Да","Нет")==1) {
									 if(countitem(25025)<@NeededZeny) {
											 mes "[Премиум]";
											 mes "Я сделаю вас ^0000FFПремиумом^000000 только тогда, когда вы принесёте мне нужное количество Premium Coin!";
											 close;
									 }
									 delitem 25025,@NeededZeny;
		 getitem 25126,3;

									 query_sql "SELECT FROM_UNIXTIME("+#Premdate+") + INTERVAL "+@PremMonth+" MONTH",@premdate$;
									 query_sql "SELECT UNIX_TIMESTAMP('"+@premdate$+"')",@premtimetick;
									 set #Premdate, @premtimetick;
									 mes "[Премиум]";
									 mes "Поздравляю вас, вы продлили ^0000FFПремиум^000000.";
									 mes "Период оплаты истекает: ^FF8040"+@premdate$+"^000000";
									 close;
							 } else {
									 mes "[Премиум]";
									 mes "Хорошо, приходите ко мне когда мои услуги станут вам нужны.";
									 close;
							 }
					 break;
					 case 2:
							 query_sql "SELECT FROM_UNIXTIME("+#Premdate+")",@premdate$;
							 mes "[Премиум]";
							 mes "Ваш статус: ^0000FFПремиум^000000";
							 mes "Окончиние оплаты: ^FF8000"+@premdate$+"^000000";
							 close;
					 break;
					 case 3:
							 close;
					 break;
			 }
	 }
	 mes "[Премиум]";
	 mes "Здравствуйте, я могу сделать вас ^0000FFПремиумом^000000.";
	 next;
	 mes "[Премиум]";
	 mes "Вы хотите стать ^0000FFПлатным^000000 игроком?";
	 next;
	 switch(select("Стать ^0000FFПремиумом^000000","Нет, спасибо")) {
			 case 1:
					 mes "[Премиум]";
					 mes "Итак, вы решили стать ^0000FFПремиумом^000000.";
					 mes "Стоимость данной услуги ^FF0000"+@PricePrem+" Premium Coin за 1 месяц^000000.";
					 next;
			 MenuMakePrem:
					 switch(select("Я согласен","Можно поподробнее","Нет, спасибо.")) {
							 case 1:
									 mes "[Премиум]";
									 mes "Пожалуйста, введите число месяцев, на которое вы хотите оплатить премиум.";
									 input @PremMonth;
									 next;
									 if(@PremMonth < 1) set @PremMonth, 1;
									 if(@PremMonth > 12) set @PremMonth, 12;
									 set @NeededZeny, @PricePrem*@PremMonth;
									 mes "[Премиум]";
									 mes "Выбрано месяцев: ^008080"+@PremMonth+"^000000";
									 mes "Premium Coin: ^FF0000"+@NeededZeny+"^000000";
									 next;
									 mes "[Премиум]";
									 mes "Вы согласны?";
									 next;
									 if(select("Да","Нет")==1) {
											 if(countitem(25025)<@NeededZeny) {
													 mes "[Премиум]";
													 mes "Я сделаю вас ^0000FFПремиумом^000000 только тогда, когда вы принесёте мне нужное количество Premium Coin!";
													 close;
											 }
											 delitem 25025,@NeededZeny;
		 getitem 25126,3;
											 query_sql "SELECT '"+gettimestr("%Y-%m-%d",11)+"' + INTERVAL "+@PremMonth+" MONTH",@premdate$;
											 query_sql "SELECT UNIX_TIMESTAMP('"+@premdate$+"')",@premtimetick;
											 set #Premdate, @premtimetick;
											 query_sql "UPDATE `login` SET level=1 WHERE account_id='"+getcharid(3,strcharinfo(0))+"'";
											 atcommand "@reloadpcdb";
											 mes "[Премиум]";
											 mes "Поздравляю вас, вы оплатили ^0000FFПремиум^000000.";
											 mes "Период оплаты истекает: ^FF8040"+@premdate$+"^000000";
											 mes " ";
											 mes "^0000FFНеобходимо перезайти, чтобы изменения вступили в силу.^000000.";
											 close;
									 } else {
											 mes "[Премиум]";
											 mes "Хорошо, приходите ко мне когда мои услуги станут вам нужны.";
											 close;
									 }
							 break;
							 case 2:
									 mes "[Премиум]";
									 mes "^0000FFПремиуму^000000 доступны бонусы, не доступные обычным игрокам, а именно: дополнительные команды и вспомогательные опции. Некоторые НПС доступны только для Премиум аккаунтов.";
									 next;
									 goto MenuMakePrem;
									 end;
							 break;
							 case 3:
									 close;
							 break;
					 }
			 break;
			 case 2:
					 close;
			 break;
	 }
}

[Qwer]

if(@PremMonth < 1) set @PremMonth, 1;

if(@PremMonth > 12) set @PremMonth, 12;

Менять @PremMonth на @PremDay (Не проверял)

и к примеру если хочешь от 1-6 дней меняешь 12-6

И да @PremMonth меняешь везде***

[Миксмастер]

if(@PremMonth < 1) set @PremMonth, 1;

if(@PremMonth > 12) set @PremMonth, 12;

Менять @PremMonth на @PremDay (Не проверял)

и к примеру если хочешь от 1-6 дней меняешь 12-6

И да @PremMonth меняешь везде***

Пробовал, не работает))

[Qwer]

@PremMinute мб?) хотя я раньше не видел чтобы было по часам дням...

[nndsl]

лолблядь?! Зачем вы меняете название переменной?

Меняйте функцию этой переменной.

Изменено 27 августа, 2013 пользователем nndsl

[Jarek]

query_sql "SELECT FROM_UNIXTIME("+#Premdate+") + INTERVAL "+@PremMonth+" MONTH",@premdate$;

меняем MONTH на HOUR

По аналогии в другом куске также, ну и во всех диалогах изменить месяцы на часы.

P.S.: Изменение имени переменной это сильно

[Миксмастер]

query_sql "SELECT FROM_UNIXTIME("+#Premdate+") + INTERVAL "+@PremMonth+" MONTH",@premdate$;

меняем MONTH на HOUR

По аналогии в другом куске также, ну и во всех диалогах изменить месяцы на часы.

P.S.: Изменение имени переменной это сильно

Спасибо Вам большое, проверил то что хотел))