War Over Rune Event

[Bringer]

WOR - War over Rune

1. The NPC will broadcast " War Of Rune Registration will start at 5 minutes "

2. After 5 minutes, the NPC will broadcast again " War Of Rune registration has been started you may now register! in 5 minutes"

//Registration NPC

jupe_ele,46,57,4    script    LMS 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 "War over Rune: War Of Rune Registration will start at 5 minutes",0;
    sleep2 10000;
    announce "War over Rune: War Of Rune Registration will start at 4 minutes",0;
    sleep2 10000;
    announce "War over Rune: War Of Rune Registration will start at 3 minutes",0;
    sleep2 10000;
    announce "War over Rune: War Of Rune Registration will start at 2 minutes",0;
    sleep2 10000;
    announce "War over Rune: War Of Rune Registration will start at 1 minutes",0;
    sleep2 10000;
    announce "War over Rune:  War Of Rune registration has been started you may now register! in 5 minutes.",0;
    sleep2 10000;
    announce "War over Rune: After 3 Minute the Registration will close.",0;
    sleep2 10000;
    announce "War over Rune: Please go to Prontera and Register now if you want to join.",0;
    initnpctimer;
    end;

OnTimer30000:
    announce "War over Rune: Last 30 seconds.",0;
    sleep2 5000;
    announce "War over Rune: If you want to join please Register in Prontera.",0;
    end;

OnTimer50000:
    announce "War over Rune: Last 10 seconds.",0;
    end;

OnTimer55000:
    announce "War over Rune: 5.",0;
    end;

OnTimer56000:
    announce "War over Rune: 4.",0;
    end;

OnTimer57000:
    announce "War over Rune: 3.",0;
    end;

OnTimer58000:
    announce "War over Rune: 2.",0;
    end;

OnTimer59000:
    announce "War over Rune: 1.",0;
    end;

OnTimer60000:
    announce "War over Rune: Time's up.",0;
    end;

OnTimer61000:

    donpcevent "weRO NPC::OnEnable";
    stopnpctimer;
    end;
}

 

3. Player can start registering, after clicking the NPC "War of rune" it have 2 choices "Join or Leave"

 

4. If they choose join they will randomize join 50% to Green and 50% to Red Team

ex.

You will be in Green Team! 

*(change the cloth color to green - To show he is in green team.

 

else

 

You will be in Red Team!

*(Change the cloth color to red - To show he is in Red Team.

//Registration NPC

prontera,142,178,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 ) {
    mes .@name$;
    mes "You will be participating in the '^0000FFBlue Team^000000'.";
    close2;
    setlook 7,374;
    warp "prt_are01",47,149;
    set woralready,1;
    end;

    mes .@name$;
    mes "You will be participating in the '^FF0000Red Team^000000'.";
    close2;
    setlook 7,407;
    warp "prt_are01",251,149;
    set woralready,1;
    end;
}

if ( woralready == 1 ) {
    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;
}

 

the 2 teams will have their own room

then there will be an npc they can talk to to enter the arena

if they die they goe back to their respective rooms

exiting WoR was allowed but not allowed to rejoin

the npc inside the respective team's rooms

will have an option

to show the current scores of the teams

their total kills and deaths

at the end

//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+"";
    mes "Death(s): "+deaths_player_red+"";
    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+"";
    mes "Death(s): "+deaths_player_red+"";
    close;
}

//Player Dies in the event
-    script    wordie    -1,{
set red_score,0;
set blue_score,0;
set deaths_player_red,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;
repair(1);
repair(2);
repair(3);
repair(4);
repair(5);
repair(6);
repair(7);
repair(8);
repair(9);
repair(10);
            sleep2 10000;
            warp "prt_are01",90,149;
        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;
repair(1);
repair(2);
repair(3);
repair(4);
repair(5);
repair(6);
repair(7);
repair(8);
repair(9);
repair(10);
            sleep2 10000;
            warp "prt_are01",208,149;
        end;
        }
}

 

 

ok anyone can help to write how run this event ?

1.This Event only Run For 20mins of Fighting Every kill or Death will be record on the npc

2 each members from the winning team will receive 100 bonus kill points

 

3.all the players who joined will be warped to a non-pk area

the npc for exit will be there and gives them 20 Cash Points

warped to prontera

Edited November 19, 2016 by Emistry
Please use CODEBOX.