christophere13

"Find the watermelon" same w/ "Find the Mushroom" Event

Player doesn't get the reward every time a watermelon is killed.

OnMobKilled:	mapannounce .Map$,"Congrats " + strcharinfo(0) + " found a Watermelon !",0;	set zeny,zeny+10;    getitem .7528, 2;	set .Event,0;    end;

Here's the whole script

novice,55,49,5	script	Find The Watermelon	91,{mes "[ Find The Watermelon! ]";if(getgmlevel() < 60) {	if(.Event==0) mes "There is no Find the Watermelon event.";	else {		mes "Please find my watermelon.";		mes "There are " + .Watermelon + "Watermelons in " + .Map$;		mes "I will give you 2 Lottery Ticket as a Reward.";	}	close;}	mes "Welcome "+strcharinfo(0)+"! Please customize this event:";Main:next;mes "[ Find The Watermelon ]";	switch(select("Start Event:End Event")) {		case 1:			mes "Starting the event now...";			set .Event,1;			close2;			goto OnStart;				case 2:			mes "Ending the event now...";			if(.Event) announce ""+strcharinfo(0)+" ended Find the Watermelon Event!",bc_all;			killmonster  .Map$,"All";			set .Event,0;		close;}OnMinute51: //CHANGE THIS TO THE MINUTE YOU WOULD LIKE THIS EVENT TO LOAD!OnMinute20:OnStart:	announce "Find the Watermelon : It's time to play Find the Watermelon!",0;	announce "Prize : 4 Event Tickets",0;	sleep2 1000;	set $@ran, rand(1,10);	if ($@ran == 10) set .Map$,"novice"; //================================================	if ($@ran == 9) set .Map$,"novice";  //================================================	if ($@ran == 8) set .Map$,"novice";  //================================================	if ($@ran == 7) set .Map$,"novice";  //	if ($@ran == 6) set .Map$,"novice";  //PAKIPALITAN NALANG NG LOCATION PAG UP NG SERVER	if ($@ran == 5) set .Map$,"novice";  //	if ($@ran == 4) set .Map$,"novice";  //================================================	if ($@ran == 3) set .Map$,"novice";  //================================================	if ($@ran == 2) set .Map$,"novice";  //================================================	if ($@ran == 1) set .Map$,"novice";  //================================================	sleep2 1000;	set $@ran2, rand(1,5);	if ($@ran2 == 5) set .Watermelon,"10";	if ($@ran2 == 4) set .Watermelon,"8";	if ($@ran2 == 3) set .Watermelon,"7";	if ($@ran2 == 2) set .Watermelon,"6";	if ($@ran2 == 1) set .Watermelon,"5";	announce "Find the Watermelon Event!: The Watermelon has spawned in "+ .Map$ +"!",0;	sleep2 10000;	announce "Find the Watermelon Event!: " + .Watermelon + " Watermelon have spawned in "+ .Map$ +"!",0;	sleep2 10000;	monster .Map$,0,0,"Watermelon-kun",2150, .Watermelon ,"Find the Watermelon::OnMobKilled";    end;OnMobKilled:	mapannounce .Map$,"Congrats " + strcharinfo(0) + " found a Watermelon !",0;	set zeny,zeny+10;    getitem .7528, 2;	set .Event,0;    end;}

Thank you in advance