viewing paste [ Request ] Novice Barricade | 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
// =============================
/* Novice Barricade: http://herc.ws/board/topic/13730-gate-script-request/
    ----------------------------
    by: Legend
    compatible w/: Hercules
    ----------------------------
    Description:
    * Enables you to activate or deactivate
      barricades on "new_1-1" map
    * Can be activated by using "@barricade" command
    * Visual barricades were added (NPC dummies)
*/
// =============================
 
-   script  request#3   FAKE_NPC,{
OnInit:
    bindatcmd "barricade",strnpcinfo(3)+"::OnMain",99,99;
    .npc$ = "[ Barricade Manager ]";
    .map$ = "new_1-1";
    .checkbarricade = 0;
    delwall "OnBarricade";
    disablenpc "Barricade#1";
    disablenpc "Barricade#2";
    disablenpc "Barricade#3";
    disablenpc "Barricade#4";
    end;
    
OnMain:
    mes .npc$;
    mes "What would you like to do?";
    mes "Status: "+(.checkbarricade? "[ ^28bf00Active^000000 ]":"[ ^777777Inactive^000000 ]");
    next;
    menu (.checkbarricade? "^777777Disable Barricades^000000":"^28bf00Enable Barricades^000000"),L_status,
    "Nevermind",L_close;
        L_status:
            close2;
            if (!.checkbarricade) {
                .checkbarricade = 1;
                dispbottom "Barricades were deployed!";
                setwall .map$,68,113,4,4,1,"OnBarricade";
                enablenpc "Barricade#1";
                enablenpc "Barricade#2";
                enablenpc "Barricade#3";
                enablenpc "Barricade#4";
                end;
            }
            .checkbarricade = 0;
            dispbottom "Barricades were removed!";
            delwall "OnBarricade";
            disablenpc "Barricade#1";
            disablenpc "Barricade#2";
            disablenpc "Barricade#3";
            disablenpc "Barricade#4";
            end;
            
        L_close:
            mes .npc$;
            mes "Anytime you wish";
            close;
}
 
// -- NPC Dummies & Duplicates
new_1-1,68,113,4    script  Barricade#1 BARRICADE,{
    end;
}
new_1-1,68,112,4    duplicate(Barricade#1)  Barricade#2 BARRICADE
new_1-1,68,111,4    duplicate(Barricade#1)  Barricade#3 BARRICADE
new_1-1,68,110,4    duplicate(Barricade#1)  Barricade#4 BARRICADE
Viewed 1147 times, submitted by Legend.