viewing paste Unknown #746 | C

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
caspen,0,0,0    script  Login Manager   123,{
 
        if(login_command != 1){
                set login_command,1;
        }
        mes "[GinRO]";
        mes "Hello "+strcharinfo(0)+",";
        mes "I'm the Login Manager of GinRO!";
        next;
        mes "[GinRO]";
        mes "Here you can manage certain @-commands which should be either enabled or disabled when you Login in the great World of GinRO!";
        next;
        mes "[GinRO]";
        mes "So what can I do for you today?";
        next;
        switch(select(
        // Autoloot
        if(#autolootPC == 0) {
                set .@menuPC$[0],"^CC6600Off^000000";
        } else {
                set .@menuPC$[0],"^0066CCOn^000000";
        }
        // NoKs
        if(#noksPC == 0){
                set .@menuPC$[1],"^CC6600Off^000000";
        } else {
                set .@menuPC$[1],"^0066CCOn^000000";
        }
        // ShowExp
        if(#showexpPC == 0) {
                set .@menuPC$[2],"^CC6600Off^000000";
        } else {
                set .@menuPC$[2],"^0066CCOn^000000";
        }
        // Showdelay
        if(#showdelayPC == 0) {
                set .@menuPC$[3],"^CC6600Off^000000";
        } else {
                set .@menuPC$[3],"^0066CCOn^000000";
        }
        "@autoloot "+.@menuPC$[0]+":@noks "+.@menuPC$[1]+" ["+#noks2PC$+"]:@showexp "+.@menuPC$[2]+":@showdelay "+.@menuPC$[3]+":Cancel")){
        case 1:
                if(#autolootPC == 0) {
                        set #autolootPC,1;
                        atcommand strcharinfo(0)+":@autoloot 100";
                        close;
                } else {
                        set #autolootPC,0;
                        atcommand strcharinfo(0)+":@autoloot 0";
                        close;
                }
        case 2:
                if(#noksPC == 0) {
                        set #noksPC,1;
                        set .@menuPC$[1],"^0066CCOn^000000";
                        switch(select("party","self","guild")) {
                                case 1:
                                        set #noks2PC$,"party";
                                        atcommand strcharinfo(0)+":@noks party";
                                        close;
                                case 2:
                                        set #noks2PC$,"self";
                                        atcommand strcharinfo(0)+":@noks self";
                                        close;
                                case 3:
                                        set #noks2PC$,"guild";
                                        atcommand strcharinfo(0)+":@noks guild";
                                        close;
                        }
                } else {
                        set #noksPC,0;
                        set #noks2PC$,"none";
                        atcommand strcharinfo(0)+":@noks";
                        close;
                }
        case 3:
                if(#showexpPC == 0) {
                        set #showexpPC,1;
                        atcommand strcharinfo(0)+":@showexp";
                        close;
                } else {
                        set #showexpPC,0;
                        atcommand strcharinfo(0)+":@showexp";
                        close;
                }
        case 4:
                if(#showdelayPC == 0) {
                        set #showdelayPC,1;
                        atcommand strcharinfo(0)+":@showdelay";
                        close;
                } else {
                        set #showdelayPC,0;
                        atcommand strcharinfo(0)+":@showdelay";
                        close;
                }
        case 5:
                close;
        }
 
OnPCLoginEvent:
        if(login_command != 1) end;
        if(#autolootPC == 1) atcommand strcharinfo(0)+":@autoloot 100";
        if(#noks2PC$ == "") set #noks2PC$,"self";
        if(#noksPC == 1) atcommand strcharinfo(0)+":@noks "+#noks2PC$;
        // By default there are On, so we make an inverse check
        if(#showexpPC == 0) atcommand strcharinfo(0)+":@showexp";
        if(#showdelayPC == 0) atcommand strcharinfo(0)+":@showdelay";
        end;
}
Viewed 262 times, submitted by unknown.