viewing paste topic/4495- koe_1.2.txt | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123
//===== Hercules Script ===========================================
//= King of Emperium Hill
//===== By: =======================================================
//= AnnieRuru
//===== Current Version: ==========================================
//= 1.2
//===== Compatible With: ==========================================
//= hercules & rathena 2018-04-08
//===== Description: ==============================================
//= defends the emperium in the middle of the map until times up
//===== Topic =====================================================
//= http://hercules.ws/board/topic/4495-gvg-king-of-emperium-hill/
//===== Additional Comments: ======================================
//= Finally there is a topic for this !
//=================================================================
 
-   script  KoE FAKE_NPC,{
OnInit:
    disablenpc "The King#KoE";
    disablenpc "Exit#KoE";
    bindatcmd "koe", strnpcinfo(0)+"::OnCommand", 99,100;
    end;
OnCommand:
    if ( compare( .@atcmd_parameters$, "on" ) ) goto L_start;
    else if ( compare( .@atcmd_parameters$, "off" ) ) goto L_end;
    else {
        dispbottom "type - '@koe on' to start the event";
        dispbottom "type - '@koe off' to end the event";
    }
    end;
L_start:
OnClock2000: // everyday 8pm starts
    if ( .start ) end;
    gvgon "guild_vs1";
    announce "The King of Emperium Hill has begun!", bc_all;
    .start = true;
    enablenpc "The King#KoE";
    disablenpc "Exit#KoE";
    $koegid = 0;
    donpcevent "::OnRevKoE";
    maprespawnguildid "guild_vs1", $koegid, 3;
    killmonster "guild_vs1", "KoE::OnEmpDead";
    monster "guild_vs1",49,49, "EMPERIUM", 1288, 1, "KoE::OnEmpDead";
    end;
L_end:
OnClock2030: // everyday 8:30pm ends
    gvgoff "guild_vs1";
    announce "The King of Emperium Hill is over!", bc_all;
    .start = 0;
    enablenpc "Exit#KoE";
    disablenpc "The King#KoE";
    killmonster "guild_vs1", "KoE::OnEmpDead";
//  maprespawnguildid "guild_vs1", $koegid, 2; // uncomment this line to kick non-owner off the map when event ends
    end;
OnEmpDead:
    $koegid = getcharid(2);
    announce "The current King of Emperium Hill is the ["+ strcharinfo(2) +"] guild.", bc_all;
    donpcevent "::OnRevKoE";
    maprespawnguildid "guild_vs1", $koegid, 2;
    killmonster "guild_vs1", "KoE::OnEmpDead";
    sleep 500;
    if ( .start )
        monster "guild_vs1",49,49, "EMPERIUM", 1288, 1, "KoE::OnEmpDead";
    end;
}
 
// KoE Entrance
prontera,155,191,4  script  The King#KoE    1_M_MERCHANT,{
    mes "[The King]";
    if ( !getcharid(2) ) {
        mes "You must have a guild to participate in the ^FF0000King of Emperium Hill Tournament^000000.";
        close;
    }
    mes "Hello.";
    mes "Would you like to participate in the ^FF0000King of Emperium Hill Tournament^000000?";
    if ( select ( "Yes", "No" ) == 2 ) close;
    if ( !getvariableofnpc( .start, "KoE" ) ) close;
    switch( rand(1,4) ){
    case 1: warp "guild_vs1", 50, 88; end;
    case 2: warp "guild_vs1", 88, 50; end;
    case 3: warp "guild_vs1", 50, 11; end;
    case 4: warp "guild_vs1", 11, 50; end;
    }
}
 
// KoE Exit
guild_vs1,49,56,5   script  Exit#KoE    1_M_BARD,{
    mes "[Exit]";
    mes "See ya.";
    close2;
    warp "Save",0,0;
    if ( getcharid(2) == $koegid )
        getitem 7539, 1; // configure prize here - Poring Coin
    end;
}
 
// Flags
guild_vs1,49,38,4   script  King of Emperium Hill#1::koe_flag   GUILD_FLAG,{
    if ( !$koegid ) end;
    mes "[King of Emperium Hill]";
    mes "The Current King of Emperium Hill is the ["+ getguildname($koegid) +"] guild.";
    close;
//OnInit: // Uncomment this line to make the emblem stay after @reloadscript
OnRevKoE:
    flagemblem $koegid;
    end;
}
guild_vs1,61,49,6   duplicate(koe_flag) King of Emperium Hill#2 GUILD_FLAG
guild_vs1,38,49,2   duplicate(koe_flag) King of Emperium Hill#3 GUILD_FLAG
guild_vs1,49,61,0   duplicate(koe_flag) King of Emperium Hill#4 GUILD_FLAG
 
guild_vs1   mapflag nobranch
guild_vs1   mapflag nomemo
guild_vs1   mapflag nopenalty
guild_vs1   mapflag noreturn
guild_vs1   mapflag nosave  SavePoint
guild_vs1   mapflag noteleport
guild_vs1   mapflag gvg_noparty
guild_vs1   mapflag nowarp
guild_vs1   mapflag nowarpto
guild_vs1   mapflag guildlock
//guild_vs1 mapflag noicewall
 
Viewed 1758 times, submitted by AnnieRuru.