RewardManager

// ===================================================
// = Reward Manager Script 1.0
// = Kindly VOTE UP MY POST XD
// = Script By: [Anubis]
// = rAthena SVN
// ===================================================
// ===================================================
quiz_02,355,345,6	script	RewardManager	100,{	// restrict any kind of warp to the NPC to avoid abuses.
// ========== [ CONFIGURTION ] =======================

	set .npcName$,"[ RewardManager ]";
	set .adminMenu,70;

// ========== [ MAIN SCRIPT ] ========================

	if (getgroupid() >= .adminMenu) {
		mes .npcName$;
		mes "Hello GM " +strcharinfo(0)+",";
		mes "Would you like to modify the item reward ID and Reward Amount?";
		next;
		switch(select("Yes:No")) {
			case 1:
				L_adminMenu:
				mes .npcName$;
				mes "What do you want to do?";
				mes "The current reward is ^FF0000" + $amountPrize + "^000000x ^FF0000" + getitemname($prizeID) +"^000000."; next;
				switch(select("Change Item Reward:Change Reward Amount:Nothing")) {
					case 1:
						mes .npcName$;
						mes "Please input the Reward Item ID.";
						next;
						input $prizeID; goto L_adminMenu;

					case 2:
						mes .npcName$;
						mes "Please input the Amount of Reward.";
						next;
						input $amountPrize; goto L_adminMenu;
					case 3:
						mes .npcName$;
						mes "Okay GM " +strcharinfo(0)+",";
						mes "I hope to see you again next time.";
						close;
							}
			case 2:
					mes .npcName$;
					mes "Okay GM " +strcharinfo(0)+",";
					mes "I hope to see you again next time.";
					close;
			}
		}

	mes .npcName$;
	mes "Hello " +strcharinfo(0)+",";
	mes "I am the RewardManager.";
	mes "What do you want to do?";
	next;
	switch(select("Event Reward?:Claim Reward:Exit")) {
		case 1:
			mes .npcName$;
			mes "Hello again " +strcharinfo(0)+",";
			mes "The current reward is " + $amountPrize + "x " + getitemname($prizeID) +".";
			close;
		case 2:
			mes .npcName$;
			mes "What is your name?";
			input .name$;
			next;
			if(strcharinfo(0) != .name$) {
				mes .npcName$;
				mes "Sorry but I dont see your name in our record.";
				close;
			} else if (@x_claimed == 1) {
				mes .npcName$;
				mes "You already recieved your reward.";
				close;	} else {
			mes .npcName$;
			mes "Congratulations " +strcharinfo(0)+",";
			mes "Here is your reward ~!";
			getitem $prizeID, $amountPrize;
			set @x_claimed, 1;
			close; }

		case 3:
			warp "prontera",150,150;
			set @x_claimed, 0;
			end;
		}

}