//===== rAthena Script ====================================================================== //= Map Of The Week v4.4 //===== Original By ========================================================================= //= Kaushik //===== Current Version: ==================================================================== //= 1.0 - Script Release. //= 1.1 - Added GM selection of Map Of The Week. //= 1.2 - Fixed Timer Selection of the Map is on Sunday @ 24:00 server time. //= 2.0 - Added Contract System. //= 2.1 - Fixed Contract Expiry (Set #MOTWC to 0 once contract is expired). //= 2.2 - Cleaned Script to remove some unneeded repertition and script. [ToastOfDoom] //= 2.3 - Added Bottle Grenade ingredients to the script as it was missed. //= 2.4 - Decreased the drop rate. //= 2.5 - Changed announce and dispbottom. //= 3.0 - Added Whisper Functions. (map, kills, contract, gm). //= 3.1 - Changed to dynamic Cost and Kills - @motwcost & @motwkill to your desired numbers. //= 3.2 - Added Menu To The NPC. //= 4.0 - Added GM commands to change random map, selected map & to Destroy all contracts. //= 4.1 - Removed SQL unwanted variable. //= 4.2 - Fixed script contract count variable. //= 4.3 - Fixed tweet to not give out contract if no map of the week is assigned. //= 4.4 - Fixed NPC Whisper //= 5.0 - Changed rewards to dynamic rewards [WIP]. //===== Compatible With: ==================================================================== //= Tested in SQL Revision 14435 //===== Description: ======================================================================== //= A Random Map Will be selected and edp, acid demo bottle ingredients are rewarded. //=========================================================================================== prontera,147,190,4 script Map Of The Week 914,{ function MO_NoContractk; function MO_ContractEnd; function MO_NoContract; function MO_Nothing; function MO_NoZeny; function MOTW_Name; set @motwcost, 1000000; //The cost for the contract per @motwkill kills. set @motwkill, 350; //Kills available while the contract is purchased for @motwcost Zeny. mes "[Map Of The Week]"; mes "Map Of The Week or simply ^FF0000MOTW^000000 lets you enjoy your time on tbRO more excitingly as it would let you ^FF0000win prizes for every monster you kill on the assigned map^000000! Sounds cool right?"; mes " "; mes " Now, what do you want to do?"; switch(select("- Main Information / Mechanics","- Check Rewards","- Contract Status","- Sign a Contract","- Cancel")) { case 1: next; if($MOTW$ == ""){ mes "The Map Of The Week has not been assigned."; mes "--------------------------"; mes " Mechanics:"; mes " 1. Once Map Of The Week (MOTW) is set, you could win prizes depending on chance for every monster you kill on that map."; mes " 2. To be eligible for receiving prizes, you have to buy a contract that's good for 350 kills. Every contract will expire after 7 days."; mes " 3. The contract costs ^FF0000200x Poring Coins^000000 and would mean you can receive prizes for 350 kills you make on the MOTW."; mes " 4. You can buy unlimited contracts within the week. Total SPECs you can get from one contract is: ^008800up to 1700x SPECs.^000000"; mes " 5. Prizes you can get from 1 kill could be anything from the ff: ^FF000010x SPECs, 20x SPECs, 30x SPECs.^000000"; mes " "; close; } mes "[Map Of The Week]"; mes "The Map Of The Week Is ^FF0000"+$MOTW$+"^000000."; mes "--------------------------"; mes " Mechanics:"; mes " 1. Once Map Of The Week (MOTW) is set, you could win prizes depending on chance for every monster you kill on that map."; mes " 2. To be eligible for receiving prizes, you have to buy a contract that's good for 350 kills. Every contract will expire after 7 days."; mes " 3. The contract costs ^FF0000200x Poring Coins^000000 and would mean you can receive prizes for 350 kills you make on the MOTW."; mes " 4. You can buy unlimited contracts within the week. Total SPECs you can get from one contract is: ^008800up to 1700x SPECs.^000000"; mes " 5. Prizes you can get from 1 kill could be anything from the ff: ^FF000010x SPECs, 20x SPECs, 30x SPECs.^000000"; mes " "; close; case 2: next; mes "[Map Of The Week]"; mes "Prizes you can get from 1 kill could be anything from the ff: ^FF000010x SPECs, 20x SPECs, 30x SPECs^000000."; close; case 3: next; mes "[Map Of The Week]"; mes "Please wait while we check your deeds if any."; progressbar "green",3; if(!#MOTWC) { next; mes "[Map Of The Week]"; mes "You currently don't have a contract."; close; } mes "Your contract will expire after ^FF0000"+(@motwkill-#MOTWKI)+"^000000 kills."; close; case 4: next; mes "[Map Of The Week]"; if($MOTW$ == ""){ mes "The Map Of The Week has not been assigned. You cannot purchase a contract at this time."; close; } mes "Do you want to buy a contract?"; if(select("Yes:Cancel")-1) { mes "[Map Of The Week]"; mes "Come back again!"; close; }else{ mes "[Map Of The Week]"; mes "It would cost ^FF0000200x Poring Coins^000000 for ^FF0000"+@motwkill+" kills^000000."; if(select("We have a deal!:Nevermind")-1) { mes "[Map Of The Week]"; mes "Come back again!"; close; }else{ if (countitem(7539) < 200) MO_NoZeny; delitem 7539,200; set #MOTWC, 1; set #MOTWKI, 0; next; mes "[Map Of The Week]"; mes "^008800Congratulations! Your contract has been signed.^000000"; close; } } case 5: next; mes "[Map Of The Week]"; mes "Come back when you are free again."; close; } OnWhisperGlobal: if(compare(@whispervar0$,"gm")) { if(getgmlevel() < 90) end; mes "[Map Of The Week]"; mes "What do you want to do "+strcharinfo(0)+"?"; switch(select("^00FF00-^000000Random MOTW","^00FF00-^000000Enter MOTW","^FF0000-^000000Destroy All Contracts","^FF0000-^000000Nothing")) { case 1: switch(rand(3)){ case 0: set $@MOTWS, rand(1,11); set $mapotw$, "pay_fild" + (($@MOTWS < 10)?"0":"") + $@MOTWS; set $MOTW$, "Payon Forest "+$@MOTWS; break; case 1: set $@MOTWS, rand(0,11); set $mapotw$, "prt_fild" + (($@MOTWS < 10)?"0":"") + $@MOTWS; set $MOTW$, "Prontera Field "+$@MOTWS; break; case 2: set $@MOTWS, rand(1,22); set $mapotw$, "moc_fild" + (($@MOTWS < 10)?"0":"") + $@MOTWS; set $MOTW$, "Sograt Desert "+$@MOTWS; break; } announce "[Map Of The Week] The MOTW is "+$MOTW$+"! Kill any mobs in this map and you could get up to 2,500 SPECs per active contract!",0; delwaitingroom; waitingroom "[MOTW]: "+$MOTW$+" ",0; next; mes "[Map Of The Week]"; mes "The Map Of The Week is ^FF0000"+$MOTW$+"^000000!"; close; case 2: MOTW_Name; case 3: next; mes "[Map Of The Week]"; mes "Destroyed All Contracts."; query_sql ("DELETE FROM `trincli0232`.`global_reg_value` WHERE `global_reg_value`.`str` = '#MOTWC' "); query_sql ("DELETE FROM `trincli0232`.`global_reg_value` WHERE `global_reg_value`.`str` = '#MOTWKI' "); close; case 4: next; mes "[Map Of The Week]"; mes "Come back when you are free again."; close; } } close; end; MO_Nothing: mes "[Map Of The Week]"; mes "Available Keywords:"; mes "- ^FF0000kills^000000: the no. of kills left"; mes "- ^FF0000contract^000000: to renew or buy contract"; mes "- ^FF0000map^000000: to know the Map Of The Week"; close; end; MO_NoZeny: next; mes "[Map Of The Week]"; mes "Come back when you have enough Poring Coins."; close; end; MO_NoContract: next; mes "[Map Of The Week]"; mes "You are not under a contract."; close; end; MO_ContractEnd: dispbottom "MOTW: Your contract has expired."; set #MOTWC,0; end; MO_NoContractk: dispbottom "MOTW: You are not under a contract. Talk to the Map Of The Week NPC to buy one."; end; MOTW_Name: mes "[Map Of The Week]"; mes "Enter the map name"; input $MOTWGM$; mes "The map you entered is ^FF0000"+$MOTWGM$+"^000000"; mes "Is this the correct map"; if(select("Yes:No")-1) { MOTW_Name; } else { set $mapotw$, $MOTWGM$; set $MOTW$, $MOTWGM$; announce "MOTW : The Map Of The Week is "+$MOTW$+"!!!!",0; close; end; } OnClock2400: if(gettime(4)!=0) end; switch(rand(3)){ case 0: set $@MOTWS, rand(1,11); set $mapotw$, "pay_fild" + (($@MOTWS < 10)?"0":"") + $@MOTWS; set $MOTW$, "Payon Forest "+$@MOTWS; break; case 1: set $@MOTWS, rand(0,11); set $mapotw$, "prt_fild" + (($@MOTWS < 10)?"0":"") + $@MOTWS; set $MOTW$, "Prontera Field "+$@MOTWS; break; case 2: set $@MOTWS, rand(1,22); set $mapotw$, "moc_fild" + (($@MOTWS < 10)?"0":"") + $@MOTWS; set $MOTW$, "Sograt Desert "+$@MOTWS; break; } announce "MOTW : The Map Of The Week is "+$MOTW$+"!!!!",0; end; OnNPCKillEvent: getmapxy(.@map$,.@x,.@y,0); if (.@map$ != $mapotw$) end; if (!#MOTWC) MO_NoContractk; if (#MOTWKI >= @motwkill) MO_ContractEnd; set #MOTWKI, #MOTWKI+1; switch(rand(15)){ case 0: getitem 6153,10; break; case 1: getitem 6153,20; break; case 2: getitem 6153,30; break; } }