"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
