i want this 2 script that i wont set the prize anymore ingame instead i will just set in on the script..
how to edit it
//===== rAthena Script ================================================================================================================
//= Goblin Invasion
//===== Created By: ===================================================================================================================
//= Mysterious
//===== Current Version: ==============================================================================================================
//= v1.3
//===== Compatible With: ==============================================================================================================
//= TXT & SQL
//===== Credits: ==============================================================================================================
//= Mysterious
//==== Information: =====================================================================================================
// Keep in mind that the prize amount that is given out is 5 <of the item ID you input> in the NPC.
// With knowledge, you can change it to whatever you want the prize to be (I.e. cashpoints, etc.).
//===================================================================================================================
splendide,184,198,6 script Invasion NPC 459,{
set .gm,90;//GM Level to access the GM Menu. Default: 50
// GM menu
//It allows GMs Level 50 or more to Start and Stop invasions.
if (getgmlevel()>.gm) {
if (.mobs_left) {
mes "[invasion]";
mes "An invasion is in progress..";
mes "Location: " + .Map$;
mes "^FF0000"+.mobs_left+"^000000 Goblins left";
mes " ";
mes "Stop invasion?";
if(select("No:Yes")==1) close;
donpcevent "Invasion NPC::OnTimer1805000";
mes "Invasion stopped";
announce "The Invasion has been stopped by "+strcharinfo(0),bc_all;
close;
}
mes "[invasion]";
mes "Please customize the Invasion event before starting it.";
mes "Note - The Goblin Leader drops x5 of the prize.";
Main:
next;
mes "[invasion]";
switch(select("Item [" + getitemname(.ItemID) + "]:Start Event")) {
case 1:
mes "Which item would you like the Goblin Leader to drop?";
mes "Please input the item ID:";
input .ItemID;
goto Main;
case 2:
mes "Starting the event now...";
close2;
goto OnStart;
}
// If a player clicks the NPC, it displays:
mes "[invasion]";
mes .mobs_left+" have invaded "+.Map$[.rand_map]+"!";
close;
/////////////////////////
//The actual NPC Script//
/////////////////////////
OnClock1200:
OnClock1100:
OnClock1300:
OnClock2300: // Change this to your liking
OnStart:
set .mobs_left, 1;
sleep2 1000;
set $@ran, rand(1,12);
if ($@ran == 12) set .Map$,"alberta";
if ($@ran == 11) set .Map$,"umbala";
if ($@ran == 10) set .Map$,"ayothaya";
if ($@ran == 9) set .Map$,"hugel";
if ($@ran == 8) set .Map$,"yuno";
if ($@ran == 7) set .Map$,"comodo";
if ($@ran == 6) set .Map$,"aldebaran";
if ($@ran == 5) set .Map$,"izlude";
if ($@ran == 4) set .Map$,"payon";
if ($@ran == 3) set .Map$,"geffen";
if ($@ran == 2) set .Map$,"morocc";
if ($@ran == 1) set .Map$,"prontera";
sleep2 1000;
announce "[ Rune-Midgard Guard ]: We have trouble here in the town " + .Map$ + "!", bc_all;
sleep2 5000;
announce "[ Rune-Midgard Guard ]: Everyone, we need your help to get rid of these Goblins!", bc_all;
monster .Map$,0,0,"Goblin",1258,250,"Invasion NPC::OnMyMobDead";
set .mobs_left, 250;
end;
OnTimer3600: // 30 minutes later, kills all the mobs.
killmonster .Map$,"Invasion NPC::OnMyMobDead";
set .mobs_left, 0;
OnStop://When the event is stopped by a GM, or all monsters dead.
killmonster .Map$,"Invasion NPC::OnMyMobDead";
killmonster .Map$,"Invasion NPC::OnSpecialMobDead";
announce "It seems that "+strcharinfo(0)+" has ended the Invasion!",bc_all;
end;
OnMyMobDead: //When a Goblin is killed
set .mobs_left, .mobs_left-1;
if (.mobs_left==0) {
mapannounce .Map$,"[ Rune-Midgard Guard ]: The Goblin Leader has spawned in " + .Map$ + "!", bc_all;
monster .Map$,0,0,"Goblin Leader",1299,1,"Invasion NPC::OnSpecialMobDead";
} else {
announce "["+.mobs_left+"/250] Goblins left.",bc_map;
}
end;
OnSpecialMobDead:
announce strcharinfo(0)+" has fought off the Goblin Invasion and has been awarded a worthy prize!", bc_all;
getitem .ItemID,10; //Change the [5] to the amount you wish to hand out.
donpcevent "Invasion NPC::OnStop";
}
end;
}
splendide,185,200,4 script Find the Mushroom 1084,{
mes "[ Find The Mushroom ]";
if(getgmlevel() < 90) {
if(.Event==0) mes "There is no Find the Mushroom event.";
else {
mes "There is a Find the Mushroom event on now!";
mes "Location: "+ .Map$;
mes "Prize: " + getitemname(.ItemID);
mes "Number of Mushrooms: " + .Mushrooms;
}
close;
}
mes "Hello "+strcharinfo(0)+"! Please customize this event:";
Main:
next;
mes "[ Find The Mushroom ]";
switch(select("Item [" + getitemname(.ItemID) + "]:Start Event:End Event")) {
case 1:
mes "Which item would you like the Mushroom to drop?";
mes "Please input the item ID:";
input .ItemID;
goto Main;
case 2:
mes "Starting the event now...";
set .Event,1;
close2;
goto OnStart;
case 3:
mes "Ending the event now...";
if(.Event) announce ""+strcharinfo(0)+" ended Find the Mushroom Event!",bc_all;
killmonster .Map$,"All";
set .Event,0;
close;
}
OnClock0500:
OnClock0930:
OnClock1700:
OnClock2130:
OnStart:
announce "Find the Mushroom : It's time to play Find the Mushroom!",0;
sleep2 1000;
set $@ran, rand(1,14);
if ($@ran == 14) set .Map$,"alberta";
if ($@ran == 13) set .Map$,"umbala";
if ($@ran == 12) set .Map$,"niflheim";
if ($@ran == 11) set .Map$,"ayothaya";
if ($@ran == 10) set .Map$,"hugel";
if ($@ran == 9) set .Map$,"yuno";
if ($@ran == 8) set .Map$,"comodo";
if ($@ran == 7) set .Map$,"xmas";
if ($@ran == 6) set .Map$,"aldebaran";
if ($@ran == 5) set .Map$,"izlude";
if ($@ran == 4) set .Map$,"payon";
if ($@ran == 3) set .Map$,"geffen";
if ($@ran == 2) set .Map$,"morocc";
if ($@ran == 1) set .Map$,"prontera";
sleep2 1000;
set $@ran2, rand(1,5);
if ($@ran2 == 5) set .Mushrooms,"5";
if ($@ran2 == 4) set .Mushrooms,"4";
if ($@ran2 == 3) set .Mushrooms,"3";
if ($@ran2 == 2) set .Mushrooms,"2";
if ($@ran2 == 1) set .Mushrooms,"1";
announce "Find the Mushroom : The Mushroom has spawned in "+ .Map$ +"!",0;
sleep2 10000;
announce "Find the Mushroom : " + .Mushrooms + " Mushrooms have spawned in "+ .Map$ +"!",0;
sleep2 10000;
monster .Map$,0,0,"Don't kill me please!",1084,.Mushrooms,"Find the Mushroom::OnMobKilled";
end;
OnMobKilled:
mapannounce .Map$,"We've got a winner: " + strcharinfo(0) + " Congrats!",0;
getitem .ItemID,10;
set .Event,0;
end;
}
Question
darking123
i want this 2 script that i wont set the prize anymore ingame instead i will just set in on the script..
how to edit it
help?
Edited by glemor123Link to comment
Share on other sites
3 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.