//===== Akito Script =========================================
//= prologo 1
//===== By: ================================================== 
//= Akito && Dynasty
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= rAthena SVN 3422+(Requires jA Script System)
//===== Description: ========================================= 
//===== Additional Comments: ================================= 
//============================================================
//======Changeslog============================================
//= 1.0 Work complete
//============================================================
moonhaven,206,239,3 Script  Kara    811,{
set .@name$,"^DA00FF[Kara]^000000";
set .@questpro1,1017;
set .@map$,"prontera";
set .@x,271;
set .@y,354;
set .@hunting, checkquest(.@questpro1,HUNTING);
if(prologe >= 1){
        mes .@name$;
        mes "Ya has terminado esta quest";
        close;
}else if(prologe == 1) && (.@hunting == 2) {
    if (SkillPoint) {
        mes .@name$;
        mes "Por favor usa todos tus puntos de skill antes de proceder";
        close;
    }
    if (BaseLevel < 10) || (JobLevel < 10){
        mes .@name$;
        mes "Aun no estas preparado tienes que ser level 10/10";
        close;
    }
    cutin "valkria2",1;
    mes .@name$;
    mes "He,he,he, por alguna razon me siento feliz.";
    next;
    mes .@name$;
    mes "Ahora puedes conseguir poder!";
    next;
    mes .@name$;
    mes "Que te gustaria ser?";
            next;
            cutin "",255;
            switch(select("Swordman:Thief:Archer:Acolyte:Mage:Merchant:Ninja:Taekwon:Gunslinger:Super novice")){
        case 1:
                mes .@name$;
                mes "Estas seguro de que quieres ser un Swordman?";
                nextl
                switch(select("Si:No")){
                case 1:
                set .@id,1;//Swordman
                set .@item,1101;
                callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
                end;
                case 2:
                mes .@name$;
                mes "Ok, vuelve cuando estes seguro";
                close;
                }
        case 2:
                es .@name$;
                mes "Estas seguro de que quieres ser un Swordman?";
                nextl
                switch(select("Si:No")){
                case 1:
                set .@id,6;//Thief
                set .@item,1207; 
                callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
                end;
                case 2:
                mes .@name$;
                mes "Ok, vuelve cuando estes seguro";
                close;
                }
        case 3:
                mes .@name$;
                mes "Estas seguro de que quieres ser un Swordman?";
                nextl
                switch(select("Si:No")){
                case 1:
                set .@id,3;//Archer
                set .@item,1701; 
                callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
                end;
                case 2:
                mes .@name$;
                mes "Ok, vuelve cuando estes seguro";
                close;
                }
        case 4:
                mes .@name$;
                mes "Estas seguro de que quieres ser un Swordman?";
                nextl
                switch(select("Si:No")){
                case 1:
                set .@id,4;//Acolite
                set .@item,1601; 
                callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
                end;
                case 2:
                mes .@name$;
                mes "Ok, vuelve cuando estes seguro";
                close;
                }
        case 5:
                mes .@name$;
                mes "Estas seguro de que quieres ser un Swordman?";
                nextl
                switch(select("Si:No")){
                case 1:
                set .@id,2;//Mage
                set .@item,1601; 
                callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
                end;
                case 2:
                mes .@name$;
                mes "Ok, vuelve cuando estes seguro";
                close;
                }
        case 6:
                mes .@name$;
                mes "Estas seguro de que quieres ser un Swordman?";
                nextl
                switch(select("Si:No")){
                case 1:
                set .@id,5;//Merchant
                set .@item,1301; 
                callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
                end;
                case 2:
                mes .@name$;
                mes "Ok, vuelve cuando estes seguro";
                close;
                }
        case 7:
                mes .@name$;
                mes "Estas seguro de que quieres ser un Swordman?";
                nextl
                switch(select("Si:No")){
                case 1:
                set .@id,25;//Ninja
                set .@item,1207; 
                callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
                end;
                case 2:
                mes .@name$;
                mes "Ok, vuelve cuando estes seguro";
                close;
                }
        case 8:
                mes .@name$;
                mes "Estas seguro de que quieres ser un Swordman?";
                nextl
                switch(select("Si:No")){
                case 1:
                set .@id,4046;//Taekwado
                set .@item,501; 
                callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item;
                end;
                case 2:
                mes .@name$;
                mes "Ok, vuelve cuando estes seguro";
                close;
                }
        case 9:
                mes .@name$;
                mes "Estas seguro de que quieres ser un Swordman?";
                nextl
                switch(select("Si:No")){
                case 1:
                set .@id,24;//Gunslinger
                set .@item,13111; 
                set .@item2,13200;
                set .@item3,500;
                callfunc "jobchange3",.@id,.@map$,.@x,@y,.@name$,.@item,.@item2,.@item3;
                end;
                case 2:
                mes .@name$;
                mes "Ok, vuelve cuando estes seguro";
                close;
                }
        case 10:
                mes .@name$;
                mes "Estas seguro de que quieres ser un Swordman?";
                nextl
                switch(select("Si:No")){
                case 1:
                set .@id,23;//Super novice
                set .@item,1249; 
                callfunc "jobchange2",.@id,.@map$,.@x,@y,.@name$,.@item;
                end;
                case 2:
                mes .@name$;
                mes "Ok, vuelve cuando estes seguro";
                close;
                }
            }
}else if (.@hunting == 0 || .@hunting == 1) {
            mes .@name$;
            mes "Aun no has terminado la quest!";
            close;
    }else if(prologe) && (.@hunting == -1){
        end;
    }
}
//============================================================================
moonhaven,179,61,3  Script  Inicio  811,{
set .@name$,"^000000[Kara]^000000";
set .@questpro1,1017;
set .@map$,"prontera";
set .@x,271;
set .@y,354;
set .@hunting, checkquest(.@questpro1,HUNTING);
if(!prologe) && (.@hunting == -1){
specialeffect2 113;
specialeffect2 114;
cutin "valkria",1;
mes .@name$;
mes "Hola... yo soy Kara una valkiria.";
next;
mes .@name$;
mes "¿Que donde estamos?.";
next;
mes .@name$;
mes "Estamos en las puertas de Vanalheim, el mundo de la creacion.";
next;
mes .@name$;
mes "Si, tu estas muerto. hace ya unos meses...";
next;
cutin "valkria5",1;
mes .@name$;
mes "H-ah, ah! ¿que como moriste?. Los draconianos atacaron tu villa, aunque eso pasa todos los dias.";
next;
cutin "valkria3",1;
mes .@name$;
mes "Ha! no sabes ¿quienes son los draconianos?. ellos viene de otro mundo, el mundo de una civilizacion aparentemente destruida.";
next;
mes .@name$;
mes "Ellos declararon la guerra a Asgard! tienen mucho poder... Aunque de eso hacen ya 7 años!. ";
next;
cutin "valkria4",1;
mes .@name$;
mes "Eso me hace recordar, cuando lo conoci por primera vez, Al ^005EFFheroe^000000.";
next;
cutin "valkria",1;
mes .@name$;
mes "Te preguntas ¿quien es el heroe? es el hombre del que me enamore!.";
next;
mes .@name$;
mes "El perdio su vida, su esposa y su 2 hijos... Hace 7 años, su pueblo fue atacado por los dragones y solo cenizas y escombros quedaron.";
next;
mes .@name$;
mes "El me pidio que lo devolviera a midgard... No queria que mas personas sufriezen como el.";
next;
mes .@name$;
mes "¿Quieres volver a midgard? hmm... Te podria devolver la vida... Pero... Con una condicion, quiero que luches junto el ^005EFFHeroe^000000. ¿Es un trato?.";
next;
cutin "",255;
switch(select("Si")){
    case 1:
cutin "valkria",1;
mes .@name$;
mes "Antes de todo ¿quieres mi ayuda? o ¿puedes hacerlo solo?.";
next;
cutin "",255;
            switch(select("Ayudame:Salir")){
                    case 1:
                    cutin "valkria2",1;
                        mes .@name$;
                        mes "Oh! Maravillozo!esta decidido, puedo ayudarte! te dare poder para pelear, pero antes tengo que provar tu fuerza!";
                        next;
                        mes .@name$;
                        mes "Ve y mata a 10 porings y a 10 drops!";
                        set prologe,1;
                        getitem 30208,1;
                        setquest .@questpro1;
                        specialeffect2 253;
                        next;
                        cutin "",255;
                        mes .@name$;
                        mes "Cuanto completes la prueba buscarme en la sima de la montaña y te dare algo de poder!";
                        close;
 
                    case 2:
                        mes .@name$;
                        mes "Ok vuelve cuando quieras hacerte fuerte";
                        close;
            }
        }
    }else if(prologe >= 2){
        mes .@name$;
        mes "Ya has terminado esta quest";
        close;
    }else if(prologe == 1) && (.@hunting < 2){
        cutin "valkria",1;
        mes .@name$;
        mes "Cuado termines la quest encuentrame en la sima de la montaña";
        next;
        mes .@name$;
        mes "Te estare esparando";
        cutin "",255;
        close;
    }else if(prologe == 1) && (.@hunting == 2){
        cutin "valkria",1;
        mes .@name$;
        mes "Ha... ¿ya terminaste? Bueno. ¿Quieres saber donde tienes que ir?.";
        F_Navi("[Kara]");
        next;
        switch(select("[ si ]:[ no ]")) {
        case 1:
            mes "[Kara]";
            mes "Has clik "+F_Navi("Aqui","moonhaven,202,240")+"...";
            viewpoint 1,202,240,0,0x0A82FF;
            close;
        case 2:
            mes "[Kara]";
            mes "Entonces ve!";
            close;
        }
    }
}
 
function    script  jobchange2  {
    set .@name$,getarg(4);
set .@map$,"prontera";
set .@x,271;
set .@y,354;
if (checkfalcon() || checkcart() || checkriding() || ismounting()) {
        mes .@name$;
        mes "Please remove your "+((checkfalcon())?"falcon":"")+((checkcart())?"cart":"")+((checkriding())?"Peco":"")+((ismounting())?"mount":"")+" before proceeding.";
        close;
    }
    if (SkillPoint) {
        mes .@name$;
        mes "Por favor usa todos tus puntos de skill antes de proceder";
        close;
    }
    if (Class > 4049) {
        mes .@name$;
        mes "No mas jobs disponibles para ti";
        close;
    }
    if (BaseLevel < 45){
        mes .@name$;
        mes "Aun no eres lvl 45";
        close;
    }
if (getarg(0)==45){
    set prologe,1;
    completequest .@questpro1;
    specialeffect2 140;
    sleep2 500;
    specialeffect2 143;
    sleep2 300;
    specialeffect2 144;
        getitem getarg(5),1;
        dispbottom "¡Bien, ahora te enviare al midgard!. ¡Hasta la proxima vida!.";
        set zeny,zeny+50000;
        sleep2 200; 
        specialeffect2 501;
        sleep2 300;
        specialeffect2 488;
        sleep2 100;
        specialeffect2 847;
        sleep2 500;
        jobchange getarg(0);
        sleep2 500;
        specialeffect2 338;
        sleep2 1;
        specialeffect2 183;
        sleep2 500;
        specialeffect2 581;
        set Porings,0;
        set Drops,0;
        savepoint .@map$,.@x,.@y;
        warp .@map$,.@x,.@y;
        end;
    }
}
 
function    script  jobchange3  {
set .@name$,getarg(4);
set .@map$,"prontera";
set .@x,156;
set .@y,191;
if (checkfalcon() || checkcart() || checkriding() || ismounting()) {
    mes .@name$;
        mes "Please remove your "+((checkfalcon())?"falcon":"")+((checkcart())?"cart":"")+((checkriding())?"Peco":"")+((ismounting())?"mount":"")+" before proceeding.";
        close;
    }
    if (Class > 4049) {
        mes .@name$;
        mes "No hay mas profeciones disponibles.";
        close;
    }
        set prologe,1;
        completequest 1017;
        specialeffect2 140;
        sleep2 100;
        specialeffect2 143;
        sleep2 200;
        specialeffect2 144;
        cutin "valkria2",1;
        mes .@name$;
        getitem getarg(5),1;
        getitem getarg(6),getarg(7);
        dispbottom "¡Bien, ahora te enviare al midgard!. ¡Hasta la proxima vida!.";
        set zeny,zeny+50000;
        sleep2 200; 
        specialeffect2 501;
        sleep2 300;
        specialeffect2 488;
        sleep2 100;
        specialeffect2 847;
        sleep2 500;
        jobchange getarg(0);
        sleep2 500;
        specialeffect2 338;
        sleep2 1;
        specialeffect2 183;
        sleep2 500;
        specialeffect2 581;
    sleep2 500;
        savepoint .@map$,.@x,.@y;
        warp .@map$,.@x,.@y;
        end;
}
 
-   script  prologoeffects  -1,{
OnNPCKillEvent:
        getmapxy(.@map$,.@x,.@y,0);
    if(strcharinfo(3) != .@map$) && (.@map$ != "moonhaven"){
    end;
    }
        if(Porings == 10) && (Drops == 10){
            set Porings,11; // Evita que pase de la cantidad maxima.
            set Drops,11; // Evita que pase de la cantidad maxima.
                dispbottom "----------------------------------------------------------------------";
                dispbottom "                            has completado la quest";
                dispbottom "----------------------------------------------------------------------";
            message strcharinfo(0),"Has matado a todos los Porings.";
            end;
        }
    if(killedrid == 1002) && (prologe >= 1) && (Porings < 10) {
        specialeffect2 50;
        set Porings,Porings+1;
        message strcharinfo(0),"Porings [ "+Porings+" / 10 ]";
        end;
    }
    else 
    if(killedrid == 1113) && (rologe >= 1) && (Drops < 10) {
        specialeffect2 50; //Cambia el efecto al que quieras.
        set Drops,Drops+1;
        message strcharinfo(0),"Drops [ "+Drops+" / 10 ]";
        end;
        }
end;
}
 
moonhaven,211,229,4 shop    Pociones    112,501:-1
 
 
moonhaven,208,229,3 script  Alan#Inicio 48,{
    mes "Alan";
    callfunc "habla";
}
 
moonhaven,186,269,5 Script  Aldio#Inicio    84,{
    mes "Aldo";
    callfunc "habla";
}
 
moonhaven,181,222,3 Script  Fabiano#Inicio  86,{
    mes "Fabian";
    callfunc "habla";
}
 
function    script  habla   {
set .@rand,rand(1,10);
    if (.@rand == 1){mes "Buena suerte " + (Sex?"amigo":"amiga") + " no tengas miedo sigue subiendo!"; close;}
    if (.@rand == 2){mes "Buena suerte " + (Sex?"señor":"señorita") + " sigue subiendo, kara te espera"; close;}
    if (.@rand == 3){mes "Buena suerte " + (Sex?"amigo":"amiga") + " no tengas miedo sigue subiendo!"; close;}
    if (.@rand == 4){mes "Buena suerte " + (Sex?"caballero":"dama") + " sigue subiendo!"; close;}
    if (.@rand == 5){mes "Buena suerte " + (Sex?"amigo":"amiga") + " no tengas miedo sigue subiendo!"; close;}
    if (.@rand == 6){mes "Buena suerte " + (Sex?"señor":"señorita") + " sigue subiendo!"; close;}
    if (.@rand == 7){mes "Buena suerte " + (Sex?"amigo":"amiga") + " no tengas miedo sigue subiendo!"; close;}
    if (.@rand == 8){mes "Buena suerte " + (Sex?"señor":"señorita") + " sigue subiendo, en contraras la paz al subir"; close;}
    if (.@rand == 9){mes "Buena suerte " + (Sex?"amigo":"amiga") + " no tengas miedo sigue subiendo!"; close;}
    if (.@rand == 10){mes "Buena suerte " + (Sex?"amigo":"amiga") + " sigue subiendo!"; close;}
}
//==========================================================||
//                          Spawn                           ||
//==========================================================||
moonhaven,0,0,0,0   monster Poring  1002,40,0,0,0
moonhaven,0,0,0,0   monster Poporing    1031,10,0,0,0
moonhaven,0,0,0,0   monster Drops   1113,40,0,0,0
moonhaven,0,0,0,0   monster Poring  1002,40,0,0,0
moonhaven,0,0,0,0   monster Drops   1113,40,0,0,0
 
c_tower1,0,0,0,0    monster Bathory 1102,200,500,0,0
 
//==========================================================||
//                          Spawn                           ||
//==========================================================||