summaryrefslogtreecommitdiff
path: root/npc/kafras/functions_kafras.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/kafras/functions_kafras.txt')
-rw-r--r--npc/kafras/functions_kafras.txt1082
1 files changed, 541 insertions, 541 deletions
diff --git a/npc/kafras/functions_kafras.txt b/npc/kafras/functions_kafras.txt
index 135eccd65..2b9d67bff 100644
--- a/npc/kafras/functions_kafras.txt
+++ b/npc/kafras/functions_kafras.txt
@@ -1,541 +1,541 @@
-//===== eAthena Script =======================================
-//= Kafra Functions
-//===== By: ==================================================
-//= eAthena Dev Team
-//= Darlskies, Darkchild, Syrus22, Lupus, kobra_k88 (2.0)
-//===== Current Version: =====================================
-//= 5.4b
-//===== Compatible With: =====================================
-//= eAthena 1.0
-//===== Description: =========================================
-//= These functions handle save, storage, cart rental, teleport,
-//= and Free Teleport/Warp/Rent Cart options for all Kafra NPCs.
-//===== Additional Comments: =================================
-//= v1.1 Now using functions v2.1 Added Cart Rent for Classes: Whitesmith, Professor.
-//= Replaced checkoption(x) into checkcart(0) [Lupus] v2.1b Added Fix Kafra Pass Func [Kobra_k88]
-//= 2.2 Final fix of the Kafra Pass Exploit! [Lupus] a -Izlude[4] fix
-//= 2.2a Minor changes to function calls. Using agruments. Added Guild options. [kobra_k88]
-//= 2.2b This version uses arrays for the teleport option. Rearranged next statements to make menu transitions smoother. [kobra_k88]
-//= 2.3 Removed SAVE from Niflheim. [Lupus]
-//= 2.3 removed "fix" by HawkMoon RTFM and check supernovice.txt . There's a SPECIAL Kafra which gives CARTS to SN for a special proce. [Lupus]
-//= 2.4 Added Baby Class Support (Baby Novice check) Removed annoying storage feature where u had to close dialog window to be able to use your storage [Lupus]
-//= 2.5 Added Louyang official Kafra, fixes some Kafras, not letting you to Save your position [Lupus]
-//= 2.6 Reverted Dungeons Kafras (they should offer only Storage). Added temp Ayothaya Kafra
-//= 2.7 Added correct Ayothaya, Louyang & Amatsu Kafras. [Lupus]
-//= 2.8 Fixed Amatsu Storage problems [Lupus] 2.9 Fixed spelling mistakes. [Nexon]
-//= 3.0 Added special "not working teleport menu" for Einbroch Kafras [Lupus]
-//= 3.1 Removed callfunc Is_####_Class in favor of baseClass [Silentdragon]
-//= 3.2 Fixed an exploit [Lupus]
-//= 4.0 Added Kafra storage password protection. [Lupus]
-//= to block Kafra Password, read comments at 350 line
-//= Note: You can change '1337' value to another to raise password protection
-//= 5.0 Fixed the close2;....close; end; lines. Who let them slip away? =/ [erKURITA]
-//= Also, the kafra upon warp was giving back the zeny. Removed. [erKURITA]
-//= 5.1 Optimized a little, added no tele/save arg's [Evera]
-//= 5.1a Temporary? Added F_ClearGarbage to clear unused/outdated variables [Lupus]
-//= 5.2 By default commented out custom Guilds Kafra's "Guild Storage". [Lupus]
-//= 5.3 uncommented Guild Storage. Confirmed kRO feature. [Lupus]
-//= 5.4 added -Guide option (Kafra shows you nearest Guide) Work in progress.
-//= Need all coords for all guides.. and somehow pass their coords to kafra.
-//= Removed universal Kafra Pass, added 3 new Kafra Tickets [Lupus]
-//= 5.4b temporary moved "-Guide" from the 1st menu punct [Lupus]
-//============================================================
-
-
-// Main Function ===========================================================
-//= arg(0): Used to determine which welcome message to show.
-//= arg(1): Used to determine which menu to display.
-//= arg(2): Used to determine if the info menu is shown in F_KafInfo.
-//==========================================================================
-function script F_Kafra {
- callfunc "F_ClearGarbage"; //Clear outdated, unused variables
-
- mes "[Kafra]";
- switch(getarg(0)){
- default:
- case 0:
- mes "Welcome to Kafra Corp. We will stay with you wherever you go.";
- break;
- //Niflheim
- case 1:
- mes "Welcome... Kafra Services.... Will be with you even if you die.....";
- break;
- //Guilds Castles
- case 2:
- mes "Welcome, ^5533FF" + GetGuildName(@GID) + "^000000 members. We will stay with you wherever you go";
- break;
- //Amatsu
- case 3:
- mes "So, have you come from a faraway land to study our culture, or are you just sightseeing?";
- mes "In either case, why not stay awhile?";
- mes "The air is eternally heavy with the";
- mes "scent of pleasant wildflowers.";
- break;
- //Louyang, Ayothaya
- case 4:
- mes "With our many Kafra";
- mes "service locations, you're never";
- mes "far from home.";
- break;
- }
- next;
-
- M_Menu:
- cleararray @K_Menu0$[0],"",7;
- switch(getarg(1)){
- //only Save & Storage
- case 1:
- setarray @K_Menu0$[0],"-Save","-Use Storage","-Cancel";
- break;
- //only Storage
- case 2:
- setarray @K_Menu0$[0],"-Use Storage","-Cancel";
- break;
- //Common w/o teleport
- case 3:
- setarray @K_Menu0$[0],"-Save","-Use Storage","-Rent a Cart","-Guide","-Other Information Check","-Cancel";
- break;
- //Case 4 is Einbroch no tele message.
- //Common w/o save and teleport
- case 5:
- setarray @K_Menu0$[0],"-Use Storage","-Rent a Cart","-Other Information Check","-Guide","-Cancel";
- break;
- //Only storage and other info check
- case 6:
- setarray @K_Menu0$[0],"-Use Storage","-Guide","-Other Information Check","-Cancel";
- break;
- //Common Kafra
- default:
- setarray @K_Menu0$[0],"-Save","-Use Storage","-Use Teleport Service","-Rent a Cart","-Guide","-Other Information Check","-Cancel";
- break;
- }
- if(getarg(0)==2) {
- //Guilds Kafra (free Teleport, free Storage, Free Cart)
- cleararray @K_Menu0$[0],"",7;
- setarray @K_Menu0$[0],"-Use Storage","-Use Guild Storage","-Rent a Cart","-Use Teleport Service","-Cancel";
- }
- menu @K_Menu0$[0],K_Menu0,@K_Menu0$[1],K_Menu1,@K_Menu0$[2],K_Menu2,
- @K_Menu0$[3],K_Menu3,@K_Menu0$[4],K_Menu4,@K_Menu0$[5],K_Menu5,
- @K_Menu0$[6],K_Menu6,@K_Menu0$[7],K_Menu7;
- K_Menu0:
- set @num,0;
- goto K_Menuf;
- K_Menu1:
- set @num,1;
- goto K_Menuf;
- K_Menu2:
- set @num,2;
- goto K_Menuf;
- K_Menu3:
- set @num,3;
- goto K_Menuf;
- K_Menu4:
- set @num,4;
- goto K_Menuf;
- K_Menu5:
- set @num,5;
- goto K_Menuf;
- K_Menu6:
- set @num,6;
- goto K_Menuf;
- K_Menu7:
- set @num,7;
- K_Menuf:
- if (@K_Menu0$[@num] == "-Save") return;
- if (@K_Menu0$[@num] == "-Use Storage"){
- //Don't charge for a common Kafra Storage in your Castle
- if(getarg(0) == 2) callfunc "F_KafStor",2;
- else callfunc "F_KafStor",0;
- next;
- goto M_Menu;
- }
- if (@K_Menu0$[@num] == "-Use Teleport Service"){
- if(getarg(1) == 4){ //Check for Einbroch Tele notice
- mes "[Kafra]";
- mes "Because of the ^FF0000Limited Transport Agreement^000000, the Kafra Corporation cannot provide Teleport Services in the Schwarzwald Republic.";
- next;
- mes "[Kafra]";
- mes "We ask that you please";
- mes "use the Airship Service";
- mes "instead. Thank you for your";
- mes "understanding and cooperation.";
- next;
- goto M_Menu;
- }
- callfunc "F_KafTele",getarg(0);
- goto M_Menu;
- }
- if (@K_Menu0$[@num] == "-Rent a Cart"){
- if(callfunc("F_KafCart",getarg(0)) == 1) next;
- goto M_Menu;
- }
- if (@K_Menu0$[@num] == "-Guide"){
- callfunc "F_KafGuide";
- next;
- goto M_Menu;
- }
- if (@K_Menu0$[@num] == "-Other Information Check"){
- callfunc "F_KafInfo",getarg(2);
- goto M_Menu;
- }
- if (@K_Menu0$[@num] == "-Cancel"){
- callfunc "F_KafEnd",getarg(0),0;
- end;
- }
- if (@K_Menu0$[@num] == "-Use Guild Storage"){
- callfunc "F_KafStor",1;
- next;
- goto M_Menu;
- }
-
-}
-
-
-// Storage Function =======================================================
-function script F_KafStor {
- if(getarg(0) == 1){
- if(guildopenstorage(0) == 1){
- mes "[Kafra]";
- mes "I'm sorry but another guild member is using the guild storage";
- mes "right now. Please wait until that person is finished.";
- close2;
- cutin "", 255;
- end;
- }
- cutin "", 255;
- close;
- }
- if(basicskillcheck(0) && getskilllv(1) < 6){
- mes "[Kafra]";
- mes "I am sorry but you have to be at least Novice level 6 if you want to use the storage.";
- return;
- }
- //don't charge for common storage in Castle
- if(getarg(0) != 2){
- //we'll use Free Ticket for Kafra Storage if available
- if(countitem(7059)){
- delitem 7059,1;
- } else {
- if(Zeny<40){
- mes "[Kafra]";
- mes "Dear you don't have enough money. The Storage fee is 40 Zeny.";
- return;
- }
- set Zeny, Zeny-40;
- set RESRVPTS, RESRVPTS + (40/5);
- }
- }
- mes "[Kafra]";
- mes "Close this window to open your storage.";
- mes "We hope to see you again soon.";
-
- callfunc("F_CheckKafCode"); //check your storage password, if set
-
- close2;
- openstorage;
- cutin "", 255;
- end;
-}
-
-
-// Teleport Function ==================================================
-function script F_KafTele {
- mes "[Kafra]";
- mes "Please set your destination.";
- next;
-
- menu @wrpC$[0],M_Wrp0, @wrpC$[1],M_Wrp1, @wrpC$[2],M_Wrp2, @wrpC$[3],M_Wrp3,
- @wrpC$[4],M_Wrp4, @wrpC$[5],M_Wrp5, @wrpC$[6],M_Wrp6;
-
- M_Wrp0:
- set @num, 0;
- goto L_Warp;
- M_Wrp1:
- set @num, 1;
- goto L_Warp;
- M_Wrp2:
- set @num, 2;
- goto L_Warp;
- M_Wrp3:
- set @num, 3;
- goto L_Warp;
- M_Wrp4:
- set @num, 4;
- goto L_Warp;
- M_Wrp5:
- set @num, 5;
- goto L_Warp;
- M_Wrp6:
- set @num, 6;
-
- L_Warp:
- if (@wrpC$[@num] == "Cancel") return;
- // we'll use Free Ticket for Kafra Transportation if available
- if(countitem(7060)){
- delitem 7060,1;
- } else {
- if (Zeny<@wrpP[@num]){
- mes "[Kafra]";
- mes "Dear you don't have enough money. Please check your funds again.";
- emotion e_cash;
- close2;
- cutin "", 255;
- end;
- }
- set Zeny, Zeny-@wrpP[@num];
- set RESRVPTS, RESRVPTS + (@wrpP[@num]/16);
- }
- if (@wrpD$[@num] == "Alberta") warp "alberta.gat", 117, 56;
- if (@wrpD$[@num] == "Al De Baran") warp "aldebaran.gat",143,110;
- if (@wrpD$[@num] == "Aldebaran") warp "aldebaran.gat",143,110;
- if (@wrpD$[@num] == "Comodo") warp "comodo.gat", 207, 144;
- if (@wrpD$[@num] == "Izlude") warp "izlude.gat", 91, 105;
- if (@wrpD$[@num] == "Geffen") warp "geffen.gat", 120, 39;
- if (@wrpD$[@num] == "Morroc") warp "morocc.gat", 156, 46;
- if (@wrpD$[@num] == "Payon") warp "payon.gat", 168, 103;
- if (@wrpD$[@num] == "Prontera") warp "prontera.gat", 116, 72;
- if (@wrpD$[@num] == "Coal Mine(Dead Pit)") warp "mjolnir_02.gat", 82, 347;
- if (@wrpD$[@num] == "Comodo Pharos Lighthouse") warp "cmd_fild07.gat", 127, 134;
- if (@wrpD$[@num] == "Orc Dungeon") warp "gef_fild10.gat", 52, 326;
- if (@wrpD$[@num] == "Umbala") warp "umbala.gat", 130, 130;
- if (@wrpD$[@num] == "Yuno") warp "yuno.gat", 157, 123;
- cutin "", 255;
- end;
-}
-
-
-// Cart Function ========================================================
-function script F_KafCart {
- if(baseClass != Job_Merchant){
- mes "[Kafra]";
- mes "I'm sorry dear. The Cart service is only provided for the Merchant and Blacksmith Class.";
- return 1;
- }
- if(getskilllv(39)==0){
- mes "[Kafra]";
- mes "I'm sorry but you need the skill ^0000FF'Pushcart'^000000 to rent a cart.";
- return 1;
- }
- if(checkcart(0) == 1){
- mes "[Kafra]";
- mes "Excuse me... but you already have a cart....";
- emotion e_swt;
- return 1;
- }
- //get Cart in Guild for free
- if(getarg(0) == 2) goto L_FreeCart;
- //use Free Ticket for the Cart Service if available
- if(countitem(7061)){
- delitem 7061,1;
- goto L_FreeCart;
- }
- mes "[Kafra]";
- mes "The Cart Fee is 800 Zeny. Do you want to Rent a Cart?";
- next;
- menu "-Rent a Cart.",-, "-Cancel.",M_End;
-
- if(Zeny<800){
- mes "[Kafra]";
- mes "Dear, you don't have enough Money. You need 800 Zeny.";
- emotion e_cash;
- return 1;
- }
- set Zeny,Zeny-800;
- set RESRVPTS, RESRVPTS + 48;
- L_FreeCart:
- setcart;
- mes "[Kafra]";
- mes "Here is your cart.";
- return 1;
- M_End:
- return 0;
-}
-
-
-// Pass Function ===============================================================
-function script F_KafGuide {
-
- mes "[Kafra]";
- mes "WIP...";
- return;
-}
-
-// Special Reserve Points Function ===========================================
-function script F_KafInfo {
-
- sM_Menu:
-//Uncomment next line to block Kafra Storage Protection
-// if(getarg(0) == 0) menu "-Special Reserve Check",sM_ResChk, "-Kafra Locations",sM_KafLoc, "-Cancel",sM_End;
- if(getarg(0) == 0) menu "-Special Reserve Check",sM_ResChk, "-Storage Password Service",sM_KafCode, "-Kafra Locations",sM_KafLoc, "-Cancel",sM_End;
-
- sM_ResChk:
- mes "[Kafra]";
- mes "Here is your current amount of special reserve points:";
- mes "^0000ff"+RESRVPTS+"^000000.";
- next;
- mes "[Kafra]";
- mes "Remember to continue using Kafra services such as Storage and Teleport, to earn more special reserve points.";
- next;
- mes "[Kafra]";
- mes "You can trade them in at the Kafra Main Office in Al De Baran for useful items and cool prizes.";
- next;
- if(getarg(0) == 1) return;
- goto sM_Menu;
- sM_KafLoc:
- mes "[Kafra]";
- mes "The flashing signals on your mini-map point to the locations of all of the Kafra Agents in this city.";
- viewpoint 1,@viewpX[0],@viewpY[0],1,0xFF00FF;
- viewpoint 1,@viewpX[1],@viewpY[1],2,0xFF00FF;
- viewpoint 1,@viewpX[2],@viewpY[2],3,0xFF00FF;
- viewpoint 1,@viewpX[3],@viewpY[3],4,0xFF00FF;
- next;
- viewpoint 2,@viewpX[0],@viewpY[0],1,0xFF00FF;
- viewpoint 2,@viewpX[1],@viewpY[1],2,0xFF00FF;
- viewpoint 2,@viewpX[2],@viewpY[2],3,0xFF00FF;
- viewpoint 2,@viewpX[3],@viewpY[3],4,0xFF00FF;
- goto sM_Menu;
-
- sM_KafCode:
- callfunc("F_SetKafCode");
-
- sM_End:
- return;
-}
-
-
-// End Function =====================================================
-// arg(0): used to determine what message to display.
-// arg(1): used to determine if save message is displayed.
-//===================================================================
-function script F_KafEnd {
- mes "[Kafra]";
- if(getarg(1)==1) mes "Your respawn point has been saved."; // only shown when a player uses save
- if(getarg(0)!=1) mes "Thank you for using Kafra Services. We hope to see you again soon.";
- if(getarg(0)==1) mes "We, Kafra Corporation.... Will be with you.... whenever.... wherever... therefore.... please don't forget us.....";
- close2;
- cutin "", 255;
- emotion e_thx;
- close;
- end;
-}
-
-// Check Storage Password Function ====================
-function script F_CheckKafCode {
- if(#kafra_code==0) return;
- mes "Enter your storage password:";
- set @code_,0;
- input @code_;
- if(@code_ != #kafra_code-getcharid(3)-1337) {
- dispbottom "Wrong storage password.";
- close2;
- cutin "",255;
- end;
- }
- set @kafcode_try,0;
- set @code_,0;
- return;
-}
-
-// Set / Change / Clear Storage Password Function ====================
-function script F_SetKafCode {
- mes "[Kafra]";
- if(#kafra_code) {
- mes "Your storage is protected with a password. What would you do now?";
- next;
- menu "Change old password -> 5000z",-,
- "Remove storage password -> 1000z",M_CLEAR,
- "Cancel",M_END;
- } else {
- mes "Kafra Services proudly presents you a new service:";
- mes "Additional storage protection with a password.";
- next;
- menu "Set new password -> 5000z",M_SET,
- "Cancel",M_END;
- }
-
- mes "[Kafra]";
- mes "At first, please enter your ^0000FFold password^000000.";
- set @code,callfunc("F_EntKafCode");
- if(@code==0 || @code != #kafra_code-getcharid(3)-1337) {
- mes "Wrong password. You can't set a new password.";
- emotion e_hmm;
- goto M_END;
- }
- next;
-
-M_SET:
- mes "[Kafra]";
- mes "Now enter your ^FF0000new password^000000 to protect your storage from thieves.";
- set @code,callfunc("F_EntKafCode");
- if(@code==0) {
- mes "The password hasn't been changed.";
- emotion e_hmm;
- goto M_END;
- }
- next;
- mes "[Kafra]";
- if(Zeny < 5000) goto L_ZENY;
- set Zeny,Zeny-5000;
- set RESRVPTS, RESRVPTS + (5000/50);
-
- set #kafra_code,@code+getcharid(3)+1337;
- mes "You've protected your storage with a secret password.";
- mes "Thank you for using Kafra Services.";
- emotion e_thx;
- goto M_END;
-
-M_CLEAR:
- mes "[Kafra]";
- mes "Please, enter your password before its removal.";
- set @code,callfunc("F_EntKafCode");
- if(@code==0) {
- mes "The password hasn't been removed.";
- emotion e_hmm;
- goto M_END;
- }
- next;
- mes "[Kafra]";
- if(Zeny < 1000) goto L_ZENY;
- set Zeny,Zeny-1000;
- set RESRVPTS, RESRVPTS + (1000/50);
- if(@code == #kafra_code-getcharid(3)-1337) {
- set #kafra_code,0;
- mes "You've successfully cleared your storage password.";
- mes "Thank you for using Kafra Services.";
- emotion e_thx;
- } else {
- mes "Wrong password. We won't return your 1000z.";
- mes "Please, next time enter correct password.";
- emotion e_sry;
- }
- goto M_END;
-
-L_ZENY:
- mes "You don't have enough zeny.";
- emotion e_cash;
-M_END:
- close2;
- cutin "",255;
- end;
-}
-
-// Basic Password Validation Function ====================
-function script F_EntKafCode {
- mes "Enter a number 1000~10000000:";
- set @code_,0;
- set @kafcode_try,@kafcode_try+1;
- if(@kafcode_try>10) {
- set @kafcode_try,0;
- logmes "Hack: Tried to fit storage password.";
- }
- input @code_;
- if(@code_<1000) {
- mes "You shouldn't use such short password.";
- return 0;
- }
- if(@code_>10000000) {
- mes "You can't use such big password.";
- return 0;
- }
- return @code_;
-}
+//===== eAthena Script =======================================
+//= Kafra Functions
+//===== By: ==================================================
+//= eAthena Dev Team
+//= Darlskies, Darkchild, Syrus22, Lupus, kobra_k88 (2.0)
+//===== Current Version: =====================================
+//= 5.4b
+//===== Compatible With: =====================================
+//= eAthena 1.0
+//===== Description: =========================================
+//= These functions handle save, storage, cart rental, teleport,
+//= and Free Teleport/Warp/Rent Cart options for all Kafra NPCs.
+//===== Additional Comments: =================================
+//= v1.1 Now using functions v2.1 Added Cart Rent for Classes: Whitesmith, Professor.
+//= Replaced checkoption(x) into checkcart(0) [Lupus] v2.1b Added Fix Kafra Pass Func [Kobra_k88]
+//= 2.2 Final fix of the Kafra Pass Exploit! [Lupus] a -Izlude[4] fix
+//= 2.2a Minor changes to function calls. Using agruments. Added Guild options. [kobra_k88]
+//= 2.2b This version uses arrays for the teleport option. Rearranged next statements to make menu transitions smoother. [kobra_k88]
+//= 2.3 Removed SAVE from Niflheim. [Lupus]
+//= 2.3 removed "fix" by HawkMoon RTFM and check supernovice.txt . There's a SPECIAL Kafra which gives CARTS to SN for a special proce. [Lupus]
+//= 2.4 Added Baby Class Support (Baby Novice check) Removed annoying storage feature where u had to close dialog window to be able to use your storage [Lupus]
+//= 2.5 Added Louyang official Kafra, fixes some Kafras, not letting you to Save your position [Lupus]
+//= 2.6 Reverted Dungeons Kafras (they should offer only Storage). Added temp Ayothaya Kafra
+//= 2.7 Added correct Ayothaya, Louyang & Amatsu Kafras. [Lupus]
+//= 2.8 Fixed Amatsu Storage problems [Lupus] 2.9 Fixed spelling mistakes. [Nexon]
+//= 3.0 Added special "not working teleport menu" for Einbroch Kafras [Lupus]
+//= 3.1 Removed callfunc Is_####_Class in favor of baseClass [Silentdragon]
+//= 3.2 Fixed an exploit [Lupus]
+//= 4.0 Added Kafra storage password protection. [Lupus]
+//= to block Kafra Password, read comments at 350 line
+//= Note: You can change '1337' value to another to raise password protection
+//= 5.0 Fixed the close2;....close; end; lines. Who let them slip away? =/ [erKURITA]
+//= Also, the kafra upon warp was giving back the zeny. Removed. [erKURITA]
+//= 5.1 Optimized a little, added no tele/save arg's [Evera]
+//= 5.1a Temporary? Added F_ClearGarbage to clear unused/outdated variables [Lupus]
+//= 5.2 By default commented out custom Guilds Kafra's "Guild Storage". [Lupus]
+//= 5.3 uncommented Guild Storage. Confirmed kRO feature. [Lupus]
+//= 5.4 added -Guide option (Kafra shows you nearest Guide) Work in progress.
+//= Need all coords for all guides.. and somehow pass their coords to kafra.
+//= Removed universal Kafra Pass, added 3 new Kafra Tickets [Lupus]
+//= 5.4b temporary moved "-Guide" from the 1st menu punct [Lupus]
+//============================================================
+
+
+// Main Function ===========================================================
+//= arg(0): Used to determine which welcome message to show.
+//= arg(1): Used to determine which menu to display.
+//= arg(2): Used to determine if the info menu is shown in F_KafInfo.
+//==========================================================================
+function script F_Kafra {
+ callfunc "F_ClearGarbage"; //Clear outdated, unused variables
+
+ mes "[Kafra]";
+ switch(getarg(0)){
+ default:
+ case 0:
+ mes "Welcome to Kafra Corp. We will stay with you wherever you go.";
+ break;
+ //Niflheim
+ case 1:
+ mes "Welcome... Kafra Services.... Will be with you even if you die.....";
+ break;
+ //Guilds Castles
+ case 2:
+ mes "Welcome, ^5533FF" + GetGuildName(@GID) + "^000000 members. We will stay with you wherever you go";
+ break;
+ //Amatsu
+ case 3:
+ mes "So, have you come from a faraway land to study our culture, or are you just sightseeing?";
+ mes "In either case, why not stay awhile?";
+ mes "The air is eternally heavy with the";
+ mes "scent of pleasant wildflowers.";
+ break;
+ //Louyang, Ayothaya
+ case 4:
+ mes "With our many Kafra";
+ mes "service locations, you're never";
+ mes "far from home.";
+ break;
+ }
+ next;
+
+ M_Menu:
+ cleararray @K_Menu0$[0],"",7;
+ switch(getarg(1)){
+ //only Save & Storage
+ case 1:
+ setarray @K_Menu0$[0],"-Save","-Use Storage","-Cancel";
+ break;
+ //only Storage
+ case 2:
+ setarray @K_Menu0$[0],"-Use Storage","-Cancel";
+ break;
+ //Common w/o teleport
+ case 3:
+ setarray @K_Menu0$[0],"-Save","-Use Storage","-Rent a Cart","-Guide","-Other Information Check","-Cancel";
+ break;
+ //Case 4 is Einbroch no tele message.
+ //Common w/o save and teleport
+ case 5:
+ setarray @K_Menu0$[0],"-Use Storage","-Rent a Cart","-Other Information Check","-Guide","-Cancel";
+ break;
+ //Only storage and other info check
+ case 6:
+ setarray @K_Menu0$[0],"-Use Storage","-Guide","-Other Information Check","-Cancel";
+ break;
+ //Common Kafra
+ default:
+ setarray @K_Menu0$[0],"-Save","-Use Storage","-Use Teleport Service","-Rent a Cart","-Guide","-Other Information Check","-Cancel";
+ break;
+ }
+ if(getarg(0)==2) {
+ //Guilds Kafra (free Teleport, free Storage, Free Cart)
+ cleararray @K_Menu0$[0],"",7;
+ setarray @K_Menu0$[0],"-Use Storage","-Use Guild Storage","-Rent a Cart","-Use Teleport Service","-Cancel";
+ }
+ menu @K_Menu0$[0],K_Menu0,@K_Menu0$[1],K_Menu1,@K_Menu0$[2],K_Menu2,
+ @K_Menu0$[3],K_Menu3,@K_Menu0$[4],K_Menu4,@K_Menu0$[5],K_Menu5,
+ @K_Menu0$[6],K_Menu6,@K_Menu0$[7],K_Menu7;
+ K_Menu0:
+ set @num,0;
+ goto K_Menuf;
+ K_Menu1:
+ set @num,1;
+ goto K_Menuf;
+ K_Menu2:
+ set @num,2;
+ goto K_Menuf;
+ K_Menu3:
+ set @num,3;
+ goto K_Menuf;
+ K_Menu4:
+ set @num,4;
+ goto K_Menuf;
+ K_Menu5:
+ set @num,5;
+ goto K_Menuf;
+ K_Menu6:
+ set @num,6;
+ goto K_Menuf;
+ K_Menu7:
+ set @num,7;
+ K_Menuf:
+ if (@K_Menu0$[@num] == "-Save") return;
+ if (@K_Menu0$[@num] == "-Use Storage"){
+ //Don't charge for a common Kafra Storage in your Castle
+ if(getarg(0) == 2) callfunc "F_KafStor",2;
+ else callfunc "F_KafStor",0;
+ next;
+ goto M_Menu;
+ }
+ if (@K_Menu0$[@num] == "-Use Teleport Service"){
+ if(getarg(1) == 4){ //Check for Einbroch Tele notice
+ mes "[Kafra]";
+ mes "Because of the ^FF0000Limited Transport Agreement^000000, the Kafra Corporation cannot provide Teleport Services in the Schwarzwald Republic.";
+ next;
+ mes "[Kafra]";
+ mes "We ask that you please";
+ mes "use the Airship Service";
+ mes "instead. Thank you for your";
+ mes "understanding and cooperation.";
+ next;
+ goto M_Menu;
+ }
+ callfunc "F_KafTele",getarg(0);
+ goto M_Menu;
+ }
+ if (@K_Menu0$[@num] == "-Rent a Cart"){
+ if(callfunc("F_KafCart",getarg(0)) == 1) next;
+ goto M_Menu;
+ }
+ if (@K_Menu0$[@num] == "-Guide"){
+ callfunc "F_KafGuide";
+ next;
+ goto M_Menu;
+ }
+ if (@K_Menu0$[@num] == "-Other Information Check"){
+ callfunc "F_KafInfo",getarg(2);
+ goto M_Menu;
+ }
+ if (@K_Menu0$[@num] == "-Cancel"){
+ callfunc "F_KafEnd",getarg(0),0;
+ end;
+ }
+ if (@K_Menu0$[@num] == "-Use Guild Storage"){
+ callfunc "F_KafStor",1;
+ next;
+ goto M_Menu;
+ }
+
+}
+
+
+// Storage Function =======================================================
+function script F_KafStor {
+ if(getarg(0) == 1){
+ if(guildopenstorage(0) == 1){
+ mes "[Kafra]";
+ mes "I'm sorry but another guild member is using the guild storage";
+ mes "right now. Please wait until that person is finished.";
+ close2;
+ cutin "", 255;
+ end;
+ }
+ cutin "", 255;
+ close;
+ }
+ if(basicskillcheck(0) && getskilllv(1) < 6){
+ mes "[Kafra]";
+ mes "I am sorry but you have to be at least Novice level 6 if you want to use the storage.";
+ return;
+ }
+ //don't charge for common storage in Castle
+ if(getarg(0) != 2){
+ //we'll use Free Ticket for Kafra Storage if available
+ if(countitem(7059)){
+ delitem 7059,1;
+ } else {
+ if(Zeny<40){
+ mes "[Kafra]";
+ mes "Dear you don't have enough money. The Storage fee is 40 Zeny.";
+ return;
+ }
+ set Zeny, Zeny-40;
+ set RESRVPTS, RESRVPTS + (40/5);
+ }
+ }
+ mes "[Kafra]";
+ mes "Close this window to open your storage.";
+ mes "We hope to see you again soon.";
+
+ callfunc("F_CheckKafCode"); //check your storage password, if set
+
+ close2;
+ openstorage;
+ cutin "", 255;
+ end;
+}
+
+
+// Teleport Function ==================================================
+function script F_KafTele {
+ mes "[Kafra]";
+ mes "Please set your destination.";
+ next;
+
+ menu @wrpC$[0],M_Wrp0, @wrpC$[1],M_Wrp1, @wrpC$[2],M_Wrp2, @wrpC$[3],M_Wrp3,
+ @wrpC$[4],M_Wrp4, @wrpC$[5],M_Wrp5, @wrpC$[6],M_Wrp6;
+
+ M_Wrp0:
+ set @num, 0;
+ goto L_Warp;
+ M_Wrp1:
+ set @num, 1;
+ goto L_Warp;
+ M_Wrp2:
+ set @num, 2;
+ goto L_Warp;
+ M_Wrp3:
+ set @num, 3;
+ goto L_Warp;
+ M_Wrp4:
+ set @num, 4;
+ goto L_Warp;
+ M_Wrp5:
+ set @num, 5;
+ goto L_Warp;
+ M_Wrp6:
+ set @num, 6;
+
+ L_Warp:
+ if (@wrpC$[@num] == "Cancel") return;
+ // we'll use Free Ticket for Kafra Transportation if available
+ if(countitem(7060)){
+ delitem 7060,1;
+ } else {
+ if (Zeny<@wrpP[@num]){
+ mes "[Kafra]";
+ mes "Dear you don't have enough money. Please check your funds again.";
+ emotion e_cash;
+ close2;
+ cutin "", 255;
+ end;
+ }
+ set Zeny, Zeny-@wrpP[@num];
+ set RESRVPTS, RESRVPTS + (@wrpP[@num]/16);
+ }
+ if (@wrpD$[@num] == "Alberta") warp "alberta.gat", 117, 56;
+ if (@wrpD$[@num] == "Al De Baran") warp "aldebaran.gat",143,110;
+ if (@wrpD$[@num] == "Aldebaran") warp "aldebaran.gat",143,110;
+ if (@wrpD$[@num] == "Comodo") warp "comodo.gat", 207, 144;
+ if (@wrpD$[@num] == "Izlude") warp "izlude.gat", 91, 105;
+ if (@wrpD$[@num] == "Geffen") warp "geffen.gat", 120, 39;
+ if (@wrpD$[@num] == "Morroc") warp "morocc.gat", 156, 46;
+ if (@wrpD$[@num] == "Payon") warp "payon.gat", 168, 103;
+ if (@wrpD$[@num] == "Prontera") warp "prontera.gat", 116, 72;
+ if (@wrpD$[@num] == "Coal Mine(Dead Pit)") warp "mjolnir_02.gat", 82, 347;
+ if (@wrpD$[@num] == "Comodo Pharos Lighthouse") warp "cmd_fild07.gat", 127, 134;
+ if (@wrpD$[@num] == "Orc Dungeon") warp "gef_fild10.gat", 52, 326;
+ if (@wrpD$[@num] == "Umbala") warp "umbala.gat", 130, 130;
+ if (@wrpD$[@num] == "Yuno") warp "yuno.gat", 157, 123;
+ cutin "", 255;
+ end;
+}
+
+
+// Cart Function ========================================================
+function script F_KafCart {
+ if(baseClass != Job_Merchant){
+ mes "[Kafra]";
+ mes "I'm sorry dear. The Cart service is only provided for the Merchant and Blacksmith Class.";
+ return 1;
+ }
+ if(getskilllv(39)==0){
+ mes "[Kafra]";
+ mes "I'm sorry but you need the skill ^0000FF'Pushcart'^000000 to rent a cart.";
+ return 1;
+ }
+ if(checkcart(0) == 1){
+ mes "[Kafra]";
+ mes "Excuse me... but you already have a cart....";
+ emotion e_swt;
+ return 1;
+ }
+ //get Cart in Guild for free
+ if(getarg(0) == 2) goto L_FreeCart;
+ //use Free Ticket for the Cart Service if available
+ if(countitem(7061)){
+ delitem 7061,1;
+ goto L_FreeCart;
+ }
+ mes "[Kafra]";
+ mes "The Cart Fee is 800 Zeny. Do you want to Rent a Cart?";
+ next;
+ menu "-Rent a Cart.",-, "-Cancel.",M_End;
+
+ if(Zeny<800){
+ mes "[Kafra]";
+ mes "Dear, you don't have enough Money. You need 800 Zeny.";
+ emotion e_cash;
+ return 1;
+ }
+ set Zeny,Zeny-800;
+ set RESRVPTS, RESRVPTS + 48;
+ L_FreeCart:
+ setcart;
+ mes "[Kafra]";
+ mes "Here is your cart.";
+ return 1;
+ M_End:
+ return 0;
+}
+
+
+// Pass Function ===============================================================
+function script F_KafGuide {
+
+ mes "[Kafra]";
+ mes "WIP...";
+ return;
+}
+
+// Special Reserve Points Function ===========================================
+function script F_KafInfo {
+
+ sM_Menu:
+//Uncomment next line to block Kafra Storage Protection
+// if(getarg(0) == 0) menu "-Special Reserve Check",sM_ResChk, "-Kafra Locations",sM_KafLoc, "-Cancel",sM_End;
+ if(getarg(0) == 0) menu "-Special Reserve Check",sM_ResChk, "-Storage Password Service",sM_KafCode, "-Kafra Locations",sM_KafLoc, "-Cancel",sM_End;
+
+ sM_ResChk:
+ mes "[Kafra]";
+ mes "Here is your current amount of special reserve points:";
+ mes "^0000ff"+RESRVPTS+"^000000.";
+ next;
+ mes "[Kafra]";
+ mes "Remember to continue using Kafra services such as Storage and Teleport, to earn more special reserve points.";
+ next;
+ mes "[Kafra]";
+ mes "You can trade them in at the Kafra Main Office in Al De Baran for useful items and cool prizes.";
+ next;
+ if(getarg(0) == 1) return;
+ goto sM_Menu;
+ sM_KafLoc:
+ mes "[Kafra]";
+ mes "The flashing signals on your mini-map point to the locations of all of the Kafra Agents in this city.";
+ viewpoint 1,@viewpX[0],@viewpY[0],1,0xFF00FF;
+ viewpoint 1,@viewpX[1],@viewpY[1],2,0xFF00FF;
+ viewpoint 1,@viewpX[2],@viewpY[2],3,0xFF00FF;
+ viewpoint 1,@viewpX[3],@viewpY[3],4,0xFF00FF;
+ next;
+ viewpoint 2,@viewpX[0],@viewpY[0],1,0xFF00FF;
+ viewpoint 2,@viewpX[1],@viewpY[1],2,0xFF00FF;
+ viewpoint 2,@viewpX[2],@viewpY[2],3,0xFF00FF;
+ viewpoint 2,@viewpX[3],@viewpY[3],4,0xFF00FF;
+ goto sM_Menu;
+
+ sM_KafCode:
+ callfunc("F_SetKafCode");
+
+ sM_End:
+ return;
+}
+
+
+// End Function =====================================================
+// arg(0): used to determine what message to display.
+// arg(1): used to determine if save message is displayed.
+//===================================================================
+function script F_KafEnd {
+ mes "[Kafra]";
+ if(getarg(1)==1) mes "Your respawn point has been saved."; // only shown when a player uses save
+ if(getarg(0)!=1) mes "Thank you for using Kafra Services. We hope to see you again soon.";
+ if(getarg(0)==1) mes "We, Kafra Corporation.... Will be with you.... whenever.... wherever... therefore.... please don't forget us.....";
+ close2;
+ cutin "", 255;
+ emotion e_thx;
+ close;
+ end;
+}
+
+// Check Storage Password Function ====================
+function script F_CheckKafCode {
+ if(#kafra_code==0) return;
+ mes "Enter your storage password:";
+ set @code_,0;
+ input @code_;
+ if(@code_ != #kafra_code-getcharid(3)-1337) {
+ dispbottom "Wrong storage password.";
+ close2;
+ cutin "",255;
+ end;
+ }
+ set @kafcode_try,0;
+ set @code_,0;
+ return;
+}
+
+// Set / Change / Clear Storage Password Function ====================
+function script F_SetKafCode {
+ mes "[Kafra]";
+ if(#kafra_code) {
+ mes "Your storage is protected with a password. What would you do now?";
+ next;
+ menu "Change old password -> 5000z",-,
+ "Remove storage password -> 1000z",M_CLEAR,
+ "Cancel",M_END;
+ } else {
+ mes "Kafra Services proudly presents you a new service:";
+ mes "Additional storage protection with a password.";
+ next;
+ menu "Set new password -> 5000z",M_SET,
+ "Cancel",M_END;
+ }
+
+ mes "[Kafra]";
+ mes "At first, please enter your ^0000FFold password^000000.";
+ set @code,callfunc("F_EntKafCode");
+ if(@code==0 || @code != #kafra_code-getcharid(3)-1337) {
+ mes "Wrong password. You can't set a new password.";
+ emotion e_hmm;
+ goto M_END;
+ }
+ next;
+
+M_SET:
+ mes "[Kafra]";
+ mes "Now enter your ^FF0000new password^000000 to protect your storage from thieves.";
+ set @code,callfunc("F_EntKafCode");
+ if(@code==0) {
+ mes "The password hasn't been changed.";
+ emotion e_hmm;
+ goto M_END;
+ }
+ next;
+ mes "[Kafra]";
+ if(Zeny < 5000) goto L_ZENY;
+ set Zeny,Zeny-5000;
+ set RESRVPTS, RESRVPTS + (5000/50);
+
+ set #kafra_code,@code+getcharid(3)+1337;
+ mes "You've protected your storage with a secret password.";
+ mes "Thank you for using Kafra Services.";
+ emotion e_thx;
+ goto M_END;
+
+M_CLEAR:
+ mes "[Kafra]";
+ mes "Please, enter your password before its removal.";
+ set @code,callfunc("F_EntKafCode");
+ if(@code==0) {
+ mes "The password hasn't been removed.";
+ emotion e_hmm;
+ goto M_END;
+ }
+ next;
+ mes "[Kafra]";
+ if(Zeny < 1000) goto L_ZENY;
+ set Zeny,Zeny-1000;
+ set RESRVPTS, RESRVPTS + (1000/50);
+ if(@code == #kafra_code-getcharid(3)-1337) {
+ set #kafra_code,0;
+ mes "You've successfully cleared your storage password.";
+ mes "Thank you for using Kafra Services.";
+ emotion e_thx;
+ } else {
+ mes "Wrong password. We won't return your 1000z.";
+ mes "Please, next time enter correct password.";
+ emotion e_sry;
+ }
+ goto M_END;
+
+L_ZENY:
+ mes "You don't have enough zeny.";
+ emotion e_cash;
+M_END:
+ close2;
+ cutin "",255;
+ end;
+}
+
+// Basic Password Validation Function ====================
+function script F_EntKafCode {
+ mes "Enter a number 1000~10000000:";
+ set @code_,0;
+ set @kafcode_try,@kafcode_try+1;
+ if(@kafcode_try>10) {
+ set @kafcode_try,0;
+ logmes "Hack: Tried to fit storage password.";
+ }
+ input @code_;
+ if(@code_<1000) {
+ mes "You shouldn't use such short password.";
+ return 0;
+ }
+ if(@code_>10000000) {
+ mes "You can't use such big password.";
+ return 0;
+ }
+ return @code_;
+}
generated by cgit v1.2.3-70-g09d2 (git 2.46.0) at 2024-11-11 13:36:46 +0000