Fixed some file types

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/athena@172 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 1865 insertions, 1865 deletions

diff --git a/npc/other/old/kafra.txt b/npc/other/old/kafra.txt
index dcf05a1ce..9d25b078c 100644
--- a/npc/other/old/kafra.txt
+++ b/npc/other/old/kafra.txt
@@ -1,1866 +1,1866 @@
-//===== eAthena Script ======================================= 

-//= Kafra Script 

-//===== By: ================================================== 

-//= Lotsa People (1.0)

-//= Darlskies (1.1)

-//= Darkchild (1.2)

-//= Syrus22 (2.0)

-//= Syrus22 (2.1)

-//= Darkchild (2.2)

-//===== Current Version: ===================================== 

-//= 2.2

-//===== Compatible With: ===================================== 

-//= Any eAthena Version In Which functions work.

-//===== Description: ========================================= 

-//= All The Kafra's In Ro, Incl HQ

-//===== Additional Comments: ================================= 

-//= Darkskies did all the kafra points stuff.

-//= Syrus22 - I compltely rewrote the script pretty much except for

-//= the normal conversation text in the Kafra HQ NPCs.

-//= Syrus22 - I fixed the Special Reserve in the Kafra HQ to really

-//= give you items. I will add the Lottery Chances when I get

-//= full info on the prizes.

-//= Syrus22 - I will add a Louyang Kafra when I get better location info.

-//= Darkchild - Added Comodo

-//============================================================ 

-

-//**********************************************//

-//Actual Kafra NPCs                             //

-//**********************************************//

-//These will set the necessary variables for my //

-//functions to work.                            //

-//**********************************************//

-//---Orc Dungeon Kafra---

-gef_fild10.gat,73,340,4	script	Kafra#orc1	115,{

-set @cutinpic$,"kafra_02";

-

-set @save,1;

-set @save1map$,"gef_fild10.gat";

-set @save1x,54;

-set @save1y,232;

-

-callfunc "kaframain";

-break;

-}

-//---Byalan Kafra---

-izlu2dun.gat,106,58,8	script	Kafra	115,{

-if (class != Job_Novice) goto Lkafra;

-if((job_merchant_q==8) || (job_merchant_q==7)) goto JobMerQE8oE7;

-if((job_merchant_q==6) || (job_merchant_q==5)) goto JobMerQE6oE5;

-

-JobMerQE8oE7:

- if(countitem(Delivery_Message) != 0) goto JobMerQE8oE7Cont;

-		

-JobMerQE8oE7Cont:

- menu "Excuse me.",M0;

-

-  M0:

-   mes "[Kafra]";

-   mes "Yes?";

-   cutin "kafra_03",255;

-   close;

-

-JobMerQE6oE5:

- mes "[Kafra]";

- mes "Delivery fro the Merchant Guild?? Ah, Right! Yes! I almost forgot.";

- mes "Okay,Please put down here....";

- if((countitem(1081)==1) || (countitem(1082)==1) || (countitem(1083)==1)) goto MerBox123E1;

- mes ".... I think our orders are almost one Box of Oversized and Heavy....But you seem to carry it on without difficulty.";

- close;

-

-  MerBox123E1:

-   next;

-   mes "[Kafra]";

-   mes "Let me check its Serial numbers, I have to give the receipt to you anyhow.";

-   if(nov_1_2_cos_c==7) goto JobMerQ2E7;

-   if(nov_1_2_cos_c==8) goto JobMerQ2E8;

-   next;

-   mes "[Kafra]";

-   mes "......? Excuse me! I think you gave me the wrong one.";

-   mes "Our order should have the serial numbers as either of 3318702 or 3543625...";

-   cutin "kafra_03",255;

-   close;

-

-JobMerQ2E7:

- if(countitem(1081) !=0) goto MerBox1NE0;

-

- MerBox1NE0:

-  mes "Um.... 3012685. Yes! This is the right one we ordered. Here, your receipt.";

-  delitem 1081,1;

-  getitem 1079,1;

-  goto JobMerQ2Cont;

-

-JobMerQ2E8:

- if(countitem(1081) !=0) goto MerBox2NE0;

-

- MerBox2NE0:

-  mes "Um.... 3543625. Yes! This is the right one we ordered. Here, your receipt.";

-  delitem 1082,1;

-  getitem 1080,1;

-  goto JobMerQ2Cont;

-

-JobMerQ2Cont:

- if(job_merchant_q==6) goto JobMerQE6;

- getitem 3005,2;

- goto JobMerQ2Cont1;

-

-JobMerQE6:

- getitem 3005,2;

- goto JobMerQ2Cont1;

-

-JobMerQ2Cont1:

- getitem 3017,1;

- if(countitem(Delivery_Message) != 0) goto DevMsg;

- goto DevMsgCont;

-

-DevMsg:

- menu "This is from Mr. Mahnsoo...",M1;

-

-  M1:

-   delitem 1072,1;

-   set nov_3_merchant,11;

-   mes "[Kapra]";

-   mes "Oh, my good Lord! Mr. Mansoo wrote me a Letter? Thank you, Thank you~";

-   mes "I though he would send one one of these days, but I've never expected it would be so soon like this time~";

-   goto DevMsgCont;

-

-   DevMsgCont:

-    next;

-    mes "[Kafra]";

-    mes "I really appreciate you for what you've done so far. This is my Small Gift for you to lay my heart.";

-    mes "I hope you will help me next time.";

-    set @TEMP,rand(2);

-    goto R0;

-

-    R0:

-     if(@TEMP !=0) goto R1;

-     getitem 513,3;

-     cutin "kafra_03",255;

-     close;

-    R1:

-     getitem 512,3;

-     cutin "kafra_03",255;

-     close;

-

-Lkafra:

-set @cutinpic$,"kafra_03";

-

-set @save,1;

-set @save1map$,"izlu2dun.gat";

-set @save1x,87;

-set @save1y,170;

-

-callfunc "kaframain";

-break;

-}

-//---Pyramids Kafra---

-moc_ruins.gat,61,156,5	script	Kafra#pyr1	114,{

-set @cutinpic$,"kafra_04";

-

-set @save,1;

-set @save1map$,"moc_ruins.gat";

-set @save1x,41;

-set @save1y,141;

-

-callfunc "kaframain";

-break;

-}

-//---Northern Prontera Field Kafra---

-prt_fild01.gat,198,47,8	script	Kafra#pfl1	112,{

-set @cutinpic$,"kafra_06";

-

-set @save,1;

-set @save1map$,"prt_fild01.gat";

-set @save1x,197;

-set @save1y,50;

-

-callfunc "kaframain";

-break;

-}

-//---Culvert Kafra---

-prt_fild05.gat,290,224,1	script	Kafra#pfl2	114,{

-set @cutinpic$,"kafra_04";

-

-set @save,1;

-set @save1map$,"prt_fild05.gat";

-set @save1x,274;

-set @save1y,243;

-

-callfunc "kaframain";

-break;

-}

-//---In Alberta Kafras---

-alberta.gat,28,229,8	script	Kafra#alb1	115,{

-set @cutinpic$,"kafra_02";

-

-set @save1map$,"alberta.gat";

-set @save1x,31;

-set @save1y,231;

-set @save2map$,"pay_fild03.gat";

-set @save2x,386;

-set @save2y,76;

-

-set @warps,4;

-

-set @warp1$,"Payon";

-set @warp1name$,"payon.gat";

-set @warp1x,69;

-set @warp1y,100;

-set @warp1zeny,1300;

-

-set @warp2$,"Prontera";

-set @warp2name$,"prontera.gat";

-set @warp2x,116;

-set @warp2y,75;

-set @warp2zeny,2100;

-

-set @warp3$,"Morocc";

-set @warp3name$,"morocc.gat";

-set @warp3x,156;

-set @warp3y,46;

-set @warp3zeny,2200;

-

-set @warp4$,"Comodo";

-set @warp4name$,"comodo.gat";

-set @warp4x,209;

-set @warp4y,143;

-set @warp4zeny,2400;

-

-set @kaflocations,1;

-set @location1x,113;

-set @location1y,60;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-alberta.gat,113,60,5	script	Kafra#alb2	112,{

-set @cutinpic$,"kafra_06";

-

-set @save,1;

-set @save1map$,"alberta.gat";

-set @save1x,117;

-set @save1y,57;

-

-set @warps,4;

-

-set @warp1$,"Payon";

-set @warp1name$,"payon.gat";

-set @warp1x,69;

-set @warp1y,100;

-set @warp1zeny,1300;

-

-set @warp2$,"Prontera";

-set @warp2name$,"prontera.gat";

-set @warp2x,116;

-set @warp2y,75;

-set @warp2zeny,2100;

-

-set @warp3$,"Morocc";

-set @warp3name$,"morocc.gat";

-set @warp3x,156;

-set @warp3y,46;

-set @warp3zeny,2200;

-

-set @warp4$,"Comodo";

-set @warp4name$,"comodo.gat";

-set @warp4x,209;

-set @warp4y,143;

-set @warp4zeny,2400;

-

-set @kaflocations,1;

-set @location1x,28;

-set @location1y,229;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-//---Sunken Ship Kafra---

-alb2trea.gat,59,69,1	script	Kafra#snk1	117,{

-set @cutinpic$,"kafra_03";

-

-set @save,1;

-set @save1map$,"alb2trea.gat";

-set @save1x,92;

-set @save1y,64;

-

-callfunc "kaframain";

-break;

-}

-//---In Al De Baran Kafra---

-aldebaran.gat,143,119,4	script	Kafra#ald1	113,{

-set @cutinpic$,"kafra_05";

-

-set @save,1;

-set @save1map$,"aldebaran.gat";

-set @save1x,143;

-set @save1y,109;

-

-set @warps,3;

-

-set @warp1$,"Geffen";

-set @warp1name$,"geffen.gat";

-set @warp1x,120;

-set @warp1y,39;

-set @warp1zeny,1600;

-

-set @warp2$,"Mjolnir Dead Pit";

-set @warp2name$,"mjolnir_02.gat";

-set @warp2x,99;

-set @warp2y,351;

-set @warp2zeny,1700;

-

-set @warp3$,"Comodo";

-set @warp3name$,"comodo.gat";

-set @warp3x,209;

-set @warp3y,143;

-set @warp3zeny,2200;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-//---In Geffen Kafras---

-geffen.gat,120,62,8	script	Kafra#gef1	115,{

-set @cutinpic$,"kafra_03";

-

-set @save,1;

-set @save1map$,"geffen.gat";

-set @save1x,119;

-set @save1y,40;

-

-set @warps,5;

-

-set @warp1$,"Prontera";

-set @warp1name$,"prontera.gat";

-set @warp1x,116;

-set @warp1y,75;

-set @warp1zeny,1400;

-

-set @warp2$,"Izlude";

-set @warp2name$,"izlude.gat";

-set @warp2x,91;

-set @warp2y,105;

-set @warp2zeny,1800;

-

-set @warp3$,"Al De Baran";

-set @warp3name$,"aldebaran.gat";

-set @warp3x,143;

-set @warp3y,110;

-set @warp3zeny,2100;

-

-set @warp4$,"Morocc";

-set @warp4name$,"morocc.gat";

-set @warp4x,156;

-set @warp4y,46;

-set @warp4zeny,2200;

-

-set @warp5$,"Comodo";

-set @warp5name$,"comodo.gat";

-set @warp5x,209;

-set @warp5y,143;

-set @warp5zeny,2400;

-

-set @kaflocations,1;

-set @location1x,203;

-set @location1y,123;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-geffen.gat,203,123,3	script	Kafra#gef2	114,{

-set @cutinpic$,"kafra_04";

-

-set @save1map$,"geffen.gat";

-set @save1x,200;

-set @save1y,124;

-set @save2map$,"gef_fild00.gat";

-set @save2x,51;

-set @save2y,194;

-

-set @warps,5;

-

-set @warp1$,"Prontera";

-set @warp1name$,"prontera.gat";

-set @warp1x,116;

-set @warp1y,75;

-set @warp1zeny,1400;

-

-set @warp2$,"Izlude";

-set @warp2name$,"izlude.gat";

-set @warp2x,91;

-set @warp2y,105;

-set @warp2zeny,1800;

-

-set @warp3$,"Al De Baran";

-set @warp3name$,"aldebaran.gat";

-set @warp3x,143;

-set @warp3y,110;

-set @warp3zeny,2100;

-

-set @warp4$,"Morocc";

-set @warp4name$,"morocc.gat";

-set @warp4x,156;

-set @warp4y,46;

-set @warp4zeny,2200;

-

-set @warp5$,"Comodo";

-set @warp5name$,"comodo.gat";

-set @warp5x,209;

-set @warp5y,143;

-set @warp5zeny,2400;

-

-set @kaflocations,1;

-set @location1x,120;

-set @location1y,62;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-//---In Izlude Kafra---

-izlude.gat,124,115,6	script	Kafra#izl1	117,{

-set @cutinpic$,"kafra_01";

-

-set @save1map$,"izlude.gat";

-set @save1x,128;

-set @save1y,111;

-set @save2map$,"prt_fild08.gat";

-set @save2x,349;

-set @save2y,202;

-

-set @warps,4;

-

-set @warp1$,"Prontera";

-set @warp1name$,"prontera.gat";

-set @warp1x,116;

-set @warp1y,75;

-set @warp1zeny,900;

-

-set @warp2$,"Payon";

-set @warp2name$,"payon.gat";

-set @warp2x,69;

-set @warp2y,100;

-set @warp2zeny,1700;

-

-set @warp3$,"Geffen";

-set @warp3name$,"geffen.gat";

-set @warp3x,120;

-set @warp3y,39;

-set @warp3zeny,1800;

-

-set @warp4$,"Comodo";

-set @warp4name$,"comodo.gat";

-set @warp4x,209;

-set @warp4y,143;

-set @warp4zeny,2000;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-//---In Morocc Kafras---

-morocc.gat,156,97,4	script	Kafra#moc1	115,{

-set @cutinpic$,"kafra_03";

-

-set @save,1;

-set @save1map$,"morocc.gat";

-set @save1x,156;

-set @save1y,46;

-

-set @warps,5;

-

-set @warp1$,"Prontera";

-set @warp1name$,"prontera.gat";

-set @warp1x,116;

-set @warp1y,75;

-set @warp1zeny,1800;

-

-set @warp2$,"Payon";

-set @warp2name$,"payon.gat";

-set @warp2x,69;

-set @warp2y,100;

-set @warp2zeny,1800;

-

-set @warp3$,"Alberta";

-set @warp3name$,"alberta.gat";

-set @warp3x,117;

-set @warp3y,56;

-set @warp3zeny,2200;

-

-set @warp4$,"Geffen";

-set @warp4name$,"geffen.gat";

-set @warp4x,120;

-set @warp4y,39;

-set @warp4zeny,2200;

-

-set @warp5$,"Comodo";

-set @warp5name$,"comodo.gat";

-set @warp5x,209;

-set @warp5y,143;

-set @warp5zeny,1800;

-

-set @kaflocations,1;

-set @location1x,163;

-set @location1y,260;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-morocc.gat,163,260,4	script	Kafra	114,{

-set @cutinpic$,"kafra_04";

-

-set @save1map$,"morocc.gat";

-set @save1x,187;

-set @save1y,281;

-set @save2map$,"moc_fild07.gat";

-set @save2x,212;

-set @save2y,30;

-

-set @warps,5;

-

-set @warp1$,"Prontera";

-set @warp1name$,"prontera.gat";

-set @warp1x,116;

-set @warp1y,75;

-set @warp1zeny,1800;

-

-set @warp2$,"Payon";

-set @warp2name$,"payon.gat";

-set @warp2x,69;

-set @warp2y,100;

-set @warp2zeny,1800;

-

-set @warp3$,"Alberta";

-set @warp3name$,"alberta.gat";

-set @warp3x,117;

-set @warp3y,56;

-set @warp3zeny,2200;

-

-set @warp4$,"Geffen";

-set @warp4name$,"geffen.gat";

-set @warp4x,120;

-set @warp4y,39;

-set @warp4zeny,2200;

-

-set @warp5$,"Comodo";

-set @warp5name$,"comodo.gat";

-set @warp5x,209;

-set @warp5y,143;

-set @warp5zeny,1800;

-

-set @kaflocations,1;

-set @location1x,156;

-set @location1y,97;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-//---In Payon Kafra---

-payon.gat,99,116,4	script	Kafra#pay1	113,{

-set @cutinpic$,"kafra_05";

-

-set @save1map$,"payon.gat";

-set @save1x,69;

-set @save1y,100;

-set @save2map$,"pay_fild01.gat";

-set @save2x,340;

-set @save2y,347;

-

-set @warps,4;

-

-set @warp1$,"Alberta";

-set @warp1name$,"alberta.gat";

-set @warp1x,117;

-set @warp1y,56;

-set @warp1zeny,1300;

-

-set @warp2$,"Prontera";

-set @warp2name$,"prontera.gat";

-set @warp2x,116;

-set @warp2y,72;

-set @warp2zeny,1800;

-

-set @warp3$,"Morocc";

-set @warp3name$,"morocc.gat";

-set @warp3x,156;

-set @warp3y,46;

-set @warp3zeny,1800;

-

-set @warp4$,"Comodo";

-set @warp4name$,"comodo.gat";

-set @warp4x,209;

-set @warp4y,143;

-set @warp4zeny,2000;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-//---Archer Village Kafra---

-pay_arche.gat,55,123,8	script	Kafra	117,{

-set @cutinpic$,"kafra_01";

-

-set @save,1;

-set @save1map$,"pay_arche.gat";

-set @save1x,49;

-set @save1y,144;

-

-callfunc "kaframain";

-break;

-}

-//---In Prontera Kafras---

-prontera.gat,29,207,6	script	Kafra#pro2	113,{

-set @cutinpic$,"kafra_05";

-

-set @warps,6;

-

-set @warp1$,"Izlude";

-set @warp1name$,"izlude.gat";

-set @warp1x,91;

-set @warp1y,105;

-set @warp1zeny,900;

-

-set @warp2$,"Geffen";

-set @warp2name$,"geffen.gat";

-set @warp2x,120;

-set @warp2y,39;

-set @warp2zeny,1400;

-

-set @warp3$,"Payon";

-set @warp3name$,"payon.gat";

-set @warp3x,69;

-set @warp3y,100;

-set @warp3zeny,1700;

-

-set @warp4$,"Morocc";

-set @warp4name$,"morocc.gat";

-set @warp4x,156;

-set @warp4y,46;

-set @warp4zeny,1800;

-

-set @warp5$,"Orc Dungeon";

-set @warp5name$,"gef_fild10.gat";

-set @warp5x,52;

-set @warp5y,326;

-set @warp5zeny,1700;

-

-set @warp6$,"Comodo";

-set @warp6name$,"comodo.gat";

-set @warp6x,209;

-set @warp6y,143;

-set @warp6zeny,2000;

-

-set @save1map$,"prontera.gat";

-set @save1x,33;

-set @save1y,208;

-set @save2map$,"prt_fild05.gat";

-set @save2x,367;

-set @save2y,205;

-

-set @kaflocations,1;

-set @location1x,146;

-set @location1y,89;

-set @location2x,282;

-set @location2y,200;

-set @location3x,151;

-set @location3y,29;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-prontera.gat,146,89,6	script	Kafra#pro1	115,{

-set @cutinpic$,"kafra_03";

-

-set @warps,6;

-

-set @warp1$,"Izlude";

-set @warp1name$,"izlude.gat";

-set @warp1x,91;

-set @warp1y,105;

-set @warp1zeny,900;

-

-set @warp2$,"Geffen";

-set @warp2name$,"geffen.gat";

-set @warp2x,120;

-set @warp2y,39;

-set @warp2zeny,1400;

-

-set @warp3$,"Payon";

-set @warp3name$,"payon.gat";

-set @warp3x,69;

-set @warp3y,100;

-set @warp3zeny,1700;

-

-set @warp4$,"Morocc";

-set @warp4name$,"morocc.gat";

-set @warp4x,156;

-set @warp4y,46;

-set @warp4zeny,1800;

-

-set @warp5$,"Orc Dungeon";

-set @warp5name$,"gef_fild10.gat";

-set @warp5x,52;

-set @warp5y,326;

-set @warp5zeny,1700;

-

-set @warp6$,"Comodo";

-set @warp6name$,"comodo.gat";

-set @warp6x,209;

-set @warp6y,143;

-set @warp6zeny,2000;

-

-set @save,1;

-set @save1map$,"prontera.gat";

-set @save1x,116;

-set @save1y,73;

-

-set @kaflocations,1;

-set @location1x,29;

-set @location1y,207;

-set @location2x,282;

-set @location2y,200;

-set @location3x,151;

-set @location3y,29;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-prontera.gat,282,199,6	script	Kafra	115,{

-set @cutinpic$,"kafra_03";

-

-set @warps,6;

-

-set @warp1$,"Izlude";

-set @warp1name$,"izlude.gat";

-set @warp1x,91;

-set @warp1y,105;

-set @warp1zeny,900;

-

-set @warp2$,"Geffen";

-set @warp2name$,"geffen.gat";

-set @warp2x,120;

-set @warp2y,39;

-set @warp2zeny,1400;

-

-set @warp3$,"Payon";

-set @warp3name$,"payon.gat";

-set @warp3x,69;

-set @warp3y,100;

-set @warp3zeny,1700;

-

-set @warp4$,"Morocc";

-set @warp4name$,"morocc.gat";

-set @warp4x,156;

-set @warp4y,46;

-set @warp4zeny,1800;

-

-set @warp5$,"Orc Dungeon";

-set @warp5name$,"gef_fild10.gat";

-set @warp5x,52;

-set @warp5y,326;

-set @warp5zeny,1700;

-

-set @warp6$,"Comodo";

-set @warp6name$,"comodo.gat";

-set @warp6x,209;

-set @warp6y,143;

-set @warp6zeny,2000;

-

-set @save,1;

-set @save1map$,"prontera.gat";

-set @save1x,117;

-set @save1y,73;

-

-set @kaflocations,1;

-set @location1x,29;

-set @location1y,207;

-set @location2x,146;

-set @location2y,89;

-set @location3x,151;

-set @location3y,29;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-prontera.gat,151,29,8	script	Kafra	115,{

-set @cutinpic$,"kafra_03";

-

-set @warps,6;

-

-set @warp1$,"Izlude";

-set @warp1name$,"izlude.gat";

-set @warp1x,91;

-set @warp1y,105;

-set @warp1zeny,900;

-

-set @warp2$,"Geffen";

-set @warp2name$,"geffen.gat";

-set @warp2x,120;

-set @warp2y,39;

-set @warp2zeny,1400;

-

-set @warp3$,"Payon";

-set @warp3name$,"payon.gat";

-set @warp3x,69;

-set @warp3y,100;

-set @warp3zeny,1700;

-

-set @warp4$,"Morocc";

-set @warp4name$,"morocc.gat";

-set @warp4x,156;

-set @warp4y,46;

-set @warp4zeny,1800;

-

-set @warp5$,"Orc Dungeon";

-set @warp5name$,"gef_fild10.gat";

-set @warp5x,52;

-set @warp5y,326;

-set @warp5zeny,1700;

-

-set @warp6$,"Comodo";

-set @warp6name$,"comodo.gat";

-set @warp6x,209;

-set @warp6y,143;

-set @warp6zeny,2000;

-

-set @save1map$,"prontera.gat";

-set @save1x,150;

-set @save1y,33;

-set @save2map$,"prt_fild08.gat";

-set @save2x,170;

-set @save2y,369;

-

-set @kaflocations,1;

-set @location1x,29;

-set @location1y,207;

-set @location2x,146;

-set @location2y,89;

-set @location3x,282;

-set @location3y,199;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-//---In Yuno Kafras---

-yuno.gat,328,108,6	script	Kafra	117,{

-set @cutinpic$,"kafra_02";

-

-set @save,1;

-set @save1map$,"yuno.gat";

-set @save1x,332;

-set @save1y,107;

-

-set @warps,4;

-

-set @warp1$,"Izlude";

-set @warp1name$,"izlude.gat";

-set @warp1x,91;

-set @warp1y,105;

-set @warp1zeny,900;

-

-set @warp2$,"Geffen";

-set @warp2name$,"geffen.gat";

-set @warp2x,120;

-set @warp2y,39;

-set @warp2zeny,2100;

-

-set @warp3$,"Payon";

-set @warp3name$,"payon.gat";

-set @warp3x,69;

-set @warp3y,100;

-set @warp3zeny,2100;

-

-set @warp4$,"Morocc";

-set @warp4name$,"morocc.gat";

-set @warp4x,156;

-set @warp4y,46;

-set @warp4zeny,2100;

-

-set @kafralocations,1;

-set @location1x,151;

-set @location1y,87;

-set @location2x,278;

-set @location2y,221;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-yuno.gat,151,87,4	script	Kafra	115,{

-set @cutinpic$,"kafra_02";

-

-set @save,1;

-set @save1map$,"yuno.gat";

-set @save1x,154;

-set @save1y,75;

-

-set @warps,4;

-

-set @warp1$,"Izlude";

-set @warp1name$,"izlude.gat";

-set @warp1x,91;

-set @warp1y,105;

-set @warp1zeny,900;

-

-set @warp2$,"Geffen";

-set @warp2name$,"geffen.gat";

-set @warp2x,120;

-set @warp2y,39;

-set @warp2zeny,2100;

-

-set @warp3$,"Payon";

-set @warp3name$,"payon.gat";

-set @warp3x,69;

-set @warp3y,100;

-set @warp3zeny,2100;

-

-set @warp4$,"Morocc";

-set @warp4name$,"morocc.gat";

-set @warp4x,156;

-set @warp4y,46;

-set @warp4zeny,2100;

-

-set @kafralocations,1;

-set @location1x,328;

-set @location1y,108;

-set @location2x,278;

-set @location2y,221;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-yuno.gat,278,221,6	script	Kafra	117,{

-set @cutinpic$,"kafra_02";

-

-set @save,1;

-set @save1map$,"yuno.gat";

-set @save1x,332;

-set @save1y,107;

-

-set @warps,4;

-

-set @warp1$,"Izlude";

-set @warp1name$,"izlude.gat";

-set @warp1x,91;

-set @warp1y,105;

-set @warp1zeny,900;

-

-set @warp2$,"Geffen";

-set @warp2name$,"geffen.gat";

-set @warp2x,120;

-set @warp2y,39;

-set @warp2zeny,2100;

-

-set @warp3$,"Payon";

-set @warp3name$,"payon.gat";

-set @warp3x,69;

-set @warp3y,100;

-set @warp3zeny,2100;

-

-set @warp4$,"Morocc";

-set @warp4name$,"morocc.gat";

-set @warp4x,156;

-set @warp4y,46;

-set @warp4zeny,2100;

-

-set @kafralocations,1;

-set @location1x,328;

-set @location1y,108;

-set @location2x,151;

-set @location2y,87;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-//---In Umbala Kafra---

-umbala.gat,128,133,4	script	Kafra	115,{

-set @cutinpic$,"kafra_02";

-

-set @save,1;

-set @save1map$,"umbala.gat";

-set @save1x,126;

-set @save1y,131;

-

-set @warps,4;

-

-set @warp1$,"Izlude";

-set @warp1name$,"izlude.gat";

-set @warp1x,91;

-set @warp1y,105;

-set @warp1zeny,900;

-

-set @warp2$,"Geffen";

-set @warp2name$,"geffen.gat";

-set @warp2x,120;

-set @warp2y,39;

-set @warp2zeny,2100;

-

-set @warp3$,"Payon";

-set @warp3name$,"payon.gat";

-set @warp3x,69;

-set @warp3y,100;

-set @warp3zeny,2100;

-

-set @warp4$,"Morocc";

-set @warp4name$,"morocc.gat";

-set @warp4x,156;

-set @warp4y,46;

-set @warp4zeny,2100;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-//---In Gonryun Kafra---

-//Note: Gave this Kafra the same warps as Umbala and Yuno till I get the

-//real warp information.

-gonryun.gat,159,122,4	script	Kafra	116,{

-set @cutinpic$,"kafra_02";

-

-set @save,1;

-set @save1map$,"gonryun.gat";

-set @save1x,160;

-set @save1y,62;

-

-set @warps,4;

-

-set @warp1$,"Izlude";

-set @warp1name$,"izlude.gat";

-set @warp1x,91;

-set @warp1y,105;

-set @warp1zeny,900;

-

-set @warp2$,"Geffen";

-set @warp2name$,"geffen.gat";

-set @warp2x,120;

-set @warp2y,39;

-set @warp2zeny,2100;

-

-set @warp3$,"Payon";

-set @warp3name$,"payon.gat";

-set @warp3x,69;

-set @warp3y,100;

-set @warp3zeny,2100;

-

-set @warp4$,"Morocc";

-set @warp4name$,"morocc.gat";

-set @warp4x,156;

-set @warp4y,46;

-set @warp4zeny,2100;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-//---Comodo---

-comodo.gat,166,163,3	script	Kafra	721,{

-set @cutinpic$,"kafra_02";

-

-set @save,1;

-set @save1map$,"comodo.gat";

-set @save1x,188;

-set @save1y,148;

-

-set @warps,2;

-

-set @warp1$,"Morroc";

-set @warp1name$,"morocc.gat";

-set @warp1x,156;

-set @warp1y,46;

-set @warp1pay,2400;

-

-set @warp2$,"Geffen";

-set @warp2name$,"geffen.gat";

-set @warp2x,120;

-set @warp2y,39;

-set @warp2zeny,2100;

-

-set @special,1;

-

-callfunc "kaframain";

-break;

-}

-//**********************************************//

-//Kafra Main                                    //

-//**********************************************//

-//The main kafra script. This will call the     //

-//necessary functions from the rest of the      //

-//script.                                       //

-//**********************************************//

-function	script	kaframain	-1,{

-cutin @cutinpic$,2;

-mes "[Kafra Employee]";

-mes "Welcome to Kafra Corporation. The Kafra services are always by your side.";

-mes "How may I assist you?";

-next;

-if ((@warps > 0) && (@special > 0)) goto Lallmenu;

-if ((@warps > 0) && (@special == 0)) goto Lwarpmenu;

-if (@warps == 0) goto Lnowarpmenu;

-

-Lallmenu:

-menu "Save",Lsave,"Use Storage",Lstorage,"Use Teleport Service",Lwarp,"Rent a Cart",Lcart,"Check Other Information",Lother,"Cancel",Lcancel;

-

-Lwarpmenu:

-menu "Save",Lsave,"Use Storage",Lstorage,"Use Teleport Service",Lwarp,"Rent a Cart",Lcart,"Cancel",Lcancel;

-

-Lnowarpmenu:

-menu "Save",Lsave,"Use Storage",Lstorage,"Rent a Cart",Lcart,"Cancel",Lcancel;

-

-Lsave:

-callfunc "kafrasave";

-break;

-

-Lstorage:

-callfunc "kafrastorage";

-break;

-

-Lwarp:

-callfunc "kafrawarps";

-break;

-

-Lcart:

-callfunc "kafracart";

-break;

-

-Lother:

-callfunc "kafrainfo";

-break;

-

-Lcancel:

-callfunc "kafraend";

-break;

-}

-//**********************************************//

-//Kafra Save                                    //

-//**********************************************//

-//This will handle the save function for all the//

-//kafras.                                       //

-//**********************************************//

-function	script	kafrasave	-1,{

-if (@save == 1) goto Lsavein;

-mes "[Kafra]";

-mes "Where would you like to save?";

-next;

-menu "Save Outside City",Lsaveout,"Save Inside City",Lsavein;

-

-Lsavein:

- savepoint @save1map$,@save1x,@save1y;

- mes "[Kafra]";

- mes "Your respawn point has been saved. Thank you.";

- callfunc "kafraend";

- break;

-

-Lsaveout:

- savepoint @save2map$,@save2x,@save2y;

- mes "[Kafra]";

- mes "Your respawn point has been saved. Thank you.";

- callfunc "kafraend";

- break;

-}

-//**********************************************//

-//Kafra Storage                                 //

-//**********************************************//

-//This will handle the storage functions for    //

-//all the kafras.                               //

-//**********************************************//

-function	script	kafrastorage	-1,{

-if (getskilllv(1) < 6) goto NeedJobLevel;

-if (Zeny < 30) goto NeedZenys;

-set specialreserve,specialreserve + 30;

-set Zeny, Zeny - 30;

-mes "[Kafra]";

-mes "Ok let me just open your storage for you.";

-openstorage;

-callfunc "kafraend";

-break;

-

-NeedJobLevel:

- mes "[Kafra]";

- mes "I'm sorry but you must have Basic Skill 6 to use storage.";

- callfunc "kafraend";

- break;

-

-NeedZenys:

- mes "[Kafra]";

- mes "I'm sorry but you are short on Zeny.";

- callfunc "kafraend";

- break;

-}

-//**********************************************//

-//Kafra Warps                                   //

-//**********************************************//

-//This will handle all the actual warping and   //

-//the payment of Zeny                           //

-//**********************************************//

-function	script	kafrawarps	-1,{

-mes "[Kafra]";

-mes "Please choose your destination.";

-next;

-if (@warps == 7) goto L7;

-if (@warps == 6) goto L6;

-if (@warps == 5) goto L5;

-if (@warps == 4) goto L4;

-if (@warps == 3) goto L3;

-if (@warps == 2) goto L2;

-

-L2:

- menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,"Cancel",Lcancel;

-

-L3:

- menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,"Cancel",Lcancel;

-

-L4:

- menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,@warp4$ + " -> " + @warp4zeny,Lwarp4,"Cancel",Lcancel;

-

-L5:

- menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,@warp4$ + " -> " + @warp4zeny,Lwarp4,@warp5$ + " -> " + @warp5zeny,Lwarp5,"Cancel",Lcancel;

-

-L6:

- menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,@warp4$ + " -> " + @warp4zeny,Lwarp4,@warp5$ + " -> " + @warp5zeny,Lwarp5,@warp6$ + " -> " + @warp6zeny,Lwarp6,"Cancel",Lcancel;

-

-L7:

- menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,@warp4$ + " -> " + @warp4zeny,Lwarp4,@warp5$ + " -> " + @warp5zeny,Lwarp5,@warp6$ + " -> " + @warp6zeny,Lwarp6,@warp7$ + " -> " + @warp7zeny,Lwarp7,"Cancel",Lcancel;

-

-Lwarp1:

- if (Zeny < @warp1zeny) goto Lneedzeny;

- set specialreserve,specialreserve + @warp1zeny;

- set Zeny,Zeny - @warp1zeny;

- warp @warp1name$,@warp1x,@warp1y;

- set @end,1;

- callfunc "kafraend";

- break;

-

-Lwarp2:

- if (Zeny < @warp2zeny) goto Lneedzeny;

- set specialreserve,specialreserve + @warp2zeny;

- set Zeny,Zeny - @warp2zeny;

- warp @warp2name$,@warp2x,@warp2y;

- set @end,1;

- callfunc "kafraend";

- break;

-

-Lwarp3:

- if (Zeny < @warp3zeny) goto Lneedzeny;

- set specialreserve,specialreserve + @warp3zeny;

- set Zeny,Zeny - @warp3zeny;

- warp @warp3name$,@warp3x,@warp3y;

- set @end,1;

- callfunc "kafraend";

- break;

-

-Lwarp4:

- if (Zeny < @warp4zeny) goto Lneedzeny;

- set specialreserve,specialreserve + @warp4zeny;

- set Zeny,Zeny - @warp4zeny;

- warp @warp4name$,@warp4x,@warp4y;

- set @end,1;

- callfunc "kafraend";

- break;

-

-Lwarp5:

- if (Zeny < @warp5zeny) goto Lneedzeny;

- set specialreserve,specialreserve + @warp5zeny;

- set Zeny,Zeny - @warp5zeny;

- warp @warp5name$,@warp5x,@warp5y;

- set @end,1;

- callfunc "kafraend";

- break;

-

-Lwarp6:

- if (Zeny < @warp6zeny) goto Lneedzeny;

- set specialreserve,specialreserve + @warp6zeny;

- set Zeny,Zeny - @warp6zeny;

- warp @warp6name$,@warp6x,@warp6y;

- set @end,1;

- callfunc "kafraend";

- break;

-

-Lwarp7:

- if (Zeny < @warp7zeny) goto Lneedzeny;

- set specialreserve,specialreserve + @warp7zeny;

- set Zeny,Zeny - @warp7zeny;

- warp @warp7name$,@warp7x,@warp7y;

- set @end,1;

- callfunc "kafraend";

- break;

-

-Lneedzeny:

- mes "[Kafra]";

- mes "I'm sorry you don't have the necessary amount of zeny.";

- callfunc "kafraend";

- break;

-

-Lcancel:

- mes "[Kafra]";

- mes "Ok, Come again soon.";

- callfunc "kafraend";

- break;

-}

-//**********************************************//

-//Kafra Cart                                    //

-//**********************************************//

-//This will handle the cart rental function for //

-//all the Kafras.                               //

-//**********************************************//

-function	script	kafracart	-1,{

-if ((class == Job_Merchant) || (class == Job_Blacksmith) || (class == Job_Alchem) || (class == Job_Merchant_High) || (class == Job_Whitesmith) || (class == Job_Creator)) goto Lrentcart;

-mes "[Kafra]";

-mes "Sorry this service is only provided for Merchant classes.";

-callfunc "kafraend";

-break;

-

-Lrentcart:

- if (getskilllv(39) < 1) goto Lnopush;

- mes "[Kafra]";

- mes "The cart rental fee is 800 zeny. Do you want to rent a cart?";

- next;

- menu "Rent a Cart",Lrent,"Cancel",Lcancel;

-

-Lrent:

- if (Zeny < 800) goto Lneedzeny;

- set specialreserve,specialreserve + 800;

- set Zeny,Zeny - 800;

- setcart;

- mes "[Kafra]";

- mes "There ya go...";

- callfunc "kafraend";

- break;

-

-Lnopush:

- mes "[Kafra]";

- mes "Sorry but you must have at least ^ff0000Pushcart^000000 level 1.";

- callfunc "kafraend";

- break;

-

-Lneedzeny:

- mes "[Kafra]";

- mes "Sorry but you don't have the zeny.";

- callfunc "kafraend";

- break;

-

-Lcancel:

- mes "[Kafra]";

- mes "Ok. Goodbye then";

- callfunc "kafraend";

- break;

-}

-//**********************************************//

-//Kafra Information                             //

-//**********************************************//

-//This will handle the extra Kafra functions    //

-//such as your kafra points and the locations of//

-//other kafras.                                 //

-//**********************************************//

-function	script	kafrainfo	-1,{

-if (@kaflocations == 1) goto Lfullmenu;

-menu "Check Special Reserve Points",Lreserve,"Cancel",Lcancel;

-

-Lfullmenu:

- menu "Check Special Reserve Points",Lreserve,"Location Tip",Llocation,"Cancel",Lcancel;

-

-Lreserve:

- mes "[Kafra]";

- mes strcharinfo(0) + ", you have accumulated " + specialreserve + " Special Reserve Points.";

- next;

- mes "[Kafra]";

- mes "You can redeem your points at our Headquarters in Al De Baran.";

- callfunc "kafraend";

- break;

-

-Llocation:

- mes "[Kafra]";

- mes "Ok I'll mark them on your map.";

- if (@location1x == 0) goto Lfinished;

- viewpoint 0,@location1x,@location1y,1,0x0000FF;

- if (@location2x == 0) goto Lfinished;

- viewpoint 1,@location2x,@location2y,1,0x0000FF;

- if (@location3x == 0) goto Lfinished;

- viewpoint 2,@location3x,@location3y,1,0x0000FF;

- if (@location4x == 0) goto Lfinished;

- viewpoint 3,@location4x,@location4y,1,0x0000FF;

- callfunc "kafraend";

- break;

-

-Lfinished:

- callfunc "kafraend";

- break;

-

-Lcancel:

- mes "[Kafra]";

- mes "Ok. Bye then...";

- callfunc "kafraend";

- break;

-}

-//**********************************************//

-//End Kafra Function                            //

-//**********************************************//

-//This will empty all possible variables and end//

-//the kafra scripts.                            //

-//**********************************************//

-function	script	kafraend	-1,{

-set @warps,0;

-set @save,0;

-set @special,0;

-set @kaflocations,0;

-set @location1x,0;

-set @location2x,0;

-set @location3x,0;

-set @location4x,0;

-if (@end == 1) goto Lbreak;

-cutin @cutinpic$,255;

-close;

-

-Lbreak:

- set @end,0;

- cutin @cutinpic$,255;

- break;

-}

-//---Kafra Warehouse---

-aldeba_in.gat,24,245,4	script	 Kafra Service	115,{

-	cutin "kafra_03",2;

-	mes "[Kapra Jasmine]";

-	mes "Hi~ I am Kafra No. 1 Type Jasmine.";

-	mes "Thank you for comming all the way to Kafra Main Office here at Al De Baran!";

-	next;

-	mes "[Kapra Jasmine]";

-	mes "Our Kapra Service is always together with our customers!";

-	mes "Our Kapra Service has a history and legacy of 5 thousand 8 hundred years old...";

-	mes "Blah-blah-blah.....";

-	next;

-	menu "FIVE THOUSNAD AND EIGHT HUNDRED YEARS?!",L0,"Ahh~ Shut Up!",L1,"You go a boyfriend?",L3;

-	

-	L0:

-		mes "[Kapra Jasmine]";

-		mes "Shut UP! And listen! It to me a week to memorice this!";

-		mes "I've got poor memory unlike other Kafra agents!";

-		mes "..... Eh!... What did I just say...";

-		next;

-		mes "[Kapra Jasmine]";

-		mes "Hohohoho. S-sorry... I-it was a show, a standing comedy...";

-		mes "Right... Dream Show only for Ka-Kafra customers~!";

-		mes "(but a solo show)";

-		close;

-	L1:

-		mes "[Kapra Jasmine]";

-		mes ". . . . .";

-		mes "I was the member of Kafra Garrion before I joined Kafra Service Team...";

-		mes "The speciality was 'Bash'!!";

-		mes "I'm trying to be feminine and live a quiet life";

-		mes "So please don0t tempt me...";

-		close;

-	L2:

-		mes "[Kapra Jasmine]";

-		mes "My, my~. Kafra Service has a ridiculous rule that no Agent can have a boyfriend";

-		mes ". . . . .";

-		mes ". . . . . . . . . .";

-		next;

-		mes "[Kapra Jasmine]";

-		mes "Just kidding~~ Hehe";

-		close;

-}

-

-aldeba_in.gat,79,161,6	script	Kafra	115,{

-	mes "[Kafra]";

-	mes "Welcome, my dearest " + strcharinfo(0) + ".";

-	mes "Take goods as many as you've got speacial reserve from Kafra Service~";

-	next;

-	mes "[Kafra]";

-	mes "Please keep in mind that each window requires a different special reserve for your information.";

-	mes "Window I am at allows you to use special reserve form ^FF00FF100p to 3000p^000000.";

-	next;

-	mes "[Kafra]";

-	mes "Your special reserve is ^FF0000" + specialreserve + "^000000~";

-	mes "Please choose the items you want.";

-	next;

-	menu "100 = Carrot 7 ea",100,"200 = Carrot 15 ea",200,"300 = Carrot 25 ea",300,"400 = Carrot 35 ea",400,"500 = Carrot 50 ea",500,"600 = Carrot 60 ea",600,"700 = Carrot 75 ea",700,"800 = Carrot 85 ea",800,"900 = Carrot 100 ea",900,"1000 = 1st Lotery Chance!",1000,"Next Articles",L0,"Cancel",LEnd;

-

-	100:

-		if(specialreserve < 100) goto Lneedpoints;

-		mes "[Kafra]";

-		mes "Good choice... Here ya go.";

-		getitem 515,7;

-		set specialreserve,specialreserve - 100;

-		close;

-	200:

-		if(specialreserve < 200) goto Lneedpoints;

-		mes "[Kafra]";

-		mes "Good choice... Here ya go.";

-		getitem 515,15;

-		set specialreserve,specialreserve - 200;

-		close;

-	300:

-		if(specialreserve < 300) goto Lneedpoints;

-		mes "[Kafra]";

-		mes "Good choice... Here ya go.";

-		getitem 515,25;

-		set specialreserve,specialreserve - 300;

-		close;

-	400:

-		if(specialreserve < 400) goto Lneedpoints;

-		mes "[Kafra]";

-		mes "Good choice... Here ya go.";

-		getitem 515,35;

-		set specialreserve,specialreserve - 400;

-		close;

-	500:

-		if(specialreserve < 500) goto Lneedpoints;

-		mes "[Kafra]";

-		mes "Good choice... Here ya go.";

-		getitem 515,50;

-		set specialreserve,specialreserve - 500;

-		close;

-	600:

-		if(specialreserve < 600) goto Lneedpoints;

-		mes "[Kafra]";

-		mes "Good choice... Here ya go.";

-		getitem 515,60;

-		set specialreserve,specialreserve - 600;

-		close;

-	700:

-		if(specialreserve < 700) goto Lneedpoints;

-		mes "[Kafra]";

-		mes "Good choice... Here ya go.";

-		getitem 515,75;

-		set specialreserve,specialreserve - 700;

-		close;

-	800:

-		if(specialreserve < 800) goto Lneedpoints;

-		mes "[Kafra]";

-		mes "Good choice... Here ya go.";

-		getitem 515,85;

-		set specialreserve,specialreserve - 800;

-		close;

-	900:

-		if(specialreserve < 900) goto Lneedpoints;

-		mes "[Kafra]";

-		mes "Good choice... Here ya go.";

-		getitem 515,100;

-		set specialreserve,specialreserve - 900;

-		close;

-	1000:

-		mes "^FF0000Under Construction^000000";

-		close;

-	L0:

-		menu "1100 = Red Potion 7 ea",1100,"1300 = Red Potion 15 ea",1300,"1500 = Red Potion 25 ea",1500,"1700 = Red Potion 35 ea",1700,"1900 = Red Potion 50 ea",1900,"2100 = Red Potion 60 ea",2100,"2300 = Red Potion 75 ea",2300,"2500 = Red Potion 85 ea",2500,"2800 = Red Potion 100 ea",2800,"3000 = 2nd Lotery Chance!",3000,"Cancel",EndL0;

-		

-		1100:

-			if(specialreserve < 1100) goto Lneedpoints;

-			mes "[Kafra]";

-			mes "Good choice... Here ya go.";

-			getitem 501,7;

-			set specialreserve,specialreserve - 1100;

-			close;

-		1300:

-			if(specialreserve < 1300) goto Lneedpoints;

-			mes "[Kafra]";

-			mes "Good choice... Here ya go.";

-			getitem 501,15;

-			set specialreserve,specialreserve - 1300;

-			close;

-		1500:

-			if(specialreserve < 1500) goto Lneedpoints;

-			mes "[Kafra]";

-			mes "Good choice... Here ya go.";

-			getitem 501,25;

-			set specialreserve,specialreserve - 1500;

-			close;

-		1700:

-			if(specialreserve < 1700) goto Lneedpoints;

-			mes "[Kafra]";

-			mes "Good choice... Here ya go.";

-			getitem 501,35;

-			set specialreserve,specialreserve - 1700;

-			close;

-		1900:

-			if(specialreserve < 1900) goto Lneedpoints;

-			mes "[Kafra]";

-			mes "Good choice... Here ya go.";

-			getitem 501,50;

-			set specialreserve,specialreserve - 1900;

-			close;

-		2100:

-			if(specialreserve < 2100) goto Lneedpoints;

-			mes "[Kafra]";

-			mes "Good choice... Here ya go.";

-			getitem 501,60;

-			set specialreserve,specialreserve - 2100;

-			close;

-		2300:

-			if(specialreserve < 2300) goto Lneedpoints;

-			mes "[Kafra]";

-			mes "Good choice... Here ya go.";

-			getitem 501,75;

-			set specialreserve,specialreserve - 2300;

-			close;

-		2500:

-			if(specialreserve < 2500) goto Lneedpoints;

-			mes "[Kafra]";

-			mes "Good choice... Here ya go.";

-			getitem 501,85;

-			set specialreserve,specialreserve - 2500;

-			close;

-		2800:

-			if(specialreserve < 2800) goto Lneedpoints;

-			mes "[Kafra]";

-			mes "Good choice... Here ya go.";

-			getitem 501,100;

-			set specialreserve,specialreserve - 2800;

-			close;

-		3000:

-			mes "^FF0000Under Construction^000000";

-			close;

-Lend:

-	mes "[Kafra]";

-	mes "Ok then... Come again if you change your mind.";

-	close;

-}

-

-aldeba_in.gat,81,166,4	script	Kafra Service	117,{

-	cutin "kafra_01",2;

-	mes "[Kafra Pavianne]";

-	mes "Welcome! I'm Kafra service's the first Kapra Type 'Pavianne'";

-	next;

-	mes "[Kafra Pavianne]";

-	mes "Our Kapra Service is always trying to meet 100% customers satisfaction based on 3 principles, Trust, Devotion and Truest.";

-	mes "With complete Service training and supervision, we serve our customers to meet thier needs.";

-	next;

-	menu "Buy Kafra Pass",L0,"What is Kafra Pass",L1,"Good Bye",L3;

-	

-	L0:

-		getitem 1084,1;

-		set Zeny, Zeny-2000;

-		mes "[Kafra Pavianne]";

-		mes "Thank you for using our Kapra Service all the time!";

-		mes "Have a Nice Day!";

-		cutin "kafra_01",255;

-		close;

-	L1:

-		mes "[Kafra Pavianne]";

-		mes "The best gift you could get only at Kafra Main Office!";

-		mes "^4040FF'K A P R A's   P A S S'^000000!!";

-		mes "TaDa~!";

-		next;

-		mes "[Kafra Pavianne]";

-		mes "With Kafra Pass, you could experience the convenience of Kafra Service world-wide! No Hassle!";

-		mes "The price is 2000 zeny~~";

-		next;

-		mes "[Kafra Pavianne]";

-		mes "Visit any Kafra Service in Midgard, and you could enjoy Kafra Service any time any where for once.";

-		mes "Ending a a conversation with Kafra Service Agent will expire the pass.";

-		cutin "kafra_01",255;

-		close;

-	L3:

-		mes "[Kafra Pavianne]";

-		mes "Thank you for using Kafra Service!";

-		mes "It was Kafra Pavianne";

-		cutin "kafra_01",255;

-		close;

-}

-

-aldeba_in.gat,83,244,4	script	Kafra Service	116,{

-	cutin "kafra_02",2;

-	mes "[Kafra Blossom]";

-	mes "..... Pavianne is such an old-timer!";

-	mes "Too stubborn...";

-	mes "We should make customers to experience more unique, never-seen, aspects of Kafra here at Main Office.";

-	next;

-	mes "[Kafra Blossom]";

-	mes "Now! WELCOOOOOME~~ I am Kafra Tailing Type.";

-	mes "Please don't forget to continue using our Kafra Service, and ask for me, Tailing~~";

-	next;

-	menu "I'm an admirer of you~!",L0,"Ehhaha",L1;

-	

-	L0:

-		mes "[Kafra Blossom]";

-		mes "Really!";

-		mes "Thank you sooo much~";

-		mes "Here is... my... autograph...";

-		next;

-		mes "[Kafra Blossom]";

-		mes "Don't even bother to look in your Item Iventory. It won't be there... Hehe..";

-		mes "My autograph will remail win your heart.";

-		cutin "kafra_02",255;

-		close;

-	L1:

-		mes "[Kafra Blossom]";

-		mes "Huh?";

-		mes ". . . . .";

-		mes "That's all?";

-		mes "Phew~ such a dull customer...";

-		cutin "kafra_02",255;

-		close;

-}

-

-aldeba_in.gat,91,244,4	script	Kafra Service	112,{

-	cutin "kafra_06",2;

-	mes "[Kafra Curly Sue]";

-	mes "Hello, hello?!!";

-	mes "The youngest of all! Kafra cutty~~";

-	mes "I am Kafra Type 'Curly Sue'";

-	next;

-	mes "[Kafra Curly Sue]";

-	mes "It hasn't been long meeting customers since I am new, but I am always doing my best!!";

-	next;

-	menu "Where is your mom?",L0,"End conversation",LEnd;

-	

-	L0:

-		mes "[Kafra Curly Sue]";

-		mes ". . . . .";

-		mes "Sob sob ...";

-		mes "I am no a KID!!";

-		next;

-		cutin "kafra_06",255;

-		close;

-	LEnd:

-		mes "[Kafra Curly Sue]";

-		mes "Here at Kafra Service, We're all doing out B-E-S-T! to provide our customers the B-E-S-T! services.";

-		mes "We really appreciate your business with us.";

-		next;

-		cutin "kafra_06",255;

-		close;

-}

-

-aldeba_in.gat,96,181,4	script	Kafra Service	113,{

-	cutin "kafra_05",2;

-	mes "[Kafra Leilah]";

-	mes "Kafra Service.";

-	mes "What can I do for you?";

-	next;

-	menu "Save.",Lsave,"Use Storage Service",Lstorage,"Use Cart Service.",Lcart,"End conversation.",Lcancel;

-

-	Lsave:

-		mes "[Kafra Leilah]";

-		mes "Please. This is Kafra Service Command Center in charge of training Kafra Service Agent.";

-		next;

-		mes "[Kafra Leilah]";

-		mes "For Actual Services you must visit Kafra Service Center Agent at each city including Al De Baran.";

-		mes "... But I will do that for you...";

-		next;

-		savepoint "aldeba_in.gat",96,179;		

-		cutin "kafra_05",255;

-		close;

-	Lstorage:

-		if((class ==Job_Novice) && (JobLevel<6)) goto NeedJobLevel;

-		if(Zeny<30) goto NeedZenys;

-		set Zeny, Zeny-30;

-		openstorage;

-		cutin "kafra_02",255;

-		close;

-

-                NeedJobLevel:

-                	mes "[Kafra Leilah]";

-                	mes "I am sorry but you have to be at least novice with job level 6 if you want to use the storage";

-                	cutin "kafra_05",255;

-                	close;

-                NeedZenys:

-	                mes "[Kafra Leilah]";

-                	mes "Dear, you don't have enough zeny. The Storage fee is 30 Zeny.";

-                	cutin "kafra_05",255;

-                	close;

-	Lcart:

-		if((class ==Job_Merchant) || (class==Job_Blacksmith) || (class==Job_Alchem)) goto UseCart;

-		mes "[Kafra Leilah]";

-		mes "I'm sorry. The cart service is only provided for Merchants, Blacksmiths and Alchemists only.";

-		cutin "kafra_04",255;

-		close;

-

-		UseCart:

-			mes "[Kafra Leilah]";

-			mes "The Cart Fee is 800 Zeny. Do you want to Rent a Cart?";

-			next;

-			menu "Rent a Cart.",RentCart,"Cancel.",RCCancel;

-

-			RentCart:

-				if(Zeny<800) goto RCNeedZenys;

-				if(getskilllv(39) < 1) got Lneedskill;

-				if((CheckCart)==1) goto GetCart;

-			

-				GetCart:

-					set Zeny,Zeny-800;

-					set specialreserve,specialreserve + 800;

-					setcart;

-					mes "[Kafra]";

-					mes "There you go..";

-					cutin "kafra_08",255;

-					close;

-			RCNeedZenys:

-				mes "[Kafra Leilah]";

-				mes "Dear, you don't have enough zeny. You need 800 Zeny.";

-				cutin "kafra_04",255;

-				close;

-			Lneedskill:

-				mes "[Kafra Leilah]";

-				mes "Sorry dear but you need the Pushcart skill to rent a cart.";

-				cutin "kafra_04",255;

-				close;

-		RCCancel:

-			cutin "kafra_04",255;

-			close;

-	Lcancel:

-		cutin "kafra_05",2;

-		close;

-}	

-

-aldeba_in.gat,142,238,4	script	Kafra Service	114,{

-	cutin "kafra_04",2;

-	mes "[Kafra Roxie]";

-	mes "Welcome! I'm Kafra Type 'Roxie'";

-	mes "The Special Secret about Kapra only for you Kapra!";

-	next;

-	mes "[Kafra Roxie]";

-	mes "You know... Our Kapra Service wasn't actually called Kapra originally~~";

-	mes "Well what do you think it actually was?~";

-	next;

-	mes "[Kafra Roxie]";

-	mes "TaDa~ Surprisingly it was~~~!";

-	mes "Ka! P (Ring Ring Ring)";

-	mes "Oh... my phone... Sorry please wait...";

-	next;

-	mes "[Kafra Roxie]";

-	mes "Hi? Kapra Type Roxie";

-	mes "Huh! Director, sir! Yes! Yes! I understand! ..... Sure!";

-	mes "Ah... Huh?!";

-	next;

-	mes "[Kafra Roxie]";

-	mes "No-no sir!";

-	mes "Yes! I understand!!";

-	next;

-	mes "[Kafra Roxie]";

-	mes "*Click*";

-	mes "..... Hehehe...";

-	mes ". . . . .";

-	next;

-	mes "[Kafra Roxie]";

-	mes "Ah... Please ignore what you've just heard from me, haha.";

-	mes ". . . . .";

-	close;

+//===== eAthena Script ======================================= 
+//= Kafra Script 
+//===== By: ================================================== 
+//= Lotsa People (1.0)
+//= Darlskies (1.1)
+//= Darkchild (1.2)
+//= Syrus22 (2.0)
+//= Syrus22 (2.1)
+//= Darkchild (2.2)
+//===== Current Version: ===================================== 
+//= 2.2
+//===== Compatible With: ===================================== 
+//= Any eAthena Version In Which functions work.
+//===== Description: ========================================= 
+//= All The Kafra's In Ro, Incl HQ
+//===== Additional Comments: ================================= 
+//= Darkskies did all the kafra points stuff.
+//= Syrus22 - I compltely rewrote the script pretty much except for
+//= the normal conversation text in the Kafra HQ NPCs.
+//= Syrus22 - I fixed the Special Reserve in the Kafra HQ to really
+//= give you items. I will add the Lottery Chances when I get
+//= full info on the prizes.
+//= Syrus22 - I will add a Louyang Kafra when I get better location info.
+//= Darkchild - Added Comodo
+//============================================================ 
+
+//**********************************************//
+//Actual Kafra NPCs                             //
+//**********************************************//
+//These will set the necessary variables for my //
+//functions to work.                            //
+//**********************************************//
+//---Orc Dungeon Kafra---
+gef_fild10.gat,73,340,4	script	Kafra#orc1	115,{
+set @cutinpic$,"kafra_02";
+
+set @save,1;
+set @save1map$,"gef_fild10.gat";
+set @save1x,54;
+set @save1y,232;
+
+callfunc "kaframain";
+break;
+}
+//---Byalan Kafra---
+izlu2dun.gat,106,58,8	script	Kafra	115,{
+if (class != Job_Novice) goto Lkafra;
+if((job_merchant_q==8) || (job_merchant_q==7)) goto JobMerQE8oE7;
+if((job_merchant_q==6) || (job_merchant_q==5)) goto JobMerQE6oE5;
+
+JobMerQE8oE7:
+ if(countitem(Delivery_Message) != 0) goto JobMerQE8oE7Cont;
+		
+JobMerQE8oE7Cont:
+ menu "Excuse me.",M0;
+
+  M0:
+   mes "[Kafra]";
+   mes "Yes?";
+   cutin "kafra_03",255;
+   close;
+
+JobMerQE6oE5:
+ mes "[Kafra]";
+ mes "Delivery fro the Merchant Guild?? Ah, Right! Yes! I almost forgot.";
+ mes "Okay,Please put down here....";
+ if((countitem(1081)==1) || (countitem(1082)==1) || (countitem(1083)==1)) goto MerBox123E1;
+ mes ".... I think our orders are almost one Box of Oversized and Heavy....But you seem to carry it on without difficulty.";
+ close;
+
+  MerBox123E1:
+   next;
+   mes "[Kafra]";
+   mes "Let me check its Serial numbers, I have to give the receipt to you anyhow.";
+   if(nov_1_2_cos_c==7) goto JobMerQ2E7;
+   if(nov_1_2_cos_c==8) goto JobMerQ2E8;
+   next;
+   mes "[Kafra]";
+   mes "......? Excuse me! I think you gave me the wrong one.";
+   mes "Our order should have the serial numbers as either of 3318702 or 3543625...";
+   cutin "kafra_03",255;
+   close;
+
+JobMerQ2E7:
+ if(countitem(1081) !=0) goto MerBox1NE0;
+
+ MerBox1NE0:
+  mes "Um.... 3012685. Yes! This is the right one we ordered. Here, your receipt.";
+  delitem 1081,1;
+  getitem 1079,1;
+  goto JobMerQ2Cont;
+
+JobMerQ2E8:
+ if(countitem(1081) !=0) goto MerBox2NE0;
+
+ MerBox2NE0:
+  mes "Um.... 3543625. Yes! This is the right one we ordered. Here, your receipt.";
+  delitem 1082,1;
+  getitem 1080,1;
+  goto JobMerQ2Cont;
+
+JobMerQ2Cont:
+ if(job_merchant_q==6) goto JobMerQE6;
+ getitem 3005,2;
+ goto JobMerQ2Cont1;
+
+JobMerQE6:
+ getitem 3005,2;
+ goto JobMerQ2Cont1;
+
+JobMerQ2Cont1:
+ getitem 3017,1;
+ if(countitem(Delivery_Message) != 0) goto DevMsg;
+ goto DevMsgCont;
+
+DevMsg:
+ menu "This is from Mr. Mahnsoo...",M1;
+
+  M1:
+   delitem 1072,1;
+   set nov_3_merchant,11;
+   mes "[Kapra]";
+   mes "Oh, my good Lord! Mr. Mansoo wrote me a Letter? Thank you, Thank you~";
+   mes "I though he would send one one of these days, but I've never expected it would be so soon like this time~";
+   goto DevMsgCont;
+
+   DevMsgCont:
+    next;
+    mes "[Kafra]";
+    mes "I really appreciate you for what you've done so far. This is my Small Gift for you to lay my heart.";
+    mes "I hope you will help me next time.";
+    set @TEMP,rand(2);
+    goto R0;
+
+    R0:
+     if(@TEMP !=0) goto R1;
+     getitem 513,3;
+     cutin "kafra_03",255;
+     close;
+    R1:
+     getitem 512,3;
+     cutin "kafra_03",255;
+     close;
+
+Lkafra:
+set @cutinpic$,"kafra_03";
+
+set @save,1;
+set @save1map$,"izlu2dun.gat";
+set @save1x,87;
+set @save1y,170;
+
+callfunc "kaframain";
+break;
+}
+//---Pyramids Kafra---
+moc_ruins.gat,61,156,5	script	Kafra#pyr1	114,{
+set @cutinpic$,"kafra_04";
+
+set @save,1;
+set @save1map$,"moc_ruins.gat";
+set @save1x,41;
+set @save1y,141;
+
+callfunc "kaframain";
+break;
+}
+//---Northern Prontera Field Kafra---
+prt_fild01.gat,198,47,8	script	Kafra#pfl1	112,{
+set @cutinpic$,"kafra_06";
+
+set @save,1;
+set @save1map$,"prt_fild01.gat";
+set @save1x,197;
+set @save1y,50;
+
+callfunc "kaframain";
+break;
+}
+//---Culvert Kafra---
+prt_fild05.gat,290,224,1	script	Kafra#pfl2	114,{
+set @cutinpic$,"kafra_04";
+
+set @save,1;
+set @save1map$,"prt_fild05.gat";
+set @save1x,274;
+set @save1y,243;
+
+callfunc "kaframain";
+break;
+}
+//---In Alberta Kafras---
+alberta.gat,28,229,8	script	Kafra#alb1	115,{
+set @cutinpic$,"kafra_02";
+
+set @save1map$,"alberta.gat";
+set @save1x,31;
+set @save1y,231;
+set @save2map$,"pay_fild03.gat";
+set @save2x,386;
+set @save2y,76;
+
+set @warps,4;
+
+set @warp1$,"Payon";
+set @warp1name$,"payon.gat";
+set @warp1x,69;
+set @warp1y,100;
+set @warp1zeny,1300;
+
+set @warp2$,"Prontera";
+set @warp2name$,"prontera.gat";
+set @warp2x,116;
+set @warp2y,75;
+set @warp2zeny,2100;
+
+set @warp3$,"Morocc";
+set @warp3name$,"morocc.gat";
+set @warp3x,156;
+set @warp3y,46;
+set @warp3zeny,2200;
+
+set @warp4$,"Comodo";
+set @warp4name$,"comodo.gat";
+set @warp4x,209;
+set @warp4y,143;
+set @warp4zeny,2400;
+
+set @kaflocations,1;
+set @location1x,113;
+set @location1y,60;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+alberta.gat,113,60,5	script	Kafra#alb2	112,{
+set @cutinpic$,"kafra_06";
+
+set @save,1;
+set @save1map$,"alberta.gat";
+set @save1x,117;
+set @save1y,57;
+
+set @warps,4;
+
+set @warp1$,"Payon";
+set @warp1name$,"payon.gat";
+set @warp1x,69;
+set @warp1y,100;
+set @warp1zeny,1300;
+
+set @warp2$,"Prontera";
+set @warp2name$,"prontera.gat";
+set @warp2x,116;
+set @warp2y,75;
+set @warp2zeny,2100;
+
+set @warp3$,"Morocc";
+set @warp3name$,"morocc.gat";
+set @warp3x,156;
+set @warp3y,46;
+set @warp3zeny,2200;
+
+set @warp4$,"Comodo";
+set @warp4name$,"comodo.gat";
+set @warp4x,209;
+set @warp4y,143;
+set @warp4zeny,2400;
+
+set @kaflocations,1;
+set @location1x,28;
+set @location1y,229;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+//---Sunken Ship Kafra---
+alb2trea.gat,59,69,1	script	Kafra#snk1	117,{
+set @cutinpic$,"kafra_03";
+
+set @save,1;
+set @save1map$,"alb2trea.gat";
+set @save1x,92;
+set @save1y,64;
+
+callfunc "kaframain";
+break;
+}
+//---In Al De Baran Kafra---
+aldebaran.gat,143,119,4	script	Kafra#ald1	113,{
+set @cutinpic$,"kafra_05";
+
+set @save,1;
+set @save1map$,"aldebaran.gat";
+set @save1x,143;
+set @save1y,109;
+
+set @warps,3;
+
+set @warp1$,"Geffen";
+set @warp1name$,"geffen.gat";
+set @warp1x,120;
+set @warp1y,39;
+set @warp1zeny,1600;
+
+set @warp2$,"Mjolnir Dead Pit";
+set @warp2name$,"mjolnir_02.gat";
+set @warp2x,99;
+set @warp2y,351;
+set @warp2zeny,1700;
+
+set @warp3$,"Comodo";
+set @warp3name$,"comodo.gat";
+set @warp3x,209;
+set @warp3y,143;
+set @warp3zeny,2200;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+//---In Geffen Kafras---
+geffen.gat,120,62,8	script	Kafra#gef1	115,{
+set @cutinpic$,"kafra_03";
+
+set @save,1;
+set @save1map$,"geffen.gat";
+set @save1x,119;
+set @save1y,40;
+
+set @warps,5;
+
+set @warp1$,"Prontera";
+set @warp1name$,"prontera.gat";
+set @warp1x,116;
+set @warp1y,75;
+set @warp1zeny,1400;
+
+set @warp2$,"Izlude";
+set @warp2name$,"izlude.gat";
+set @warp2x,91;
+set @warp2y,105;
+set @warp2zeny,1800;
+
+set @warp3$,"Al De Baran";
+set @warp3name$,"aldebaran.gat";
+set @warp3x,143;
+set @warp3y,110;
+set @warp3zeny,2100;
+
+set @warp4$,"Morocc";
+set @warp4name$,"morocc.gat";
+set @warp4x,156;
+set @warp4y,46;
+set @warp4zeny,2200;
+
+set @warp5$,"Comodo";
+set @warp5name$,"comodo.gat";
+set @warp5x,209;
+set @warp5y,143;
+set @warp5zeny,2400;
+
+set @kaflocations,1;
+set @location1x,203;
+set @location1y,123;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+geffen.gat,203,123,3	script	Kafra#gef2	114,{
+set @cutinpic$,"kafra_04";
+
+set @save1map$,"geffen.gat";
+set @save1x,200;
+set @save1y,124;
+set @save2map$,"gef_fild00.gat";
+set @save2x,51;
+set @save2y,194;
+
+set @warps,5;
+
+set @warp1$,"Prontera";
+set @warp1name$,"prontera.gat";
+set @warp1x,116;
+set @warp1y,75;
+set @warp1zeny,1400;
+
+set @warp2$,"Izlude";
+set @warp2name$,"izlude.gat";
+set @warp2x,91;
+set @warp2y,105;
+set @warp2zeny,1800;
+
+set @warp3$,"Al De Baran";
+set @warp3name$,"aldebaran.gat";
+set @warp3x,143;
+set @warp3y,110;
+set @warp3zeny,2100;
+
+set @warp4$,"Morocc";
+set @warp4name$,"morocc.gat";
+set @warp4x,156;
+set @warp4y,46;
+set @warp4zeny,2200;
+
+set @warp5$,"Comodo";
+set @warp5name$,"comodo.gat";
+set @warp5x,209;
+set @warp5y,143;
+set @warp5zeny,2400;
+
+set @kaflocations,1;
+set @location1x,120;
+set @location1y,62;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+//---In Izlude Kafra---
+izlude.gat,124,115,6	script	Kafra#izl1	117,{
+set @cutinpic$,"kafra_01";
+
+set @save1map$,"izlude.gat";
+set @save1x,128;
+set @save1y,111;
+set @save2map$,"prt_fild08.gat";
+set @save2x,349;
+set @save2y,202;
+
+set @warps,4;
+
+set @warp1$,"Prontera";
+set @warp1name$,"prontera.gat";
+set @warp1x,116;
+set @warp1y,75;
+set @warp1zeny,900;
+
+set @warp2$,"Payon";
+set @warp2name$,"payon.gat";
+set @warp2x,69;
+set @warp2y,100;
+set @warp2zeny,1700;
+
+set @warp3$,"Geffen";
+set @warp3name$,"geffen.gat";
+set @warp3x,120;
+set @warp3y,39;
+set @warp3zeny,1800;
+
+set @warp4$,"Comodo";
+set @warp4name$,"comodo.gat";
+set @warp4x,209;
+set @warp4y,143;
+set @warp4zeny,2000;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+//---In Morocc Kafras---
+morocc.gat,156,97,4	script	Kafra#moc1	115,{
+set @cutinpic$,"kafra_03";
+
+set @save,1;
+set @save1map$,"morocc.gat";
+set @save1x,156;
+set @save1y,46;
+
+set @warps,5;
+
+set @warp1$,"Prontera";
+set @warp1name$,"prontera.gat";
+set @warp1x,116;
+set @warp1y,75;
+set @warp1zeny,1800;
+
+set @warp2$,"Payon";
+set @warp2name$,"payon.gat";
+set @warp2x,69;
+set @warp2y,100;
+set @warp2zeny,1800;
+
+set @warp3$,"Alberta";
+set @warp3name$,"alberta.gat";
+set @warp3x,117;
+set @warp3y,56;
+set @warp3zeny,2200;
+
+set @warp4$,"Geffen";
+set @warp4name$,"geffen.gat";
+set @warp4x,120;
+set @warp4y,39;
+set @warp4zeny,2200;
+
+set @warp5$,"Comodo";
+set @warp5name$,"comodo.gat";
+set @warp5x,209;
+set @warp5y,143;
+set @warp5zeny,1800;
+
+set @kaflocations,1;
+set @location1x,163;
+set @location1y,260;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+morocc.gat,163,260,4	script	Kafra	114,{
+set @cutinpic$,"kafra_04";
+
+set @save1map$,"morocc.gat";
+set @save1x,187;
+set @save1y,281;
+set @save2map$,"moc_fild07.gat";
+set @save2x,212;
+set @save2y,30;
+
+set @warps,5;
+
+set @warp1$,"Prontera";
+set @warp1name$,"prontera.gat";
+set @warp1x,116;
+set @warp1y,75;
+set @warp1zeny,1800;
+
+set @warp2$,"Payon";
+set @warp2name$,"payon.gat";
+set @warp2x,69;
+set @warp2y,100;
+set @warp2zeny,1800;
+
+set @warp3$,"Alberta";
+set @warp3name$,"alberta.gat";
+set @warp3x,117;
+set @warp3y,56;
+set @warp3zeny,2200;
+
+set @warp4$,"Geffen";
+set @warp4name$,"geffen.gat";
+set @warp4x,120;
+set @warp4y,39;
+set @warp4zeny,2200;
+
+set @warp5$,"Comodo";
+set @warp5name$,"comodo.gat";
+set @warp5x,209;
+set @warp5y,143;
+set @warp5zeny,1800;
+
+set @kaflocations,1;
+set @location1x,156;
+set @location1y,97;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+//---In Payon Kafra---
+payon.gat,99,116,4	script	Kafra#pay1	113,{
+set @cutinpic$,"kafra_05";
+
+set @save1map$,"payon.gat";
+set @save1x,69;
+set @save1y,100;
+set @save2map$,"pay_fild01.gat";
+set @save2x,340;
+set @save2y,347;
+
+set @warps,4;
+
+set @warp1$,"Alberta";
+set @warp1name$,"alberta.gat";
+set @warp1x,117;
+set @warp1y,56;
+set @warp1zeny,1300;
+
+set @warp2$,"Prontera";
+set @warp2name$,"prontera.gat";
+set @warp2x,116;
+set @warp2y,72;
+set @warp2zeny,1800;
+
+set @warp3$,"Morocc";
+set @warp3name$,"morocc.gat";
+set @warp3x,156;
+set @warp3y,46;
+set @warp3zeny,1800;
+
+set @warp4$,"Comodo";
+set @warp4name$,"comodo.gat";
+set @warp4x,209;
+set @warp4y,143;
+set @warp4zeny,2000;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+//---Archer Village Kafra---
+pay_arche.gat,55,123,8	script	Kafra	117,{
+set @cutinpic$,"kafra_01";
+
+set @save,1;
+set @save1map$,"pay_arche.gat";
+set @save1x,49;
+set @save1y,144;
+
+callfunc "kaframain";
+break;
+}
+//---In Prontera Kafras---
+prontera.gat,29,207,6	script	Kafra#pro2	113,{
+set @cutinpic$,"kafra_05";
+
+set @warps,6;
+
+set @warp1$,"Izlude";
+set @warp1name$,"izlude.gat";
+set @warp1x,91;
+set @warp1y,105;
+set @warp1zeny,900;
+
+set @warp2$,"Geffen";
+set @warp2name$,"geffen.gat";
+set @warp2x,120;
+set @warp2y,39;
+set @warp2zeny,1400;
+
+set @warp3$,"Payon";
+set @warp3name$,"payon.gat";
+set @warp3x,69;
+set @warp3y,100;
+set @warp3zeny,1700;
+
+set @warp4$,"Morocc";
+set @warp4name$,"morocc.gat";
+set @warp4x,156;
+set @warp4y,46;
+set @warp4zeny,1800;
+
+set @warp5$,"Orc Dungeon";
+set @warp5name$,"gef_fild10.gat";
+set @warp5x,52;
+set @warp5y,326;
+set @warp5zeny,1700;
+
+set @warp6$,"Comodo";
+set @warp6name$,"comodo.gat";
+set @warp6x,209;
+set @warp6y,143;
+set @warp6zeny,2000;
+
+set @save1map$,"prontera.gat";
+set @save1x,33;
+set @save1y,208;
+set @save2map$,"prt_fild05.gat";
+set @save2x,367;
+set @save2y,205;
+
+set @kaflocations,1;
+set @location1x,146;
+set @location1y,89;
+set @location2x,282;
+set @location2y,200;
+set @location3x,151;
+set @location3y,29;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+prontera.gat,146,89,6	script	Kafra#pro1	115,{
+set @cutinpic$,"kafra_03";
+
+set @warps,6;
+
+set @warp1$,"Izlude";
+set @warp1name$,"izlude.gat";
+set @warp1x,91;
+set @warp1y,105;
+set @warp1zeny,900;
+
+set @warp2$,"Geffen";
+set @warp2name$,"geffen.gat";
+set @warp2x,120;
+set @warp2y,39;
+set @warp2zeny,1400;
+
+set @warp3$,"Payon";
+set @warp3name$,"payon.gat";
+set @warp3x,69;
+set @warp3y,100;
+set @warp3zeny,1700;
+
+set @warp4$,"Morocc";
+set @warp4name$,"morocc.gat";
+set @warp4x,156;
+set @warp4y,46;
+set @warp4zeny,1800;
+
+set @warp5$,"Orc Dungeon";
+set @warp5name$,"gef_fild10.gat";
+set @warp5x,52;
+set @warp5y,326;
+set @warp5zeny,1700;
+
+set @warp6$,"Comodo";
+set @warp6name$,"comodo.gat";
+set @warp6x,209;
+set @warp6y,143;
+set @warp6zeny,2000;
+
+set @save,1;
+set @save1map$,"prontera.gat";
+set @save1x,116;
+set @save1y,73;
+
+set @kaflocations,1;
+set @location1x,29;
+set @location1y,207;
+set @location2x,282;
+set @location2y,200;
+set @location3x,151;
+set @location3y,29;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+prontera.gat,282,199,6	script	Kafra	115,{
+set @cutinpic$,"kafra_03";
+
+set @warps,6;
+
+set @warp1$,"Izlude";
+set @warp1name$,"izlude.gat";
+set @warp1x,91;
+set @warp1y,105;
+set @warp1zeny,900;
+
+set @warp2$,"Geffen";
+set @warp2name$,"geffen.gat";
+set @warp2x,120;
+set @warp2y,39;
+set @warp2zeny,1400;
+
+set @warp3$,"Payon";
+set @warp3name$,"payon.gat";
+set @warp3x,69;
+set @warp3y,100;
+set @warp3zeny,1700;
+
+set @warp4$,"Morocc";
+set @warp4name$,"morocc.gat";
+set @warp4x,156;
+set @warp4y,46;
+set @warp4zeny,1800;
+
+set @warp5$,"Orc Dungeon";
+set @warp5name$,"gef_fild10.gat";
+set @warp5x,52;
+set @warp5y,326;
+set @warp5zeny,1700;
+
+set @warp6$,"Comodo";
+set @warp6name$,"comodo.gat";
+set @warp6x,209;
+set @warp6y,143;
+set @warp6zeny,2000;
+
+set @save,1;
+set @save1map$,"prontera.gat";
+set @save1x,117;
+set @save1y,73;
+
+set @kaflocations,1;
+set @location1x,29;
+set @location1y,207;
+set @location2x,146;
+set @location2y,89;
+set @location3x,151;
+set @location3y,29;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+prontera.gat,151,29,8	script	Kafra	115,{
+set @cutinpic$,"kafra_03";
+
+set @warps,6;
+
+set @warp1$,"Izlude";
+set @warp1name$,"izlude.gat";
+set @warp1x,91;
+set @warp1y,105;
+set @warp1zeny,900;
+
+set @warp2$,"Geffen";
+set @warp2name$,"geffen.gat";
+set @warp2x,120;
+set @warp2y,39;
+set @warp2zeny,1400;
+
+set @warp3$,"Payon";
+set @warp3name$,"payon.gat";
+set @warp3x,69;
+set @warp3y,100;
+set @warp3zeny,1700;
+
+set @warp4$,"Morocc";
+set @warp4name$,"morocc.gat";
+set @warp4x,156;
+set @warp4y,46;
+set @warp4zeny,1800;
+
+set @warp5$,"Orc Dungeon";
+set @warp5name$,"gef_fild10.gat";
+set @warp5x,52;
+set @warp5y,326;
+set @warp5zeny,1700;
+
+set @warp6$,"Comodo";
+set @warp6name$,"comodo.gat";
+set @warp6x,209;
+set @warp6y,143;
+set @warp6zeny,2000;
+
+set @save1map$,"prontera.gat";
+set @save1x,150;
+set @save1y,33;
+set @save2map$,"prt_fild08.gat";
+set @save2x,170;
+set @save2y,369;
+
+set @kaflocations,1;
+set @location1x,29;
+set @location1y,207;
+set @location2x,146;
+set @location2y,89;
+set @location3x,282;
+set @location3y,199;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+//---In Yuno Kafras---
+yuno.gat,328,108,6	script	Kafra	117,{
+set @cutinpic$,"kafra_02";
+
+set @save,1;
+set @save1map$,"yuno.gat";
+set @save1x,332;
+set @save1y,107;
+
+set @warps,4;
+
+set @warp1$,"Izlude";
+set @warp1name$,"izlude.gat";
+set @warp1x,91;
+set @warp1y,105;
+set @warp1zeny,900;
+
+set @warp2$,"Geffen";
+set @warp2name$,"geffen.gat";
+set @warp2x,120;
+set @warp2y,39;
+set @warp2zeny,2100;
+
+set @warp3$,"Payon";
+set @warp3name$,"payon.gat";
+set @warp3x,69;
+set @warp3y,100;
+set @warp3zeny,2100;
+
+set @warp4$,"Morocc";
+set @warp4name$,"morocc.gat";
+set @warp4x,156;
+set @warp4y,46;
+set @warp4zeny,2100;
+
+set @kafralocations,1;
+set @location1x,151;
+set @location1y,87;
+set @location2x,278;
+set @location2y,221;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+yuno.gat,151,87,4	script	Kafra	115,{
+set @cutinpic$,"kafra_02";
+
+set @save,1;
+set @save1map$,"yuno.gat";
+set @save1x,154;
+set @save1y,75;
+
+set @warps,4;
+
+set @warp1$,"Izlude";
+set @warp1name$,"izlude.gat";
+set @warp1x,91;
+set @warp1y,105;
+set @warp1zeny,900;
+
+set @warp2$,"Geffen";
+set @warp2name$,"geffen.gat";
+set @warp2x,120;
+set @warp2y,39;
+set @warp2zeny,2100;
+
+set @warp3$,"Payon";
+set @warp3name$,"payon.gat";
+set @warp3x,69;
+set @warp3y,100;
+set @warp3zeny,2100;
+
+set @warp4$,"Morocc";
+set @warp4name$,"morocc.gat";
+set @warp4x,156;
+set @warp4y,46;
+set @warp4zeny,2100;
+
+set @kafralocations,1;
+set @location1x,328;
+set @location1y,108;
+set @location2x,278;
+set @location2y,221;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+yuno.gat,278,221,6	script	Kafra	117,{
+set @cutinpic$,"kafra_02";
+
+set @save,1;
+set @save1map$,"yuno.gat";
+set @save1x,332;
+set @save1y,107;
+
+set @warps,4;
+
+set @warp1$,"Izlude";
+set @warp1name$,"izlude.gat";
+set @warp1x,91;
+set @warp1y,105;
+set @warp1zeny,900;
+
+set @warp2$,"Geffen";
+set @warp2name$,"geffen.gat";
+set @warp2x,120;
+set @warp2y,39;
+set @warp2zeny,2100;
+
+set @warp3$,"Payon";
+set @warp3name$,"payon.gat";
+set @warp3x,69;
+set @warp3y,100;
+set @warp3zeny,2100;
+
+set @warp4$,"Morocc";
+set @warp4name$,"morocc.gat";
+set @warp4x,156;
+set @warp4y,46;
+set @warp4zeny,2100;
+
+set @kafralocations,1;
+set @location1x,328;
+set @location1y,108;
+set @location2x,151;
+set @location2y,87;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+//---In Umbala Kafra---
+umbala.gat,128,133,4	script	Kafra	115,{
+set @cutinpic$,"kafra_02";
+
+set @save,1;
+set @save1map$,"umbala.gat";
+set @save1x,126;
+set @save1y,131;
+
+set @warps,4;
+
+set @warp1$,"Izlude";
+set @warp1name$,"izlude.gat";
+set @warp1x,91;
+set @warp1y,105;
+set @warp1zeny,900;
+
+set @warp2$,"Geffen";
+set @warp2name$,"geffen.gat";
+set @warp2x,120;
+set @warp2y,39;
+set @warp2zeny,2100;
+
+set @warp3$,"Payon";
+set @warp3name$,"payon.gat";
+set @warp3x,69;
+set @warp3y,100;
+set @warp3zeny,2100;
+
+set @warp4$,"Morocc";
+set @warp4name$,"morocc.gat";
+set @warp4x,156;
+set @warp4y,46;
+set @warp4zeny,2100;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+//---In Gonryun Kafra---
+//Note: Gave this Kafra the same warps as Umbala and Yuno till I get the
+//real warp information.
+gonryun.gat,159,122,4	script	Kafra	116,{
+set @cutinpic$,"kafra_02";
+
+set @save,1;
+set @save1map$,"gonryun.gat";
+set @save1x,160;
+set @save1y,62;
+
+set @warps,4;
+
+set @warp1$,"Izlude";
+set @warp1name$,"izlude.gat";
+set @warp1x,91;
+set @warp1y,105;
+set @warp1zeny,900;
+
+set @warp2$,"Geffen";
+set @warp2name$,"geffen.gat";
+set @warp2x,120;
+set @warp2y,39;
+set @warp2zeny,2100;
+
+set @warp3$,"Payon";
+set @warp3name$,"payon.gat";
+set @warp3x,69;
+set @warp3y,100;
+set @warp3zeny,2100;
+
+set @warp4$,"Morocc";
+set @warp4name$,"morocc.gat";
+set @warp4x,156;
+set @warp4y,46;
+set @warp4zeny,2100;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+//---Comodo---
+comodo.gat,166,163,3	script	Kafra	721,{
+set @cutinpic$,"kafra_02";
+
+set @save,1;
+set @save1map$,"comodo.gat";
+set @save1x,188;
+set @save1y,148;
+
+set @warps,2;
+
+set @warp1$,"Morroc";
+set @warp1name$,"morocc.gat";
+set @warp1x,156;
+set @warp1y,46;
+set @warp1pay,2400;
+
+set @warp2$,"Geffen";
+set @warp2name$,"geffen.gat";
+set @warp2x,120;
+set @warp2y,39;
+set @warp2zeny,2100;
+
+set @special,1;
+
+callfunc "kaframain";
+break;
+}
+//**********************************************//
+//Kafra Main                                    //
+//**********************************************//
+//The main kafra script. This will call the     //
+//necessary functions from the rest of the      //
+//script.                                       //
+//**********************************************//
+function	script	kaframain	-1,{
+cutin @cutinpic$,2;
+mes "[Kafra Employee]";
+mes "Welcome to Kafra Corporation. The Kafra services are always by your side.";
+mes "How may I assist you?";
+next;
+if ((@warps > 0) && (@special > 0)) goto Lallmenu;
+if ((@warps > 0) && (@special == 0)) goto Lwarpmenu;
+if (@warps == 0) goto Lnowarpmenu;
+
+Lallmenu:
+menu "Save",Lsave,"Use Storage",Lstorage,"Use Teleport Service",Lwarp,"Rent a Cart",Lcart,"Check Other Information",Lother,"Cancel",Lcancel;
+
+Lwarpmenu:
+menu "Save",Lsave,"Use Storage",Lstorage,"Use Teleport Service",Lwarp,"Rent a Cart",Lcart,"Cancel",Lcancel;
+
+Lnowarpmenu:
+menu "Save",Lsave,"Use Storage",Lstorage,"Rent a Cart",Lcart,"Cancel",Lcancel;
+
+Lsave:
+callfunc "kafrasave";
+break;
+
+Lstorage:
+callfunc "kafrastorage";
+break;
+
+Lwarp:
+callfunc "kafrawarps";
+break;
+
+Lcart:
+callfunc "kafracart";
+break;
+
+Lother:
+callfunc "kafrainfo";
+break;
+
+Lcancel:
+callfunc "kafraend";
+break;
+}
+//**********************************************//
+//Kafra Save                                    //
+//**********************************************//
+//This will handle the save function for all the//
+//kafras.                                       //
+//**********************************************//
+function	script	kafrasave	-1,{
+if (@save == 1) goto Lsavein;
+mes "[Kafra]";
+mes "Where would you like to save?";
+next;
+menu "Save Outside City",Lsaveout,"Save Inside City",Lsavein;
+
+Lsavein:
+ savepoint @save1map$,@save1x,@save1y;
+ mes "[Kafra]";
+ mes "Your respawn point has been saved. Thank you.";
+ callfunc "kafraend";
+ break;
+
+Lsaveout:
+ savepoint @save2map$,@save2x,@save2y;
+ mes "[Kafra]";
+ mes "Your respawn point has been saved. Thank you.";
+ callfunc "kafraend";
+ break;
+}
+//**********************************************//
+//Kafra Storage                                 //
+//**********************************************//
+//This will handle the storage functions for    //
+//all the kafras.                               //
+//**********************************************//
+function	script	kafrastorage	-1,{
+if (getskilllv(1) < 6) goto NeedJobLevel;
+if (Zeny < 30) goto NeedZenys;
+set specialreserve,specialreserve + 30;
+set Zeny, Zeny - 30;
+mes "[Kafra]";
+mes "Ok let me just open your storage for you.";
+openstorage;
+callfunc "kafraend";
+break;
+
+NeedJobLevel:
+ mes "[Kafra]";
+ mes "I'm sorry but you must have Basic Skill 6 to use storage.";
+ callfunc "kafraend";
+ break;
+
+NeedZenys:
+ mes "[Kafra]";
+ mes "I'm sorry but you are short on Zeny.";
+ callfunc "kafraend";
+ break;
+}
+//**********************************************//
+//Kafra Warps                                   //
+//**********************************************//
+//This will handle all the actual warping and   //
+//the payment of Zeny                           //
+//**********************************************//
+function	script	kafrawarps	-1,{
+mes "[Kafra]";
+mes "Please choose your destination.";
+next;
+if (@warps == 7) goto L7;
+if (@warps == 6) goto L6;
+if (@warps == 5) goto L5;
+if (@warps == 4) goto L4;
+if (@warps == 3) goto L3;
+if (@warps == 2) goto L2;
+
+L2:
+ menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,"Cancel",Lcancel;
+
+L3:
+ menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,"Cancel",Lcancel;
+
+L4:
+ menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,@warp4$ + " -> " + @warp4zeny,Lwarp4,"Cancel",Lcancel;
+
+L5:
+ menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,@warp4$ + " -> " + @warp4zeny,Lwarp4,@warp5$ + " -> " + @warp5zeny,Lwarp5,"Cancel",Lcancel;
+
+L6:
+ menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,@warp4$ + " -> " + @warp4zeny,Lwarp4,@warp5$ + " -> " + @warp5zeny,Lwarp5,@warp6$ + " -> " + @warp6zeny,Lwarp6,"Cancel",Lcancel;
+
+L7:
+ menu @warp1$ + " -> " + @warp1zeny,Lwarp1,@warp2$ + " -> " + @warp2zeny,Lwarp2,@warp3$ + " -> " + @warp3zeny,Lwarp3,@warp4$ + " -> " + @warp4zeny,Lwarp4,@warp5$ + " -> " + @warp5zeny,Lwarp5,@warp6$ + " -> " + @warp6zeny,Lwarp6,@warp7$ + " -> " + @warp7zeny,Lwarp7,"Cancel",Lcancel;
+
+Lwarp1:
+ if (Zeny < @warp1zeny) goto Lneedzeny;
+ set specialreserve,specialreserve + @warp1zeny;
+ set Zeny,Zeny - @warp1zeny;
+ warp @warp1name$,@warp1x,@warp1y;
+ set @end,1;
+ callfunc "kafraend";
+ break;
+
+Lwarp2:
+ if (Zeny < @warp2zeny) goto Lneedzeny;
+ set specialreserve,specialreserve + @warp2zeny;
+ set Zeny,Zeny - @warp2zeny;
+ warp @warp2name$,@warp2x,@warp2y;
+ set @end,1;
+ callfunc "kafraend";
+ break;
+
+Lwarp3:
+ if (Zeny < @warp3zeny) goto Lneedzeny;
+ set specialreserve,specialreserve + @warp3zeny;
+ set Zeny,Zeny - @warp3zeny;
+ warp @warp3name$,@warp3x,@warp3y;
+ set @end,1;
+ callfunc "kafraend";
+ break;
+
+Lwarp4:
+ if (Zeny < @warp4zeny) goto Lneedzeny;
+ set specialreserve,specialreserve + @warp4zeny;
+ set Zeny,Zeny - @warp4zeny;
+ warp @warp4name$,@warp4x,@warp4y;
+ set @end,1;
+ callfunc "kafraend";
+ break;
+
+Lwarp5:
+ if (Zeny < @warp5zeny) goto Lneedzeny;
+ set specialreserve,specialreserve + @warp5zeny;
+ set Zeny,Zeny - @warp5zeny;
+ warp @warp5name$,@warp5x,@warp5y;
+ set @end,1;
+ callfunc "kafraend";
+ break;
+
+Lwarp6:
+ if (Zeny < @warp6zeny) goto Lneedzeny;
+ set specialreserve,specialreserve + @warp6zeny;
+ set Zeny,Zeny - @warp6zeny;
+ warp @warp6name$,@warp6x,@warp6y;
+ set @end,1;
+ callfunc "kafraend";
+ break;
+
+Lwarp7:
+ if (Zeny < @warp7zeny) goto Lneedzeny;
+ set specialreserve,specialreserve + @warp7zeny;
+ set Zeny,Zeny - @warp7zeny;
+ warp @warp7name$,@warp7x,@warp7y;
+ set @end,1;
+ callfunc "kafraend";
+ break;
+
+Lneedzeny:
+ mes "[Kafra]";
+ mes "I'm sorry you don't have the necessary amount of zeny.";
+ callfunc "kafraend";
+ break;
+
+Lcancel:
+ mes "[Kafra]";
+ mes "Ok, Come again soon.";
+ callfunc "kafraend";
+ break;
+}
+//**********************************************//
+//Kafra Cart                                    //
+//**********************************************//
+//This will handle the cart rental function for //
+//all the Kafras.                               //
+//**********************************************//
+function	script	kafracart	-1,{
+if ((class == Job_Merchant) || (class == Job_Blacksmith) || (class == Job_Alchem) || (class == Job_Merchant_High) || (class == Job_Whitesmith) || (class == Job_Creator)) goto Lrentcart;
+mes "[Kafra]";
+mes "Sorry this service is only provided for Merchant classes.";
+callfunc "kafraend";
+break;
+
+Lrentcart:
+ if (getskilllv(39) < 1) goto Lnopush;
+ mes "[Kafra]";
+ mes "The cart rental fee is 800 zeny. Do you want to rent a cart?";
+ next;
+ menu "Rent a Cart",Lrent,"Cancel",Lcancel;
+
+Lrent:
+ if (Zeny < 800) goto Lneedzeny;
+ set specialreserve,specialreserve + 800;
+ set Zeny,Zeny - 800;
+ setcart;
+ mes "[Kafra]";
+ mes "There ya go...";
+ callfunc "kafraend";
+ break;
+
+Lnopush:
+ mes "[Kafra]";
+ mes "Sorry but you must have at least ^ff0000Pushcart^000000 level 1.";
+ callfunc "kafraend";
+ break;
+
+Lneedzeny:
+ mes "[Kafra]";
+ mes "Sorry but you don't have the zeny.";
+ callfunc "kafraend";
+ break;
+
+Lcancel:
+ mes "[Kafra]";
+ mes "Ok. Goodbye then";
+ callfunc "kafraend";
+ break;
+}
+//**********************************************//
+//Kafra Information                             //
+//**********************************************//
+//This will handle the extra Kafra functions    //
+//such as your kafra points and the locations of//
+//other kafras.                                 //
+//**********************************************//
+function	script	kafrainfo	-1,{
+if (@kaflocations == 1) goto Lfullmenu;
+menu "Check Special Reserve Points",Lreserve,"Cancel",Lcancel;
+
+Lfullmenu:
+ menu "Check Special Reserve Points",Lreserve,"Location Tip",Llocation,"Cancel",Lcancel;
+
+Lreserve:
+ mes "[Kafra]";
+ mes strcharinfo(0) + ", you have accumulated " + specialreserve + " Special Reserve Points.";
+ next;
+ mes "[Kafra]";
+ mes "You can redeem your points at our Headquarters in Al De Baran.";
+ callfunc "kafraend";
+ break;
+
+Llocation:
+ mes "[Kafra]";
+ mes "Ok I'll mark them on your map.";
+ if (@location1x == 0) goto Lfinished;
+ viewpoint 0,@location1x,@location1y,1,0x0000FF;
+ if (@location2x == 0) goto Lfinished;
+ viewpoint 1,@location2x,@location2y,1,0x0000FF;
+ if (@location3x == 0) goto Lfinished;
+ viewpoint 2,@location3x,@location3y,1,0x0000FF;
+ if (@location4x == 0) goto Lfinished;
+ viewpoint 3,@location4x,@location4y,1,0x0000FF;
+ callfunc "kafraend";
+ break;
+
+Lfinished:
+ callfunc "kafraend";
+ break;
+
+Lcancel:
+ mes "[Kafra]";
+ mes "Ok. Bye then...";
+ callfunc "kafraend";
+ break;
+}
+//**********************************************//
+//End Kafra Function                            //
+//**********************************************//
+//This will empty all possible variables and end//
+//the kafra scripts.                            //
+//**********************************************//
+function	script	kafraend	-1,{
+set @warps,0;
+set @save,0;
+set @special,0;
+set @kaflocations,0;
+set @location1x,0;
+set @location2x,0;
+set @location3x,0;
+set @location4x,0;
+if (@end == 1) goto Lbreak;
+cutin @cutinpic$,255;
+close;
+
+Lbreak:
+ set @end,0;
+ cutin @cutinpic$,255;
+ break;
+}
+//---Kafra Warehouse---
+aldeba_in.gat,24,245,4	script	 Kafra Service	115,{
+	cutin "kafra_03",2;
+	mes "[Kapra Jasmine]";
+	mes "Hi~ I am Kafra No. 1 Type Jasmine.";
+	mes "Thank you for comming all the way to Kafra Main Office here at Al De Baran!";
+	next;
+	mes "[Kapra Jasmine]";
+	mes "Our Kapra Service is always together with our customers!";
+	mes "Our Kapra Service has a history and legacy of 5 thousand 8 hundred years old...";
+	mes "Blah-blah-blah.....";
+	next;
+	menu "FIVE THOUSNAD AND EIGHT HUNDRED YEARS?!",L0,"Ahh~ Shut Up!",L1,"You go a boyfriend?",L3;
+	
+	L0:
+		mes "[Kapra Jasmine]";
+		mes "Shut UP! And listen! It to me a week to memorice this!";
+		mes "I've got poor memory unlike other Kafra agents!";
+		mes "..... Eh!... What did I just say...";
+		next;
+		mes "[Kapra Jasmine]";
+		mes "Hohohoho. S-sorry... I-it was a show, a standing comedy...";
+		mes "Right... Dream Show only for Ka-Kafra customers~!";
+		mes "(but a solo show)";
+		close;
+	L1:
+		mes "[Kapra Jasmine]";
+		mes ". . . . .";
+		mes "I was the member of Kafra Garrion before I joined Kafra Service Team...";
+		mes "The speciality was 'Bash'!!";
+		mes "I'm trying to be feminine and live a quiet life";
+		mes "So please don0t tempt me...";
+		close;
+	L2:
+		mes "[Kapra Jasmine]";
+		mes "My, my~. Kafra Service has a ridiculous rule that no Agent can have a boyfriend";
+		mes ". . . . .";
+		mes ". . . . . . . . . .";
+		next;
+		mes "[Kapra Jasmine]";
+		mes "Just kidding~~ Hehe";
+		close;
+}
+
+aldeba_in.gat,79,161,6	script	Kafra	115,{
+	mes "[Kafra]";
+	mes "Welcome, my dearest " + strcharinfo(0) + ".";
+	mes "Take goods as many as you've got speacial reserve from Kafra Service~";
+	next;
+	mes "[Kafra]";
+	mes "Please keep in mind that each window requires a different special reserve for your information.";
+	mes "Window I am at allows you to use special reserve form ^FF00FF100p to 3000p^000000.";
+	next;
+	mes "[Kafra]";
+	mes "Your special reserve is ^FF0000" + specialreserve + "^000000~";
+	mes "Please choose the items you want.";
+	next;
+	menu "100 = Carrot 7 ea",100,"200 = Carrot 15 ea",200,"300 = Carrot 25 ea",300,"400 = Carrot 35 ea",400,"500 = Carrot 50 ea",500,"600 = Carrot 60 ea",600,"700 = Carrot 75 ea",700,"800 = Carrot 85 ea",800,"900 = Carrot 100 ea",900,"1000 = 1st Lotery Chance!",1000,"Next Articles",L0,"Cancel",LEnd;
+
+	100:
+		if(specialreserve < 100) goto Lneedpoints;
+		mes "[Kafra]";
+		mes "Good choice... Here ya go.";
+		getitem 515,7;
+		set specialreserve,specialreserve - 100;
+		close;
+	200:
+		if(specialreserve < 200) goto Lneedpoints;
+		mes "[Kafra]";
+		mes "Good choice... Here ya go.";
+		getitem 515,15;
+		set specialreserve,specialreserve - 200;
+		close;
+	300:
+		if(specialreserve < 300) goto Lneedpoints;
+		mes "[Kafra]";
+		mes "Good choice... Here ya go.";
+		getitem 515,25;
+		set specialreserve,specialreserve - 300;
+		close;
+	400:
+		if(specialreserve < 400) goto Lneedpoints;
+		mes "[Kafra]";
+		mes "Good choice... Here ya go.";
+		getitem 515,35;
+		set specialreserve,specialreserve - 400;
+		close;
+	500:
+		if(specialreserve < 500) goto Lneedpoints;
+		mes "[Kafra]";
+		mes "Good choice... Here ya go.";
+		getitem 515,50;
+		set specialreserve,specialreserve - 500;
+		close;
+	600:
+		if(specialreserve < 600) goto Lneedpoints;
+		mes "[Kafra]";
+		mes "Good choice... Here ya go.";
+		getitem 515,60;
+		set specialreserve,specialreserve - 600;
+		close;
+	700:
+		if(specialreserve < 700) goto Lneedpoints;
+		mes "[Kafra]";
+		mes "Good choice... Here ya go.";
+		getitem 515,75;
+		set specialreserve,specialreserve - 700;
+		close;
+	800:
+		if(specialreserve < 800) goto Lneedpoints;
+		mes "[Kafra]";
+		mes "Good choice... Here ya go.";
+		getitem 515,85;
+		set specialreserve,specialreserve - 800;
+		close;
+	900:
+		if(specialreserve < 900) goto Lneedpoints;
+		mes "[Kafra]";
+		mes "Good choice... Here ya go.";
+		getitem 515,100;
+		set specialreserve,specialreserve - 900;
+		close;
+	1000:
+		mes "^FF0000Under Construction^000000";
+		close;
+	L0:
+		menu "1100 = Red Potion 7 ea",1100,"1300 = Red Potion 15 ea",1300,"1500 = Red Potion 25 ea",1500,"1700 = Red Potion 35 ea",1700,"1900 = Red Potion 50 ea",1900,"2100 = Red Potion 60 ea",2100,"2300 = Red Potion 75 ea",2300,"2500 = Red Potion 85 ea",2500,"2800 = Red Potion 100 ea",2800,"3000 = 2nd Lotery Chance!",3000,"Cancel",EndL0;
+		
+		1100:
+			if(specialreserve < 1100) goto Lneedpoints;
+			mes "[Kafra]";
+			mes "Good choice... Here ya go.";
+			getitem 501,7;
+			set specialreserve,specialreserve - 1100;
+			close;
+		1300:
+			if(specialreserve < 1300) goto Lneedpoints;
+			mes "[Kafra]";
+			mes "Good choice... Here ya go.";
+			getitem 501,15;
+			set specialreserve,specialreserve - 1300;
+			close;
+		1500:
+			if(specialreserve < 1500) goto Lneedpoints;
+			mes "[Kafra]";
+			mes "Good choice... Here ya go.";
+			getitem 501,25;
+			set specialreserve,specialreserve - 1500;
+			close;
+		1700:
+			if(specialreserve < 1700) goto Lneedpoints;
+			mes "[Kafra]";
+			mes "Good choice... Here ya go.";
+			getitem 501,35;
+			set specialreserve,specialreserve - 1700;
+			close;
+		1900:
+			if(specialreserve < 1900) goto Lneedpoints;
+			mes "[Kafra]";
+			mes "Good choice... Here ya go.";
+			getitem 501,50;
+			set specialreserve,specialreserve - 1900;
+			close;
+		2100:
+			if(specialreserve < 2100) goto Lneedpoints;
+			mes "[Kafra]";
+			mes "Good choice... Here ya go.";
+			getitem 501,60;
+			set specialreserve,specialreserve - 2100;
+			close;
+		2300:
+			if(specialreserve < 2300) goto Lneedpoints;
+			mes "[Kafra]";
+			mes "Good choice... Here ya go.";
+			getitem 501,75;
+			set specialreserve,specialreserve - 2300;
+			close;
+		2500:
+			if(specialreserve < 2500) goto Lneedpoints;
+			mes "[Kafra]";
+			mes "Good choice... Here ya go.";
+			getitem 501,85;
+			set specialreserve,specialreserve - 2500;
+			close;
+		2800:
+			if(specialreserve < 2800) goto Lneedpoints;
+			mes "[Kafra]";
+			mes "Good choice... Here ya go.";
+			getitem 501,100;
+			set specialreserve,specialreserve - 2800;
+			close;
+		3000:
+			mes "^FF0000Under Construction^000000";
+			close;
+Lend:
+	mes "[Kafra]";
+	mes "Ok then... Come again if you change your mind.";
+	close;
+}
+
+aldeba_in.gat,81,166,4	script	Kafra Service	117,{
+	cutin "kafra_01",2;
+	mes "[Kafra Pavianne]";
+	mes "Welcome! I'm Kafra service's the first Kapra Type 'Pavianne'";
+	next;
+	mes "[Kafra Pavianne]";
+	mes "Our Kapra Service is always trying to meet 100% customers satisfaction based on 3 principles, Trust, Devotion and Truest.";
+	mes "With complete Service training and supervision, we serve our customers to meet thier needs.";
+	next;
+	menu "Buy Kafra Pass",L0,"What is Kafra Pass",L1,"Good Bye",L3;
+	
+	L0:
+		getitem 1084,1;
+		set Zeny, Zeny-2000;
+		mes "[Kafra Pavianne]";
+		mes "Thank you for using our Kapra Service all the time!";
+		mes "Have a Nice Day!";
+		cutin "kafra_01",255;
+		close;
+	L1:
+		mes "[Kafra Pavianne]";
+		mes "The best gift you could get only at Kafra Main Office!";
+		mes "^4040FF'K A P R A's   P A S S'^000000!!";
+		mes "TaDa~!";
+		next;
+		mes "[Kafra Pavianne]";
+		mes "With Kafra Pass, you could experience the convenience of Kafra Service world-wide! No Hassle!";
+		mes "The price is 2000 zeny~~";
+		next;
+		mes "[Kafra Pavianne]";
+		mes "Visit any Kafra Service in Midgard, and you could enjoy Kafra Service any time any where for once.";
+		mes "Ending a a conversation with Kafra Service Agent will expire the pass.";
+		cutin "kafra_01",255;
+		close;
+	L3:
+		mes "[Kafra Pavianne]";
+		mes "Thank you for using Kafra Service!";
+		mes "It was Kafra Pavianne";
+		cutin "kafra_01",255;
+		close;
+}
+
+aldeba_in.gat,83,244,4	script	Kafra Service	116,{
+	cutin "kafra_02",2;
+	mes "[Kafra Blossom]";
+	mes "..... Pavianne is such an old-timer!";
+	mes "Too stubborn...";
+	mes "We should make customers to experience more unique, never-seen, aspects of Kafra here at Main Office.";
+	next;
+	mes "[Kafra Blossom]";
+	mes "Now! WELCOOOOOME~~ I am Kafra Tailing Type.";
+	mes "Please don't forget to continue using our Kafra Service, and ask for me, Tailing~~";
+	next;
+	menu "I'm an admirer of you~!",L0,"Ehhaha",L1;
+	
+	L0:
+		mes "[Kafra Blossom]";
+		mes "Really!";
+		mes "Thank you sooo much~";
+		mes "Here is... my... autograph...";
+		next;
+		mes "[Kafra Blossom]";
+		mes "Don't even bother to look in your Item Iventory. It won't be there... Hehe..";
+		mes "My autograph will remail win your heart.";
+		cutin "kafra_02",255;
+		close;
+	L1:
+		mes "[Kafra Blossom]";
+		mes "Huh?";
+		mes ". . . . .";
+		mes "That's all?";
+		mes "Phew~ such a dull customer...";
+		cutin "kafra_02",255;
+		close;
+}
+
+aldeba_in.gat,91,244,4	script	Kafra Service	112,{
+	cutin "kafra_06",2;
+	mes "[Kafra Curly Sue]";
+	mes "Hello, hello?!!";
+	mes "The youngest of all! Kafra cutty~~";
+	mes "I am Kafra Type 'Curly Sue'";
+	next;
+	mes "[Kafra Curly Sue]";
+	mes "It hasn't been long meeting customers since I am new, but I am always doing my best!!";
+	next;
+	menu "Where is your mom?",L0,"End conversation",LEnd;
+	
+	L0:
+		mes "[Kafra Curly Sue]";
+		mes ". . . . .";
+		mes "Sob sob ...";
+		mes "I am no a KID!!";
+		next;
+		cutin "kafra_06",255;
+		close;
+	LEnd:
+		mes "[Kafra Curly Sue]";
+		mes "Here at Kafra Service, We're all doing out B-E-S-T! to provide our customers the B-E-S-T! services.";
+		mes "We really appreciate your business with us.";
+		next;
+		cutin "kafra_06",255;
+		close;
+}
+
+aldeba_in.gat,96,181,4	script	Kafra Service	113,{
+	cutin "kafra_05",2;
+	mes "[Kafra Leilah]";
+	mes "Kafra Service.";
+	mes "What can I do for you?";
+	next;
+	menu "Save.",Lsave,"Use Storage Service",Lstorage,"Use Cart Service.",Lcart,"End conversation.",Lcancel;
+
+	Lsave:
+		mes "[Kafra Leilah]";
+		mes "Please. This is Kafra Service Command Center in charge of training Kafra Service Agent.";
+		next;
+		mes "[Kafra Leilah]";
+		mes "For Actual Services you must visit Kafra Service Center Agent at each city including Al De Baran.";
+		mes "... But I will do that for you...";
+		next;
+		savepoint "aldeba_in.gat",96,179;		
+		cutin "kafra_05",255;
+		close;
+	Lstorage:
+		if((class ==Job_Novice) && (JobLevel<6)) goto NeedJobLevel;
+		if(Zeny<30) goto NeedZenys;
+		set Zeny, Zeny-30;
+		openstorage;
+		cutin "kafra_02",255;
+		close;
+
+                NeedJobLevel:
+                	mes "[Kafra Leilah]";
+                	mes "I am sorry but you have to be at least novice with job level 6 if you want to use the storage";
+                	cutin "kafra_05",255;
+                	close;
+                NeedZenys:
+	                mes "[Kafra Leilah]";
+                	mes "Dear, you don't have enough zeny. The Storage fee is 30 Zeny.";
+                	cutin "kafra_05",255;
+                	close;
+	Lcart:
+		if((class ==Job_Merchant) || (class==Job_Blacksmith) || (class==Job_Alchem)) goto UseCart;
+		mes "[Kafra Leilah]";
+		mes "I'm sorry. The cart service is only provided for Merchants, Blacksmiths and Alchemists only.";
+		cutin "kafra_04",255;
+		close;
+
+		UseCart:
+			mes "[Kafra Leilah]";
+			mes "The Cart Fee is 800 Zeny. Do you want to Rent a Cart?";
+			next;
+			menu "Rent a Cart.",RentCart,"Cancel.",RCCancel;
+
+			RentCart:
+				if(Zeny<800) goto RCNeedZenys;
+				if(getskilllv(39) < 1) got Lneedskill;
+				if((CheckCart)==1) goto GetCart;
+			
+				GetCart:
+					set Zeny,Zeny-800;
+					set specialreserve,specialreserve + 800;
+					setcart;
+					mes "[Kafra]";
+					mes "There you go..";
+					cutin "kafra_08",255;
+					close;
+			RCNeedZenys:
+				mes "[Kafra Leilah]";
+				mes "Dear, you don't have enough zeny. You need 800 Zeny.";
+				cutin "kafra_04",255;
+				close;
+			Lneedskill:
+				mes "[Kafra Leilah]";
+				mes "Sorry dear but you need the Pushcart skill to rent a cart.";
+				cutin "kafra_04",255;
+				close;
+		RCCancel:
+			cutin "kafra_04",255;
+			close;
+	Lcancel:
+		cutin "kafra_05",2;
+		close;
+}	
+
+aldeba_in.gat,142,238,4	script	Kafra Service	114,{
+	cutin "kafra_04",2;
+	mes "[Kafra Roxie]";
+	mes "Welcome! I'm Kafra Type 'Roxie'";
+	mes "The Special Secret about Kapra only for you Kapra!";
+	next;
+	mes "[Kafra Roxie]";
+	mes "You know... Our Kapra Service wasn't actually called Kapra originally~~";
+	mes "Well what do you think it actually was?~";
+	next;
+	mes "[Kafra Roxie]";
+	mes "TaDa~ Surprisingly it was~~~!";
+	mes "Ka! P (Ring Ring Ring)";
+	mes "Oh... my phone... Sorry please wait...";
+	next;
+	mes "[Kafra Roxie]";
+	mes "Hi? Kapra Type Roxie";
+	mes "Huh! Director, sir! Yes! Yes! I understand! ..... Sure!";
+	mes "Ah... Huh?!";
+	next;
+	mes "[Kafra Roxie]";
+	mes "No-no sir!";
+	mes "Yes! I understand!!";
+	next;
+	mes "[Kafra Roxie]";
+	mes "*Click*";
+	mes "..... Hehehe...";
+	mes ". . . . .";
+	next;
+	mes "[Kafra Roxie]";
+	mes "Ah... Please ignore what you've just heard from me, haha.";
+	mes ". . . . .";
+	close;
 }
\ No newline at end of file