diff options
Diffstat (limited to 'npc/custom/events/mushroom_event.txt')
| -rw-r--r-- | npc/custom/events/mushroom_event.txt | 124 |
1 files changed, 62 insertions, 62 deletions
diff --git a/npc/custom/events/mushroom_event.txt b/npc/custom/events/mushroom_event.txt index bbb8e91ab..9ebd3211a 100644 --- a/npc/custom/events/mushroom_event.txt +++ b/npc/custom/events/mushroom_event.txt @@ -1,62 +1,62 @@ -//===== rAthena Script =======================================
-//= Find the Mushroom
-//===== By: ==================================================
-//= Mysterious
-//===== Current Version: =====================================
-//= 3.6a
-//===== Compatible With: =====================================
-//= rAthena SVN
-//===== Description: =========================================
-//= Find the Mushroom - random amount of Mushrooms spawns in random maps.
-//= Players need to find these mushrooms and kill them to gain prizes!
-//===== Additional Comments: =================================
-//= 3.0 Fully Functional with Rewritten script. [Mysterious]
-//= 3.6a Slightly edited. [Euphy]
-//============================================================
-
-prontera,142,228,6 script Find the Mushroom 1084,{
- mes "[ Find The Mushroom ]";
- if (!.Status)
- mes "There is no event at the moment!";
- else {
- mes "There are "+.Spawn+" Mushrooms left in "+.Map$+"!";
- mes "Find and kill the mushrooms to gain "+getitemname(.Prize)+"!";
- }
- if (.Status || getgmlevel() < .GM) close;
- mes "Start the event?";
- next;
- if(select("- No:- Yes") == 1) close;
- donpcevent strnpcinfo(0)+"::OnMinute10";
- mes "[ Find The Mushroom ]";
- mes "Event started!";
- close;
-
-OnInit:
- set .Prize,512; // Reward item ID
- set .Amount,10; // Reward item amount
- set .GM,60; // GM level required to access NPC
- setarray .Maps$[0],"izlude","geffen","morocc","prontera"; // Possible maps
- end;
-
-OnMinute10: // Start time (every hour)
- if (.Status) end;
- set .Status,1;
- set .Spawn,rand(1,10); // How many Mushrooms should spawn?
- set .Map$,.Maps$[rand(getarraysize(.Maps$))];
- killmonster .Map$,"All";
- monster .Map$,0,0,"Please don't kill me!",1084,.Spawn,strnpcinfo(0)+"::OnMobKilled";
- announce "Find the Mushroom : Total of "+.Spawn+" Mushrooms have been spawned in "+.Map$+"!",0;
- sleep 2500;
- announce "Find the Mushroom : Every Mushroom you kill will give you "+getitemname(.Prize)+"!",0;
- end;
-
-OnMobKilled:
- set .Spawn, .Spawn - 1;
- getitem .Prize, .Amount;
- if (.Spawn) announce "[ "+strcharinfo(0)+" ] has killed a Mushroom. There are now "+.Spawn+" Mushroom(s) left.",bc_map;
- else {
- announce "The Find the Mushroom Event has ended. All the Mushrooms have been killed.",0;
- set .Status,0;
- }
- end;
-}
\ No newline at end of file +//===== rAthena Script ======================================= +//= Find the Mushroom +//===== By: ================================================== +//= Mysterious +//===== Current Version: ===================================== +//= 3.6a +//===== Compatible With: ===================================== +//= rAthena SVN +//===== Description: ========================================= +//= Find the Mushroom - random amount of Mushrooms spawns in random maps. +//= Players need to find these mushrooms and kill them to gain prizes! +//===== Additional Comments: ================================= +//= 3.0 Fully Functional with Rewritten script. [Mysterious] +//= 3.6a Slightly edited. [Euphy] +//============================================================ + +prontera,142,228,6 script Find the Mushroom 1084,{ + mes "[ Find The Mushroom ]"; + if (!.Status) + mes "There is no event at the moment!"; + else { + mes "There are "+.Spawn+" Mushrooms left in "+.Map$+"!"; + mes "Find and kill the mushrooms to gain "+getitemname(.Prize)+"!"; + } + if (.Status || getgmlevel() < .GM) close; + mes "Start the event?"; + next; + if(select("- No:- Yes") == 1) close; + donpcevent strnpcinfo(0)+"::OnMinute10"; + mes "[ Find The Mushroom ]"; + mes "Event started!"; + close; + +OnInit: + set .Prize,512; // Reward item ID + set .Amount,10; // Reward item amount + set .GM,60; // GM level required to access NPC + setarray .Maps$[0],"izlude","geffen","morocc","prontera"; // Possible maps + end; + +OnMinute10: // Start time (every hour) + if (.Status) end; + set .Status,1; + set .Spawn,rand(1,10); // How many Mushrooms should spawn? + set .Map$,.Maps$[rand(getarraysize(.Maps$))]; + killmonster .Map$,"All"; + monster .Map$,0,0,"Please don't kill me!",1084,.Spawn,strnpcinfo(0)+"::OnMobKilled"; + announce "Find the Mushroom : Total of "+.Spawn+" Mushrooms have been spawned in "+.Map$+"!",0; + sleep 2500; + announce "Find the Mushroom : Every Mushroom you kill will give you "+getitemname(.Prize)+"!",0; + end; + +OnMobKilled: + set .Spawn, .Spawn - 1; + getitem .Prize, .Amount; + if (.Spawn) announce "[ "+strcharinfo(0)+" ] has killed a Mushroom. There are now "+.Spawn+" Mushroom(s) left.",bc_map; + else { + announce "The Find the Mushroom Event has ended. All the Mushrooms have been killed.",0; + set .Status,0; + } + end; +} |