dew_dun02 mapflag nobranch dew_dun02 mapflag nomemo dew_dun02 mapflag nosave dew_dun02 mapflag nocommand //wlng storage wlng butterflywing wlng reloadscript wlng @item daig pa na jail dew_dun02 mapflag noreturn dew_dun02 mapflag nowarp dew_dun02 mapflag nowarpto dew_dun02 mapflag noteleport dew_dun02 mapflag novending dew_dun02,305,30,0 warp miningexit 2,2,que_house_s,11,36 que_house_s,10,38,4 script Smuggler 853,{ if (getgmlevel() == 99) { mes "Hello GM."; switch (select("Start Event:Settings:Check Event Status:Force Stop Event:StopSalary")) { case 1: disablenpc "miningexit"; for (.@e = 0; .@e < getarraysize($@Players); .@e++) { set $@Players[.@e],0; } if (!$MineEvent) { if (!$mobs) set $mobs,100; set $p, 0; set $MineEvent,1; mes "Event is activated."; set $Controller,getcharid(3); goto OnEventStart; close; end; } mes "Event is currently active."; close; case 2: mes "Input security code: "; input $secode$; if ($secode$ != "imkairogm") close; if (!$MineEvent) { mes "Input Mob Count"; input $mobs; if (!$mobs) { set $mobs, 100; mes "Can't make it zero!. Defaulting.. mobs = 100."; } next; mes "Type 0 to default. 1 Credits."; mes "Input Prize item ID num. "; input $conso; mes "Input Prize amount."; input $consoamount; if ($conso == 0) set $conso,20080; if ($consoamount == 0) set $consoamount,1; next; mes "Input number of Participants to activate."; input $participants; if (!$participants) set $participants,10; close; } mes "You can't. Event is active."; close; case 3: mes "Mobs to spawn: ^0066CC"+$mobs; mes "^000000Current Prize: ^0066CC"+getitemname($conso); mes "^000000Current Prize Amount: ^0066CC"+$consoamount; mes "^000000No. of participants to activate: ^0066CC"+$participants; mes "Current Players inside: ^FF0000"+getmapusers("dew_dun02")+"^000000"; if ($MineEvent) { mes "^000000Event is currently ^FF0000active.^000000"; close; } mes "^000000Event is currently ^FF0000not active.^000000"; close; case 4: set $temprid, getcharid(3); set $OnGoing,0; if ($MineEvent) { set $MineEvent,0; mes "Event is forced stopped!"; mes "Warping out...."; killmonsterall "dew_dun02"; cleanmap "dew_dun02"; announce "Mining Event is forced stopped.",0; enablenpc "miningexit"; for (.@b = 0; .@b < getarraysize ($@Players); .@b++) { attachrid $@Players[.@b]; warp "que_house_s",11,36; detachrid; } attachrid $temprid; for (.@f = 0; .@f < getarraysize($@Players); .@f++) { set $@Players[.@f],0; set $@Mobkills[.@f],0; } close; end; } mes "Event is not currently active."; close; end; case 5: mes "Stopping Event.."; detachrid; for (.@b = 0; .@b < getarraysize ($@Players); .@b++) { attachrid $@Players[.@b]; warp "que_house_s",11,36; dispbottom "[Smuggler]: That's right! Here's your pay for participating in the event."; getitem $conso,$consoamount; set $tempkills, $@Mobkills[.@b]/5; if ($tempkills > 0) { dispbottom "[Smuggler]: Here's your bonus for killing more."; getitem $conso,$tempkills; } set $@Players[.@b],0; set $@Mobkills[.@b],0; set $tempkills, 0; detachrid; } set $OnGoing,0; set $p, 0; set $MineEvent, 0; set $mobs,100; enablenpc "miningexit"; hideoffnpc "Smuggler"; end; } } if ($OnGoing) end; for (.@c = 0; .@c < getarraysize ($@Players); .@c++) { if (getcharid(3) == $@Players[.@c]) { mes "You are already registered. Just wait there."; mes $pleft+" players more, then we can start."; close; end; } } if ($MineEvent) { mes "[Smuggler]"; mes "Let me check you first for banned items."; for (set .@a,0; .@a < getarraysize($@usables); set .@a, .@a + 1) { if (countitem($@usables[.@a]) > 0) { next; mes "You are currently holding [^FF0000"+getitemname($@usables[.@a])+"^000000] in your inventory"; set #bannedgoods,1; } } if (#bannedgoods) { next; mes "Store them if you wanna join~."; set #bannedgoods,0; close; } next; mes "[Smuggler]"; mes "All Clear."; mes "Do you want to register for the event?"; if (select("Yes:No") == 1) { mes "Okay. wait here."; set $@Players[$p],getcharid(3); set $p,$p+1; set $pleft, $participants - $p; mes "^009933"+$pleft+"^000000 players more, then we can start."; if ($p%2 == 0) { announce "[Smuggler]: "+$pleft+" more players, then we can start.",0; } if ($p == $participants) { for (.@g = 0; .@g < getarraysize($@Players); .@g++) { attachrid $@Players[.@g]; for (set .@j,0; .@j < getarraysize($@usables); set .@j, .@j + 1) { if (countitem($@usables[.@j]) > 0) { dispbottom "[Smuggler]: I TOLD YOU DON'T BRING BANNED ITEMS!!."; npctalk strcharinfo(0)+" is caught cheating by bringing banned items."; set $@Players[.@g],0; set $@Mobkills[.@g],0; detachrid; break; } } } set $OnGoing, 1; hideonnpc "Smuggler"; goto OnWarpPlayers; } close; } close; } mes "[Smuggler]"; mes "Move Along~~"; mes "Nothing to see here."; close; OnEventStart: announce "Mining Event has started.",0; announce "[Smuggler]: To those who wanna join come at me in the GM Room.",0; announce "[Smuggler]: I will help you make some monney~~",0; announce "[Smuggler]: I need "+$participants+" only for the job. First come first serve.",0; close; end; OnWarpPlayers: for (.@b = 0; .@b < getarraysize ($@Players); .@b++) { attachrid $@Players[.@b]; warp "dew_dun02",305,30; dispbottom "[Smuggler]: Get me alot of money."; detachrid; } monster "dew_dun02",0,0,"--en--",3021,$mobs,"Smuggler::OnSummonDead"; close; end; OnSummonDead: set $mobs, $mobs - 1; getmapxy @map$,@x,@y,0; if (@map$ == "dew_dun02") { for (.@q = 0; .@q < getarraysize($@Players); .@q++) { if (getcharid(3) == $@Players[.@q]) { set $@Mobkills[.@q],$@Mobkills[.@q] + 1; break; } } } if ($mobs < 1) { announce "Boss has been summoned.",bc_map,0x9999FF; monster "dew_dun02",0,0,"--en--",3022,1,"Smuggler::OnBossDead"; } end; OnBossDead: announce rid2name(killerrid) + " has killed the Mining Boss.",0; attachrid $Controller; set $OnGoing,0; set $p, 0; set $MineEvent, 0; set $mobs,100; enablenpc "miningexit"; hideoffnpc "Smuggler"; /* attachrid killerrid; getmapxy @map$,@x,@y,0; if (@map$ == "dew_dun02") { atcommand "@refresh"; } */ announce "Warping players back in 10 seconds, don't logout.",bc_map,0x9999FF; sleep 10000; detachrid; for (.@b = 0; .@b < getarraysize ($@Players); .@b++) { attachrid $@Players[.@b]; warp "que_house_s",11,36; dispbottom "[Smuggler]: That's right! Here's your pay for participating in the event."; getitem $conso,$consoamount; set $tempkills, $@Mobkills[.@b]/5; if ($tempkills > 0) { dispbottom "[Smuggler]: Here's your bonus for killing more."; getitem $conso,$tempkills; } set $@Players[.@b],0; set $@Mobkills[.@b],0; set $tempkills, 0; detachrid; } end; OnPCDieEvent: getmapxy @map$,@x,@y,0; if (@map$ == "dew_dun02") { for (.@d = 0; .@d < getarraysize($@Players); .@d++) { if (getcharid(3) == $@Players[.@d]) { set $@Players[.@d], 0; break; } } warp "SavePoint",0,0; dispbottom "[Miner]: Better luck next time. Dude"; if (getmapusers("dew_dun02") == 0 && $MineEvent) goto allDied; } end; OnShowSmuggler: hideoffnpc "Smuggler"; end; allDied: announce "All Died. Mining Event ended.",0; killmonsterall "dew_dun02"; cleanmap "dew_dun02"; for (.@f = 0; .@f < getarraysize($@Players); .@f++) { set $@Players[.@f],0; set $@Mobkills[.@f],0; } cleararray $@Mobkills[0],0,getarraysize($@Mobkills); cleararray $@Players[0],0,getarraysize($@Players); set $OnGoing,0; set $p, 0; set $MineEvent, 0; set $mobs,100; enablenpc "miningexit"; hideoffnpc "Smuggler"; close; end; OnInit: setarray $@usables[0],607,12028,20130,13517,608,12016,13995,13994,504,505,12530; disablenpc "miningexit"; hideoffnpc "Smuggler"; set $OnGoing,0; set $mobs,100; set $participants, 50; set $conso,20080; set $consoamount,1; set $p, 0; set $MineEvent, 0; //set #bannedgoods,0; end; } que_avan01,43,19,5 script Gold Smith 813,{ if (getgmlevel() == 99 && $MineEvent) { mes "[Gold Smith]"; mes "Show Smuggler NPC?"; if (select("Yes:No") == 1) hideoffnpc "Smuggler"; close; } mes "[Gold Smith]"; mes "I can forge your gold ore into gold."; mes "3 gold ore's for 1 gold. How's that?"; if (select("Yes, Let's Deal!:Not this time.") == 1) { if (countitem(7231) >= 3) { set .@goldcount, countitem(7231)/3; getitem 969,.@goldcount; delitem 7231,.@goldcount*3; mes "Nice trading with yah!"; close; } mes "Eeekkk!! Your greedy matey, come back when you got gold ores."; } close; }