viewing paste Kafra | Plain text

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
<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;
}
Viewed 818 times, submitted by Joseph.