-   script  Kafra   -1,{
mes "Hi, i am Kafra";
switch( select( "Save",
                "Storage",
                "Warp",
                "Information" )){
    Case 1:
        getmapxy( .@Map$,.@X,.@Y,0 );
        save .@Map$,.@X,.@Y;
        mes "Saved.";
        break;
    Case 2:
        mes "Wait awhile.";
        close2;
        openstorage;
        end;
    Case 3:
        warp "prontera",155,181;
        end;
    
    default:
    Case 4:
        mes "This is a Kafra.";
        break;
}
close;
}
 
alberta,181,144,5   duplicate(Kafra)    Kafra#1 757
alberta,182,144,5   duplicate(Kafra)    Kafra#2 757
alberta,183,144,5   duplicate(Kafra)    Kafra#3 757
alberta,184,144,5   duplicate(Kafra)    Kafra#4 757
alberta,185,144,5   duplicate(Kafra)    Kafra#5 757