WoR Event Missing Part Script Help

[Bringer]

Mechanics:

• Has GM controller (GM can trigger on/off debugging purposes)
• NPC Automated (can be changed)
• Announces that "PVP vs PVP will happen"
• NPC will announce that you have XXmins to register
• Click the NPC to register/leave (2 choices)
• After registering, players will warp to a certain map and will randomize them to join 50% chance on Team A(Can be changed; ex cloth color blue) &  TeamB(cloth Color Red) 
  • Warps to the room, change cloth color of player when he's in Red Team or Blue Team

Spoiler

//Registration NPC

jupe_ele,40,57,4	script	WoR Trigger	106,{

if (getgmlevel() >= 30) goto wor_Admin;
    mes "[Minion]";
    mes "Hello " + strcharinfo(0) + ", my master is busy.";
    mes "*sigh*";
    close;

wor_Admin:
    mes "[WoR Trigger]";
    mes "Hello " + strcharinfo(0) + ", would you like me to call my Boss?";
    mes "He is the only one who can start it!";
    menu "Start Event",startlmsevent2,"No Thanks",leave;
    startlmsevent2:
        next;
        mes "[WoR Trigger]";
        mes "Ok, I'll call him this instant.";
        close2;
        goto startworevent;


leave:
        next;
        mes "[WoR Trigger]";
        mes "Ok " + strcharinfo(0) +", nice seeing you.";
        close;
OnClock0000:
OnClock0300:
OnClock0600:
OnClock0900:
goto startworevent;


startworevent:
	announce "[ WoR Manager ]: War Of Rune Registration will start at 5 minutes",0;
		sleep2 1000;
    announce "[ WoR Manager ]:  War Of Rune registration has been started you may now register! in 5 minutes.",0;
    sleep2 1000;
    announce "[WoR Manager]: Please go to Prontera and Register now if you want to join.",0;
    initnpctimer;
    end;

OnTimer30000:
    announce "[WoR Manager ]: Last 30 seconds.",0;
    sleep2 1000;
    announce "[WoR Manager ]: If you want to join please Register in Prontera.",0;
    end;

OnTimer50000:
    announce "[WoR Manager]: Last 10 seconds.",0;
    end;

OnTimer55000:
    announce "[WoR Manager]: 5.",0;
    end;

OnTimer56000:
    announce "[WoR Manager]: 4.",0;
    end;

OnTimer57000:
    announce "[WoR Manager]: 3.",0;
    end;

OnTimer58000:
    announce "[WoR Manager]: 2.",0;
    end;

OnTimer59000:
    announce "[WoR Manager]: 1.",0;
    end;

OnTimer60000:
    announce "[WoR Manager]: Registration of the War Over Rune is Over.",0;
    end;

OnTimer61000:

    donpcevent "WoR Manager::OnEnable";
    stopnpctimer;
    end;
}


//Registration NPC
aretnorp,208,249,5	script	WoR Manager	734,{


set look,rand(1,2);
set .@name$,"[WoR Manager]";
	mes .@name$;
	mes "Greetings, how can be any help for you today?";
	menu "Register",register,"What is WoR?",what_is_wor,"WoR Schedules",wor_schedules,"I'm just passing by",im_just_passing_by;
register:
	if ( look == 1 ) {
		next;
		mes .@name$;
		mes "You will be participating in the '^0000FFBlue Team^000000'.";
		setlook 7,374;
		warp "prt_are01",47,149;
		set woralready,1;
		end;
		}
		else {
		next;
		mes .@name$;
		mes "You will be participating in the '^FF0000Red Team^000000'.";
		setlook 7,407;
		warp "prt_are01",251,149;
		set woralready,1;
		end;
		}
if ( woralready == 1 ) {
	next;
	mes .@name$;
	mes "I'm sorry adventurer, but leaving the arena means quitting the entire event. Please try again next time.";
	close;
}

wor_schedules:
	next;
	mes .@name$;
	mes "The current WoR Schedules are:";
	mes "^0000FF12:00^000000";
	mes "^0000FF21:00^000000";
	mes "^0000FF03:00^000000";
	close;

what_is_wor:
	next;
	mes .@name$;
	mes "WoR is the short term for 'War Over Rune'.";
	next;
	mes .@name$;
	mes "WoR is a PvP-Based Event where in you have 20 minutes to kill anyone in the opposing team.";
	next;
	mes .@name$;
	mes "There are two teams in the event: The ^0000FFBlue Team^000000 and The ^FF0000Red Team^000000";
	next;
	mes .@name$;
	mes "The Goal of the event is to gain points by killing other team's members.";
	next;
	mes .@name$;
	mes "After 20 minutes, an NPC will appear in the middle of the map to give rewards to players.";
	next;
	mes .@name$;
	mes "The reward for the winning team is 100 PvP Points and 20 PvP Points for the losing team.";
	close;

im_just_passing_by:
	next;
	mes .@name$;
	mes "Okay, see yah later.";
	close;

OnEnable:
	announce "[WoR Manager]: Both teams have 1 Minute to prepare",bc_all;
	sleep2 10000;
	announce "[WoR Manager]:War Over Rune Begun! You have 20minutes. Good Luck ot both teams!",bc_all;
	sleep2 10000;
	end;

}

 

Inside the Room area:

• Red Team Waiting ROOM
  prt_are01 251,149
• Blue Team Waiting Room
  prt_are01 49,149
• Players can't move until the event time starts.
• Two NPCs where Team A and Team B are separated. (own room for TEAM A and TEAM B )
  • NPCs has this option: Can quit and warp back to savepoint. 
  • NPCs can shower what's the current status of the game:
    • Their Kills , Deaths , and scores of Red and Blue Team
      Spoiler

      
      //Team NPC (Red Team)
      prt_are01,75,228,5	script	Red Team Manager	733,{
          mes "[Team Manager]";
          mes "What do you want to know?";
          menu "Standings",standings_red;
      
      standings_red:
          next;
          mes "[ WoR Score ]";
          mes "Red Team: "+red_score+"";
          mes "Blue Team: "+blue_score+"";
          close;
      }
      
      //Team NPC (Blue Team)
      prt_are01,223,80,5	script	Blue Team Manager	733,{
          mes "[Team Manager]";
          mes "What do you want to know?";
          menu "Standings",standings_blue;
      
      standings_blue:
          next;
          mes "[ WoR Score ]";
          mes "Red Team: "+red_score+"";
          mes "Blue Team: "+blue_score+"";
          close;
      }
      
      -	script	workill	-1,{
      
      OnPCKillEvent:
      	getmapxy(.@map$,.@x,.@y,0);
      	if(.@map$=="prt_are01")
      	set #CASHPOINTS,#CASHPOINTS+1;
      	dispbottom "Gained a kill point! Total: [ "+#CASHPOINTS+" ] "; 
      	end;
      }
      
      //Player Dies in the event
      -	script	wordie	-1,{
      set red_score,0;
      set blue_score,0;
      set deaths_player_red,0;
      set deaths_player_blue,0;
      OnPCDieEvent:
      	if( strcharinfo(3) == "prt_are01" && getlook(7) == 374 ) {
              set red_score,red_score+1;
              set deaths_player_red,deaths_player_red+1;
                  warp "prt_are01",76,223;
                  sleep2 1000;
      	percentheal 100,100;
      	repairall();
                  sleep2 10000;
                  warp "prt_are01",104,195;
              end;
      	}
      	if( strcharinfo(3) == "prt_are01" && getlook(7) == 407 ) {
              set blue_score,blue_score+1;
              set deaths_player_blue,deaths_player_blue+1;
              warp "prt_are01",223,75;
                  sleep2 1000;
      	percentheal 100,100;
      	repairall();
                  sleep2 10000;
                  warp "prt_are01",195,104;
              end;
              }

       

       

Event starts:

• NPC will chose a KING(Cloth Color can be changed) from both TEAMS [will be announced on the map] 
  • If the king is killed, killer will receive xx item (can be changed or points) [announce if killed and the killer]
  • If the king is killed, NPC will choose a new King. [announce again the new king]
    • King cannot use skill. unless he's killed. 
  • If the king will not die on the whole event, he will receive xxitem(can be changed or points)
• If they die, they will instantly back to their "own" room, where they were separated at first. 
• Red Team Respawn Area prt_are01 76 223
• Blue Team Respawn Area prt_are01 223 75
• If players kill their own Team 5x(can change or decrease points every teamkill), they will instantly warped to savepoint.

Event ends:

• All players inside the map will be warped on a certain location [prt_are01,149,249] with the NPC [prt_are01,149,253] to click and get them out of the room.
• Higher Team Score will be Winner
• Winning team gets (xxx item / points) and Losing team gets (xxx item / points.)

Edited March 16, 2017 by Bringer
Fix The Missing Req for Script