viewing paste Unknown #743 | 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
-   script  Login_Events#login1 -,{
 
    callfunc "F_LOGINCOMMANDS";
    end;
 
OnPCLoginEvent:
    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;
}
 
function    script  F_LOGINCOMMANDS {
 
    mes "[GinRO]";
    mes "Please select a setting to modify it~";
L_StartLabel:
    next;
    // 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"; }
    menu "@autoloot "+.@menuPC$[0],L_ALoot,"@noks "+.@menuPC$[1]+" ["+#noks2PC$+"]",L_NoKS,"@showexp "+.@menuPC$[2],L_ShowEXP,"@showdelay "+.@menuPC$[3],L_Showdelay,"Cancel",-;
 
    close;
 
L_ALoot:
    if(#autolootPC == 0) {
        set #autolootPC,1;
        set .@menuPC$[0],"^0066CCOn^000000";
        atcommand strcharinfo(0)+":@autoloot 100";
        goto L_StartLabel;
    } else {
        set #autolootPC,0;
        set .@menuPC$[0],"^CC6600Off^000000";
        atcommand strcharinfo(0)+":@autoloot 0";
        goto L_StartLabel;
    }
 
L_NoKS:
    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";
                goto L_StartLabel;
            case 2:
                set #noks2PC$,"self";
                atcommand strcharinfo(0)+":@noks self";
                goto L_StartLabel;
            case 3:
                set #noks2PC$,"guild";
                atcommand strcharinfo(0)+":@noks guild";
                goto L_StartLabel;
        }
    } else {
        set #noksPC,0;
        set #noks2PC$,"none";
        set .@menuPC$[1],"^CC6600Off^000000";
        atcommand strcharinfo(0)+":@noks";
        goto L_StartLabel;
    }
 
L_ShowEXP:
    if(#showexpPC == 0) {
        set #showexpPC,1;
        set .@menuPC$[2],"^0066CCOn^000000";
        atcommand strcharinfo(0)+":@showexp";
        goto L_StartLabel;
    } else {
        set #showexpPC,0;
        set .@menuPC$[2],"^CC6600Off^000000";
        atcommand strcharinfo(0)+":@showexp";
        goto L_StartLabel;
    }
L_Showdelay:
    if(#showdelayPC == 0) {
        set #showdelayPC,1;
        set .@menuPC$[3],"^0066CCOn^000000";
        atcommand strcharinfo(0)+":@showdelay";
        goto L_StartLabel;
    } else {
        set #showdelayPC,0;
        set .@menuPC$[3],"^CC6600Off^000000";
        atcommand strcharinfo(0)+":@showdelay";
        goto L_StartLabel;
    }
}
Viewed 721 times, submitted by Guest.