// https://rathena.org/board/topic/108183-how-to-make-this-script-work/#comment-312182

prontera,155,181,5	script	Sample#reward	757,{
	doevent "Sample#ppl_peak_reward::OnTalk";
}

-	script	Sample#ppl_peak_reward	-1,{
	
	OnInit:
		.gm_level = 99;
		end;
	
	OnPCLoginEvent:
		if ( .player_peak && .player_peak <= getusers(1) ) {
			announce "Gained Reward for Peak Player reached "+.player_peak,bc_all;
			donpcevent strnpcinfo(3)+"::OnSendReward";
			.player_peak = 0;
		}
		end;
		
	OnSendReward:
		addrid(0);
		if ( .itemid && .amount )
			getitem .itemid,.amount;
		Zeny += .zeny;
		#CASHPOINT += .cash;
		end;
		
	OnTalk:
		if ( getgmlevel() >= .gm_level ) {
			do {
				mes "Setup Reward:";
				mes "Player Peak: "+.player_peak;
				if ( .itemid && .amount )
					mes "Item: "+.amount+"x "+getitemname( .itemid );
				mes "Zeny: "+.zeny;
				mes "Cash: "+.cash;
				
				switch ( select( 
					"Setup Player Peak"
					"Setup Item",
					"Setup Zeny",
					"Setup Cash",
					"Cancel",
				) ) {
					case 1:
						input .player_peak;
						break;
					case 2:
						mes "Enter ItemID";
						input .itemid;
						if ( getitemname( .itemid ) != "null" ) {
							mes "Enter Amount:";
							input .amount;
						}
						else {
							.itemid = 0;
							.amount = 0;
						}
						break;
					case 3:
						mes "Enter Zeny";
						input .zeny;
						break;
					case 4:
						mes "Enter Cash";
						input .cash;
						break;
					default: 
						close;
				}
			} while ( 1 );
		}
		end;
}