viewing paste auto commands on login | 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
prontera,157,190,5  script  Login Settings  4_F_JOB_HUNTER,{
    .@npcname$ = "["+ strnpcinfo(1) +"]";
//    dispbottom atcommand_login +""; // debugging
    mes .@npcname$;
    mes "Hello, "+strcharinfo(0);
    mes "What setting do you want to change?";
    next;
    for ( .@i = 0; .@i < .total; .@i++ )
        .@menu$ = .@menu$ + .atname$[.@i] +"["+( ( atcommand_login & 1 << .@i )? "^00BB22On^000000" : "^FF2200Off^000000" )+"]:";
    .@s = select( .@menu$ ) -1;
    mes .@npcname$;
    mes "Status: "+( ( atcommand_login & 1 << .@s )? "^00BB22On^000000" : "^FF2200Off^000000");
    next;
    mes .@npcname$;
    if ( select( "I want to "+( ( atcommand_login & 1 << .@s )? "^FF2200disable^000000": "^00BB22enable^000000"  )+" it", "Nothing" ) == 2 ) {
        mes "See ya.";
        close;
    }
    if ( atcommand_login & 1 << .@s ) {
        mes .atname$[.@s] +" is now ^FF2200Off^000000.";
        atcommand "@"+ .atcommand$[.@s] +" off";
    }
    else {
        mes .atname$[.@s] +" is now ^00BB22On^000000.";
        atcommand "@"+ .atcommand$[.@s] +( ( .@s == 1 )? " on": "" );
    }
    atcommand_login = atcommand_login ^ 1 << .@s;
    close;
OnPCLoginEvent:
    if ( !atcommand_login ) end;
    for ( .@i = 0; .@i < .total; .@i++ ) {
        if ( atcommand_login & 1 << .@i ) {
            atcommand "@"+ .atcommand$[.@i] +( ( .@i == 1 )? " on": "" );
            dispbottom .atname$[.@i] +" is now On";
        }
    }
    end;
OnInit:
    setarray .atname$, "Autoloot ", "Show Zeny ", "Show exp ", "No Ask ", "Main Chat ";
    setarray .atcommand$, "autoloot", "showzeny", "showexp", "noask", "join #main";
    .total = 5;
    end;
}
Viewed 1118 times, submitted by Guest.