summaryrefslogtreecommitdiff
path: root/npc/other/old/kafra.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/other/old/kafra.txt')
-rw-r--r--npc/other/old/kafra.txt3730
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
generated by cgit v1.2.3-70-g09d2 (git 2.46.0) at 2024-11-02 03:31:16 +0000