<header>,{
    set .@n$,"[Kafra Manager]";
    mes .@n$;
    mes "How can I help you?";
    next;
    switch(select("Save Point:Storage:Reset Stats/Skills:Change Guild Master:Heal:Warp to PvP")) {
        Case 1: 
            getmapxy(.@m$,.@x,.@y,0); 
            savepoint .@m$,.@x,.@y; 
            break;
        Case 2: callfunc "F_KafStor",0,0,0; break;
        Case 3: 
            set .@el, select("Stats:Skills:Both");
            setarray .@z[1], 55000,55000,100000;
            if ((.@el == 3 && Zeny < .@z[.@el]) || (.@el < 3 && Zeny < .@z[.@el])) {
                next;
                mes "Insufficient Zeny";
                close;
            }           
            if (.@el == 1 || .@el == 3) resetstatus; 
            if (.@el == 2 || .@el == 3) resetskill; 
            break;
        Case 4: 
            while (.@c < 2) {
                mes .@n$;
                mes "Transferee name: "+.@qwer$; 
                if (!.@c) { next; input .@qwer$; }
                set .@c, .@c + 1;
            }
            next;
            if (select("Proceed:Cancel") == 2) close;
            if (!guildchangegm(getcharid(2),.@qwer$) || strcharinfo(0) != getguildmaster(getcharid(2))) mes "Guild transferring process failed."; 
            break;
        Case 5: percentheal 100,100; break;
        Case 6: warp "pvproom",0,0; break;
    }
    close;
}