Jump to content

como poner contador de muertes de mob en este npc

aepa1940

By aepa1940
in Sección de Scripts

 Share

Recommended Posts

aepa1940 Santa Poring

aepa1940

Posted
  • Group:  Members
  • Topic Count:  25
  • Topics Per Day:  0.01
  • Content Count:  50
  • Reputation:   0
  • Joined:  07/09/12
  • Last Seen:  
Posted (edited)

buenas tardes quisiera saber como poner un contador de mob de muerte regresiva a este survival arena al igual como esta en endless tower en cada round de mob y boss.

//================ NusantaraRO SURVIVAL ARENA ====================
//= Survival Arena Event
//================================================================
//= Created by Ichal Moned
//================================================================
//= Version 1.0
//================================================================
//===== Custom Configuration =====================================
// Please Check on at this fuction to custom configuration
//========= Min Level to Join ====================================
//set @minlevel,<BaseLevel>; // Set Min Level to Join
//========= Time Configuration ===================================
//OnClock0800: // This Mean, Event will run at 08.00 AM
//OnClock1600: // This Mean, Event will run at 16.00 PM
//OnClock2000: // This Mean, Event will run at 20.00 PM

//================================================================
//= Survival Arena Warper and Announcer NPC
prontera,171,181,3 script Survival Arena 106,{
//================================================================

//===== Configuration Settings ================================================================================
set @minlevel,150;
set @gmlvl,40;
//=============================================================================================================
//======== Prize Configuration =====================================
//==================================================================
OnDefaultPrize:
set .prizeone, 7619;
set .prizetwo, 7620;
set .prizethree, 12210;
set .prizefour, 0;
set .prizebonus, 0;
set .zenyprice, 40000000;
set .amountprizeone, 4;
set .amountprizetwo, 4;
set .amountprizethree, 1;
set .amountprizefour, 0;
set .amountprizebonus, 0;
//==================================================================
//==================================================================

OnInit:
 {
  hideonnpc "Survival Arena Guard";
}

  if(getgmlevel() >= @gmlvl){
  mes "[survival System Management]";
  mes "Welcome GM "+strcharinfo(0)+", Can I help you?";
  next;
  switch(select("Set Prize","Open Survival Arena Now!","Go To Survival Arena","Nothing")){

case 1:
next;
mes "[survival System Management]";
mes "The Prize Now is :";
mes "Prize 1: ^0000FF"+.amountprizeone+" ^FF0000"+getitemname(.prizeone)+"^000000";
mes "Prize 2: ^0000FF"+.amountprizetwo+" ^FF0000"+getitemname(.prizetwo)+"^000000";
mes "Prize 3: ^0000FF"+.amountprizethree+" ^FF0000"+getitemname(.prizethree)+"^000000";
mes "Prize 4: ^0000FF"+.amountprizefour+" ^FF0000"+getitemname(.prizefour)+"^000000";
mes "Prize Bonus Round : ^0000FF"+.amountprizebonus+" ^FF0000"+getitemname(.prizebonus)+"^000000";
mes "and ^FF0000"+.zenyprice+"^000000 Zeny";
next;
mes "[survival System Management]";
mes "Do You want to change the prize?";
menu "No",L_No,"Yes",L_ChangePrize;

  L_No:
  mes "Alright, Set Prize to Default";
  close;

   L_ChangePrize:
   mes "What Prize you want change?";
   switch(select("Prize 1","Prize 2","Prize 3","Prize 4","Bonus Round Prize","Zeny")){

   case 1:
   next;
   mes "[survival System Management]";
   mes "Please Input the Item ID";
   next;
   input $@prizeid1;
   next;
   mes "[survival System Management]";
   mes "Please Input the Prize Amount";
   next;
   input $@prizeid1amount;
   set .prizeone,$@prizeid1;
   set .amountprizeone,$@prizeid1amount;
   next;
   mes "[survival System Management]";
   mes "Now Prize 1 Changed to:";
   mes "^0000FF"+.amountprizeone+" ^FF0000"+getitemname(.prizeone)+"^000000";
   mes "Do you want to change another Prize?";
   if(select("Yes","No") == 1) goto L_ChangePrize;
   close;

   case 2:
   next;
   mes "[survival System Management]";
   mes "Please Input the Item ID";
   next;
   input $@prizeid2;
   next;
   mes "[survival System Management]";
   mes "Please Input the Prize Amount";
   next;
   input $@prizeid2amount;
   set .prizetwo,$@prizeid2;
   set .amountprizetwo,$@prizeid2amount;
   next;
   mes "[survival System Management]";
   mes "Now Prize 2 Changed to:";
   mes "^0000FF"+.amountprizetwo+" ^FF0000"+getitemname(.prizetwo)+"^000000";
   mes "Do you want to change another Prize?";
   if(select("Yes","No") == 1) goto L_ChangePrize;
   close;

   case 3:
   next;
   mes "[survival System Management]";
   mes "Please Input the Item ID";
   next;
   input $@prizeid3;
   next;
   mes "[survival System Management]";
   mes "Please Input the Prize Amount";
   next;
   input $@prizeid3amount;
   set .prizethree,$@prizeid3;
   set .amountprizethree,$@prizeid3amount;
   next;
   mes "[survival System Management]";
   mes "Now Prize 3 Changed to:";
   mes "^0000FF"+.amountprizethree+" ^FF0000"+getitemname(.prizethree)+"^000000";
   mes "Do you want to change another Prize?";
   if(select("Yes","No") == 1) goto L_ChangePrize;
   close;

   case 4:
   next;
   mes "[survival System Management]";
   mes "Please Input the Item ID";
   next;
   input $@prizeid4;
   next;
   mes "[survival System Management]";
   mes "Please Input the Prize Amount";
   next;
   input $@prizeid4amount;
   set .prizefour,$@prizeid4;
   set .amountprizefour,$@prizeid4amount;
   next;
   mes "[survival System Management]";
   mes "Now Prize 4 Changed to:";
   mes "^0000FF"+.amountprizefour+" ^FF0000"+getitemname(.prizefour)+"^000000";
   mes "Do you want to change another Prize?";
   if(select("Yes","No") == 1) goto L_ChangePrize;
   close;

   case 5:
   next;
   mes "[survival System Management]";
   mes "Please Input the Item ID";
   next;
   input $@prizeidbonus;
   next;
   mes "[survival System Management]";
   mes "Please Input the Prize Amount";
   next;
   input $@prizeidbonusamount;
   set .prizebonus,$@prizeidbonus;
   set .amountprizebonus,$@prizeidbonusamount;
   next;
   mes "[survival System Management]";
   mes "Now Bonus Prize Changed to:";
   mes "^0000FF"+.amountprizebonus+" ^FF0000"+getitemname(.prizebonus)+"^000000";
   mes "Do you want to change another Prize?";
   if(select("Yes","No") == 1) goto L_ChangePrize;
   close;

   case 6:
   next;
   mes "[survival System Management]";
   mes "Please Input the Zeny amount";
   next;
   input .zenypriceamount;
   set .zenyprice,.zenypriceamount;
   next;
   mes "[survival System Management]";
   mes "Now Zeny Prize Changed to ^FF0000"+.zenyprice+"^000000 Zeny";
   mes "Do you want to change another Prize?";
   if(select("Yes","No") == 1) goto L_ChangePrize;
   close;
   }


case 2:
next;
mes "[survival System Management]";
mes "Are You Sure want to Start the Event?";
 if(select("No","Yes") == 1){
   close;
   }
mes "Alright, I'll Open it Now";
donpcevent "Survival Arena::OnWarpOpen";
close;

case 3:
next;
mes "[survival System Management]";
mes "Alright, here we go";
close2;
warp "ordeal_1-2",153,153;

case 4:
next;
mes "Alright, Come to me to Set The Survival Arena";
close;

}
  }	


  mes "[survival Arena]";
  mes "Survival Arena Open at:";
  mes "^FF0000 08.00AM Server Time^000000";
  mes "^FF0000 16.00PM Server Time^000000";
  mes "^FF0000 20.00PM Server Time^000000";
  callsub survivalopen;
  close;


survivalopen:
 if(.eventsurvival == 0){
  return;
}
next;
mes "[survival Arena]";
mes "Do you want join Survival Arena?";
if(select("Yeah","No") == 2){
mes "Well, no problem";
close;
}
 if(BaseLevel <= @minlevel){
 mes "Sorry, you must level ^FF0000"+@minlevel+"^000000 or higher to join this";
 close;
}
mes "Alright, be careful";
next;
warp "ordeal_1-2",153,153;
close;

OnClock0800:
OnClock1600:
OnClock2000:
OnWarpOpen:
{
  initnpctimer;
  set .eventsurvival,1;  
  announce "Survival Arena Now Has Been Open",0;
  sleep 10000;
  announce "Go to Survival Arena Warper NPC to join",0;
  sleep 10000;
  announce "After 5 minute, the warp will closed",0;
  sleep 10000;
  end;

  OnTimer60000:
announce "4 Minute before Survival warp closed",0;
end;

  OnTimer120000:
announce "3 Minute before Survival warp closed",0;
end;

  OnTimer180000:
announce "2 Minute before Survival warp closed",0;
end;

  OnTimer240000:
announce "1 Minute before Survival warp closed",0;
end;

  OnTimer270000:
announce "30 Seconds before Survival warp closed",0;
end;

  OnTimer290000:
announce "10 Seconds before Survival warp closed",0;
end;

  OnTimer295000:
announce "5",0;
end;

  OnTimer296000:
announce "4",0;
end;

  OnTimer297000:
announce "3",0;
end;

  OnTimer298000:
announce "2",0;
end;

  OnTimer299000:
announce "1",0;
end;

  OnTimer300000:
announce "Warp Closed, Survival arena now begins",bc_blue|bc_all;
set .eventsurvival,0;
stopnpctimer;
donpcevent "Blue Memi::OnSurvivalBegins";
end;
}

}


//================================================================
//= Monster and Event Survival Arena Spawn NPC
prontera,168,179,3 script Blue Memi 868,{
//================================================================
set @gmlvl,40;
//==================================================================
//======== Default Configuration ===================================
//==================================================================
//======== Monster Spawn Configuration =============================
OnDefaultSpawnMonster:
set $@monster1, 1379; // Nightmare Terror
set $@monster2, 1605; // Dark Illusion
set $@monster3, 1507; // Bloody Murderer
set $@monster4, 1777; // Ice Titan
set $@monster5, 2018; // Duneyrr
set $@monster6, 1831; // Salamander
set $@monster7, 1645; // High Wizard Kathryne ( Non MVP )
set $@monster8, 1190; // Orc Lord ( MVP )

set $@boss1, 1046; // Doppelganger
set $@boss2, 1583; // Tao Gunka
set $@boss3, 1373; // Lord of the Dead
set $@boss4, 1779; // Ktullanux
set $@boss5, 1708; // Memory of Thanatos / Thanatos Boss
set $@boss6, 1832; // Ifrit
set $@boss7, 1651; // High Wizard Kathryne ( MVP )
set $@boss8, 2022; // Nidhoggr's Shadow
//==================================================================
//======= Spawn Amount =============================================
//==================================================================
set $@spawnm1, 40;
set $@spawnm2, 40;
set $@spawnm3, 40;
set $@spawnm4, 40;
set $@spawnm5, 25;
set $@spawnm6, 35;
set $@spawnm7, 25;
set $@spawnm8, 20;

set $@spawnb1, 10;
set $@spawnb2, 8;
set $@spawnb3, 6;
set $@spawnb4, 4;
set $@spawnb5, 5;
set $@spawnb6, 4;
set $@spawnb7, 5;
set $@spawnb8, 2;

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

if(getgmlevel() >= @gmlvl){
  mes "[survival System Management]";
  mes "Welcome GM "+strcharinfo(0)+", Can I help you?";
  next;
if(select("Change Survival Arena Spawn Monster","Nothing") == 2){
mes "Okay, Come to me if you want to set spawn monster!";
close;
}
  mes "[survival System Management]";
  mes "Are you want to set the monster spawn?";
  if(select("No","Yes") == 1){
   close;
   }
 mes "What set type you want?";
 switch(select("Set as Default","Set as My mind","Check Spawn Information")){

  case 1:
  next;
  mes "[survival System Management]";
  mes "Alright, Set as to default";
  doevent "Blue Memi::OnDefaultSpawnMonster";
  close;

  case 2:
  next;
  if(.checkenable == 0){
  mes "[survival System Management]";
  mes "You must set as Default before you change it";
  mes "Want change to default spawn?";
  if(select("Yes","No") == 1){
	mes "Alright, Set as to default";
	doevent "Blue Memi::OnDefaultSpawnMonster";
	close;
	}
   close;
   }
  mes "[survival System Management]";
  mes "Alright, Please Wait";
  L_Spawnset:
  next;
  mes "[survival System Management]";
  mes "What Round do you want change?";
   switch(select("Round 1","Round 2","Round 3","Round 4","Round 5","Round 6","Round 7","Round 8")){

	case 1:
	next;
	mes "[survival System Management]";
	mes "Round 1 Spawn set :";
	mes "Monster : ^0000FF"+$@spawnm1+"^FF0000 "+getmonsterinfo($@monster1,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb1+"^FF0000 "+getmonsterinfo($@boss1,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Please Insert Monster ID";
	next;
	input $@monster1;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	next;
	input $@spawnm1;
	next;
	mes "[survival System Management]";
	mes "Please Insert Boss Monster ID";
	next;
	input $@boss1;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	input $@spawnb1;
	next;
	mes "[survival System Management]";
	mes "Round 1 Spawn Change to:";
	mes "Monster : ^0000FF"+$@spawnm1+"^FF0000 "+getmonsterinfo($@monster1,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb1+"^FF0000 "+getmonsterinfo($@boss1,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Do you want to change another round?";
	if(select("Yes","No") == 1) goto L_Spawnset;
	close;

	case 2:
	next;
	mes "[survival System Management]";
	mes "Round 2 Spawn set :";
	mes "Monster : ^0000FF"+$@spawnm2+"^FF0000 "+getmonsterinfo($@monster2,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb2+"^FF0000 "+getmonsterinfo($@boss2,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Please Insert Monster ID";
	next;
	input $@monster2;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	next;
	input $@spawnm2;
	next;
	mes "[survival System Management]";
	mes "Please Insert Boss Monster ID";
	next;
	input $@boss2;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	input $@spawnb2;
	next;
	mes "[survival System Management]";
	mes "Round 2 Spawn Change to:";
	mes "Monster : ^0000FF"+$@spawnm2+"^FF0000 "+getmonsterinfo($@monster2,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb2+"^FF0000 "+getmonsterinfo($@boss2,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Do you want to change another round?";
	if(select("Yes","No") == 1) goto L_Spawnset;
	close;

	case 3:
	next;
	mes "[survival System Management]";
	mes "Round 3 Spawn set :";
	mes "Monster : ^0000FF"+$@spawnm3+"^FF0000 "+getmonsterinfo($@monster3,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb3+"^FF0000 "+getmonsterinfo($@boss3,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Please Insert Monster ID";
	next;
	input $@monster3;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	next;
	input $@spawnm3;
	next;
	mes "[survival System Management]";
	mes "Please Insert Boss Monster ID";
	next;
	input $@boss3;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	input $@spawnb3;
	next;
	mes "[survival System Management]";
	mes "Round 3 Spawn Change to:";
	mes "Monster : ^0000FF"+$@spawnm3+"^FF0000 "+getmonsterinfo($@monster3,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb3+"^FF0000 "+getmonsterinfo($@boss3,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Do you want to change another round?";
	if(select("Yes","No") == 1) goto L_Spawnset;
	close;

	case 4:
	next;
	mes "[survival System Management]";
	mes "Round 1 Spawn set :";
	mes "Monster : ^0000FF"+$@spawnm4+"^FF0000 "+getmonsterinfo($@monster4,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb4+"^FF0000 "+getmonsterinfo($@boss4,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Please Insert Monster ID";
	next;
	input $@monster4;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	next;
	input $@spawnm4;
	next;
	mes "[survival System Management]";
	mes "Please Insert Boss Monster ID";
	next;
	input $@boss4;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	input $@spawnb4;
	next;
	mes "[survival System Management]";
	mes "Round 4 Spawn Change to:";
	mes "Monster : ^0000FF"+$@spawnm4+"^FF0000 "+getmonsterinfo($@monster4,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb4+"^FF0000 "+getmonsterinfo($@boss4,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Do you want to change another round?";
	if(select("Yes","No") == 1) goto L_Spawnset;
	close;

	case 5:
	next;
	mes "[survival System Management]";
	mes "Round 5 Spawn set :";
	mes "Monster : ^0000FF"+$@spawnm5+"^FF0000 "+getmonsterinfo($@monster5,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb5+"^FF0000 "+getmonsterinfo($@boss5,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Please Insert Monster ID";
	next;
	input $@monster5;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	next;
	input $@spawnm5;
	next;
	mes "[survival System Management]";
	mes "Please Insert Boss Monster ID";
	next;
	input $@boss5;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	input $@spawnb5;
	next;
	mes "[survival System Management]";
	mes "Round 5 Spawn Change to:";
	mes "Monster : ^0000FF"+$@spawnm5+"^FF0000 "+getmonsterinfo($@monster5,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb5+"^FF0000 "+getmonsterinfo($@boss5,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Do you want to change another round?";
	if(select("Yes","No") == 1) goto L_Spawnset;
	close;

	case 6:
	next;
	mes "[survival System Management]";
	mes "Round 6 Spawn set :";
	mes "Monster : ^0000FF"+$@spawnm6+"^FF0000 "+getmonsterinfo($@monster6,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb6+"^FF0000 "+getmonsterinfo($@boss6,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Please Insert Monster ID";
	next;
	input $@monster6;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	next;
	input $@spawnm6;
	next;
	mes "[survival System Management]";
	mes "Please Insert Boss Monster ID";
	next;
	input $@boss6;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	input $@spawnb6;
	next;
	mes "[survival System Management]";
	mes "Round 6 Spawn Change to:";
	mes "Monster : ^0000FF"+$@spawnm6+"^FF0000 "+getmonsterinfo($@monster6,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb6+"^FF0000 "+getmonsterinfo($@boss6,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Do you want to change another round?";
	if(select("Yes","No") == 1) goto L_Spawnset;
	close;

	case 7:
	next;
	mes "[survival System Management]";
	mes "Round 7 Spawn set :";
	mes "Monster : ^0000FF"+$@spawnm7+"^FF0000 "+getmonsterinfo($@monster7,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb7+"^FF0000 "+getmonsterinfo($@boss7,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Please Insert Monster ID";
	next;
	input $@monster7;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	next;
	input $@spawnm7;
	next;
	mes "[survival System Management]";
	mes "Please Insert Boss Monster ID";
	next;
	input $@boss7;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	input $@spawnb7;
	next;
	mes "[survival System Management]";
	mes "Round 7 Spawn Change to:";
	mes "Monster : ^0000FF"+$@spawnm7+"^FF0000 "+getmonsterinfo($@monster7,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb7+"^FF0000 "+getmonsterinfo($@boss7,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Do you want to change another round?";
	if(select("Yes","No") == 1) goto L_Spawnset;
	close;

	case 8:
	next;
	mes "[survival System Management]";
	mes "Round 8 Spawn set :";
	mes "Monster : ^0000FF"+$@spawnm8+"^FF0000 "+getmonsterinfo($@monster8,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb8+"^FF0000 "+getmonsterinfo($@boss8,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Please Insert Monster ID";
	next;
	input $@monster8;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	next;
	input $@spawnm8;
	next;
	mes "[survival System Management]";
	mes "Please Insert Boss Monster ID";
	next;
	input $@boss8;
	next;
	mes "[survival System Management]";
	mes "Please Insert Spawn Amount";
	input $@spawnb8;
	next;
	mes "[survival System Management]";
	mes "Round 8 Spawn Change to:";
	mes "Monster : ^0000FF"+$@spawnm8+"^FF0000 "+getmonsterinfo($@monster8,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb8+"^FF0000 "+getmonsterinfo($@boss8,0)+"^000000";
	next;
	mes "[survival System Management]";
	mes "Do you want to change another round?";
	if(select("Yes","No") == 1) goto L_Spawnset;
	close;
	}


   case 3:
	mes "[survival System Management]";
	mes "Information Spawn Right?";
	mes "Please Wait!";
	next;
	mes "[survival System Management]";
	mes "Rustle .. Rustle ..";
	mes "Nah .. this it!";
	next;
	mes "[survival System Management]";
	mes "Round 1 :";
	mes "Monster : ^0000FF"+$@spawnm1+"^FF0000 "+getmonsterinfo($@monster1,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb1+"^FF0000 "+getmonsterinfo($@boss1,0)+"^000000";
	mes "Round 2 :";
	mes "Monster : ^0000FF"+$@spawnm2+"^FF0000 "+getmonsterinfo($@monster2,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb2+"^FF0000 "+getmonsterinfo($@boss2,0)+"^000000";
	mes "Round 3 :";
	mes "Monster : ^0000FF"+$@spawnm3+"^FF0000 "+getmonsterinfo($@monster3,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb3+"^FF0000 "+getmonsterinfo($@boss3,0)+"^000000";
	mes "Round 4 :";
	mes "Monster : ^0000FF"+$@spawnm4+"^FF0000 "+getmonsterinfo($@monster4,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb4+"^FF0000 "+getmonsterinfo($@boss4,0)+"^000000";
	mes "Round 5 :";
	mes "Monster : ^0000FF"+$@spawnm5+"^FF0000 "+getmonsterinfo($@monster5,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb5+"^FF0000 "+getmonsterinfo($@boss5,0)+"^000000";
	mes "Round 6 :";
	mes "Monster : ^0000FF"+$@spawnm6+"^FF0000 "+getmonsterinfo($@monster6,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb6+"^FF0000 "+getmonsterinfo($@boss6,0)+"^000000";
	mes "Round 7 :";
	mes "Monster : ^0000FF"+$@spawnm7+"^FF0000 "+getmonsterinfo($@monster7,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb7+"^FF0000 "+getmonsterinfo($@boss7,0)+"^000000";
	mes "Round 8 :";
	mes "Monster : ^0000FF"+$@spawnm8+"^FF0000 "+getmonsterinfo($@monster8,0)+"^000000";
	mes "Boss : ^0000FF"+$@spawnb8+"^FF0000 "+getmonsterinfo($@boss8,0)+"^000000";
	close;
   }
  }

if(getgmlevel() <= 40){
mes "[blue Memi]";
mes "Oh Hello "+strcharinfo(0)+"";
mes "What are you looking for?";
next;
mes "Do you know?, how I can know your name?";
close;
}


OnSurvivalBegins:
{
 set .bonusprize,0;
 mapannounce "ordeal_1-2","Survival Guard : Welcome to Survival Arena",bc_blue;
 sleep 3000;
 mapannounce "ordeal_1-2","Survival Guard : Ok, I'll start this event",bc_blue;
 sleep 3000;
 mapannounce "ordeal_1-2","Survival Guard : Please preapare your self before the event is started!, 1 minute for preparing",bc_blue;
 sleep 60000;
 mapannounce "ordeal_1-2","Survival Guard : Okay, Survival Arena Begins!",bc_blue;
 sleep 3000;
 donpcevent "Blue Memi::OnEventStart";
 end;

OnEventStart:
 //Round 1 :
 mapannounce "ordeal_1-2","Round 1",bc_blue;
 monster "ordeal_1-2",169,141,""+getmonsterinfo($@monster1,0)+"",$@monster1,$@spawnm1,"Blue Memi::OnMob1Death";
 end;

  OnMob1Death:
  set $Mob1Death,$Mob1Death+1;
  if($Mob1Death == $@spawnm1) goto spawnmonster1death;
  end;

spawnmonster1death:
set $Mob1Death,0;
mapannounce "ordeal_1-2","What the?, My Monster has been Killed?",bc_yellow;
sleep 2000;
mapannounce "ordeal_1-2","Thats my Turn, Get ready for death!",bc_yellow;
monster "ordeal_1-2",169,162,""+getmonsterinfo($@boss1,0)+"",$@boss1,$@spawnb1,"Blue Memi::OnBoss1Death";
end;

OnBoss1Death:
 set $Boss1Death,$Boss1Death+1;
 if($Boss1Death == $@spawnb1) goto spawnboss1death;
 end;

 spawnboss1death:
 //Round 2 :
 set $Boss1Death,0;
 mapannounce "ordeal_1-2","Survival Guard : Round 1 Has Been Defeat!",bc_blue;
 sleep 5000;
 mapannounce "ordeal_1-2","Round 2",bc_blue;
 monster "ordeal_1-2",169,141,""+getmonsterinfo($@monster2,0)+"",$@monster2,$@spawnm2,"Blue Memi::OnMob2Death";
 end;

  OnMob2Death:
  set $Mob2Death,$Mob2Death+1;
  if($Mob2Death == $@spawnm2) goto spawnmonster2death;
  end;

spawnmonster2death:
set $Mob2Death,0;
mapannounce "ordeal_1-2","Whoaa.. This is my turn!",bc_yellow;
sleep 2000;
mapannounce "ordeal_1-2","Get Ready for Death Humaan !!",bc_yellow;
monster "ordeal_1-2",169,162,""+getmonsterinfo($@boss2,0)+"",$@boss2,$@spawnb2,"Blue Memi::OnBoss2Death";
end;

OnBoss2Death:
 set $Boss2Death,$Boss2Death+1;
 if($Boss2Death == $@spawnb2) goto spawnboss2death;
 end;

  spawnboss2death:
  set $Boss2Death,0;
  mapannounce "ordeal_1-2","Survival Guard : Round 2 Has Been Defeat!",bc_blue;
  sleep 5000;
  mapannounce "ordeal_1-2","Round 3",bc_blue;
  monster "ordeal_1-2",169,141,""+getmonsterinfo($@monster3,0)+"",$@monster3,$@spawnm3,"Blue Memi::OnMob3Death";
  end;

  OnMob3Death:
  set $Mob3Death,$Mob3Death+1;
  if($Mob3Death == $@spawnm3) goto spawnmonster3death;
  end;

spawnmonster3death:
set $Mob3Death,0;
mapannounce "ordeal_1-2","Hahahaha .. Humaan!",bc_yellow;
sleep 2000;
mapannounce "ordeal_1-2","I'll Kill The HUMAN!!!",bc_yellow;
monster "ordeal_1-2",169,162,""+getmonsterinfo($@boss3,0)+"",$@boss3,$@spawnb3,"Blue Memi::OnBoss3Death";
end;
OnBoss3Death:
 set $Boss3Death,$Boss3Death+1;
 if($Boss3Death == $@spawnb3) goto spawnboss3death;
 end;

  spawnboss3death:
  set $Boss3Death,0;
  mapannounce "ordeal_1-2","Survival Guard : Round 3 Has Been Defeat!",bc_blue;
  sleep 5000;
  mapannounce "ordeal_1-2","Round 4",bc_blue;
  monster "ordeal_1-2",169,141,""+getmonsterinfo($@monster4,0)+"",$@monster4,$@spawnm4,"Blue Memi::OnMob4Death";
  end;

  OnMob4Death:
  set $Mob4Death,$Mob4Death+1;
  if($Mob4Death == $@spawnm4) goto spawnmonster4death;
  end;

spawnmonster4death:
set $Mob4Death,0;
mapannounce "ordeal_1-2","Hmm .. Very nice!",bc_yellow;
sleep 2000;
mapannounce "ordeal_1-2","Send Human to Hell!!!",bc_yellow;
monster "ordeal_1-2",169,162,""+getmonsterinfo($@boss4,0)+"",$@boss4,$@spawnb4,"Blue Memi::OnBoss4Death";
end;


OnBoss4Death:
 set $Boss4Death,$Boss4Death+1;
 if($Boss4Death == $@spawnb4) goto spawnboss4death;
 end;

  spawnboss4death:
  set $Boss4Death,0;
  mapannounce "ordeal_1-2","Survival Guard : Round 4 Has Been Defeat!",bc_blue;
  sleep 5000;
  mapannounce "ordeal_1-2","Round 5",bc_blue;
  monster "ordeal_1-2",169,141,""+getmonsterinfo($@monster5,0)+"",$@monster5,$@spawnm5,"Blue Memi::OnMob5Death";
  end;

  OnMob5Death:
  set $Mob5Death,$Mob5Death+1;
  if($Mob5Death == $@spawnm5) goto spawnmonster5death;
  end;

spawnmonster5death:
set $Mob5Death,0;
mapannounce "ordeal_1-2","I like it..!",bc_yellow;
sleep 2000;
mapannounce "ordeal_1-2","The Human Taste is very nice!!!",bc_yellow;
monster "ordeal_1-2",169,162,""+getmonsterinfo($@boss5,0)+"",$@boss5,$@spawnb5,"Blue Memi::OnBoss5Death";
end;

 OnBoss5Death:
 set $Boss5Death,$Boss5Death+1;
 if($Boss5Death == $@spawnb5) goto spawnboss5death;
 end;

  spawnboss5death:
  set $Boss5Death,0;
  mapannounce "ordeal_1-2","Survival Guard : Round 5 Has Been Defeat!",bc_blue;
  sleep 5000;
  mapannounce "ordeal_1-2","Round 6",bc_blue;
  monster "ordeal_1-2",169,141,""+getmonsterinfo($@monster6,0)+"",$@monster6,$@spawnm6,"Blue Memi::OnMob6Death";
  end;

  OnMob6Death:
  set $Mob6Death,$Mob6Death+1;
  if($Mob6Death == $@spawnm6) goto spawnmonster6death;
  end;

spawnmonster6death:
set $Mob6Death,0;
mapannounce "ordeal_1-2","Human, Very dangerous!",bc_yellow;
sleep 2000;
mapannounce "ordeal_1-2","I must kill Human now!!!",bc_yellow;
monster "ordeal_1-2",169,162,""+getmonsterinfo($@boss6,0)+"",$@boss6,$@spawnb6,"Blue Memi::OnBoss6Death";
end;

 OnBoss6Death:
 set $Boss6Death,$Boss6Death+1;
 if($Boss6Death == $@spawnb6) goto spawnboss6death;
 end;

  spawnboss6death:
  set $Boss6Death,0;
  mapannounce "ordeal_1-2","Survival Guard : Round 6 Has Been Defeat!",bc_blue;
  sleep 5000;
  mapannounce "ordeal_1-2","Round 7",bc_blue;
  monster "ordeal_1-2",169,141,""+getmonsterinfo($@monster7,0)+"",$@monster7,$@spawnm7,"Blue Memi::OnMob7Death";
  end;

  OnMob7Death:
  set $Mob7Death,$Mob7Death+1;
  if($Mob7Death == $@spawnm7) goto spawnmonster7death;
  end;

spawnmonster7death:
set $Mob7Death,0;
mapannounce "ordeal_1-2","Alright.. Before you beat my boss, beat me first!!",bc_yellow;
sleep 2000;
mapannounce "ordeal_1-2","Right .. !!!",bc_yellow;
monster "ordeal_1-2",169,162,""+getmonsterinfo($@boss7,0)+"",$@boss7,$@spawnb7,"Blue Memi::OnBoss7Death";
end;

 OnBoss7Death:
 set $Boss7Death,$Boss7Death+1;
 if($Boss7Death == $@spawnb7) goto spawnboss7death;
 end;

  spawnboss7death:
  set $Boss7Death,0;
  mapannounce "ordeal_1-2","Hahahaa .. you will killed by my boss!!",bc_yellow;
  sleep 1000;
  mapannounce "ordeal_1-2","Survival Guard : Round 7 Has Been Defeat!",bc_blue;
  sleep 5000;
  mapannounce "ordeal_1-2","Final Round !",bc_blue;
  monster "ordeal_1-2",169,141,""+getmonsterinfo($@monster8,0)+"",$@monster8,$@spawnm8,"Blue Memi::OnMob8Death";
  end;

  OnMob8Death:
  set $Mob8Death,$Mob8Death+1;
  if($Mob8Death == $@spawnm8) goto spawnmonster8death;
  end;

spawnmonster8death:
set $Mob8Death,0;
mapannounce "ordeal_1-2","Wonderful, Alright Prepare for Final Battle Human!!",bc_yellow;
sleep 2000;
mapannounce "ordeal_1-2","Hahahaha ..",bc_yellow;
monster "ordeal_1-2",169,162,""+getmonsterinfo($@boss8,0)+"",$@boss8,$@spawnb8,"Blue Memi::OnBoss8Death";
end;

 OnBoss8Death:
 set $Boss8Death,$Boss8Death+1;
 if($Boss8Death == $@spawnb8) goto spawnboss8death;
 end;

  spawnboss8death:
  set $Boss8Death,0;
  mapannounce "ordeal_1-2","Survival Guard : Survival Arena Defeat",bc_blue;
  hideoffnpc "Survival Arena Guard";
  sleep 3000;
  announce "Survival Guard : "+getmapusers("ordeal_1-2")+" Players Beat the Survival Arena",bc_blue|bc_all;
  end;

  }
}
//==================================================================
//== Script on Survival Arena ======================================
ordeal_1-2,158,147,5 script Survival Arena Guard 106,{
//==================================================================
//==================================================================
//======== Check Variable Another NPC ==============================
set $@prizeone,getvariableofnpc(.prizeone,"Survival Arena");
set $@prizetwo,getvariableofnpc(.prizetwo,"Survival Arena");
set $@prizethree,getvariableofnpc(.prizethree,"Survival Arena");
set $@prizefour,getvariableofnpc(.prizefour,"Survival Arena");
set $@prizebonus,getvariableofnpc(.prizebonus,"Survival Arena");
set $@amountprizeone,getvariableofnpc(.amountprizeone,"Survival Arena");
set $@amountprizetwo,getvariableofnpc(.amountprizetwo,"Survival Arena");
set $@amountprizethree,getvariableofnpc(.amountprizethree,"Survival Arena");
set $@amountprizefour,getvariableofnpc(.amountprizefour,"Survival Arena");
set $@amountprizebonus,getvariableofnpc(.amountprizebonus,"Survival Arena");
set $@zenyprice,getvariableofnpc(.zenyprice,"Survival Arena");
//==================================================================
 if(getmapusers("ordeal_1-2") == 0){
 announce ""+strnpcinfo(0)+" : No Player in Survival Arena, Survival Arena now Closed.",bc_blue|bc_all;
 disablenpc "Survival Arena Guard";
 end;
 }

if(.survivalend == 1){
  mes "[survival Arena Guard]";
  mes "Congratulations, This is Your Prize";
  next;
  getitem $@prizeone,$@amountprizeone;
  getitem $@prizetwo,$@amountprizetwo;
  getitem $@prizethree,$@amountprizethree;
  getitem $@prizefour,$@amountprizefour;
  set zeny, zeny + $@zenyprice;
if(.bonusprize == 1){
mes "and This your Round Bonus";
getitem $@prizebonus,$@amountprizebonus;
mes "I'll send you bact to prontera";
close2;
warp "prontera",155,182;
}
  mes "I'll send you bact to prontera";
  close2;
  warp "prontera",155,182;
 }
}
//===== Map Configuration Settings ===================================================
//====================================================================================
ordeal_1-2 mapflag noloot
ordeal_1-2 mapflag nomemo
ordeal_1-2 mapflag noteleport
ordeal_1-2 mapflag nowarp
ordeal_1-2 mapflag noreturn
ordeal_1-2 mapflag noicewall
//=====================================================================================
//=====================================================================================

atte aepa1940

surv_arena.txt

Edited by aepa1940
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing
×
×
  • Create New...