VIP NPC REGISTER

// script by : Akbaremonz

//50004,1_Day_Vip
//50005,3_Day_Vip
//50006,7_Day_Vip
//50007,30_Day_Vip

payon,152,232,6	script	VIP Register	109,{
	set .vipitemid1d,50004;
	set .vipitemid3d,50005;
	set .vipitemid7d,50006;
	set .vipitemid30d,50007;
	set @npcname$,"[^D5A500 VIP REGISTER ^000000]";

	mes @npcname$;
	mes "Layanan ini adalah layanan pasukan kerajaan dan hanya petualang khusus yang membawa tiket yang dapat memakai layanan ini";
	next;
	switch(select("Change VIP Ticket.","Need VIP Information.")) {
	case 1:
		mes @npcname$;
		mes "Tiket apa yang kamu bawa?";
		mes "kami akan langsung mengaktifkan VIP anda saat anda menukarkannya";
		switch(select("1 Day VIP Ticket.","3 Day VIP Ticket.","7 Day VIP Ticket.","30 Day VIP Ticket.")) {

		case 1:
			if ( countitem(.vipitemid1d) < 1 )
			{
				mes @npcname$;
				mes "Kamu tidak memiliki Ticket.";
				close;
			}
			mes @npcname$;
			delitem .vipitemid1d,1;
			atcommand "@vip +1d "+strcharinfo(0)+"";
			mes "Terima kasih, VIP anda sudah aktif";
			close;

		case 2:
			if ( countitem(.vipitemid3d) < 1 )
			{
				mes @npcname$;
				mes "Kamu tidak memiliki Ticket.";
				close;
			}
			mes @npcname$;
			delitem .vipitemid3d,1;
			atcommand "@vip +3d "+strcharinfo(0)+"";
			mes "Terima kasih, VIP anda sudah aktif";
			close;

		case 3:
			if ( countitem(.vipitemid7d) < 1 )
			{
				mes @npcname$;
				mes "Kamu tidak memiliki Ticket.";
				close;
			}
			mes @npcname$;
			delitem .vipitemid7d,1;
			atcommand "@vip +7d "+strcharinfo(0)+"";
			mes "Terima kasih, VIP anda sudah aktif";
			close;

		case 4:
			if ( countitem(.vipitemid30d) < 1 )
			{
				mes @npcname$;
				mes "Kamu tidak memiliki Ticket.";
				close;
			}
			mes @npcname$;
			delitem .vipitemid30d,1;
			atcommand "@vip +30d "+strcharinfo(0)+"";
			mes "Terima kasih, VIP anda sudah aktif";
			close;
		}

	case 2:
			mes @npcname$;
			mes "VIP adalah kartu khusus";
			close;

	}
OnInit:
		waitingroom "Vip Register",0;
		end;
}