//===== 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                                                   ||
//==========================================================||