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 685 times, submitted by Legend.