invasion script

[PapaZola]

hello

who can help me edit this script

make auto every 2 hours

and every kill mvp

will get 10 tcg card

and map to spawn monster is prontera

//============================= Script made by Kronos =================================

//================================= Version 1.9 =======================================

//================================= ++ =====================================

// - Added the ability for a GM to stop the event.

// - Fixed a bug I found. (Mes box wouldn't close)

// - Added some code to see if the player has killed any monsters, instead of telling them they have 0 zeny as a reward.

// - Cleaned up some Minor grammer errors.

// - Changed my "Halloween Invasion" event to an Invasion in general

// so you can use it year 'round instead of just in halloween.

// - Added the function to change the zeny reward to whatever you wish.

// - Added two maps to pick from

// - Made alot of edits and added code here and there to make script nicer.

//=====================================================================================

//==========Description=================================================================================

// This npc Will let a GM above level 80, activate an event. Where

// monsters will invade a selected town. Once Killed, Depending on how many monsters you've killed

// multiplied by your set amount of zeny

// is how much zeny the player will obtain. *Players have to talk to the npc to start the event*

// ======================================================================================================

prontera.gat,147,172,5 script Invasion NPC 796,{

if ($@MonstersAlive <= 0){

set $@join,0;

}

if ((getgmlevel() >= 80) && ($@MonstersAlive >=1)) goto L_GM2;

if (getgmlevel() >= 80) goto L_GM;

if ($@join >= 1) goto L_Join2;

if ($@MonstersAlive >= 1) goto L_Join;

mes "[^FF0000Micheal Myers^000000]";

mes " Theres no event now, sorry!";

menu "Bye",L_By,"Claim Zeny",L_Claim;

L_By:

Close;

L_GM:

mes "[^FF0000Invasion NPC^000000]";

mes "Welcome to the newly revised '^0000ffInvasion NPC^000000'";

next;

mes "[^FF0000Invasion NPC^000000]";

mes "Would you like to Send some monsters to invade a town?";

next;

mes "[^FF0000Invasion NPC^000000]";

mes "There will be a Zeny reward for players who participate in saving the town.";

next;

mes "[^FF0000Invasion NPC^000000]";

mes "I will let everyone know if you choose to start this event!";

next;

goto L_Menu;

L_GM2:

mes "[^FF0000Invasion NPC^000000]";

mes "You have started the event already!";

next;

mes "[^FF0000Invasion NPC^000000]";

mes "Would you like to stop the event?";

next;

menu "Stop event!",L_Stop,"No",L_No;

L_Stop:

mes "[^FF0000Invasion NPC^000000]";

mes "Ok then, ill let everyone know";

next;

if ($@town$ == "prontera"){

killmonster "prontera.gat","All";

set $@MonstersAlive,0;

announce "Sorry, the event has ended",0;

close;

}

else if ($@town$ == "payon")

killmonster "payon.gat","All";

set $@MonstersAlive,0;

announce "Sorry, the event has ended",0;

close;

OnInit:

set $@MonstersAlive,0; // Set monsters spawned variable.

set $@rzeny,0;

set $@town$,"";

set $@join,0;

end;

L_Menu:

menu "Summon 1000",L_Yes,"Summon 500",L_Spawn,"Summon 200",L_Spawn2,"Set Town",L_Town,"Set reward",L_Reward,"No",L_No;

L_No:

mes "[^FF0000Invasion NPC^000000]";

mes "Ok then. talk to me when you really want to.";

close;

L_Yes:

if ($@town$ == "") goto L_SetTown;

if ($@rzeny == 0) goto L_SetReward;

if ($@town$ == "prontera"){

mes "[^FF0000Invasion NPC^000000]";

mes "Ok then, Im summoning them now!!";

monster "prontera.gat",0,0,"Mini Demon",1508,500,"einsense::OnMobDeadGlobal";

monster "prontera.gat",0,0,"ZOMBIE",1197,100,"einsense::OnMobDeadGlobal";

monster "prontera.gat",0,0,"Gremlin",1510,400,"einsense::OnMobDeadGlobal";

announce "There is an Invasion event on. Talk to the Invasion NPC to enter!!",0;

set $@MonstersAlive,1000;

close;

}

else if ($@town$ == "payon")

mes "[^FF0000Invasion NPC^000000]";

mes "Ok then, Im summoning them now!!";

monster "payon.gat",0,0,"Mini Demon",1508,500,"einsense::OnMobDeadGlobal";

monster "payon.gat",0,0,"ZOMBIE",1197,100,"einsense::OnMobDeadGlobal";

monster "payon.gat",0,0,"Gremlin",1510,400,"einsense::OnMobDeadGlobal";

announce "There is an Invasion event on. Talk to the Invasion NPC to enter!!",0;

set $@MonstersAlive,1000;

close;

L_Spawn:

if ($@town$ == "") goto L_SetTown;

if ($@rzeny == 0) goto L_SetReward;

if ($@town$ == "prontera"){

mes "[^FF0000Invasion NPC^000000]";

mes "Ok then, Im summoning them now!!";

monster "prontera.gat",0,0,"Mini Demon",1508,250,"einsense::OnMobDeadGlobal";

monster "prontera.gat",0,0,"ZOMBIE",1197,100,"einsense::OnMobDeadGlobal";

monster "prontera.gat",0,0,"Gremlin",1510,150,"einsense::OnMobDeadGlobal";

announce "There is an Invasion event on. Talk to the Invasion NPC to enter!!",0;

set $@MonstersAlive,500;

close;

}

else if ($@town$ == "payon")

mes "[^FF0000Invasion NPC^000000]";

mes "Ok then, Im summoning them now!!";

monster "payon.gat",0,0,"Mini Demon",1508,250,"einsense::OnMobDeadGlobal";

monster "payon.gat",0,0,"ZOMBIE",1197,100,"einsense::OnMobDeadGlobal";

monster "payon.gat",0,0,"Gremlin",1510,150,"einsense::OnMobDeadGlobal";

announce "There is an Invasion event on. Talk to the Invasion NPC to enter!!",0;

set $@MonstersAlive,500;

close;

L_Spawn2:

if ($@town$ == "") goto L_SetTown;

if ($@rzeny <=0) goto L_SetReward;

if ($@town$ == "prontera"){

mes "[^FF0000Invasion NPC^000000]";

mes "Ok then, Im summoning them now!!";

monster "prontera.gat",0,0,"Mini Demon",1508,100,"einsense::OnMobDeadGlobal";

monster "prontera.gat",0,0,"ZOMBIE",1197,50,"einsense::OnMobDeadGlobal";

monster "prontera.gat",0,0,"Gremlin",1510,50,"einsense::OnMobDeadGlobal";

announce "There is an Invasion event on. Talk to the Invasion NPC to enter!!",0;

set $@MonstersAlive,200;

close;

}

else if ($@town$ == "payon")

mes "[^FF0000Invasion NPC^000000]";

mes "Ok then, Im summoning them now!!";

monster "payon.gat",0,0,"Mini Demon",1508,100,"einsense::OnMobDeadGlobal";

monster "payon.gat",0,0,"ZOMBIE",1197,50,"einsense::OnMobDeadGlobal";

monster "payon.gat",0,0,"Gremlin",1510,50,"einsense::OnMobDeadGlobal";

announce "There is an Invasion event on. Talk to the Invasion NPC to enter!!",0;

set $@MonstersAlive,200;

close;

L_Town:

mes "[^FF0000Invasion NPC^000000]";

mes "So you want to set the town?!";

next;

mes "[^FF0000Invasion NPC^000000]";

mes "There are quite a few to pick from.";

next;

mes "[^FF0000Invasion NPC^000000]";

mes "What'll it be?";

next;

menu "Prontera",L_Prt,"Payon",L_Pay;

L_Prt:

set $@town$,"prontera";

mes "[^FF0000Invasion NPC^000000]";

mes "Prontera will be invaded";

close;

L_Pay:

set $@town$,"payon";

mes "[^FF0000Invasion NPC^000000]";

mes "Prontera will be invaded";

close;

L_SetTown:

mes "[^FF0000Invasion NPC^000000]";

mes "Please select the town in which is to be invaded first!";

close;

L_Reward:

callfunc "freward";

close;

L_SetReward:

mes "[^FF0000Invasion NPC^000000]";

mes "Please set a reward first!";

close;

L_Claim:

if (#monsterskilled != 0) goto L_Good;

mes "[^FF0000Invasion NPC^000000]";

mes "You haven't killed any monsters!";

close;

L_Good:

set @reward,$@rzeny*#monsterskilled;

mes "[^FF0000Invasion NPC^000000]";

mes "Thanks for participating.";

next;

mes "[^FF0000Invasion NPC^000000]";

mes "Your reward is "+@reward+" zeny!!";

next;

set zeny,zeny+@reward;

set #monsterskilled,0;

mes "[^FF0000Invasion NPC^000000]";

mes "Thank you very much";

close;

L_Join:

mes "[^FF0000Invasion NPC^000000]";

mes "Hello, would you like to join the Invasion event, it's very dangerous";

mes "but remember, there is a cash reward!";

next;

menu "Yes",L_Yes2,"No",L_No;

L_Join2:

mes "[^FF0000Invasion NPC^000000]";

mes "Hey there, ^FF0000"+strcharinfo(0)+"^000000";

mes "you've already joined!";

next;

menu "Claim Zeny",L_Claim;

L_Yes2:

set $@join,1;

mes "[^FF0000Invasion NPC^000000]";

mes "I bid you farewell, I hope you make it back!!";

next;

if ($@town$ == "prontera"){

warp "prontera.gat",141,141;

close;

}

else if ($@town$ == "payon")

warp "payon.gat",141,141;

close;

OnMobDeadGlobal:

set #monsterskilled,#monsterskilled + 1;

set $@MonstersAlive,$@MonstersAlive - 1;

if ($@MonstersAlive<=0) announce "Thank you all.You have killed the monsters, Talk to the me for your Zeny reward!!",0;

end;

}

einbech.gat mapflag nowarpto

einbech.gat mapflag noloot

einbech.gat,71,111,5 script einsense -1,{

OnMobDeadGlobal:

set #monsterskilled,#monsterskilled + 1;

set $@MonstersAlive,$@MonstersAlive - 1;

if ($@MonstersAlive<=0) announce "Thank you all.You have killed the monsters, Talk to the me for your Zeny reward!!",0;

end;

}

function script freward {

mes "[^FF0000Invasion NPC^000000]";

mes "So you want to set the zeny reward?!";

next;

mes "[^FF0000Invasion NPC^000000]";

mes "The reward will be the set zeny per monster killed.";

next;

mes "[^FF0000Invasion NPC^000000]";

mes "What'll it be?";

next;

input $@rzeny;

next;

mes "[^FF0000Invasion NPC^000000]";

mes "The zeny reward is set to "+$@rzeny+" per kill!";

return;

end;

}

[Emistry]

try this..

- script Sample -1,{
OnClock0200:
OnClock0400:
OnClock0600:
OnClock0800:
announce "Monster Invasion Event Started at prontera.",0;
monster "prontera",0,0,"--ja--",1002,100,strnpcinfo(0)+"::OnNormalKilled";
monster "prontera",0,0,"--ja--",1502,10,strnpcinfo(0)+"::OnBossKilled";
end;
OnNormalKilled:
dispbottom "Sorry, i am not the Boss";
end;
OnBossKilled:
getitem 7227,10;
dispbottom "You killed 1 Boss";
end;
}

[skymia]

-	script	WorldBoss	-1,{
OnClock2153:
OnClock2200:
announce "World Boss Event Started at League.",0;
monster "league",0,0,"--ja--",1039,10,strnpcinfo(0)+"::OnNormalKilled";
monster "league",0,0,"--ja--",1039,10,strnpcinfo(0)+"::OnNormalKilled";
monster "league",0,0,"--ja--",1039,10,strnpcinfo(0)+"::OnNormalKilled";
monster "league",0,0,"--ja--",3074,1,strnpcinfo(0)+"::OnBossKilled";
monster "league",0,0,"--ja--",2249,1,strnpcinfo(0)+"::OnBossKilled";
monster "league",0,0,"--ja--",2251,1,strnpcinfo(0)+"::OnBossKilled";
monster "league",0,0,"--ja--",2253,1,strnpcinfo(0)+"::OnBossKilled";
monster "league",0,0,"--ja--",2255,1,strnpcinfo(0)+"::OnBossKilled";
monster "league",0,0,"--ja--",2476,1,strnpcinfo(0)+"::OnBossKilled";
end;
OnNormalKilled:
dispbottom "Sorry, i am not the Boss";
end;
OnBossKilled:
getitem 7227,10;
dispbottom "You killed 1 Boss";
end;
}

@Emistry sir on your script

1. how to announce the boss killer and how to make the reward if the boss killed with a random item? item example is castle drops samle item is billow,esg, spirit of fish, etc.

2.if all the boss was killed it will announce the world boss is finish the city have been save by the heroes if midgard

thanks in advance

[Emistry]

16 hours ago, skymia said:

1. how to announce the boss killer and how to make the reward if the boss killed with a random item? item example is castle drops samle item is billow,esg, spirit of fish, etc.

2.if all the boss was killed it will announce the world boss is finish the city have been save by the heroes if midgard

OnBossKilled:
getitem F_Rand(501, 502, 503, 504, 505),10;
dispbottom "You killed 1 Boss";
announce strcharinfo(0)+" killed the Boss.",bc_all;
end;

 

[skymia]

5 hours ago, Emistry said:

announce strcharinfo(0)+" killed the Boss.",bc_all;

sir how about announce the name of the boss they killed?