From 430f60e0b89f43358026ff1a170ac8938a534244 Mon Sep 17 00:00:00 2001 From: Vicious Date: Thu, 2 Mar 2006 18:50:09 +0000 Subject: eACC scripts. git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@5429 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt | 483 +++++++ npc/custom/eAAC_Scripts/kafraExpress/config.txt | 400 ++++++ .../kafraExpress/global_functionsKE.txt | 39 + npc/custom/eAAC_Scripts/kafraExpress/kafras.txt | 292 ++++ npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt | 175 +++ .../eAAC_Scripts/kafraExpress/ke_broadcast.txt | 224 +++ npc/custom/eAAC_Scripts/kafraExpress/ke_dye.txt | 139 ++ .../eAAC_Scripts/kafraExpress/ke_jobchange.txt | 533 +++++++ .../eAAC_Scripts/kafraExpress/ke_jobswap.txt | 409 ++++++ npc/custom/eAAC_Scripts/kafraExpress/ke_main.txt | 405 ++++++ npc/custom/eAAC_Scripts/kafraExpress/ke_refine.txt | 339 +++++ npc/custom/eAAC_Scripts/kafraExpress/ke_rent.txt | 81 ++ npc/custom/eAAC_Scripts/kafraExpress/ke_shop.txt | 66 + .../eAAC_Scripts/kafraExpress/ke_statmarket.txt | 128 ++ npc/custom/eAAC_Scripts/kafraExpress/ke_stats.txt | 130 ++ npc/custom/eAAC_Scripts/kafraExpress/ke_uncard.txt | 165 +++ .../eAAC_Scripts/kafraExpress/ke_warp_dungeon.txt | 1508 ++++++++++++++++++++ .../eAAC_Scripts/kafraExpress/ke_warp_pvp.txt | 156 ++ .../eAAC_Scripts/kafraExpress/ke_warp_town.txt | 295 ++++ .../eAAC_Scripts/kafraExpress/ke_warp_woe.txt | 159 +++ npc/custom/eAAC_Scripts/kafraExpress/readme.txt | 1173 +++++++++++++++ 21 files changed, 7299 insertions(+) create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/config.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/global_functionsKE.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/kafras.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_broadcast.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_dye.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_jobchange.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_jobswap.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_main.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_refine.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_rent.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_shop.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_statmarket.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_stats.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_uncard.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_warp_dungeon.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_warp_pvp.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_warp_town.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/ke_warp_woe.txt create mode 100644 npc/custom/eAAC_Scripts/kafraExpress/readme.txt (limited to 'npc/custom/eAAC_Scripts/kafraExpress') diff --git a/npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt b/npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt new file mode 100644 index 000000000..aa027b96f --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt @@ -0,0 +1,483 @@ +09/February/2006 +* Refine v2.7 +- Fixed buying of ores being free. +05/February/2006 +* Readme v1.8 +- Added Kafra Shop section +* Config v1.9 +- Added Kafra Shop section +* Shop v0.1 +- Initial release +* Main v5.4 +- Added support for the Kafra Shop +* Refine v2.6 +- Inverted order of item processing to prevent overweight problems (first the + items are charged, then you get the refined ones) + +08/January/2006 +* Job Swap v3.1 +- Fixed incorrect menu entry causing crash in the 2nd job menu for female classes. +- Fixed job names from the menu not matching the job you were about to change + into (bard/dancer adjust was broken) +- Fixed job revert saying your previous class was always the same as the current. + +04/January/2006 +* readme.txt v1.7 +- Added information about the new stat reset variables. + +30/December/2005 +* Main v5.3 +- Fixed NPC dialog freezing after healing both HP/SP +* Stats v2.2 +- Added option to charge reset based on base/job levels. +* Config v1.8 +- Added reset by level cost options. + +20/December/2005 +* Stats v2.1 +- Fixed resets charging you again when selecting return. + +12/December/2005 +* Bank v2.7 +- Fixed inifite loop that would trigger on year change. + +08/November/2005 +* Dungeon Warping v3.1 +- Fixed a crash when warping to GonRyun + +02/November/2005 +* Config v1.7 +- Added Taekwon equipment variables +- Added dungeon variables for Abyss/Thanatos/Juperos + +01/November/2005 +* Job Changer v3.5 +- Clean up and optimized to the new scripting engine. +- Added Taekwon Class support +- Acquired items will now display the slot count they have. + +31/October/2005 +* Pvp Warps v1.7, Woe Warps v1.7 +- Clean up and optimized to the new scripting engine. + +30/October/2005 +* Dungeon Warps v3.0 +- Added Abyss Lake, Thanatos Tower and Juperos. + +29/October/2005 +* Dungeon Warps v2.9 +- Clean up and optimized to the new scripting engine. + +28/October/2005 +* Refine v2.5, Renter v1.8, Stat Market v2.0, Stats v2.0, Uncard v1.5 +- Clean up and optimized to the new scripting engine. + +27/October/2005 +* Broadcast v3.0, Bank v2.6, Dye v1.9, Job Swapper v3.0, Main v5.2 +- Clean up and optimized to the new scripting engine. + +14/October/2005 +* Pvp Warps v1.6 +- Fixed standard pvp mode warps. + +07/October/2005 +* JobSwapper v2.5 +- Updated to work on the new script engine. + +06/October/2005 +* Broadcast v2.8 +- Fixed a bug when broadcasting to Room Four. + +17/September/2005 +* Pvp Warps v1.5 +- Made warps random. + +04/September/2005 +* Town Warps v1.6 +- Label fix. + +11/August/2005 +* PvP Warps v1.4 +- Removed the obtained item, the pvp maps are "no return" areas afterall. + +02/August/2005 +* Job Changer v3.2 +- Fixed issues with UpperPolicy = 1 and SkipNovice = 1 not working correctly. + +* readme.txt v1.6 +- Updated to reflect current changes. + +* Bank v2.5, Broadcast v2.7, Dye v1.7, Job Changer v3,1, Job Swapper v2.4, + Main v5.0, Refine v2.3, Renting v1.7, StatMarket v1.9, Stats v1.8, + Uncarder v1.3, Warp Dungeon v2.7, Warp PvP v1.3, Warp Town v1.5, Warp WoE v1.6 +- Updated all 'emotion's to use a e_* constant instead of numbers. +- Updated function F_keIntro to simplify code. +- Updated headers to reflect actual script requirements. + +* Job Changer v3.0, Job Swapper v2.6, Config v1.6 +- Removed Upper type related code as this is not really implemented in eA. + +07/July/2005 +* readme v1.5 +- Updated documentation regarding traveller's mode. +- Added descriptions for the new variables in the Stat Market. + +* Config v1.5 +- Updated comments for Traveller's warp mode. +- Added variables kesm_skTradeCost, kesm_stTradeCost +- Removed Gefenia + +* Stat Market v1.8 +- Added support for trading directly skills->stats or stats->skills. + +* Town Warps v1.4 +- Added again Einbech +- Added Traveller's Warp mode 2 + +* Dungeon Warps v2.6 +- Added Traveller's Warp mode 2 +- Sunken Ship Traveller mode bugfix. +- Removed Gefenia + +* Kafras v1.9 +- Readded Einbech's town Kafra +- Removed Gefenia + +05/July/2005 +* Town Warps v1.3 +- Fixed warps being free. +- Some optimizations. + +04/July/2005 +* Job Swap v2.2 +- Fixed script 'freeze' when you don't have enough to revert to the previous job. +- Fixed job-swapping being free if you did not have enough zeny. + +29/June/2005 +* Config v1.4 +- Added LightHalzen Rekkeben Cost + +* Dungeon Warps v2.5 +- Added LightHalzen +- Miscellanous name corrections + +* Town Warps v1.2 +- Removed Einbech (it is just a Einbroch Station?) +- Added LightHalzen + +* Kafras v1.8 +- Removed Einbech +- Added LightHalzen (Town + Dungeon) + +* Broadcast v2.6 +- Added variable kebc_showOnline to display count of recipients. + +* Woe Warps v1.5, Town Warps v1.1, Pvp Warps v1.2, Dungeon Warps v1.4, Config v1.2 +- Changed variable kewd_onlineStr to ked_users + +* Main v4.9 +- Updated to use the new warp dungeon file. +- Some cleanup and reorganization of menus. + +* Warp Dungeon v2.3 +- Merged Short Warps & Deep Warps into a single file. + +* Main v4.8 +- Moved the warping function here. +- ke_warp_core.txt no longer needed (removed) + +* Job Changer v2.9, Job Swapper v2.1 +- Some cleaning + +* Config v1.1 +- Reorganized, some cleaning. + +28/June/2005 +* readme.txt v1.3 +- Updated and cleaned documentation. + +* Warp Town v1.0 +- Branched off Warp Core v3.1 + +* Warp Core v3.2 +- Removed the Town warp code. + +* Main v4.7 +- Reorganized Menus + +* Bank v2.4, Broadcast v2.5, Dye v1.6, Job Changer v2.8, Job Swap v2.0, + Main v4.6, Refine v2.2, Rent v1.6, Stat Market v1.7, Stats v1.7, + Uncard v1.2, Warp Core v3.1, Warp Deep v2.2, Warp Short v2.1, Warp WoE v1.4 +- Upgraded to use config.txt + +27/June/2005 +* Job Swap v1.9 +- Fixed another stupid bug when job-reverting + +14/June/2005 +* Job Changer v2.7 +- Stupid fix for changing from adv 1st class to adv 2nd... + +10/June/2005 +* Job Swap v1.8 +- Fixed a silly bug with the announce option. + +05/June/2005 +* Core Warps v3.0, Short Warps v2.0 +- Bug Fix. kewd_pyramids -> kewd_pyramid +- kewd_turtle -> kewd_turtleIsland + +04/June/2005 +* Core Warps v2.9, Deep Warps v2.1 +- Bug fix related to deep warps. +- Fixed town warp costs being always zero. +- Fixed Niflheim cost display when online count is on. + +02/June/2005 +* Core Warps v2.7, Short Warps 1.9, Deep Warps 2.0, Kafras v1.7 +- Added Einbech Mines + +* Kafras v1.6 +- Updated Kafras with Type 2 + +* Deep Warp v1.9, Short Warps v1.8 +- Added support for kewd_travel + +* Main v4.5 +- Added kewd_travel for traveller's warp system. +- Moved Warp Menu into this module. + +* Pvp Warp v1.0 +- Branched off ke_warp.txt v2.4 + +* Core Warp v2.5: +- Added kewt_discount for town warps discount +- Added kewd_travel for traveller's warp system. +- Changed cost display for towns, implemented Kafra Pass discount value + +1/June/2005 +* Bank v 2.3 +- Added kebk_capacity variable for limited account size. +- Added kebk_useGlobalBank variable for enabling global counter. + +31/May/2005 +* Job Changer v2.5, Job Swapper v1.7 +- Modified code to work around the callfunc/menu bug + +* Main v2.4 +- Added SaveOnSpot option + +26/May/2005 +* Short Warps v1.7 +- Added option kewd_turtleCave for toggling island/cave warp (Turtle Island) + +* Bank v2.1, Broadcast v2.4, Dye v1.5, Main v4.2, Refine v2.1, Renting v1.5 + StatMarket v1.6, Stats v1.6, Uncarder v1.1, Warp Core v2.3, Deep Warps v1.8 + Short Warps v1.6, WoE Warps v1.3, JobSwapper 1.6, JobChanger 2.4 +- Label cleaning & standarization + +* JobChanger v2.3 +- Replaced functions with subfunctions +- Implemented use of new global function GF_getJobId + +* JobSwapper v1.5 +- Replaced functions with subfunctions +- Implemented use of new global function GF_getJobId +- Added Support for Baby Classes + +25/May/2005 +* Kafras v1.5, Bank v2.0, Broadcast v2.3, Dye v1.4, JobChange v2.1, + JobSwapper v1.3, Main v4.1, Refine v2.0, Renting v1.4, StatMarket v1.5, + Stats & Resets v1.5, Warp Core v2.2, Deep Warps v1.7, WoE Warps v1.2 +- Header Cleanup +- Global Variables standarized + +* Bank v1.9, Refine v1.8, Warp Core v2.1, Deep Warps v1.6 +- Changed callfunc's to callsub where applicable. + +* Broadcast v2.2 +- Changed callfunc's to callsub where applicable. +- Updated calls to global functions file new version. + +* Dye v1.3 +- New variable kedy_clothJWED specifies max dye count for wedding class +- Changed callfunc's to callsub where applicable. +- Updated calls to global functions file new version. + +* Rent v1.3 +- Removed cost of GrandPeco, simplified script to enable all classes to rent + anything (as long as they have the required skill) +- Updated calls to global functions file new version. + +* Statmarket v1.4 +- Added some more overflow checks + +* Stats v1.4 +- Added ke_resetbasic, specifies if basic skills are reset as well. + +* JobChanger v2.0 +- Restructured, updated to work with Baby Classes + +* UnCarder v1.0 +- Initial Release + +01/Apr/2005 +* Kafras v1.5 +- Updated Niflheim Kafra type + +* Warp Core v2.0 +- Added Nifflheim Quest Support +- Added Ayothaya Dungeon Cost + +* Warp Short v1.5, Warp Deep v1.5 +- Added Ayothaya Dungeon +- Changed callfunc's to callsub where appliable. + +31/Mar/2005 +* Core Module v4.0 +- Added charge functions for Kafra Pass calculations +- Added Nifflheim Quest Support + +* Broadcast v2.1, JobSwaper v1.2, Renting v1.1, StatMarket v1.3, +* Stats v1.3, Core Warping v1.9, Deep Warping v1.4, Short Warping v1.4, +* Woe Warping v1.1 +- Updated to new charge functions + +* Banker v1.8 +- Updated to new charge functions +- Refined messages when charging monthly and not having enough + +* Refiner v1.8 +- Updated to new charge functions +- Fixed bug where Kafra Pass discount was ignored when repairing equipment + +30/Mar/2005 + +* Warper v1.8 +- Added Cities: Ayothaya, Einbroch, Einbech + +* Kafras v1.4 +- Added Kafras for towns: Ayothaya, Einbroch, Einbech + +26/Mar/2005 +* Job Changer v1.6 +- Shortened label lengths + +15/Mar/2005 +* Job Changer v1.5 +- Fixed infinite loop bug on change from High Novice to High First Class + +03/Mar/2005 +* Job Swapper v1.1 +- Added support for saving dye on revert +- Added support to reset dye on swap + +* Job Changer v1.4 +- Added support for dye reset on change + +* Stylist v1.2 +- Added support for independent dye ranges per job-class + +24/Feb/2005 +* Job Swapper v1.0 +- Initial Release + +* Job Changer v1.3 +- Updated to work with the latest GF_getJob version + +* BroadCast Module v2.0 +- Updated to work with the latest GF_getJob version +- Added confirmation before broadcasting + +* Core Module v3.8 +- Added support for the Job Swap entry +- The Kafra image is now removed after the close +- Added option to not expire Kafra Pass on exit + +23/Feb/2005 +* Job Changer v1.2 +- Added alternate weapons when changing at high job levels +- Added "show details" to display detailed information of what will happen when you change jobs. +- Added missing '-' on female (archer/thief) raising menu +- Fixed a typo by which first High Classes could change regardless of job level + +19/Feb/2005 +* Job Changer v1.0 +- Initial Release + +* Core Module v3.6 +- Added support for the Job change entry + +18/Feb/2005 +* Dye v1.1 +- Added a missing 'end;' on the OnInit event + +* Stat Market v1.2 +- Added a missing 'end;' on the OnInit event + +* Stat/Reset System v1.2 +- Added a missing 'end;' on the OnInit event + +16/Feb/2005 +* Broadcasting v1.8 +- Updated use of GF_getJob + +11/Feb/2005 +* Warping Deep/Short v1.3 +- Updated Amatsu Entrance Warp + +01/Feb/2005 +* Bank Module v1.7 +- Fixed Monthly costs +- Added overflow protection + +26/Jan/2005 +* Stat Market v1.1 +- Fixed overflow exploit when qty*price overflows. + +* Refining System v1.7 +- Fixed overflow exploit when qty*price overflows. + +* Banking Module v1.6 +- Added maximum transaction costs + +12/Jan/2005 +* Core Module v3.5 +- Fixed Negative Bug exploit on regular storage +- Added Guild Storage Support + +* Banking Module v1.5 +- Fixed bug when gaining interests between years +- Added monthly maintenance fees +- Added minimum transaction costs + +* Refine Module v1.6 +- Added option to display success/failure chances +- Item names are displayed now using getitemname() + +* Core Warping Module v.1.7 +- Minor name corrections +- Added entry for Guild Wars warping + +* Deep Warping Module v1.2 +- Minor name corrections +- Changed Orcs Dungeon warping location + +* Short Warping Module v.1.2 +- Minor name corrections +- Changed Orcs Dungeon warping location + +* WoE Warping Module v1.0 +- Initial Release + +20/Nov/2004 +* Core Module v3.2 +- Fixed Kafra Image not being removed when opening storage + +* Warp Core Module v1.6 +- Expanded PvP system to use 8x5 rooms + +* Broadcast Module v1.7 +- Expanded to include new PvP rooms + +-- Too old to remember :P diff --git a/npc/custom/eAAC_Scripts/kafraExpress/config.txt b/npc/custom/eAAC_Scripts/kafraExpress/config.txt new file mode 100644 index 000000000..1e2bf3e1b --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/config.txt @@ -0,0 +1,400 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Config Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 1.8 +//===== Compatible With: ===================================== +//= Any eAthena Version with function support +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= This module contains the configuration of all modules. +//===== Additional Comments: ================================= +//= See +//= for indepth explanation of the Kafra Express Script Package. +//============================================================ + +- script keConfig -1,{ + //------------------------------------------------------------------------------- + //Config for the Main Module + //------------------------------------------------------------------------------- +OnInit: + set $@ke_saveOnSpot,0; //If 1, the respawn point is saved where the char is standing. + set $@keh_hpCost,10; //Cost of HP healing (per 10HP) + set $@keh_spCost,100; //Cost of SP healing (per 10SP) + set $@kes_cost,50; //Cost of opening the storage + set $@kegs_cost,500; //Cost of opening the guild storage + + //Kafra Pass Options: + set $@kekp_reset,1; //Kafra passes Expire when you speak to a Kafra? + //(otherwise duration is as long as a temporary variable) + set $@kekp_reserveCost,100; //Cost of each Reserve Point in Zeny (0 disable) + set $@kekp_minReserve,1; //Min Reserve Points you can earn in a single transaction + set $@kekp_maxReserve,150; //Max Reserve Points you can earn in a single transaction + + //Display Options + set $@ked_users$,"people"; //String used when referring to people (player count). + // Values like "ppl", "users" or "on" are also recommended. + end; + //------------------------------------------------------------------------------- + //Config for the Bank Module + //------------------------------------------------------------------------------- +OnLoadBank: + set $@kebk_depositCost,0; //Fee for bank deposits in % (10 = 10%) + set $@kebk_withdrawCost,5; //Fee for bank withdrawals in % (10 = 10%) + set $@kebk_minTransact,1000; //Value of the Minimum Transaction (deposit/withdraw) + set $@kebk_maxTransact,999999; //Value of the Maximum Transaction (deposit/withdraw) + set $@kebk_capacity,99999999; //Account capacity: Max zeny that can be held. + set $@kebk_dayInterest,10; //Savings daily interests in 0.01% units (100 = 1%) + set $@kebk_monMaintenance,1000; //Monthly flat fee charged for account maintenance + set $@kebk_useGlobalBank,0; //When 1, all charged fees go to $ke_globalbank + end; + //------------------------------------------------------------------------------- + //Config for the Broadcast Module + //------------------------------------------------------------------------------- +OnLoadBroadcast: + //Following costs are for current map costs: + set $@kebc_showOnline,0; //if 1, count of recipients will be listed. + set $@kebc_partyCost,2500; //party request broadcast cost + set $@kebc_pvpCost,5000; //pvp request broadcast cost + set $@kebc_cost,10000; //general broadcast cost + set $@kebc_anonCost,100000; //anonymous broadcast cost + set $@kebc_globalFactor,1000; //When doing server bcs, the prices are increased by this amount (500 = 500% = 5x) + set $@kebc_discount,15; //% Discount to apply when the KafraPass is active + end; + //------------------------------------------------------------------------------- + //Config for the Dye and Stylist Module + //------------------------------------------------------------------------------- +OnLoadDye: + set $@kedy_enableHairstyle,0; //Set to 1 to enable haircut style change. + set $@kedy_styles,23; //Highest available haircut style (default 23) + set $@kedy_hair,8; //Highest available hair dye (RO default is 8) + + //Highest available cloth dye depending on job-class + set $@kedy_clothJN,77; //Novice (+High/Baby) + set $@kedy_clothJ1ST,77; //1st Jobs (+High/Baby) + set $@kedy_clothJ2ND,77; //2nd Jobs (+High/Baby) + set $@kedy_clothJSN,77; //Super Novice (+Baby) + set $@kedy_clothJWED,77; //Wedding Class + end; + //------------------------------------------------------------------------------- + //Config for the Job Changer Module + //------------------------------------------------------------------------------- +OnLoadJobChange: + set $@kejc_skillsPolicy,0; //Remaining Skill Points Policy: + //0: Do not allow job changing until points are used up + //1: Discard the remaining skill points + //2: Let extra skill points be carried to next job + + set $@kejc_upperPolicy,0; //Upper Job management policy: + //0: Ignore Mode: People can change in any order + //1: Force Mode: Job changes are forced on the correct path. + + set $@kejc_announce,1; //Do a global announce when someone changes job. + set $@kejc_resetDye,1; //Set to 1 to reset cloth dye upon change + set $@kejc_skipNovice,0; //0: Novice needs Job 10 to change, 1: Can Skip Novice Class + set $@kejc_baseSN,30; //Base lv required to become a Super Novice + + //Note that the change costs can be converted into rewards by specifying a negative amount. + set $@kejc_base2ND,1; //Base lv required to change into a second class + set $@kejc_job2ND,40; //Job Lv required to change into a second Class + set $@kejc_cost2ND,-25000; //Zeny cost when changing into a second Class + + set $@kejc_baseRebirth,99; //Base lv required to do the Rebirth + set $@kejc_jobRebirth,50; //Job Lv required to do the Rebirth + set $@kejc_costRebirth,1000000; //Zeny cost required to do the Rebirth + + set $@kejc_rebirthReset,1; //When changing to a high novice, reset base level to 1? + set $@kejc_weaponPolicy,1; //Set to 1 to give a weapon upon job change + + if ($@kejc_weaponPolicy == 0) //don't touch + end; + + set $@kejc_wBonusLv,50; //Job level for upgraded weapon version, use 0 to disable + + //Weapons awarded to each job upon change (use 0 to disable for a particular class) + //First classes: + set $@kejc_wAcolyte,1501; //Club + set $@kejc_wArcher,1701; //Bow + set $@kejc_wMage,1601; //Rod + set $@kejc_wMerchant,1301; //Axe + set $@kejc_wSwordman,1101; //Sword + set $@kejc_wThief,1201; //Knife + set $@kejc_wTaekwon,0; //Nothing (they don't wield weapons) + set $@kejc_wSuperNovice,1202; //Knife + + //Normal Weapons for Second classes + set $@kejc_wPriest,1551; //Bible + set $@kejc_wMonk,1801; //Waghnak + set $@kejc_wHunter,1704; //Composite Bow + set $@kejc_wBard,1901; //Violin + set $@kejc_wDancer,1950; //Rope + set $@kejc_wWizard,1602; //Rod + set $@kejc_wSage,1550; //Book + set $@kejc_wBlacksmith,1351; //Battle Axe + set $@kejc_wAlchemist,1351; //Battle Axe + set $@kejc_wKnight,1116; //Katana + set $@kejc_wCrusader,1107; //Blade + set $@kejc_wAssassin,1250; //Jur + set $@kejc_wRogue,1210; //Cutter + set $@kejc_wStarGladiator,1550; //Book + set $@kejc_wSoulLinker,1602; //Rod + + if ($@kejc_wBonusLv == 0) //Don't touch. + end; + + //Improved versions awarded to second classes + set $@kejc_w2Priest,1519; //Chain + set $@kejc_w2Monk,1811; //Finger + set $@kejc_w2Hunter,1714; //Gakkung + set $@kejc_w2Bard,1911; //Guh Moon Goh + set $@kejc_w2Dancer,1960; //Whip + set $@kejc_w2Wizard,1610; //Arc Wand + set $@kejc_w2Sage,1552; //Tablet + set $@kejc_w2Blacksmith,1360; //Two-Handed Axe + set $@kejc_w2Alchemist,1360; //Two-Handed Axe + set $@kejc_w2Knight,1160; //Broad-Sword + set $@kejc_w2Crusader,1119; //Tsurugi + set $@kejc_w2Assassin,1254; //Jamadhar + set $@kejc_w2Rogue,1222; //Damascus + set $@kejc_w2StarGladiator,1552; //Tablet + set $@kejc_w2SoulLinker,1610; //Arc Wand + end; + //------------------------------------------------------------------------------- + //Config for the Job Swapping Module + //------------------------------------------------------------------------------- +OnLoadJobSwap: + set $@kejs_SNpolicy,0; //Super Novice is considered as... + //0: Super Novices can't swap job. + //1: 1st Class Range: Can only be swapped with First classes (including baby) + + set $@kejs_revertPolicy,1; //Allows reverting to the last Class one changed from... + // 0: do not allow reverting + // 1: Can revert to last Job ONLY when the last job belongs to the same "level" as + // the current one. (ie: it is lost on job change/upgrade) + // 2: Can revert to the last job regardless of situation. + + set $@kejs_announce,0; //Do a global announce when someone swaps job. + set $@kejs_revertCost,100000; //Cost of reverting back to previous Job. + set $@kejs_saveDye,1; //Set to 1 to save and restore previous dye when reverting + set $@kejs_resetDye,0; //Set to 1 to reset cloth dye when swapping + set $@kejs_swapDiscount, 20; //Kafra Pass % Discount when swapping jobs + set $@kejs_revertDiscount, 20; //Kafra Pass % Discount when reverting to a previous job. + + //Minimum Job level required for swapping + set $@kejs_job1ST,20; //among 1st classes + set $@kejs_job2ND,50; //among 2nd classes + + //Base Cost for swapping job at min job level required + set $@kejs_cost1ST,25000; //among 1st jobs + set $@kejs_cost2ND,250000; //among 2nd jobs + + //Percentage discount for every level over the minimum + set $@kejs_discount1ST,3; //among 1st jobs + set $@kejs_discount2ND,3; //among 2nd jobs + + //How much to preserve of the previous Job in %? + //(25% means that if you change at Lv100, you will become a Lv25 upon swap) + set $@kejs_preserve1ST,50; //among 1st jobs + set $@kejs_preserve2ND,0; //among 2nd jobs + end; + //------------------------------------------------------------------------------- + //Config for the Refining Module + //------------------------------------------------------------------------------- +OnLoadRefine: + set $@kerf_maxLv,10; //Max refinement level for equipment + set $@kerf_safe,0; //Set to 1 to enable 100% safe refinement. + set $@kerf_showChance,0; //Set to 1 to see the refine Success Chance + set $@kerf_refineAll,0; //Set to 1 to enable refinement of anything (ie: accesories) + set $@kerf_discount,0; //Discount % rate for forging when Kafra Pass is active. + set $@kerf_armorCost,2000; //Cost to refine armor (default 2000z) + set $@kerf_weaponLv1Cost,50; //Cost to refine lv1 weapons (default 50z) + set $@kerf_weaponLv2Cost,200; //Cost to refine lv2 weapons (default 200z) + set $@kerf_weaponLv3Cost,5000; //Cost to refine lv3 weapons (default 5000z) + set $@kerf_weaponLv4Cost,20000; //Cost to refine lv4 weapons (default 20000z) + set $@kerf_purifyAll,0; //Set to 1 to enable purifying elemental stones and the like + set $@kerf_repairCost,10000; //Cost to repair broken equipment. + set $@kerf_repairDiscount,25; //Discount % rate for repairing when Kafra Pass is active + set $@kerf_repairSteel,1; //Set to 1 to make repairing equipment require 1 Steel. + end; + //------------------------------------------------------------------------------- + //Config for the Renting Module + //------------------------------------------------------------------------------- +OnLoadRent: + set $@kert_cartOnly, 0; //Set to 1 to enable only cart rental, 0 enables all add-ons. + set $@kert_cartCost, 1000; //Cost to rent a Cart. + set $@kert_falconCost, 2000; //Cost to rent a Falcon. + set $@kert_pecoCost, 2000; //Cost to rent a PecoPeco. + end; + //------------------------------------------------------------------------------- + //Config for the Kafra Shop Module + //------------------------------------------------------------------------------- +OnLoadShop: + set $@kesh_towntype, 0; //Town shop type (1: buy, 2: sell, Other: both) + set $@kesh_duntype, 2; //Dungeon shop type (1: buy, 2: sell, Other: both) + set $@kesh_townshop$, "ke_townshop"; //Name of town shop to invoke. + set $@kesh_dunshop$, "ke_dunshop"; //Name of dungeon shop to invoke. + end; + //------------------------------------------------------------------------------- + //Config for the Stat Market Module + //------------------------------------------------------------------------------- +OnLoadStatMarket: + set $@kesm_stBuyPrice,10000; //Cost of buying stat points + set $@kesm_stSellPrice,0; //Return cash for selling stat points + set $@kesm_skBuyPrice,1000000; //Cost of buying skill points + set $@kesm_skSellPrice,50000; //Return cash for selling skill points + set $@kesm_skTradePrice, 20; //Stats needed to trade for a skill. (Stat->Skill) + set $@kesm_stTradePrice, 15; //Stats received per Skill traded. (Skill->Stat) + set $@kesm_discount,0; //Discount % applied when buying if Kafra Pass is active + end; + //------------------------------------------------------------------------------- + //Config for the Stats Reset/Raising Module + //------------------------------------------------------------------------------- +OnLoadStats: + set $@kest_stResetCost,50000; //Cost to reset stats + set $@kest_skResetCost,50000; //Cost to reset skills + set $@kest_resetCost,75000; //Cost to reset both + set $@kest_BaseLvCost,25000; //Additional cost per base level to reset stats + set $@kest_JobLvCost,25000; //Additional cost per job level to reset skills + set $@kest_BothLvCost,20000; //Additional cost per base+job level to reset both + + set $@kest_discount,15; //Discount % to be applied when Kafra Pass is active. + set $@kest_resetBasic,0; //Set to 1 if you want basic skills resetted as well. + end; + //------------------------------------------------------------------------------- + //Config for the Uncarding Module + //------------------------------------------------------------------------------- +OnLoadUncard: + set $@keuc_BaseCost, 100000; //Base Cost + set $@keuc_CardCost, 25000; //Extra Cost per Card + set $@keuc_UpgradeCostA, 1000; //Extra Cost per Upgrade, Armor + set $@keuc_UpgradeCostW1, 1000; //Extra Cost per Upgrade, Weapons Lv1 + set $@keuc_UpgradeCostW2, 2000; //Extra Cost per Upgrade, Weapons Lv2 + set $@keuc_UpgradeCostW3, 3000; //Extra Cost per Upgrade, Weapons Lv3 + set $@keuc_UpgradeCostW4, 5000; //Extra Cost per Upgrade, Weapons Lv4 + set $@keuc_discount, 10; //% Discount when using a Kafra Pass + set $@keuc_Mat1,1000; //Material #1 needed (Star Crumb) + set $@keuc_Qty1,1; //Qty of material #1 needed (use 0 to disable) + set $@keuc_Mat2,715; //Material #2 needed (Yellow Gemstone) + set $@keuc_Qty2,1; //Qty of material #2 needed (use 0 to disable) + + //Failure Chances. 1000 = 100.0%, set to 0 to disable failing chance. + set $@keuc_Fail0Chance, 250; //Chance of harmless failure + set $@keuc_Fail1Chance, 100; //Chance of losing item OR card + set $@keuc_Fail2Chance, 25; //Chance of losing both + end; + //------------------------------------------------------------------------------- + //Config for the Town Warps Module + //------------------------------------------------------------------------------- +OnLoadWarpTown: + set $@kewt_showOnline,1; //Set to 1 to show online count on cities + set $@kewt_cost, 1000; //Cost of warping to a town + set $@kewt_niflCost, 5000; //Cost of warping to Niflheim + set $@kewt_travel, 0; //Traveller's Mode type for towns: + //0: Disabled (normal warping) + //1: You can only warp to towns you've been before (per character basis) + //2: You can only warp to towns you've been before (per account basis) + set $@kewt_free, 0; //Set to 1 to let people warp to towns even when poor + set $@kewt_discount, 100; //Discount % to apply when the Kafra Pass is active (towns) + end; + //------------------------------------------------------------------------------- + //Config for the Dungeons Warps Module + //------------------------------------------------------------------------------- +OnLoadWarpDungeon: + set $@kewd_showOnline,0; //Set to 1 to show online count on dungeons + set $@kewd_discount, 50; //Discount % to apply when the Kafra Pass is active + set $@kewd_travel, 0; //Traveller's mode type for dungeons: + //0: Disabled (normal warping) + //1: You can only warp to dungeons you've been before (per character basis) + //2: You can only warp to dungeons you've been before (per account basis) + set $@kewd_deep, 1; //If 1, people can warp to all levels of dungeons. + //If 0, people can only warp to the entrance of dungeons. + + //Variables for Deep Warping + set $@kewd_levelCost, 30; // cost % increase for warping to floors deep into the dungeon + set $@kewd_entryDiscount, 25; //Discount % when using the Kafra right next to the dungeon one is warping into + + //Variables for Short Warping + set $@kewd_turtleCave,0; //If 1, Turtle Island's warp leads to the + //entrance of the cave, not the Island's shore. + + //Dungeon Costs + set $@kewd_abyssLake,5000; //Abyss Lake base cost + set $@kewd_amatsu,2500; //Amatsu Dungeon base cost + set $@kewd_antHell,1750; //Anthell base cost + set $@kewd_ayothaya,1750; //Ayothaya Dungeon base cost + set $@kewd_byalan,1250; //Byalan base cost + set $@kewd_comodo,2500; //Comodo Caves base cost + set $@kewd_clockTower,6250; //Clock Tower base cost + set $@kewd_coalMines,3750; //Coal Mines base cost + set $@kewd_culvert,500; //Prontera Culvert base cost + set $@kewd_einbech,5000; //Einbech Mines base cost + set $@kewd_gefenia,25000; //Gefenia base cost + set $@kewd_geffen,5000; //Geffen Dungeon base cost + set $@kewd_glastHeim,10000; //Glast Heim base cost + set $@kewd_gonRyun,3750; //Gonryun Dungeon base cost + set $@kewd_hiddenTemple,250; //Hidden Temple base cost + set $@kewd_juperos,7500; //Juperos base cost + set $@kewd_lightHalzen,15000; //LightHalzen Rekkenber base cost + set $@kewd_louYang,2500; //Louyang Dungeon base cost + set $@kewd_magma,3750; //Magma Dungeon base cost + set $@kewd_orc,2500; //Orc Dungeon base cost + set $@kewd_payon,1100; //Payon Dungeon base cost + set $@kewd_pyramid,2500; //Pyramids base cost + set $@kewd_sphinx,1750; //Sphinx base cost + set $@kewd_sunkenShip,1000; //Sunken Ship base cost + set $@kewd_thanatosTower,15000; //Thanatos Tower base cost + set $@kewd_toyFactory,2500; //Toy Factory base cost + set $@kewd_turtleIsland,12500; //Turtle Island base cost + set $@kewd_umbala,3550; //Umbala Dungeon base cost + end; + //------------------------------------------------------------------------------- + //Config for the Pvp Warps Module + //------------------------------------------------------------------------------- +OnLoadWarpPvp: + set $@kewp_showOnline,1; //Set to 1 to show online count on pvp maps + set $@kewp_advanced,0; //Set to 0 to enable a single group of pvp rooms + //(no level restrictions, kewp_cost is used) + set $@kewp_cost, 1000; //Cost for Free For All (no level restrictions) + + if ($@kewp_advanced == 0) //Don't touch + end; + + set $@kewp_cost1, 100; //Cost of warping to a pvp arena, lvls group 1 + set $@kewp_cost2, 250; //Cost for lvls group 2 + set $@kewp_cost3, 500; //Cost for lvls group 3 + set $@kewp_cost4, 1000; //Cost for lvls group 4 + set $@kewp_cost5, 2000; //Cost for lvls group 5 + set $@kewp_cost6, 4000; //Cost for lvls group 6 + set $@kewp_cost7, 8000; //Cost for lvls group 7 + set $@kewp_baseLv1, 35; //Level required for pvp, lv1 + set $@kewp_baseLv2, 45; //Level required for pvp, lv2 + set $@kewp_baseLv3, 55; //Level required for pvp, lv3 + set $@kewp_baseLv4, 65; //Level required for pvp, lv4 + set $@kewp_baseLv5, 75; //Level required for pvp, lv5 + set $@kewp_baseLv6, 85; //Level required for pvp, lv6 + set $@kewp_baseLv7, 95; //Level required for pvp, lv7 + set $@kewp_range, 5; //Range of levels allowed (ie: Warp to Lv1: levels 10+/-5) + end; + //------------------------------------------------------------------------------- + //Config for the WoE Warps Module + //------------------------------------------------------------------------------- +OnLoadWarpWoe: + //Note: See ke_warp_woe.txt for instructions on how to unlock the Guild Dungeons. + set $@kewg_check,1; //If 0, people don't need to belong to a Guild to warp + set $@kewg_checkAgit,1; //If 1, you can't warp until WoE starts + set $@kewg_showOnline,0; //Set to 1 to show online count and Castle Status + set $@kewg_discount,20; //Kafra Pass discount for WoE warps + + set $@kewg_baldur, 25000; //Guild Dungeon - Baldur + set $@kewg_luina, 25000; //Guild Dungeon - Luina + set $@kewg_valkyrie, 25000; //Guild Dungeon - Valkyrie + set $@kewg_britoniah, 25000; //Guild Dungeon - Britoniah + + set $@kewg_alDeBaran, 2500; //Al De Baran Guild + set $@kewg_geffen, 2500; //Geffen Guild + set $@kewg_payon, 2500; //Payon Guild + set $@kewg_prontera, 2500; //Prontera Guild + end; + //------------------------------------------------------------------------------- +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/global_functionsKE.txt b/npc/custom/eAAC_Scripts/kafraExpress/global_functionsKE.txt new file mode 100644 index 000000000..0d3c9bd68 --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/global_functionsKE.txt @@ -0,0 +1,39 @@ +//===== eAthena Script ======================================= +//= Global functions +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 1.5 +//===== Compatible With: ===================================== +//= eAthena SVN R3424+, RO Ep6+ +//===== Description: ========================================= +//= Global Functions +//= +//===== Additional Comments: ================================= +//= GF_getJobName= function for getting a job's name +//= GF_getJobName2= gets a jobs name modified by Type (see below) +//= GF_getJobId= gets a jobs number modified by Type (see below) +//= GF_getJobLevel= identifies novices/1st/2nd among classes +//= GF_getJobType= identifies normal/advanced/babies classes +//= - GF_getJobClass= identifies job class (swordie, mage, etc) +//============================================================ + +function script GF_getJobName { + + switch (getarg(0)) { + + case Job_Novice: + return "novice"; + case Job_Acolyte: + return "acolyte"; + case Job_Archer: + return "archer"; + case Job_Mage: + return "mage"; + case Job_Merchant: + return "merchant"; + case Job_Swordman: + return "swordsman"; + case Job_Thief: + return "thief"; + case Job_Taekwon: \ No newline at end of file diff --git a/npc/custom/eAAC_Scripts/kafraExpress/kafras.txt b/npc/custom/eAAC_Scripts/kafraExpress/kafras.txt new file mode 100644 index 000000000..b7df781e2 --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/kafras.txt @@ -0,0 +1,292 @@ +//===== eAthena Script ======================================= +//= Kafra Express - NPC definitions +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 1.9 +//===== Compatible With: ===================================== +//= Any eAthena Version with function support; RO Episode 8+ (LightHalzen) +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Here is where the npcs are defined. +//===== Additional Comments: ================================= +//= To define your own Kafra, keep in mind the order and meaning +//= of the arguments for the main function. +//============================================================ + +//This is the model for the call: Type is 0 for towns, 1 for dungeons (2 for both) +//callfunc "F_KafraExpress","NPC Name","Image File", type, "Save Map", Save X, Save Y; + +//Town Kafras +alberta.gat,113,53,7 script Kafra Express 116,{ + callfunc "F_KafraExpress","Kafra Express","kafra_02",0,"alberta.gat",116,57; +} + +aldebaran.gat,133,124,5 script Kafra Express 115,{ + callfunc "F_KafraExpress","Kafra Express","kafra_03",2,"aldebaran.gat",139,131; +} + +amatsu.gat,201,80,8 script Kafra Express 114,{ + callfunc "F_KafraExpress","Kafra Express","kafra_04",0,"amatsu.gat",197,81; +} + +ayothaya.gat,195,160,8 script Kafra Express 112,{ + callfunc "F_KafraExpress","Kafra Express","kafra_06",0,"ayothaya.gat",194,173; +} + +comodo.gat,190,153,5 script Kafra Express 721,{ + callfunc "F_KafraExpress","Kafra Express","kafra_07",0,"comodo.gat",189,166; +} + +geffen.gat,121,62,8 script Kafra Express 113,{ + callfunc "F_KafraExpress","Kafra Express","kafra_05",0,"geffen.gat",119,56; +} + +gonryun.gat,169,188,2 script Kafra Express 117,{ + callfunc "F_KafraExpress","Kafra Express","kafra_01",2,"gonryun.gat",168,199; +} + +einbech.gat,182,124,3 script Kafra Express 117,{ + callfunc "F_KafraExpress","Kafra Express","kafra_01",0,"einbech.gat",182,133; +} + +einbroch.gat,58,207,4 script Kafra Express 115,{ + callfunc "F_KafraExpress","Kafra Express","kafra_03",0,"einbroch.gat",64,184; +} + +izlude.gat,136,94,2 script Kafra Express 115,{ + callfunc "F_KafraExpress","Kafra Express","kafra_03",0,"izlude.gat",147,99; +} + +jawaii.gat,208,217,7 script Kafra Express 721,{ + callfunc "F_KafraExpress","Kafra Express","kafra_07",0,"jawaii.gat",213,209; +} + +lighthalzen.gat,165,106,3 script Kafra Express 114,{ + callfunc "F_KafraExpress","Kafra Express","kafra_04",0,"lighthalzen.gat",152,106; +} + +louyang.gat,220,123,3 script Kafra Express 117,{ + callfunc "F_KafraExpress","Kafra Express","kafra_01",0,"louyang.gat",221,128; +} + +xmas.gat,148,126,4 script Kafra Express 112,{ + callfunc "F_KafraExpress","Kafra Express","kafra_06",0,"xmas.gat",149,117; +} + +morocc.gat,156,97,3 script Kafra Express 721,{ + callfunc "F_KafraExpress","Kafra Express","kafra_07",0,"morocc.gat",156,91; +} + +niflheim.gat,196,192,3 script Kafra Express 791,{ + callfunc "F_KafraExpress","Kafra Express","",3,"niflheim.gat",194,185; +} + +payon.gat,152,181,5 script Kafra Express 114,{ + callfunc "F_KafraExpress","Kafra Express","kafra_04",0,"payon.gat",162,182; +} + +prontera.gat,157,187,4 script Kafra Express 116,{ + callfunc "F_KafraExpress","Kafra Express","kafra_02",0,"prontera.gat",156,195; +} + +umbala.gat,89,159,4 script Kafra Express 112,{ + callfunc "F_KafraExpress","Kafra Express","kafra_06",0,"umbala.gat",91,159; +} + +yuno.gat,159,87,5 script Kafra Express 113,{ + callfunc "F_KafraExpress","Kafra Express","kafra_05",0,"yuno.gat",159,52; +} + +//Dungeon Kafras +//Abyss Lake +hu_fild05.gat,170,305,7 script Kafra Express 721,{ + callfunc "F_KafraExpress","Kafra Express","kafra_07",1,"hu_fild05.gat",160,302; +} + +//Amatsu D +ama_in02.gat,115,184,6 script Kafra Express 117,{ + callfunc "F_KafraExpress","Kafra Express","kafra_01",1,"ama_in02.gat",118,184; +} + +//AntHell North +moc_fild04.gat,231,332,5 script Kafra Express 114,{ + callfunc "F_KafraExpress","Kafra Express","kafra_04",1,"moc_fild04.gat",232,322; +} + +//AntHell South +moc_fild15.gat,251,243,3 script Kafra Express 114,{ + callfunc "F_KafraExpress","Kafra Express","kafra_04",1,"moc_fild15.gat",246,251; +} + +//Ayothaya Dungeon +ayo_fild02.gat,289,144,3 script Kafra Express 116,{ + callfunc "F_KafraExpress","Kafra Express","kafra_02",1,"ayo_fild02.gat",289,155; +} + +//Byalan Island +izlu2dun.gat,101,82,7 script Kafra Express 112,{ + callfunc "F_KafraExpress","Kafra Express","kafra_06",1,"izlu2dun.gat",112,84; +} + +//Comodo East Cave +cmd_fild01.gat,33,321,4 script Kafra Express 721,{ + callfunc "F_KafraExpress","Kafra Express","kafra_07",1,"cmd_fild01.gat",34,325; +} + +//Comodo West Cave +comodo.gat,31,218,4 script Kafra Express 721,{ + callfunc "F_KafraExpress","Kafra Express","kafra_07",1,"comodo.gat",32,209; +} + +//Comodo North Cave +comodo.gat,182,347,2 script Kafra Express 721,{ + callfunc "F_KafraExpress","Kafra Express","kafra_07",1,"comodo.gat",180,352; +} + +//Coal Mines +mjolnir_02.gat,85,365,4 script Kafra Express 114,{ + callfunc "F_KafraExpress","Kafra Express","kafra_04",1,"mjolnir_02.gat",89,358; +} + +//Culvert +prt_fild05.gat,275,219,5 script Kafra Express 112,{ + callfunc "F_KafraExpress","Kafra Express","kafra_06",1,"prt_fild05.gat",274,208; +} + +//Einbroch Station +einbech.gat,182,124,3 script Kafra Express 117,{ + callfunc "F_KafraExpress","Kafra Express","kafra_01",1,"einbech.gat",182,133; +} + +//Gefenia +gefenia01.gat,56,171,6 script Kafra Express 116,{ + callfunc "F_KafraExpress","Kafra Express","kafra_02",1,"gefenia01.gat",59,169; +} + +//Geffen Dungeon +gef_tower.gat,156,33,3 script Kafra Express 113,{ + callfunc "F_KafraExpress","Kafra Express","kafra_05",1,"gef_tower.gat",147,35; +} + +//GH: Church +glast_01.gat,193,136,5 script Kafra Express 791,{ + callfunc "F_KafraExpress","Kafra Express","",1,"glast_01.gat",206,136; +} + +//GH: Castle +glast_01.gat,200,350,4 script Kafra Express 791,{ + callfunc "F_KafraExpress","Kafra Express","",1,"glast_01.gat",200,347; +} + +//GH: Staircase +glast_01.gat,58,103,7 script Kafra Express 791,{ + callfunc "F_KafraExpress","Kafra Express","",1,"glast_01.gat",62,107; +} + +//GH: Chivalry +glast_01.gat,62,198,6 script Kafra Express 791,{ + callfunc "F_KafraExpress","Kafra Express","",1,"glast_01.gat",69,193; +} + +//LightHalzen Rekkenber +lighthalzen.gat,69,57,7 script Kafra Express 113,{ + callfunc "F_KafraExpress","Kafra Express","kafra_05",1,"lighthalzen.gat",78,57; +} + +//Juperos +jupe_cave.gat,45,55,5 script Kafra Express 115,{ + callfunc "F_KafraExpress","Kafra Express","kafra_03",1,"jupe_cave.gat",45,48; +} + +//Laberynth +prt_fild01.gat,143,365,3 script Kafra Express 112,{ + callfunc "F_KafraExpress","Kafra Express","kafra_06",1,"prt_fild01.gat",136,361; +} + +//LouYang D +louyang.gat,35,276,6 script Kafra Express 117,{ + callfunc "F_KafraExpress","Kafra Express","kafra_01",1,"louyang.gat",41,267; +} + +//Magma D +yuno_fild03.gat,34,143,5 script Kafra Express 115,{ + callfunc "F_KafraExpress","Kafra Express","kafra_03",1,"yuno_fild03.gat",35,135; +} + +//Orc D North +in_orcs01.gat,24,165,5 script Kafra Express 116,{ + callfunc "F_KafraExpress","Kafra Express","kafra_02",1,"in_orcs01.gat",34,165; +} + +//Orc D South +in_orcs01.gat,103,99,5 script Kafra Express 116,{ + callfunc "F_KafraExpress","Kafra Express","kafra_02",1,"in_orcs01.gat",112,99; +} + +//Payon D +pay_arche.gat,38,138,6 script Kafra Express 112,{ + callfunc "F_KafraExpress","Kafra Express","kafra_06",1,"pay_arche.gat",41,133; +} + +//Pyramids D +moc_ruins.gat,60,166,5 script Kafra Express 115,{ + callfunc "F_KafraExpress","Kafra Express","kafra_03",1,"moc_ruins.gat",62,162; +} + +//Sphinx D +moc_fild19.gat,106,97,8 script Kafra Express 115,{ + callfunc "F_KafraExpress","Kafra Express","kafra_03",1,"moc_fild19.gat",107,100; +} + +//Sunken Ship +alb2trea.gat,75,101,5 script Kafra Express 114,{ + callfunc "F_KafraExpress","Kafra Express","kafra_04",1,"alb2trea.gat",87,103; +} + +//Thanatos Tower +tha_t01.gat,155,33,4 script Kafra Express 113,{ + callfunc "F_KafraExpress","Kafra Express","kafra_05",1,"tha_t01.gat",144,33; +} + +//Toy Factory +xmas.gat,138,307,6 script Kafra Express 116,{ + callfunc "F_KafraExpress","Kafra Express","kafra_02",1,"xmas.gat",144,306; +} + +//Turtle Cave Entrance +tur_dun01.gat,147,237,6 script Kafra Express 113,{ + callfunc "F_KafraExpress","Kafra Express","kafra_05",1,"tur_dun01.gat",155,234; +} + +//Turtle Island Entrance +tur_dun01.gat,148,54,6 script Kafra Express 113,{ + callfunc "F_KafraExpress","Kafra Express","kafra_05",1,"tur_dun01.gat",153,47; +} + +//Umbala D +umbala.gat,120,284,3 script Kafra Express 117,{ + callfunc "F_KafraExpress","Kafra Express","kafra_01",1,"umbala.gat",113,282; +} + +//Guild War Kafras: Disabled by Default! + +//Al De Baran Guild Grounds +//alde_gld.gat,156,165,3 script Kafra Express 116,{ +// callfunc "F_KafraExpress","Kafra Express","kafra_02",1,"alde_gld.gat",156,157; +//} + +//Geffen Guild Grounds +//gef_fild13.gat,237,182,6 script Kafra Express 113,{ +// callfunc "F_KafraExpress","Kafra Express","kafra_05",1,"gef_fild13.gat",231,181; +//} + +//Payon Guild Grounds +//pay_gld.gat,243,172,6 script Kafra Express 117,{ +// callfunc "F_KafraExpress","Kafra Express","kafra_01",1,"pay_gld.gat",243,178; +//} + +//Prontera Guild Grounds +//prt_gld.gat,127,163,5 script Kafra Express 115,{ +// callfunc "F_KafraExpress","Kafra Express","kafra_03",1,"prt_gld.gat",129,170; +//} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt new file mode 100644 index 000000000..ab6e52602 --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt @@ -0,0 +1,175 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Bank Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 2.7 +//===== Compatible With: ===================================== +//= eAthena SVN R3524+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Offers banking services with daily interests, and +//= withdrawal/deposit fees. +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//============================================================ + +- script keInit_bank { +OnInit: //Load Config + donpcevent "keConfig::OnLoadBank"; + end; +} + +function script F_keBank { + + function SF_calcInterest; + SF_calcInterest(); + + do { + set @feeD,callfunc("F_keCost",$@kebk_depositCost,100); + set @maxDep,Zeny; + if (@maxDep > $@kebk_maxTransact) + set @maxDep,$@kebk_maxTransact; + if (#ke_bank + @maxDep > $@kebk_capacity) + set @maxDep,$@kebk_capacity-#ke_bank; + + set @feeW,callfunc("F_keCost",$@kebk_withdrawCost,100); + set @maxWith,#ke_bank-(#ke_bank*@feeW/100); + if (@maxWith > $@kebk_maxTransact) + set @maxWith,$@kebk_maxTransact; + + if (#ke_bank < $@kebk_capacity) { + set @kmenu, select( + "- Return (balance is "+#ke_bank+"z)", + "- Deposit (up to "+@maxDep+"z - "+@feeD+"% fee)", + "- Withdraw (up to "+@maxWith+"z + "+@feeW+"% fee)", + "- Transfer from 1st B.o.P. ("+#bankstorage+"z)", + "- Transfer from 2nd B.o.P. ("+#kafrabank+"z)" + ); + } else { + set @kmenu, select( + "- Return (balance is "+#ke_bank+"z)", + "- Withdraw (up to "+@maxWith+"z + "+@feeW+"% fee)", + "- Transfer from 1st B.o.P. ("+#bankstorage+"z)", + "- Transfer from 2nd B.o.P. ("+#kafrabank+"z)" + ); + if (@kmenu > 1) + set @kmenu, @kmenu+1; + } + switch (@kmenu) { + case 2: //Deposit + input @amount; + if (@amount < $@kebk_minTransact) { + callfunc "F_keIntro", -1, "Sorry, the minimum transaction value is "+$@kebk_minTransact+"z."; + break; + } + if (@amount > @maxDep) { + callfunc "F_keIntro", e_an, "You can't deposit that quantity!"; + break; + } + set #ke_bank,#ke_bank+@amount-(@amount*@feeD/100); + if ($@kebk_useGlobalBank) + set $ke_globalbank, $ke_globalbank +@amount*@feeD/100; + set Zeny,Zeny-@amount; + emotion e_cash; + break; + + case 3: //Withdraw + input @amount; + if (@amount < $@kebk_minTransact) { + callfunc "F_keIntro", -1, "Sorry, the minimum transaction value is "+$@kebk_minTransact+"z."; + break; + } + if (@amount > @maxWith) { + callfunc "F_keIntro", e_X, "You can't withdraw that quantity!"; + break; + } + set #ke_bank,#ke_bank-@amount-(@amount*@feeW/100); + if ($@kebk_useGlobalBank) + set $ke_globalbank, $ke_globalbank +@amount*@feeW/100; + set Zeny,Zeny+@amount; + emotion e_oh; + break; + + case 4: //1st B.o.P. + if (#bankstorage==0) { + callfunc "F_keIntro", -1, "Sorry, there is nothing left to transfer."; + break; + } + callfunc "F_keIntro", -1, #bankstorage+"z have been transferred from your account in the First Bank of Prontera."; + set #ke_bank,#ke_bank+#bankstorage; + set #bankstorage,0; + break; + + case 5: //2nd B.o.P. + if (#kafrabank==0) { + callfunc "F_keIntro", -1, "Sorry, there is nothing left to transfer."; + break; + } + callfunc "F_keIntro", -1, #kafrabank+"z have been transferred from your account in the Second Bank of Prontera."; + set #ke_bank,#ke_bank+#kafrabank; + set #kafrabank,0; + break; + } + } while (@kmenu > 1); +return; + +//Subfunction: SF_calcInterest +//Calculates the interests gained on the account. Uses 30-day months +function SF_calcInterest { + set @day,gettime(5); + if (@day>30) + set @day,30; //Use 30 day-months + set @month,gettime(6); + if (#ke_banktick == 0) { //Init bank. + set #ke_banktick,gettime(6)*30+@day; + if ($@kebk_monMaintenance < 1) return; + set #ke_bankmtick,@month; + return; + } + set @banktick,gettime(6)*30+@day; + if (@banktick == #ke_banktick) return; + if (@banktick < #ke_banktick) { //Year change. + do { + set #ke_banktick,#ke_banktick-360; + if ($@kebk_monMaintenance > 0) set #ke_bankmtick,#ke_bankmtick-12; + } while (@banktick < #ke_banktick); + } + if ($@kebk_monMaintenance > 0 && #ke_bankmtick < @month){ //Month change + set @qty,0; + do { + if (#ke_bank < $@kebk_monMaintenance) { + if (@qty>0) + mes "You've been charged "+@qty+"z for account maintenance, but it was not enough."; + if ($@kebk_useGlobalBank) + set $ke_globalbank, $ke_globalbank + @qty; + mes "You owe the Bank "+($@kebk_monMaintenance*(#ke_bankmtick-@month))+"z for maintenance costs. Until paid you won't earn interests..."; + return; + } + set @qty, @qty+$@kebk_monMaintenance; + set #ke_bankmtick,#ke_bankmtick+1; + set #ke_bank, #ke_bank-$@kebk_monMaintenance; + } while (#ke_bankmtick < @month); + mes "You've been charged "+@qty+"z for account maintenance."; + if ($@kebk_useGlobalBank) + set $ke_globalbank, $ke_globalbank + @qty; + } + set @qty,0; + if (#ke_bank > $@kebk_monMaintenance && #ke_bank < $@kebk_capacity) + set @qty,#ke_bank*$@kebk_dayInterest*(@banktick-#ke_banktick)/10000; + set #ke_banktick,@banktick; + if (@qty == 0) return; + if (@qty < 0) { + callfunc "F_keIntro", -1, "Sorry, your gained interests have been cancelled for being way too much."; + return; + } + if (#ke_bank + @qty > $@kebk_capacity) + set #ke_bank, $@kebk_capacity; + else + set #ke_bank,#ke_bank+@qty; + + callfunc "F_keIntro", -1, "Since your last visit, you've earned an interest of "+@qty+"z!"; +} //SF end + +} + diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_broadcast.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_broadcast.txt new file mode 100644 index 000000000..bcbd4a13a --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_broadcast.txt @@ -0,0 +1,224 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Broadcasting Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 3.0 +//===== Compatible With: ===================================== +//= eAthena SVN3424+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Offers broadcasting for party requests, pvp, general +//= and anonymous. Broadcasts can be to the current map +//= or server-wide +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//= For the PVP broadcasts, variables from the Pvp Warping +//= Module are used. +//============================================================ + +- script keInit_broadcast { +OnInit: //Load Config + donpcevent "keConfig::OnLoadBroadcast"; + end; +} + +//Function F_keBroadcast(String currentMapName) +function script F_keBroadcast { + + function SF_calcPrice; + function SF_broadcasts; + function SF_bcPvp; + function SF_doBroadcast; + + if ($@kebc_showOnline) { + set @kmenu, select( + "- Return", + "- Map Broadcasts ("+getarg(0)+"/"+getmapusers(getarg(0))+" "+$@ked_users$+")", + "- Global Broadcasts ("+getusers(1)+" "+$@ked_users$+")" + ); + } else { + set @kmenu, select( + "- Return", + "- Map Broadcasts ("+getarg(0)+")", + "- Global Broadcasts" + ); + } + switch(@kmenu) { + case 2: + SF_calcPrice(0); + set @map$,getarg(0); + SF_broadcasts("Map ("+getarg(0)+")"); + break; + case 3: + SF_calcPrice(1); + set @map$,""; + SF_broadcasts("Global"); + break; + } +return; + +//Sub Function SF_broadcasts: Handles main broadcast menu. +function SF_broadcasts { + + do { + switch (select ( + "- Cancel "+getarg(0)+" Broadcast", + "- Party request Broadcast ("+@partycost+"z)", + "- PvP challenge Broadcast ("+@pvpcost+"z)", + "- General Broadcast ("+@cost+"z)", + "- General Anonymous Broadcast ("+@anoncost+"z)" + )) { + case 2: //Party + SF_doBroadcast $@kebc_partyCost,@map$,"The "+callfunc("GF_getJobName",class)+" "+strcharinfo(0)+" (levels "+baselevel+"/"+joblevel+") is looking for a party to join.",0; + break; + case 3: //Pvp + if ($@kewp_advanced == 0) + SF_bcPvp $@kebc_pvpCost,@map$,0,0; + else { + do { + set @kmenu, select ( + "- Cancel", + "- advertise all levels rooms", + "- advertise levels "+($@kewp_baseLv1-$@kewp_range)+"-"+($@kewp_baseLv1+$@kewp_range)+" rooms", + "- advertise levels "+($@kewp_baseLv2-$@kewp_range)+"-"+($@kewp_baseLv2+$@kewp_range)+" rooms", + "- advertise levels "+($@kewp_baseLv3-$@kewp_range)+"-"+($@kewp_baseLv3+$@kewp_range)+" rooms", + "- advertise levels "+($@kewp_baseLv4-$@kewp_range)+"-"+($@kewp_baseLv4+$@kewp_range)+" rooms", + "- advertise levels "+($@kewp_baseLv5-$@kewp_range)+"-"+($@kewp_baseLv5+$@kewp_range)+" rooms", + "- advertise levels "+($@kewp_baseLv6-$@kewp_range)+"-"+($@kewp_baseLv6+$@kewp_range)+" rooms", + "- advertise levels "+($@kewp_baseLv7-$@kewp_range)+"-"+($@kewp_baseLv7+$@kewp_range)+" rooms" + ); + switch (@kmenu) { + case 2: //All levels + SF_bcPvp $@kebc_pvpCost,@map$,0,0; + break; + case 3: //Lv1 + SF_bcPvp $@kebc_pvpCost,@map$,$@kewp_baseLv1-$@kewp_range,$@kewp_baseLv1+$@kewp_range; + break; + case 4: //Lv2 + SF_bcPvp $@kebc_pvpCost,@map$,$@kewp_baseLv2-$@kewp_range,$@kewp_baseLv2+$@kewp_range; + break; + case 5: //Lv3 + SF_bcPvp $@kebc_pvpCost,@map$,$@kewp_baseLv3-$@kewp_range,$@kewp_baseLv3+$@kewp_range; + break; + case 6: //Lv4 + SF_bcPvp $@kebc_pvpCost,@map$,$@kewp_baseLv4-$@kewp_range,$@kewp_baseLv4+$@kewp_range; + break; + case 7: //Lv5 + SF_bcPvp $@kebc_pvpCost,@map$,$@kewp_baseLv5-$@kewp_range,$@kewp_baseLv5+$@kewp_range; + break; + case 8: //Lv6 + SF_bcPvp $@kebc_pvpCost,@map$,$@kewp_baseLv6-$@kewp_range,$@kewp_baseLv6+$@kewp_range; + break; + case 9: //Lv7 + SF_bcPvp $@kebc_pvpCost,@map$,$@kewp_baseLv7-$@kewp_range,$@kewp_baseLv7+$@kewp_range; + break; + default: + break; + } + } while (@kmenu > 1); + } + break; + case 4: //General + SF_doBroadcast $@kebc_cost,@map$,"(From "+strcharinfo(0)+") ",1; + break; + case 5: //Anonymous + SF_doBroadcast $@kebc_anonCost,@map$,"(Anonymous) ",1; + break; + default: + return; + } + } while (1); +} //SF_ end + +//SubFunction: Calculates prices for Broadcast services (argument 0 == 1 for global bc, 0 for map bc +function SF_calcPrice { + set @partycost,callfunc("F_keCost",$@kebc_partyCost,$@kebc_discount); + set @pvpcost,callfunc("F_keCost",$@kebc_pvpCost,$@kebc_discount); + set @cost,callfunc("F_keCost",$@kebc_cost,$@kebc_discount); + set @anoncost,callfunc("F_keCost",$@kebc_anonCost,$@kebc_discount); + if (getarg(0)) { //Global fix + set @partycost,@partycost*$@kebc_globalFactor/100; + set @pvpcost,@pvpcost*$@kebc_globalFactor/100; + set @cost,@cost*$@kebc_globalFactor/100; + set @anoncost,@anoncost*$@kebc_globalFactor/100; + } +} //SF_ end + +//SubFunction SF_doBroadcast(int cost, String map, String message, int input) +//If map is "", do a global broadcast +//If input is 1, concat a user string to message. +function SF_doBroadcast { + set @cost, getarg(0); + if (getarg(1)=="") + set @cost, @cost*$@kebc_globalFactor/100; + if (getarg(3)) { //Input message + input @msg$; + set @msg$,getarg(2)+@msg$; + } else + set @msg$,getarg(2); + + mes "Broadcast '"+@msg$+"'?"; + switch (select( + "- Cancel Broadcast", + "- Broadcast Message" + )) { + case 2: + if (!(callfunc("F_keCharge",@cost,$@kebc_discount,1))) { + callfunc "F_keIntro", e_pif, "You don't have enough Zeny..."; + return; + } + + callfunc "F_keIntro", e_what, "Broadcasting..."; + if (getarg(1)=="") + announce @msg$,16; + else + mapannounce getarg(1),@msg$,3; + break; + default: + callfunc "F_keIntro", -1, "Ok..."; + } +} //SF_ end + +//SubFunction SF_bcPvp (int cost, String map, int min level, int max level) +//Does the second part of PvP Room Advertising. Level is the level group to +//advertise (1->8 where 8 is free for all) +function SF_bcPvp { + set @msg$, "advertising"; + set @lvls$, ""; + if (getarg(3)) { + if (BaseLevel < getarg(2) || BaseLevel > getarg(3)) { + callfunc "F_keIntro", e_bzz, "You can only broadcast requests for PvP rooms you can enter!"; + return; + } + set @msg$,"levels "+getarg(2)+"-"+getarg(3); + set @lvls$,"(levels "+getarg(2)+"-"+getarg(3)+") "; + } + set @pvpcost,getarg(0); + switch(select( + "- Cancel (PvP Rooms "+@msg$+")", + "- advertise 'Room Sandwich'", + "- advertise 'Room Rock On'", + "- advertise 'Four Room'", + "- advertise 'Room Undercross'", + "- advertise 'Room Compass'" + )) { + case 2: //Sandwich + SF_doBroadcast @pvpcost,@map$,"The "+callfunc("GF_getJobName", class)+" "+strcharinfo(0)+" is looking for PvP challengers "+@lvls$+"in the 'Room Sandwich'!",0; + break; + case 3: //Rockon + SF_doBroadcast @pvpcost,@map$,"The "+callfunc("GF_getJobName", class)+" "+strcharinfo(0)+" is looking for PvP challengers "+@lvls$+"in the 'Room Rock On'!",0; + break; + case 4: //Room Four + SF_doBroadcast @pvpcost,@map$,"The "+callfunc("GF_getJobName", class)+" "+strcharinfo(0)+" is looking for PvP challengers "+@lvls$+"in the 'Four Room'!",0; + break; + case 5: //Undercross + SF_doBroadcast @pvpcost,@map$,"The "+callfunc("GF_getJobName", class)+" "+strcharinfo(0)+" is looking for PvP challengers "+@lvls$+"in the 'Room Undercross'!",0; + break; + case 6: //Compass + SF_doBroadcast @pvpcost,@map$,"The "+callfunc("GF_getJobName", class)+" "+strcharinfo(0)+" is looking for PvP challengers "+@lvls$+"in the 'Room Compass'!",0; + break; + } +} //SF_ end + +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_dye.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_dye.txt new file mode 100644 index 000000000..6841f240e --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_dye.txt @@ -0,0 +1,139 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Stylist Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 1.9 +//===== Compatible With: ===================================== +//= eAthena SVN 3424+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Offers dying of hair, clothes and hair-style adjusts +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//============================================================ + +- script keInit_dye { +OnInit: //Load Config + donpcevent "keConfig::OnLoadDye"; + end; +} + +function script F_keStylist { + + function SF_inputpalette; + function SF_wheelpalette; + + set @jobClass,callfunc("GF_getJobLevel",class); + set @maxCDye,0; + + switch (@jobClass) { + case 0: + set @maxCDye, $@kedy_clothJN; + break; + case 1: + set @maxCDye, $@kedy_clothJ1ST; + break; + case 2: + set @maxCDye, $@kedy_clothJ2ND; + break; + case 3: + set @maxCDye, $@kedy_clothJSN; + break; + case 4: + set @maxCDye, $@kedy_clothJWED; + break; + } + do { + if ($@kedy_enableHairstyle) { + set @kmenu, select( + "- Return", + "- Change hairstyle (current is "+getlook(1)+"/max is "+$@kedy_styles+")", + "- Change hairstyle (by wheel)", + "- Dye hair (current is "+getlook(6)+"/max is "+$@kedy_hair+")", + "- Dye hair (by wheel)", + "- Dye clothes (current is "+getlook(7)+"/max is "+@maxCDye+")", + "- Dye clothes (by wheel)" + ); + } else { + set @kmenu, select( + "- Return", + "- Dye hair (current is "+getlook(6)+"/max is "+$@kedy_hair+")", + "- Dye hair (by wheel)", + "- Dye clothes (current is "+getlook(7)+"/max is "+@maxCDye+")", + "- Dye clothes (by wheel)" + ); + if (@kmenu > 1) + set @kmenu, @kmenu+2; + } + switch (@kmenu) { + case 2: //Hair Style Input + SF_inputpalette 1,$@kedy_styles; + break; + case 3: //Hair Style Wheel + SF_wheelpalette 1,$@kedy_styles; + break; + case 4: //Hair Dye Input + SF_inputpalette 6,$@kedy_hair; + break; + case 5: //Hair Dye Wheel + SF_wheelpalette 6,$@kedy_hair; + break; + case 6: //Clothes Input + SF_inputpalette 7,@maxCDye; + break; + case 7: //Clothes Wheel + SF_wheelpalette 7,@maxCDye ; + break; + } + } while (@kmenu > 1); + return; + +//Subfunction: SF_inputpalette(int part, int maxPalette) +//Sets a palette from the user's request. +function SF_inputpalette { + input @pal; + if (@pal < 0 || @pal > getarg(1)) { + callfunc "F_keIntro", e_swt2, "Sorry, we do not have that dye available."; + return; + } + setlook getarg(0),@pal; + emotion e_lv; +} //SF_ end + +//Subfunction: SF_wheelpalette(int part, int maxPalette) +//Sets a palette through browsing. +function SF_wheelpalette { + set @loc, getarg(0); + set @max, getarg(1); + set @pal, getlook(@loc); + set @dir, 1; + do { + if (@dir > 0) + set @submenu, select( + "Next", + "Previous", + "Done (current is "+@pal+")" + ); + else + set @submenu, select( + "Previous", + "Next", + "Done (current is "+@pal+")" + ); + switch (@submenu) { + case 2: //Swap direction + set @dir, @dir*-1; + case 1: + set @pal, @pal+@dir; + if (@pal < 0) + set @pal, @max; + else if (@pal > @max) + set @pal, 0; + setlook @loc,@pal; + } + } while (@submenu != 3); + emotion e_lv2; +} //SF_ end + +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_jobchange.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_jobchange.txt new file mode 100644 index 000000000..2219d270b --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_jobchange.txt @@ -0,0 +1,533 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Job Changing Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 3.5 +//===== Compatible With: ===================================== +//= eAthena SVN R3579+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Enables job changing through the class trees. +//= Novice -> 1st Class, 1st Class -> 2nd Class, rebirths, etc +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//= When using Upper Job policy, previous jobs are stored in +//= the server wide variables kej_class1 and kej_class2 +//============================================================ + +- script keInit_jobchange { +OnInit: //Load Config + donpcevent "keConfig::OnLoadJobChange"; + end; +} + +function script F_keJobChange { + + function SF_to1stJob; + function SF_to2ndJob; + function SF_getJobNames; + function SF_testChangeJob; + function SF_changeJob; + + set @job, callfunc("GF_getJobLevel", class); + set @upper, Upper; //Because it is changed when rebirthing + set @reset, 0; //Base Level is reset only on rebirths + switch (@job) { + case 0: //Novices + if ($@kejc_skipNovice) + set @jobLv, 0; //jobLv is used again when checking for S.Novice's base level restriction. + else + set @jobLv, 10; + if (SF_testChangeJob(0,0,@jobLv)) + SF_to1stJob(0); + break; + case 1: //First Classes + if (SF_testChangeJob($@kejc_cost2ND,$@kejc_base2ND,$@kejc_job2ND)) + SF_to2ndJob(); + break; + case 2: //Second Classes + if (Upper == 0 && BaseClass != Job_Taekwon) { + if (SF_testChangeJob($@kejc_costRebirth,$@kejc_baseRebirth,$@kejc_jobRebirth)) { + set @upper, 1; + if ($@kejc_skipNovice) + SF_to1stJob(1); + else + SF_changeJob @job,Upper,Job_Novice,1,0,0,$@kejc_costRebirth,1,$@kejc_rebirthReset; + } + break; + } + default: //Dead End + callfunc "F_keIntro", e_swt2, "I cannot change you from your current job."; + break; + } + return; + +//Handles changing to 1st job. +function SF_to1stJob { + do { + set @submenu, 1; + if (@upper == 1 && $@kejc_upperPolicy && kej_class1) { + switch (kej_class1) { + case Job_Acolyte: + set @submenu, 2; + break; + case Job_Archer: + set @submenu, 3; + break; + case Job_Mage: + set @submenu, 4; + break; + case Job_Merchant: + set @submenu, 5; + break; + case Job_Swordman: + set @submenu, 6; + break; + case Job_Thief: + set @submenu, 7; + break; + case Job_Taekwon: + set @submenu, 8; + break; + } + } + if (@submenu == 1) { + SF_getJobNames 8,Job_Acolyte,Job_Archer,Job_Mage,Job_Merchant,Job_Swordman,Job_Thief,Job_Taekwon,Job_SuperNovice; + switch (@upper) { + case 0: //All + set @submenu, select( + "- Cancel job change", + "- "+@name1$, + "- "+@name2$, + "- "+@name3$, + "- "+@name4$, + "- "+@name5$, + "- "+@name6$, + "- "+@name7$, + "- "+@name8$ + ); + break; + case 1: //No Taekwon/S.Novice + set @submenu, select( + "- Cancel job change", + "- "+@name1$, + "- "+@name2$, + "- "+@name3$, + "- "+@name4$, + "- "+@name5$, + "- "+@name6$ + ); + break; + case 2: //No Taekwon + set @submenu, select( + "- Cancel job change", + "- "+@name1$, + "- "+@name2$, + "- "+@name3$, + "- "+@name4$, + "- "+@name5$, + "- "+@name6$, + "- "+@name8$ + ); + if (@submenu == 8) + set @submenu, 9; + break; + } + } + switch (@submenu) { + case 2: //Acolyte + set @newJob,Job_Acolyte; + set @weapon, $@kejc_wAcolyte; + break; + case 3: //Archer + set @newJob,Job_Archer; + set @weapon, $@kejc_wArcher; + break; + case 4: //Mage + set @newJob,Job_Mage; + set @weapon, $@kejc_wMage; + break; + case 5: //Merchant + set @newJob,Job_Merchant; + set @weapon, $@kejc_wMerchant; + break; + case 6: //Swordman + set @newJob,Job_Swordman; + set @weapon, $@kejc_wSwordman; + break; + case 7: //Thief + set @newJob,Job_Thief; + set @weapon, $@kejc_wThief; + break; + case 8: //Taekwon + set @newJob,Job_Taekwon; + set @weapon, $@kejc_wTaekwon; + break; + case 9: //S. Novice + set @newJob,Job_SuperNovice; + set @weapon, $@kejc_wSuperNovice; + if (SF_testChangeJob(0,$@kejc_baseSN,@jobLv) == 0) + return; + break; + } + if (@submenu > 1) { + if (getarg(0)) { //Skipping High Novice, charge rebirth costs. + if (SF_changeJob(@job,Upper,@newJob,1,@weapon,0,$@kejc_costRebirth,2,$@kejc_rebirthReset)) + return; + } else { + if (SF_changeJob(@job,Upper,@newJob,@upper,@weapon,0,0,2,0)) + return; + } + } + } while (@submenu > 1); +} + +function SF_to2ndJob { + do { + set @submenu, 1; + if (@upper == 1 && $@kejc_upperPolicy && kej_class2) { + switch (kej_class2) { + case Job_Priest: + case Job_Hunter: + case Job_Wizard: + case Job_Blacksmith: + case Job_Knight: + case Job_Knight2: + case Job_Assassin: + case Job_Star_Gladiator: + case Job_Star_Gladiator2: + set @submenu, 2; + break; + case Job_Monk: + case Job_Bard: + case Job_Dancer: + case Job_Sage: + case Job_Alchem: + case Job_Crusader: + case Job_Crusader2: + case Job_Rogue: + case Job_Soul_Linker: + set @submenu, 3; + break; + } + } + if (@submenu == 1) { //Fetch from menu. + switch (BaseClass) { + case Job_Acolyte: + SF_getJobNames 2,Job_Priest,Job_Monk; + break; + case Job_Archer: + SF_getJobNames 3,Job_Hunter,Job_Bard,Job_Dancer; + if (sex == 0) + set @name2$, @name3$; + break; + case Job_Mage: + SF_getJobNames 2,Job_Wizard,Job_Sage; + break; + case Job_Merchant: + SF_getJobNames 2,Job_Blacksmith,Job_Alchem; + break; + case Job_Swordman: + SF_getJobNames 2,Job_Knight,Job_Crusader; + break; + case Job_Thief: + SF_getJobNames 2,Job_Assassin,Job_Rogue; + break; + case Job_Taekwon: + SF_getJobNames 2,Job_Star_Gladiator,Job_Soul_Linker; + break; + default: + callfunc "F_keIntro", e_swt2, "I don't know how to change you from your current job."; + return; + } + set @submenu, select( + "- Cancel job change", + "- "+@name1$, + "- "+@name2$ + ); + } + switch (BaseClass) { + case Job_Acolyte: + switch (@submenu) { + case 2: //Priest + set @newJob,Job_Priest; + set @weapon,$@kejc_wPriest; + set @weapon2,$@kejc_w2Priest; + break; + case 3: //Monk + set @newJob,Job_Monk; + set @weapon,$@kejc_wMonk; + set @weapon2,$@kejc_w2Monk; + break; + } + break; + case Job_Archer: + switch (@submenu) { + case 2: //Hunter + set @newJob,Job_Hunter; + set @weapon,$@kejc_wHunter; + set @weapon2,$@kejc_w2Hunter; + break; + case 3: //Bard/Dancer + if (sex == 1) { //Bard + set @newJob,Job_Bard; + set @weapon,$@kejc_wBard; + set @weapon2,$@kejc_w2Bard; + } else { //Dancer + set @newJob,Job_Dancer; + set @weapon,$@kejc_wDancer; + set @weapon2,$@kejc_w2Dancer; + } + break; + } + break; + case Job_Mage: + switch (@submenu) { + case 2: //Wizard + set @newJob,Job_Wizard; + set @weapon,$@kejc_wWizard; + set @weapon2,$@kejc_w2Wizard; + break; + case 3: //Sage + set @newJob,Job_Sage; + set @weapon,$@kejc_wSage; + set @weapon2,$@kejc_w2Sage; + break; + } + break; + case Job_Merchant: + switch (@submenu) { + case 2: //Blacksmith + set @newJob,Job_Blacksmith; + set @weapon,$@kejc_wBlacksmith; + set @weapon2,$@kejc_w2Blacksmith; + break; + case 3: //Alchemist + set @newJob,Job_Alchem; + set @weapon,$@kejc_wAlchemist; + set @weapon2,$@kejc_w2Alchemist; + break; + } + break; + case Job_Swordman: + switch (@submenu) { + case 2: //Knight + set @newJob,Job_Knight; + set @weapon,$@kejc_wKnight; + set @weapon2,$@kejc_w2Knight; + break; + case 3: //Crusader + set @newJob,Job_Crusader; + set @weapon,$@kejc_wCrusader; + set @weapon2,$@kejc_w2Crusader; + break; + default: + mes "uh oh"; + break; + } + break; + case Job_Thief: + switch (@submenu) { + case 2: //Assassin + set @newJob,Job_Assassin; + set @weapon,$@kejc_wAssassin; + set @weapon2,$@kejc_w2Assassin; + break; + case 3: //Rogue + set @newJob,Job_Rogue; + set @weapon,$@kejc_wRogue; + set @weapon2,$@kejc_w2Rogue; + break; + } + break; + case Job_Taekwon: + switch (@submenu) { + case 2: //Star Gladiator + set @newJob,Job_Star_Gladiator; + set @weapon,$@kejc_wStarGladiator; + set @weapon2,$@kejc_w2StarGladiator; + break; + case 3: //Soul Linker + set @newJob,Job_Soul_Linker; + set @weapon,$@kejc_wSoulLinker; + set @weapon2,$@kejc_w2SoulLinker; + break; + } + break; + } + if (@submenu > 1) { + if (SF_changeJob(@job,Upper,@newJob,@upper,@weapon,@weapon2,$@kejc_cost2ND,0,0)) + return; + } + } while (@submenu > 1); +} + +//SubFunction: SF_testChangeJob(Zeny, BaseLv, JobLv) +//Function that checks if the player qualifies for job changing. +function SF_testChangeJob { + set @fail, 0; + if (Zeny < getarg(0)) + set @fail, 1; + if (BaseLevel < getarg(1)) + set @fail, @fail+2; + if (JobLevel < getarg(2)) + set @fail, @fail+4; + if (@fail > 0) { + if (@fail&1) + mes "You need "+getarg(0)+"z for the conversion process."; + if (@fail&2) + mes "You need to be at least Lv "+getarg(1)+"."; + if (@fail&4) + mes "You need at least job Lv "+getarg(2)+"."; + callfunc "F_keIntro", e_pif, "Sorry, you don't qualify for a job change yet."; + return 0; + } + + if (SkillPoint > 0 && $@kejc_skillsPolicy == 0) { + callfunc "F_keIntro", e_dots, "Sorry, use your remaining Skill points before being able to change class."; + return 0; + } + return 1; +} + +//SubFunction: SF_changeJob (CurrentJobLv, CurrentJobType, NewJobBase, NewJobType +//Weapon, Weapon2, Zeny, WipeSkills, ResetLv) +//Attempts to change to the Jobgiven. +//CurrentJobLv is 0-3 (novice, 1st class, 2nd class, s.novice) +//Type is 0-2 (Normal, Advanced Class, Baby) +//Weapon is the ID of the weapon to grant +//Weapon2 is the alternative weapon granted when your job level is above $@kejc_wBonusLv +//Zeny is the money required (if negative, it is money awarded) +//WipeSkills if 1, indicates that skills should be wiped, +//if 2, it means basic skills have to be given back +//Reset Level indicates the base lv must be reset to 1. +//Note: Zeny/Base/Job requirements should had been checked with SF_testChangeJob already! +function SF_changeJob { + set @newjob,getarg(2); + set @newtype,getarg(3); + set @weapon,getarg(4); + set @weapon2,getarg(5); + set @cost,getarg(6); + set @wipeSkill,getarg(7); + set @resetLv,getarg(8); + + set @jobStr$, callfunc("GF_getJobName2",@newjob, @newtype); + if (@wipeSkill == 0 && SkillPoint > 0 && $@kejc_skillsPolicy == 1) { + set @selection, select( + "- Do not change yet", + "- Change to "+@jobStr$+" (skill points lost)", + "- View details" + ); + } else { + set @selection, select( + "- Cancel", + "- Change to "+@jobStr$, + "- View details" + ); + } + switch (@selection) { + case 3: //Details + mes "Okay.. listen up:"; + next; + mes "["+@name$+"]"; + mes "Changing to "+@jobStr$+" now means:"; + if (@wipeSkill == 0 && SkillPoint > 0 && $@kejc_skillsPolicy == 1) + mes "- You will lose your "+SkillPoint+" unused skill points."; + else if (@wipeSkill == 1) + mes "- You will lose all your skills."; + if (@resetLv) + mes "- Your base level will be reset to 1."; + if (@cost > 0) + mes "- You will be charged "+@cost+"z."; + else if (@cost < 0) + mes "- You will be aided with "+(0-@cost)+"z."; + if (@weapon > 0) { + if (@weapon2 > 0 && $@kejc_wBonusLv) { + if (JobLevel < $@kejc_wBonusLv) { + mes "- You will receive a "+getitemname(@weapon)+"["+getitemslots(@weapon)+"]."; + mes "- If you wait until Job Lv"+$@kejc_wBonusLv+", you can receive instead a "+getitemname(@weapon2)+"["+getitemslots(@weapon)+"]."; + } else { + mes "- You will receive a "+getitemname(@weapon2)+"["+getitemslots(@weapon)+"] for reaching Job Lv"+$@kejc_wBonusLv+"."; + } + } else + mes "- You will receive a "+getitemname(@weapon)+"."; + } + mes "So... will you change?"; + if (select( + "- Cancel", + "- Change to "+@jobStr$ + ) != 2) { + callfunc "F_keIntro", e_dots, "...alright."; + return 0; + } + callfunc "F_keIntro", -1, "Enjoy your new Job."; + case 2: //Change + //Set/Unset job path variables as needed. + if($@kejc_upperPolicy) { + set @class,getarg(0); + set @type, getarg(1); + if(@class == 1 && @type == 0) + set kej_class1,class; //Advancing to second class, so... + if(@class == 2) + set kej_class2,class; //Only way of being here is by doing a rebirth + if(@type > 0) + set kej_class1,0; //Clear when one is a high class + if(@type > 0 && @class == 1) + set kej_class2,0; //Clear when leaving high 1st class + } + if (@resetLv) { + jobchange Job_Novice_High; //Done to give players those 100 points from High classes + resetlvl(1); + } + if (@wipeSkill) { + resetskill; + setoption(0); + set SkillPoint,0; + } else if ($@kejc_skillsPolicy == 1) + set SkillPoint,0; + if (@wipeSkill>1) + skill 1,9,0; + if($@kejc_resetDye) + setlook 7,0; + jobchange @newjob, @newtype; + if ($@kejc_announce) + announce strcharinfo(0)+" has been promoted to "+@jobStr$+"!",8; + set Zeny,Zeny-@cost; + if ($@kejc_weaponPolicy && @weapon > 0) { + if ($@kejc_wBonusLv && @weapon2 > 0) { + if (JobLevel < $@kejc_wBonusLv) + getitem @weapon,1; + else + getitem @weapon2,1; + } else + getitem @weapon,1; + } + emotion e_grat; + return 1; + default: //Cancel... + callfunc "F_keIntro", e_dots, "...alright."; + return 0; + } +} +//SubFunction: SF_getJobNames(Qty, Jobid1, Jobid2,...) +//Workaround until eA gets a fix for the bug where you can't use callfunc or +//callsub within a menu +function SF_getJobNames { + switch (getarg(0)) { + case 8: + set @name8$, callfunc("GF_getJobName2",getarg(8),@upper); + set @name7$, callfunc("GF_getJobName2",getarg(7),@upper); + set @name6$, callfunc("GF_getJobName2",getarg(6),@upper); + set @name5$, callfunc("GF_getJobName2",getarg(5),@upper); + set @name4$, callfunc("GF_getJobName2",getarg(4),@upper); + case 3: + set @name3$, callfunc("GF_getJobName2",getarg(3),@upper); + case 2: + set @name2$, callfunc("GF_getJobName2",getarg(2),@upper); + set @name1$, callfunc("GF_getJobName2",getarg(1),@upper); + } + return; +} + +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_jobswap.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_jobswap.txt new file mode 100644 index 000000000..ee2d7b79f --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_jobswap.txt @@ -0,0 +1,409 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Job Swapping Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 3.1 +//===== Compatible With: ===================================== +//= eAthena SVN R3424+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Enables job changing among classes of the same 'type' +//= (ie among 1st classes, or among 2nd classes) +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//= * The previous Job, when enabled, is stored in: +//= kej_prev_job (job id) +//= kej_prev_joblv (job level) +//= kej_prev_skills (skill count) +//= kej_prev_dye (cloth dye) +//============================================================ + +- script keInit_jobSwap { +OnInit: //Load Config + donpcevent "keConfig::OnLoadJobSwap"; + end; +} + +function script F_keJobSwap { + +function SF_canRevert; +function SF_canSwitch; +function SF_revertJob; +function SF_switch; +function SF_calcSwapCost; +function SF_testSwap; +function SF_swapJob; +function SF_getJobNames; + + set @thisLevel, callfunc("GF_getJobLevel", Class); + + set @prevId, kej_prev_job; + set @prevLv, kej_prev_joblv; + set @prevLevel, 0; + set @prevType, 0; + + if ($@kejs_revertPolicy && @prevId && @prevLv) { + set @prevLevel, callfunc("GF_getJobLevel", @prevId); + set @prevType, callfunc("GF_getJobType", @prevId); + } + + if (SF_canRevert()) + { //Qualifies for Reverting + do { + set @revertmenu, select( + "- Return", + "- Return to previous class", + "- Change into another class" + ); + switch (@revertmenu) { + case 2: //Revert + if (SF_revertJob()) + return; + break; + case 3: //Switch + if (SF_switch() == 0) + return; + break; + } + } while (@revertmenu > 1); + return; + } + if (SF_canSwitch()) + { + SF_switch(); + return; + } + + callfunc "F_keIntro", e_swt2, "There are no available jobs of your level."; + return; + +//SubFunction SF_canRevert, specifies if the character can revert to previous job. +function SF_canRevert { + if ($@kejs_revertPolicy == 0 || @prevId == 0 || (Upper == 2 && @prevType != 2)) + return 0; + if((@thisLevel == @prevLevel && Upper == @prevType) || $@kejs_revertPolicy == 2) + return 1; + if ($@kejs_SNpolicy && @prevType == Upper && ((@prevLevel == 3 && @thisLevel == 1) || (@prevLevel == 1 && @thisLevel == 3))) + return 1; + return 0; +} + +//SubFunction SF_canSwitch, specifies if character can change to another job. +function SF_canSwitch { + if (@thisLevel == 3) + return $@kejs_SNpolicy; + if (@thisLevel == 1 || @thisLevel == 2) + return 1; + return 0; +} + +//Sub Function SF_switch. Presents the switch job menu. Returns 1 only if the +//menu was left by picking "Cancel". +function SF_switch { + switch (@thisLevel) { + case 1: + case 3: //First Classes + set @cost, SF_calcSwapCost($@kejs_job1ST, $@kejs_cost1ST, $@kejs_discount1ST); + set @preserve, $@kejs_preserve1ST; + if (SF_testSwap($@kejs_job1ST, @cost)) { + do { + if ($@kejs_SNpolicy && Upper != 1) { //S. Novice Menu + SF_getJobNames 7,Job_Acolyte,Job_Archer,Job_Mage,Job_Merchant,Job_Swordman,Job_Thief,Job_SuperNovice; + set @kmenu, select( + "- Cancel job swap", + "- "+@name1$,"- "+@name2$,"- "+@name3$,"- "+@name4$,"- "+@name5$,"- "+@name6$,"- "+@name7$ + ); + } else { + SF_getJobNames 6,Job_Acolyte,Job_Archer,Job_Mage,Job_Merchant,Job_Swordman,Job_Thief; + set @kmenu, select( + "- Cancel job swap", + "- "+@name1$,"- "+@name2$,"- "+@name3$,"- "+@name4$,"- "+@name5$,"- "+@name6$ + ); + } + switch (@kmenu) { + case 2: //Acolyte + if (SF_swapJob(callfunc("GF_getJobId", Job_Acolyte, Upper),@cost,@preserve)) + return 0; + break; + case 3: //Archer + if (SF_swapJob(callfunc("GF_getJobId", Job_Archer, Upper),@cost,@preserve)) + return 0; + break; + case 4: //Mage + if (SF_swapJob(callfunc("GF_getJobId", Job_Mage, Upper),@cost,@preserve)) + return 0; + break; + case 5: //Merchant + if (SF_swapJob(callfunc("GF_getJobId", Job_Merchant, Upper),@cost,@preserve)) + return 0; + break; + case 6: //Swordman + if (SF_swapJob(callfunc("GF_getJobId", Job_Swordman, Upper),@cost,@preserve)) + return 0; + break; + case 7: //Thief + if (SF_swapJob(callfunc("GF_getJobId", Job_Thief, Upper),@cost,@preserve)) + return 0; + break; + case 8: //S. Novice + if (SF_swapJob(callfunc("GF_getJobId", Job_SuperNovice, Upper),@cost,@preserve)) + return 0; + break; + } + } while (@kmenu > 1); + return 1; + } + break; + + case 2: //Second Classes + set @cost, SF_calcSwapCost($@kejs_job2ND, $@kejs_cost2ND, $@kejs_discount2ND); + set @preserve, $@kejs_preserve2ND; + if (SF_testSwap($@kejs_job2ND, @cost)) { + do { + if (sex == 1) { + SF_getJobNames 12,Job_Alchem,Job_Assassin,Job_Bard,Job_Blacksmith,Job_Crusader,Job_Hunter,Job_Knight,Job_Monk,Job_Priest,Job_Rogue,Job_Sage,Job_Wizard; + set @kmenu, select( + "- Cancel job change", + "- "+@name1$,"- "+@name2$,"- "+@name3$,"- "+@name4$,"- "+@name5$,"- "+@name6$, + "- "+@name7$,"- "+@name8$,"- "+@name9$,"- "+@name10$,"- "+@name11$,"- "+@name12$ + ); + if (@kmenu >= 7) //Dancer should be at pos 7. + set @kmenu, @kmenu+1; + } else { + SF_getJobNames 12,Job_Alchem,Job_Assassin,Job_Blacksmith,Job_Crusader,Job_Dancer,Job_Hunter,Job_Knight,Job_Monk,Job_Priest,Job_Rogue,Job_Sage,Job_Wizard; + set @kmenu, select( + "- Cancel job change", + "- "+@name1$,"- "+@name2$,"- "+@name3$,"- "+@name4$,"- "+@name5$,"- "+@name6$, + "- "+@name7$,"- "+@name8$,"- "+@name9$,"- "+@name10$,"- "+@name11$,"- "+@name12$ + ); + if (@kmenu >= 4) //Bard should be at pos 4. + set @kmenu, @kmenu+1; + } + switch (@kmenu) + { + case 2: //ALCHEMIST + if (SF_swapJob(callfunc("GF_getJobId", Job_Alchem, Upper),@cost,@preserve) == 0) + return 0; + break; + case 3: //ASSASSIN + if (SF_swapJob(callfunc("GF_getJobId", Job_Assassin, Upper),@cost,@preserve) == 0) + return 0; + break; + case 4: //BARD + if (SF_swapJob(callfunc("GF_getJobId", Job_Bard, Upper),@cost,@preserve) == 0) + return 0; + break; + case 5: //BLACKSMITH + if (SF_swapJob(callfunc("GF_getJobId", Job_Blacksmith, Upper),@cost,@preserve) == 0) + return 0; + break; + case 6: //CRUSADER + if (SF_swapJob(callfunc("GF_getJobId", Job_Crusader, Upper),@cost,@preserve) == 0) + return 0; + break; + case 7: //DANCER + if (SF_swapJob(callfunc("GF_getJobId", Job_Dancer, Upper),@cost,@preserve) == 0) + return 0; + break; + case 8: //HUNTER + if (SF_swapJob(callfunc("GF_getJobId", Job_Hunter, Upper),@cost,@preserve) == 0) + return 0; + break; + case 9: //KNIGHT + if (SF_swapJob(callfunc("GF_getJobId", Job_Knight, Upper),@cost,@preserve) == 0) + return 0; + break; + case 10: //MONK + if (SF_swapJob(callfunc("GF_getJobId", Job_Monk, Upper),@cost,@preserve) == 0) + return 0; + break; + case 11: //PRIEST + if (SF_swapJob(callfunc("GF_getJobId", Job_Priest, Upper),@cost,@preserve) == 0) + return 0; + break; + case 12: //ROGUE + if (SF_swapJob(callfunc("GF_getJobId", Job_Rogue, Upper),@cost,@preserve) == 0) + return 0; + break; + case 13: //SAGE + if (SF_swapJob(callfunc("GF_getJobId", Job_Sage, Upper),@cost,@preserve) == 0) + return 0; + break; + case 14: //WIZARD + if (SF_swapJob(callfunc("GF_getJobId", Job_Wizard, Upper),@cost,@preserve) == 0) + return 0; + break; + } + } while (@kmenu > 1); + return 1; + } + } + return 0; +} + +//SubFunction: SF_calcSwapCost (MinJob, BaseCost, Discount) +//Calculates cost to swap jobs +function SF_calcSwapCost { + set @cost, getarg(1); + set @cost, @cost - @cost*getarg(2)*(JobLevel-getarg(0))/100; + if (@cost < 0) + set @cost,0; //Free Change + return @cost; +} + +//SubFunction: SF_testSwap(MinJobLv, Cost) +//Checks if the player qualifies for job changing. +function SF_testSwap { + if (JobLevel < getarg(0)) { + callfunc "F_keIntro", e_dots, "You need to be at least Job Lv "+getarg(0)+" before exchanging."; + return 0; + } + + set @cost, callfunc("F_keCost",getarg(1),$@kejs_swapDiscount); + if (Zeny < @cost) { + callfunc "F_keIntro", e_dots, "You need "+@cost+"z to be able to change."; + return 0; + } + return 1; +} + +//SubFunction: SF_swapJob (JobNumber, Zeny, PreserveRate) +//Attempts to swap to the Jobgiven. +//Zeny is the money cost +//Preserve is how much of the previous job to preserve. +function SF_swapJob { + set @newjobId, getarg(0); + set @cost, callfunc("F_keCost",getarg(1),$@kejs_swapDiscount); + set @preserve, getarg(2); + + if (Class == @newjobId) { + callfunc "F_keIntro", e_meh, "Um... you are already that class!"; + return 0; + } + + set @newJob$, callfunc("GF_getJobName",@newjobId); + set @oldJob$, callfunc("GF_getJobName",Class); + set @newjoblv, JobLevel*@preserve/100; + + if (@newjoblv > 1) { + if (select("- Cancel", "- Change to a Lv"+@newjoblv+" "+@newJob$+" ("+@cost+"z)") != 2) + return 0; + } else { + set @newjoblv,1; + if (select("- Cancel", "- Change to "+@newJob$+" ("+@cost+"z)") != 2) + return 0; + } + + set @basic, getSkilllv(1); + set @thisJoblevel, JobLevel; + resetSkill; + //Set previous job as needed. + if ($@kejs_revertPolicy) { + set kej_prev_job, Class; + set kej_prev_joblv, @thisJoblevel; + set kej_prev_skills, SkillPoint; + } + if ($@kejs_announce) + announce strcharinfo(0)+" has changed from "+@oldJob$+" to "+@newJob$+"...",16; + + if ($@kejs_resetDye) + setlook 7,0; + jobchange @newjobId, 0; + skill 1,@basic,0; + set SkillPoint, SkillPoint-@thisJoblevel+1-@basic; + + set JobLevel, @newjoblv; + setoption(0); + callfunc "F_keCharge",getarg(2),$@kejs_swapDiscount,1; + + emotion e_ok; + return 1; +} + +//SubFunction: SF_revertJob (cost) +//Reverts to the previous job. +function SF_revertJob { + if (Class == kej_prev_job) { + callfunc "F_keIntro", e_no, "Hmm... You can't go back, because your previous class is the same as your current one??"; + return 0; + } + set @newjob$, callfunc ("GF_getJobName",kej_prev_job); + + set @cost,callfunc("F_keCost",$@kejs_revertCost,$@kejs_revertDiscount); + + if (select("- Cancel","- Return to a Lv"+kej_prev_joblv+" "+@newjob$+" ("+@cost+"z)") != 2) + return 0; + + if (!(callfunc("F_keCharge",$@kejs_revertCost,$@kejs_revertDiscount,1))) { + callfunc "F_keIntro", -1, "Sorry, you need "+@cost+"z before you can revert to a Lv"+kej_prev_joblv+" "+@newjob$+"."; + return 0; + } + set @thisJobId, Class; + set @thisJobLv, JobLevel; + + set @basic, getSkilllv(1); + resetSkill; + set @skill, SkillPoint; + if($@kejs_saveDye) { + set @prevDye, getlook(7); + setlook 7,0; + } + if ($@kejs_resetDye) + setlook 7,0; + jobchange kej_prev_job, 0; + if($@kejs_saveDye) { + setlook 7,kej_prev_dye; + set kej_prev_dye,@prevDye; + } + set JobLevel, kej_prev_joblv; + set SkillPoint, kej_prev_skills; + + skill 1, @basic, 0; + set SkillPoint, SkillPoint-@basic; + + set kej_prev_job, @thisJobId; + set kej_prev_joblv, @thisJobLv; + set kej_prev_skills, @skill; + setoption(0); + + if ($@kejs_announce) + announce strcharinfo(0)+" has changed from "+callfunc ("GF_getJobName",@thisJobId)+" to "+@newjob$+"...",16; + return 1; +} + +//SubFunction: SF_getJobNames(Qty, Jobid1, Jobid2,...) +//Workaround until eA gets a fix for the bug where you can't use callfunc or +//callsub within a menu +function SF_getJobNames { + switch (getarg(0)) { + case 12: + set @name12$, callfunc("GF_getJobName2",getarg(12),Upper); + case 11: + set @name11$, callfunc("GF_getJobName2",getarg(11),Upper); + case 10: + set @name10$, callfunc("GF_getJobName2",getarg(10),Upper); + case 9: + set @name9$, callfunc("GF_getJobName2",getarg(9),Upper); + case 8: + set @name8$, callfunc("GF_getJobName2",getarg(8),Upper); + case 7: + set @name7$, callfunc("GF_getJobName2",getarg(7),Upper); + case 6: + set @name6$, callfunc("GF_getJobName2",getarg(6),Upper); + case 5: + set @name5$, callfunc("GF_getJobName2",getarg(5),Upper); + case 4: + set @name4$, callfunc("GF_getJobName2",getarg(4),Upper); + case 3: + set @name3$, callfunc("GF_getJobName2",getarg(3),Upper); + case 2: + set @name2$, callfunc("GF_getJobName2",getarg(2),Upper); + case 1: + set @name1$, callfunc("GF_getJobName2",getarg(1),Upper); + default: + return; + } +} + +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_main.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_main.txt new file mode 100644 index 000000000..f5d1e0ef2 --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_main.txt @@ -0,0 +1,405 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Main Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 5.4 +//===== Compatible With: ===================================== +//= eAthena SVN R3424+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= This module contains the main menu, plus the healing and +//= storage services. +//===== Additional Comments: ================================= +//= See +//= for indepth explanation of the Kafra Express Script Package. +//= Services available: comment/uncomment what you want (lines 37-104) +//= See config.txt for per-module configuration. +//============================================================ + +// F_KafraExpress (String "Kafra's name", String "kafra image file", +//int location (0 = Town Kafra, 1 = Dungeon Kafra, 2 = Both), +//String "save map", int save x, int save y) +function script F_KafraExpress { + set @name$,getarg(0); + set @ke_type,getarg(2); + if ($@kekp_reset) + set @kafraPass,0; + if (getarg(1) != "") + cutin getarg(1),2; + callfunc "F_keIntro",-1,""; + +M_INIT: + set @discount, callfunc("F_keCost",1,100); + + if (@ke_type == 1) goto MD_INIT; + menu + "- Leave",L_END, + "- Heal Service ("+($@keh_hpCost*@discount)+"z/10HP - "+($@keh_spCost*@discount)+"z/10SP)",L_HEAL, + "- Warp Service",M_WARP, + "- Use Storage ("+($@kes_cost*@discount)+"z)",L_STORAGE, + "- Use Guild Storage ("+($@kegs_cost*@discount)+"z)",L_GUILD_STORAGE, + "- Job Services",M_JOB, + "- Other Services",M_OTHER, + "- Save Respawn point",L_SAVE; + +MD_INIT: + menu + "- Leave",L_END, + "- Heal Service ("+($@keh_hpCost*@discount)+"z/10HP - "+($@keh_spCost*@discount)+"z/10SP)",L_HEAL, + "- Warp Service",M_WARP, + "- Use Storage ("+($@kes_cost*@discount)+"z)",L_STORAGE, + "- Use Guild Storage ("+($@kegs_cost*@discount)+"z)",L_GUILD_STORAGE, + "- Job Services",M_JOB, + "- Other Services",M_OTHER, + "- Save Respawn point",L_SAVE; + +M_WARP: + if (@ke_type == 3 && nif_q_done != 1) + goto L_DENIED; + if (@ke_type == 1) + goto MD_WARP; + menu + "- Return",M_INIT, + "- Dungeons",L_DUNGEON, + "- PvP Arena",L_PVP, + "- Guild Wars",L_GUILD_DUNGEON, + "- Towns",L_TOWN; + +MD_WARP: + menu + "- Return",M_INIT, + "- Dungeons",L_DUNGEON, + "- PvP Arena",L_PVP, + "- Guild Wars",L_GUILD_DUNGEON, + "- Towns",L_TOWN; + +M_JOB: + if (@ke_type == 1) goto MD_JOB; + menu + "- Return", M_INIT, + "- Change Job",L_JOB_CHANGE, + "- Swap Job",L_JOB_SWAP, + "- Stat/Skill Services",L_STATS, + "- Stat/Skill Market",L_STAT_MARKET, + "- Rental Service",L_RENT; + +MD_JOB: + menu + "- Return", M_INIT, + "- Change Job",L_JOB_CHANGE, + "- Swap Job",L_JOB_SWAP, + "- Stat/Skill Services",L_STATS, + "- Stat/Skill Market",L_STAT_MARKET, + "- Rental Service",L_RENT; + +M_OTHER: + if (@ke_type == 1) goto MD_OTHER; + menu + "- Return",M_INIT, + "- Bank Services",L_BANK, + "- Use Kafra Shop",L_SHOP, + "- Broadcast a message",L_BROADCAST, + "- Refine Services",L_REFINE, + "- Uncard Services",L_UNCARD, + "- Stylist Service",L_STYLE, + "- Use a Kafra Pass",L_PASS; + +MD_OTHER: + menu + "- Return",M_INIT, + "- Bank Services",L_BANK, + "- Use Kafra Shop",L_SHOP, + "- Broadcast a message",L_BROADCAST, + "- Refine Services",L_REFINE, + "- Uncard Services",L_UNCARD, + "- Stylist Service",L_STYLE, + "- Use a Kafra Pass",L_PASS; + +L_HEAL: + callfunc "F_keHeal"; + goto M_INIT; + +L_TOWN: + callfunc "F_keWarpTown"; + goto M_WARP; + +L_DUNGEON: + callfunc "F_keDungeonWarps", getarg(3); + goto M_WARP; + +L_GUILD_DUNGEON: + callfunc "F_keWarpWOE"; + goto M_WARP; + +L_PVP: + callfunc "F_keWarpPvp"; + goto M_WARP; + +L_STORAGE: + callfunc "F_keStorage", getarg(1); + goto M_INIT; + +L_GUILD_STORAGE: + callfunc "F_keGuildStorage", getarg(1); + goto M_INIT; + +L_BANK: + callfunc "F_keBank"; + goto M_OTHER; + +L_SHOP: + callfunc "F_keShop",@ke_type, getarg(1); + goto M_OTHER; + +L_BROADCAST: + callfunc "F_keBroadcast",getarg(3); + goto M_OTHER; + +L_PASS: + callfunc "F_kePass"; + goto M_OTHER; + +L_REFINE: + callfunc "F_keRefine"; + goto M_OTHER; + +L_UNCARD: + callfunc "F_keUncard"; + goto M_OTHER; + +L_STYLE: + callfunc "F_keStylist"; + goto M_OTHER; + +L_JOB_CHANGE: + callfunc "F_keJobChange"; + goto M_JOB; + +L_JOB_SWAP: + callfunc "F_keJobSwap"; + goto M_JOB; + +L_STATS: + callfunc "F_keStats"; + goto M_JOB; + +L_STAT_MARKET: + callfunc "F_keStatMarket"; + goto M_JOB; + +L_RENT: + callfunc "F_keRent"; + goto M_JOB; + +L_SAVE: + if (@ke_type == 3 && nif_q_done != 1) + goto L_DENIED; + if ($@kewt_travel && @ke_type != 1) { + callfunc "F_keAddTravelTown", getarg(3); + } + if ($@kewd_travel && @ke_type != 0) { + callfunc "F_keAddTravelDungeon", getarg(3); + } + if ($@ke_saveOnSpot) { + getmapxy @map$,@x,@y,0; + savepoint @map$,@x,@y; + } else { + savepoint getarg(3),getarg(4),getarg(5); + } + emotion e_scissors; + goto M_INIT; + +L_DENIED: + callfunc "F_keIntro", e_gg, "...no."; + goto M_INIT; + +L_END: + mes "Thank you for using Kafra Services."; + close2; + cutin getarg(1), 255; + end; +} + +//Function F_keIntro (emotion, message) +//Displays a message followed by an emotion, then a next button, and finally +//shows the intro message. +function script F_keIntro { + if (getarg(0) >= 0) + emotion getarg(0); + if (getarg(1) != "") { + mes getarg(1); + next; + } + mes "["+@name$+"]"; + mes "Welcome to Kafra Corp. Always by your side, wherever you go."; + if(@kafraPass) mes "Your Kafra Pass is active,"; + mes "How may I be of help?"; + return; +} + +//Function Heal, offers the heal subsystem. +function script F_keHeal { + set @qtyHP,MaxHp-Hp; + set @qtySP,MaxSp-Sp; + set @costHP, $@keh_hpCost*(MaxHp-Hp)/10; + set @costSP, $@keh_spCost*(MaxSp-Sp)/10; + set @costHPSP, @costHP+@costSP; + set @discount, callfunc("F_keCost",1,100); + + if (@qtyHP + @qtySP == 0) { + callfunc "F_keIntro", -1, "...you don't need to be healed."; + return; + } + if (@qtyHP == 0) goto M_NO_HP; + if (@qtySP == 0) goto M_NO_SP; + menu "- Cancel",-, + "- Heal HP ("+(@costHP*@discount)+"z)",L_HEAL_HP, + "- Heal SP ("+(@costSP*@discount)+"z)",L_HEAL_SP, + "- Heal Both ("+(@costHPSP*@discount)+"z)",L_HEAL_ALL; + return; + +M_NO_HP: + menu "- Cancel",-, + "- Heal SP ("+(@costSP*@discount)+"z)",L_HEAL_SP; + return; + +M_NO_SP: + menu "- Cancel",-, + "- Heal HP ("+(@costHP*@discount)+"z)",L_HEAL_HP; + return; + +L_HEAL_HP: + if (!(callfunc("F_keCharge",@costHP,100,0))) { + callfunc "F_keIntro", e_sry, "Sorry, you don't have enough to be healed."; + return; + } + emotion e_no1; + heal @qtyHP,0; + return; + +L_HEAL_SP: + if (!(callfunc("F_keCharge",@costSP,100,0))) { + callfunc "F_keIntro", e_sry, "Sorry, you don't have enough to be healed."; + return; + } + emotion e_no1; + heal 0,@qtySP; + return; + +L_HEAL_ALL: + if (!(callfunc("F_keCharge",@costHPSP,100,0))) { + callfunc "F_keIntro", e_sry, "Sorry, you don't have enough to be healed."; + return; + } + emotion e_no1; + heal @qtyHP,@qtySP; + return; +} + +//Function storage: allows access to the storage facility +//The sent argument is the displaying image, so we can clear it afterwards. +function script F_keStorage { + if(basicskillcheck(0) > 0 && getskilllv(1) < 6) { + callfunc "F_keIntro", -1, "I am sorry, but you beed basic skill level 6 to use the storage."; + return; + } + if (!(callfunc("F_keCharge",$@kes_cost,100,1))) { + callfunc "F_keIntro", e_an, "Sorry, but you don't have enough Zeny."; + return; + } + mes "Thank for you using Kafra services."; + emotion e_thx; + close2; + openstorage; + cutin getarg(0), 255; + end; +} + +//Function G Storage: Allows access to the Guild Storage +function script F_keGuildStorage { + if(basicskillcheck(0) > 0 && getskilllv(1) < 6) { + callfunc "F_keIntro", -1, "I am sorry, but you beed basic skill level 6 to use the storage."; + return; + } + if(getcharid(2) < 1) { + callfunc "F_keIntro", e_swt, "You can't use the Guild Storage if you don't belong to a guild!"; + return; + } + if (callfunc("F_keCost",$@kegs_cost,100) > Zeny) { + callfunc "F_keIntro", e_an, "Sorry, but you don't have enough Zeny."; + return; + } + if (guildopenstorage(0) == 1) { + callfunc "F_keIntro", -1, "Sorry, the guild storage is currently in use by someone else. Try again later."; + return; + } + callfunc "F_keCharge",$@kegs_cost,100,1; + mes "Thank for you using Kafra services."; + emotion e_thx; + close2; + cutin getarg(0), 255; + end; +} + +function script F_kePass { + if (@kafraPass) { + callfunc "F_keIntro", -1, "You already are using a Kafra Pass..."; + return; + } + if (countitem(1084)<1) { + callfunc "F_keIntro", -1, "You obviously need a 'Kafra Pass' if you want to activate it."; + return; + } + delitem 1084,1; + set @kafraPass,1; + callfunc "F_keIntro", e_lv, "Your Kafra Pass has been activated."; + return; +} + +//F_keCost(int cost, int discount%) +//Returns what would be the cost of a service considering the KafraPass. +//The discount value should be between 0 and 100 +function script F_keCost { + if (@kafraPass) { + return getarg(0)*(100-getarg(1))/100; + } + return getarg(0); +} + +//F_keCharge(int cost, int discount%, bool appliesKP) +//Charges for a service, using the KafraPass state and discount value. +//appliesKP marks if the cost savings apply for stocking Kafra Reserve Points +//Function returns 1 if successful, 0 if there's not enough zeny. +function script F_keCharge { + set @savings, 0; + if (@kafraPass) + set @savings, getarg(0)*getarg(1)/100; + set @cost, getarg(0)-@savings; + if (@cost > Zeny || @cost < 0) { // (@cost < 0) for overflow protection + return 0; + } + set Zeny, Zeny-@cost; + + if (getarg(2) && @savings > 0 && $@kekp_reserveCost > 0) { + set @savings, @savings/$@kekp_reserveCost; + if (@savings < $@kekp_minReserve) + set @savings, $@kekp_minReserve; + if (@savings > $@kekp_maxReserve) + set @savings, $@kekp_maxReserve; + + set RESRVPTS, RESRVPTS + @savings; + } + return 1; +} + +//Function F_keWarp (int cost, int discount, int emotion, String map, int x, int y) +function script F_keWarp { + if (!(callfunc("F_keCharge",getarg(0),getarg(1),1))) { + callfunc "F_keIntro", e_an, "You don't have enough Zeny..."; + return; + } + emotion getarg(2); + warp getarg(3),getarg(4),getarg(5); + end; +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_refine.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_refine.txt new file mode 100644 index 000000000..420d12b63 --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_refine.txt @@ -0,0 +1,339 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Refining Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 2.7 +//===== Compatible With: ===================================== +//= eAthena SVN R3424+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Does item forging, ore purifying and repairing. +//= Can also sell phracon/emveretarcon +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//============================================================ + +- script keInit_refine { +OnInit: //Load Config + donpcevent "keConfig::OnLoadRefine"; + end; +} + +function script F_keRefine { + +function SF_refine; +function SF_repair; +function SF_purify; +function SF_sellOres; + + do { + set @kmenu, select( + "- Return", + "- Refine Equipment", + "- Repair Equipment", + "- Buy Ores", + "- Purify Ores", + ); + switch(@kmenu) { + case 2: //Refine + SF_refine(); + break; + case 3: //Repair + SF_repair(); + break; + case 4: //Buy Ore + SF_sellOres(); + break; + case 5: //Purify Ore + SF_purify(); + break; + } + } while (@kmenu > 1); + return; + +//Subfunction SF_refine, presents the refining menu. +function SF_refine { + do { + set @part, select( + "- Cancel upgrading", + "- "+getequipname(1), + "- "+getequipname(2), + "- "+getequipname(3), + "- "+getequipname(4), + "- "+getequipname(5), + "- "+getequipname(6), + "- "+getequipname(7), + "- "+getequipname(8), + "- "+getequipname(9), + "- "+getequipname(10) + ); + set @part, @part-1; + if (@part == 0) + break; + if (getequipisequiped(@part) == 0) { + callfunc "F_keIntro", e_swt, "There is nothing to refine there..."; + } else + if(getequipisenableref(@part) == 0 && $@kerf_refineAll == 0) { + callfunc "F_keIntro", -1, "Sorry, this item cannot be refined."; + } else + if(getequiprefinerycnt(@part) >= $@kerf_maxLv) { + callfunc "F_keIntro", -1, "This item cannot be refined further."; + break; + } else { + switch (getequipweaponlv(@part)) + { + case 0: //Armor + set @mat,985; + set @cost,$@kerf_armorCost; + break; + case 1: + set @mat,1010; + set @cost,$@kerf_weaponLv1Cost; + break; + case 2: + set @mat,1011; + set @cost,$@kerf_weaponLv2Cost; + break; + case 3: + set @mat,984; + set @cost,$@kerf_weaponLv3Cost; + break; + default: + set @mat,984; + set @cost,$@kerf_weaponLv4Cost; + break; + } + set @cost, callfunc("F_keCost",@cost,$@kerf_discount); + do { + if ($@kerf_safe==0 && getequippercentrefinery(@part) < 100) { + if ($@kerf_showChance) { + if (select( + "- Return ("+(100-getequippercentrefinery(@part))+"% chance refine will fail)", + "- Refine (Need "+getitemname(@mat)+" and "+@cost+"z)") != 2) + break; + } else { + if (select( + "- Return (Upgrade not safe, item might break!)", + "- Refine (Need "+getitemname(@mat)+" and "+@cost+"z)") != 2) + break; + } + } else { + if (select( + "- Refine (Need "+getitemname(@mat)+" and "+@cost+"z)", + "- Cancel") != 1) + break; + } + if (getequiprefinerycnt(@part) >= $@kerf_maxLv) { + callfunc "F_keIntro", e_ok, "This item has reached it's maximum level."; + break; + } + if (countitem(@mat) < 1) { + callfunc "F_keIntro", e_ag, "Sorry, you don't have the materials I need."; + break; + } + if (!(callfunc("F_keCharge",@cost,$@kerf_discount,1))) { + callfunc "F_keIntro", e_ag, "Sorry, you don't have enough zeny."; + break; + } + delitem @mat,1; + if ($@kerf_safe || getequippercentrefinery(@part)>rand(100)) { + successrefitem @part; + emotion e_rock; + } else { + failedrefitem @part; + callfunc "F_keIntro", e_swt, "...sorry."; + break; + } + } while (1); + } + } while (@part > 0); + return; +} + +//Subfunction: SF_repair() +function SF_repair { + set @cost,callfunc("F_keCost",$@kerf_repairCost,$@kerf_repairDiscount); + do { + set @broken1,getbrokenid(1); + if(@broken1==NULL) { + callfunc "F_keIntro", -1, "You don't need anything repaired for now."; + return; + } + set @broken2,getbrokenid(2); + set @broken3,getbrokenid(3); + set @broken4,getbrokenid(4); + set @broken5,getbrokenid(5); + set @broken6,getbrokenid(6); + set @broken7,getbrokenid(7); + set @broken8,getbrokenid(8); + set @broken9,getbrokenid(9); + set @broken10,getbrokenid(10); + + if ($@kerf_repairSteel) + set @str$,"- Cancel (Repairing costs "+@cost+"z and 1 "+getitemname(999); + else + set @str$,"- Cancel (Repairing costs "+@cost+"z)"; + + set @idRepair, select( + @str$, + getitemname(@broken1), + getitemname(@broken2), + getitemname(@broken3), + getitemname(@broken4), + getitemname(@broken5), + getitemname(@broken6), + getitemname(@broken7), + getitemname(@broken8), + getitemname(@broken9), + getitemname(@broken10) + ); + set @idRepair, @idRepair-1; + if (@idRepair == 0) break; + if ($@kerf_repairSteel && countitem(999) < 1) { + callfunc "F_keIntro", e_ag, "Sorry, you don't have the materials I need."; + return; + } + if (!(callfunc("F_keCharge", $@kerf_repairCost, $@kerf_repairDiscount,1))) { + callfunc "F_keIntro", e_ag, "Sorry, you don't have enough zeny."; + return; + } + if ($@kerf_repairSteel) delitem 999,1; + repair(@idRepair); + emotion e_lv2; + } while (@idRepair > 0); +} + +//Subfunction: SF_purify() +function SF_purify { + if ($@kerf_purifyAll) { + set @submenu, select ( + "- Return", + "- Purify "+getitemname(984)+" (need 5 "+getitemname(756)+")", + "- Purify "+getitemname(985)+" (need 5 "+getitemname(757)+")", + "- Purify "+getitemname(998)+" (need 2 "+getitemname(1002)+")", + "- Temper "+getitemname(999)+" (need 5 "+getitemname(998)+", 1 "+getitemname(1003)+")", + "- Temper "+getitemname(994)+" (need 10 "+getitemname(990)+")", + "- Temper "+getitemname(995)+" (need 10 "+getitemname(991)+")", + "- Temper "+getitemname(996)+" (need 10 "+getitemname(992)+")", + "- Temper "+getitemname(997)+" (need 10 "+getitemname(993)+")", + "- Temper "+getitemname(1000)+" (need 10 "+getitemname(1001)+")" + ); + } else { + set @submenu, select( + "- Return", + "- Purify "+getitemname(984)+" (need 5 "+getitemname(756)+")", + "- Purify "+getitemname(985)+" (need 5 "+getitemname(757)+")" + ); + } + switch (@submenu) { + case 2: //Oridecon + set @item, 984; + set @rough, 756; + set @qty, 5; + break; + case 3: //Elunium + set @item, 985; + set @rough, 757; + set @qty, 5; + break; + case 4: //Iron + set @item, 998; + set @rough, 1002; + set @qty, 2; + break; + case 5: //Steel + set @item,999; + set @rough,998; + set @qty,5; + set @rough2,1003; + set @qty2,1; + + set @count,countitem(@rough1); + set @count2,countitem(@rough2); + if (@count < @qty || @count2 < @qty2) { + callfunc "F_keIntro", e_ag, "Sorry, you don't have the materials I need."; + return; + } + set @count, @count/@qty; + set @count2, @count2/@qty2; + if (@count2 < @count) + set @count,@count2; + delitem @rough2,@qty2*@count; + break; + case 6: //Fire + set @item, 994; + set @rough, 990; + set @qty, 10; + break; + case 7: //Ice + set @item, 995; + set @rough, 991; + set @qty, 10; + break; + case 8: //Wind + set @item, 996; + set @rough, 992; + set @qty, 10; + break; + case 9: //Earth + set @item, 997; + set @rough, 993; + set @qty, 10; + break; + case 10: //Star + set @item, 1000; + set @rough, 1001; + set @qty, 10; + break; + default: + return; + } + set @count,countitem(@rough); + if (@count < @qty) { + callfunc "F_keIntro", e_ag, "Sorry, you don't have the materials I need."; + return; + } + set @count, @count/@qty; + delitem @rough,@qty*@count; + getitem @item,@count; + emotion e_paper; +} + +//Subfunction: SF_sellOres() +function SF_sellOres { + do { + set @submenu, select( + "- Return", + "- Buy "+getitemname(1010)+" (200z each)", + "- Buy "+getitemname(1011)+" (1000z each)" + ); + switch (@submenu) { + case 2: //Phracon + set @mat, 1010; + set @cost, 200; + break; + case 3: //Emveratarcon + set @mat, 1011; + set @cost, 1000; + break; + default: + return; + } + input @qty; + set @cost,@cost*@qty; + if (@qty < 1) { + callfunc "F_keIntro", e_pif, "That is NOT a valid quantity..."; + } else if (@cost > Zeny) { + callfunc "F_keIntro", e_ag, "Sorry, you don't have enough zeny."; + } else if (@cost < 0) { + callfunc "F_keIntro", e_swt2, "Sorry, that's too much! Try buying less..."; + } else { + set Zeny,Zeny-@cost; + getitem @mat,@qty; + emotion e_paper; + } + } while (@submenu > 1); +} + +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_rent.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_rent.txt new file mode 100644 index 000000000..b2edbba4e --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_rent.txt @@ -0,0 +1,81 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Rental Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 1.8 +//===== Compatible With: ===================================== +//= eAthena SVN R3424+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Rents PecoPecos, Falcons, Carts +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//============================================================ + +- script keInit_rent { +OnInit: //Load Config + donpcevent "keConfig::OnLoadRent"; + end; +} + +function script F_keRent { + set @cartCost,callfunc("F_keCost",$@kert_cartCost,100); + if(@kert_cartOnly) { + set @kmenu, 2; + } else { + set @falconCost,callfunc("F_keCost",$@kert_falconCost,100); + set @pecoCost,callfunc("F_keCost",$@kert_pecoCost,100); + set @kmenu, select ( + "- Cancel", + "- Rent a Cart ("+@cartCost+"z)", + "- Rent a Falcon ("+@falconCost+"z)", + "- Rent a PecoPeco ("+@pecoCost+"z)" + ); + } + switch (@kmenu) { + case 2: //Cart + if (getskilllv(39)==0) { + callfunc "F_keIntro", -1, "Sorry, only those with the skill 'Pushcart' may rent a Cart."; + } else + if (checkcart()) { + callfunc "F_keIntro", -1, "You are already equipped."; + } else + if (!(callfunc("F_keCharge",$@kert_cartCost,100,1))) { + callfunc "F_keIntro", e_an, "Sorry, but you don't have enough Zeny."; + } else { + setcart; + emotion e_ok; + } + break; + case 3: //Falcon + if (getskilllv(127)==0) { + callfunc "F_keIntro", -1, "Sorry, only those with the skill 'Falcon Taming' may rent a Falcon."; + } else + if (checkfalcon()) { + callfunc "F_keIntro", -1, "You are already equipped."; + } else + if (!(callfunc("F_keCharge",$@kert_falconCost,100,1))) { + callfunc "F_keIntro", e_an, "Sorry, but you don't have enough Zeny."; + } else { + setfalcon; + emotion e_ok; + } + break; + case 4: //pecopeco + if (getskilllv(63)==0) { + callfunc "F_keIntro", -1, "Sorry, only those with the skill 'PecoPeco Riding' may rent a PecoPeco."; + } else + if (checkriding()) { + callfunc "F_keIntro", -1, "You are already equipped."; + } else + if (!(callfunc("F_keCharge",$@kert_pecoCost,100,1))) { + callfunc "F_keIntro", e_an, "Sorry, but you don't have enough Zeny."; + } else { + setriding; + emotion e_ok; + } + break; + } + return; +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_shop.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_shop.txt new file mode 100644 index 000000000..b8fdf9f66 --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_shop.txt @@ -0,0 +1,66 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Portable Shop Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 0.1 +//===== Compatible With: ===================================== +//= eAthena SVN R5195+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Offers buying/selling shop. +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//============================================================ + +- script keInit_shop { +OnInit: //Load Config + donpcevent "keConfig::OnLoadShop"; + end; +} + +//Sample shops, adjust as needed! +- shop ke_townshop -,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,645:-1,656:-1,657:-1 +- shop ke_dunshop -,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1 + +function script F_keShop { + + if (getarg(0) == 0) { //Town shop + set @type, $@kesh_towntype; + set @shop$, $@kesh_townshop$; + } else { + set @type, $@kesh_duntype; + set @shop$, $@kesh_dunshop$; + } + + switch (@type) { + case 1: + set @kmenu, select( + "- Return", + "- Buy items" + ); + break; + case 2: + set @kmenu, select( + "- Return", + "- Sell items" + ); + if (@kmenu > 1) + set @kmenu,3; + break; + default: + set @kmenu, select( + "- Return", + "- Buy items", + "- Sell items" + ); + break; + } + if (@kmenu == 1) + return; + mes "Thank you for using Kafra Services."; + close2; + cutin getarg(1), 255; + callshop @shop$, @kmenu-1; + end; +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_statmarket.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_statmarket.txt new file mode 100644 index 000000000..c29c59559 --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_statmarket.txt @@ -0,0 +1,128 @@ +//===== eAthena Script ======================================= +//= Kafra Expres - Stat/Skill Market Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 2.0 +//===== Compatible With: ===================================== +//= eAthena SVN R3579+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Lets players buy/sell skill points/stat points +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//============================================================ + +- script keInit_statmarket { +OnInit: //Load Config + donpcevent "keConfig::OnLoadStatMarket"; + end; +} + +function script F_keStatMarket { + set @discount,callfunc("F_keCost",100,$@kesm_discount); + do { + set @kmenu, select ( + "- Return", + "- Buy Stat points ("+($@kesm_stBuyPrice*@discount/100)+"z each)", + "- Sell Stat points (up to "+StatusPoint+"/"+$@kesm_stSellPrice+"z each)", + "- Buy Skill points ("+($@kesm_skBuyPrice*@discount/100)+"z each)", + "- Sell Skill points (up to "+SkillPoint+"/"+$@kesm_skSellPrice+"z each)", + "- Trade Stats -> Skill ("+$@kesm_skTradePrice+" stats/skill)", + "- Trade Skills -> Stats ("+$@kesm_stTradePrice+" stats/skill)" + ); + if (@kmenu > 1) + input @qty; + switch (@kmenu) { + case 2: //Buy Stat + set @min, 1; + set @max, 9999; + set @cost, @qty*$@kesm_stBuyPrice; + break; + case 3: //Sell Stat + input @qty; + set @min, 1; + set @max, StatusPoint; + set @cost, @qty*$@kesm_stSellPrice; + break; + case 4: //Buy Skill + set @min, 1; + set @max, 9999; + set @cost, @qty*$@kesm_skBuyPrice; + break; + case 5: //Sell Skill + set @min, 1; + set @max, SkillPoint; + set @cost, @qty*$@kesm_skSellPrice; + break; + case 6: //Convert stats -> skills + set @min, $@kesm_skTradePrice; + set @max, StatusPoint; + set @cost, @qty/$@kesm_skTradePrice; + break; + case 7: //Convert skills -> stats + set @min, 1; + set @max, SkillPoint; + set @cost, @qty*$@kesm_stTradePrice; + break; + default: + return; + } + if (@qty < @min) { + if (@min == 1) + callfunc "F_keIntro", e_dots, "Was that supposed to be funny?"; + else + callfunc "F_keIntro", e_dots, "That is not enough to buy a single skill..."; + } else + if (@qty > @max) { + if (@max == 9999) + callfunc "F_keIntro", e_X, "You can't buy that much!"; + else + callfunc "F_keIntro", e_X, "You don't have that many to sell..."; + } else + if (@cost < 0) { + callfunc "F_keIntro", e_swt2, "That is too much for a single transaction! Try a smaller quantity... please?"; + } else { + switch(@kmenu) { + case 2: //Buy Stat + if (!(callfunc("F_keCharge",@cost,$@kesm_discount,1))) { + callfunc "F_keIntro", e_X, "You do not have enough zeny to buy that much."; + break; + } + set StatusPoint,StatusPoint+@qty; + emotion e_oh; + break; + case 3: //Sell Stat + set StatusPoint,StatusPoint-@qty; + set Zeny,Zeny+@cost; + emotion e_oh; + break; + case 4: //Buy Skill + if (!(callfunc("F_keCharge",@cost,$@kesm_discount,1))) { + callfunc "F_keIntro", e_X, "You do not have enough zeny to buy that much."; + break; + } + set SkillPoint,SkillPoint+@qty; + emotion e_oh; + break; + case 5: //Sell Skill + set SkillPoint,SkillPoint-@qty; + set Zeny,Zeny+@cost; + emotion e_oh; + break; + case 6: //Convert stats -> skills + set @qty, @cost*$@kesm_skTradePrice; + set StatusPoint,StatusPoint-@qty; + set SkillPoint,SkillPoint+@cost; + emotion e_oh; + break; + case 7: //Convert skills -> stats + set SkillPoint,SkillPoint-@qty; + set StatusPoint,StatusPoint+@cost; + emotion e_oh; + break; + } + } + } while (@kmenu > 1); + return; +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_stats.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_stats.txt new file mode 100644 index 000000000..1b83fdd79 --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_stats.txt @@ -0,0 +1,130 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Stat/Reset Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 2.2 +//===== Compatible With: ===================================== +//= eAthena SVN R3424+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Offers stat raising and Stat/Reset skills +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//============================================================ + +- script keInit_stats { +OnInit: //Load Config + donpcevent "keConfig::OnLoadStats"; + end; +} + +function script F_keStats { + + function SF_statRaise; + + set @discount,callfunc("F_keCost",100,$@kest_discount); + do { + set @kmenu, select( + "- Return", + "- Raise Stats", + "- Reset Stats ("+$@kest_stResetCost+"z+"+$@kest_BaseLvCost+"/blv)", + "- Reset Skills ("+$@kest_skResetCost+"z+"+$@kest_JobLvCost+"/jlv)", + "- Reset Both ("+$@kest_resetCost+"z+"+$@kest_BothLvCost+"/lv)" + ); + switch (@kmenu) { + case 2: //Stat raising + SF_statRaise(); + set @cost, 0; + set @reset, 0; + break; + case 3: //Reset Stat + set @cost, $@kest_stResetCost+BaseLevel*$@kest_BaseLvCost; + set @reset, 1; + break; + case 4: //Reset Skills + set @cost, $@kest_skResetCost+(JobLevel+jobchange_level)*$@kest_JobLvCost; + set @reset, 2; + break; + case 5: //Reset Both + set @cost, $@kest_resetCost+(BaseLevel+JobLevel+jobchange_level)*$@kest_BothLvCost; + set @reset, 3; + break; + default: //Cancel + set @cost, 0; + set @reset, 0; + break; + } + if (@reset > 0) { + if (select("- Cancel","- Reset for "+(@cost*@discount/100)+"z") == 2) { + if (!(callfunc("F_keCharge",@cost,$@kest_discount,1))) { + callfunc "F_keIntro", e_an, "Sorry, you don't have enough Zeny."; + } else { + if (@reset&1) + ResetStatus; + if (@reset&2) { + if ($@kest_resetBasic) + ResetSkill; + else { + set @skill1,getskilllv(1); + ResetSkill; + skill 1,@skill1,0; + set SkillPoint,SkillPoint-@skill1; + } + } + emotion e_hmm; + } + } + } + } while (@kmenu > 1); + return; + +function SF_statRaise { + do { + set @submenu, select( + "- Return", + "- Raise Strength", + "- Raise Agility", + "- Raise Vitality", + "- Raise Intelligence", + "- Raise Dexterity", + "- Raise Luck" + ); + switch (@submenu) { + case 2: + set @stat,bStr; + break; + case 3: + set @stat,bAgi; + break; + case 4: + set @stat,bVit; + break; + case 5: + set @stat,bInt; + break; + case 6: + set @stat,bDex; + break; + case 7: + set @stat,bLuk; + break; + default: + return; + } + input @qty; + if (@qty <1) { + callfunc "F_keIntro", e_swt, "I don't lower stats, try resetting them."; + } else if (@qty >100) { + callfunc "F_keIntro", e_swt2, "Sorry... I can only raise stats up to 100 at a time."; + } else { + do { + statusup @stat; + set @qty,@qty-1; + } while (@qty > 0); + emotion e_ok; + } + } while (@submenu > 1); +} + +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_uncard.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_uncard.txt new file mode 100644 index 000000000..00132e9da --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_uncard.txt @@ -0,0 +1,165 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Uncarder Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 1.5 +//===== Compatible With: ===================================== +//= eAthena SVN R3424+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Offers uncarding services. +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//============================================================ + +- script keInit_uncard { +OnInit: //Load Config + donpcevent "keConfig::OnLoadUncard"; + end; +} + +function script F_keUncard { + +function SF_uncard; + + do { + set @kmenu, select( + "- Return", + "- See Price Specifics", + "- "+getequipname(1), + "- "+getequipname(2), + "- "+getequipname(3), + "- "+getequipname(4), + "- "+getequipname(5), + "- "+getequipname(6), + "- "+getequipname(7), + "- "+getequipname(8), + "- "+getequipname(9), + "- "+getequipname(10) + ); + if (@kmenu == 1) + return; + if (@kmenu == 2) { //Details + mes "Okay, listen up..."; + next; + mes "["+@name$+"]"; + if ($@keuc_BaseCost) + mes "The base cost is of "+$@keuc_BaseCost+"z."; + mes "Each card to be removed incurs a cost of +"+$@keuc_CardCost+"z."; + mes "The refine level of the compounded equipment can incur an additional cost:"; + mes "Armors: "+$@keuc_UpgradeCostA+"z per level."; + mes "Lv1 Weapons: "+$@keuc_UpgradeCostW1+"z per level."; + mes "Lv2 Weapons: "+$@keuc_UpgradeCostW2+"z per level."; + mes "Lv3 Weapons: "+$@keuc_UpgradeCostW3+"z per level."; + mes "Lv4 Weapons: "+$@keuc_UpgradeCostW4+"z per level."; + + if ($@keuc_Mat1 && $@keuc_Qty1) { + mes "The materials needed are:"; + mes "- "+$@keuc_Qty1+" "+getitemname($@keuc_Mat1)+"."; + } + if ($@keuc_Mat2 && $@keuc_Qty2) + mes "- "+$@keuc_Qty2+" "+getitemname($@keuc_Mat2)+"."; + + if ($@keuc_Fail1Chance || $@keuc_Fail2Chance) + mes "There is a chance the process might fail and you'll lose your items."; + + next; + callfunc "F_keIntro", -1, ""; + } else { + if (SF_uncard(@kmenu-2)) + return; + } + } while (@kmenu >1); + return; + +//Subfunction SF_uncard (equipment-position) +//Attempts to uncard the equipment. +function SF_uncard { + set @part, getarg(0); + if(getequipcardcnt(@part) == 0) { + callfunc "F_keIntro", e_ag, "There are no cards to remove there!"; + return 0; + } + set @cost, $@keuc_BaseCost; + set @cost, @cost + $@keuc_CardCost*getequipcardcnt(@part); + + switch (getequipweaponlv(@part)) { + case 0: //Armor + set @upgradeCost, $@keuc_UpgradeCostA; + break; + case 1: //Lv1 Weapons + set @upgradeCost, $@keuc_UpgradeCostW1; + break; + case 2: //Lv2 Weapons + set @upgradeCost, $@keuc_UpgradeCostW2; + break; + case 3: //Lv3 Weapons + set @upgradeCost, $@keuc_UpgradeCostW3; + break; + default: //Lv4 Weapons + set @upgradeCost, $@keuc_UpgradeCostW4; + } + + set @cost, @cost + @upgradeCost*getequiprefinerycnt(@part); + + set @price, callfunc("F_keCost",@cost,$@keuc_discount); + + if ($@keuc_Fail1Chance) { + set @failsave, select( + "- Cancel", + "- Remove cards ("+@price+"z, item gets priority)", + "- Remove cards ("+@price+"z, cards get priority)", + ); + } else { + set @failsave, select( + "- Cancel", + "- Remove cards ("+@price+"z)" + ); + } + if (@failsave == 1) + return 0; + set @failsave, @failsave-1; //1: Save item, 2: Save Card + + if (($@keuc_Mat1 && countitem($@keuc_Mat1) < $@keuc_Qty1) + || ($@keuc_Mat2 && countitem($@keuc_Mat2) < $@keuc_Qty2)) { + callfunc "F_keIntro", e_pif, "You do not have all the materials I need..."; + return 0; + } + + if (!(callfunc("F_keCharge",@cost,$@keuc_discount,1))) { + callfunc "F_keIntro", e_ag, "Sorry, you don't have enough zeny."; + return 0; + } + + if ($@keuc_Mat1 && $@keuc_Qty1) + delitem $@keuc_Mat1, $@keuc_Qty1; + if ($@keuc_Mat2 && $@keuc_Qty2) + delitem $@keuc_Mat2, $@keuc_Qty2; + + set @failtype,-1; + //Recycling cost... + set @cost, rand(1000); + if (@cost < $@keuc_Fail2Chance) //Total Failure + set @failtype, 0; + else if (@cost < $@keuc_Fail1Chance) //Partial Failure + set @failtype, @failsave; + else if (@cost < $@keuc_Fail0Chance) //Harmless Failure + set @failtype, 3; + else { //Success + successremovecards @part; + emotion e_ho; + return 1; + } + failedremovecards @part,@failtype; + if (@failtype == 1) + mes "The cards were lost..."; + if (@failtype == 2) + mes "The item was lost..."; + if (@failtype == 0) + mes "Lost the cards and item..."; + callfunc "F_keIntro", e_swt, "...oops."; + return 1; +} + +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_dungeon.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_dungeon.txt new file mode 100644 index 000000000..aeafec4da --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_dungeon.txt @@ -0,0 +1,1508 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Dungeon Warps Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 3.1 +//===== Compatible With: ===================================== +//= eAthena SVN R3424+, RO Episode 8+ (LightHalzen) +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Offers warping to dungeons. +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//============================================================ + +- script keInit_warpDungeon { +OnInit: //Load Config + donpcevent "keConfig::OnLoadWarpDungeon"; + end; +} + +function script F_keDungeonWarps { + +function SF_abyssLake; +function SF_amatsu; +function SF_antHell; +function SF_ayothaya; +function SF_byalan; +function SF_comodo; +function SF_clockTower; +function SF_coalMine; +function SF_culvert; +function SF_einbech; +function SF_gefenia; +function SF_geffen; +function SF_glastHeim; +function SF_gonRyun; +function SF_hiddenTemple; +function SF_juperos; +function SF_lightHalzen; +function SF_louYang; +function SF_magma; +function SF_orcs; +function SF_payon; +function SF_pyramid; +function SF_sphinx; +function SF_sunkenShip; +function SF_thanatosTower; +function SF_toyFactory; +function SF_turtleIsland; +function SF_umbala; + + do { + set @discount,callfunc("F_keCost",100,$@kewd_discount); + if ($@kewd_showOnline) { + set @kmenu, select ( + "- Cancel", + "- Abyss Lake ("+$@kewd_abyssLake*@discount/100+"z/"+(getmapusers("abyss_01.gat") + +getmapusers("abyss_02.gat")+getmapusers("abyss_03.gat"))+" "+$@ked_users$+")", + "- Amatsu Dungeon ("+$@kewd_amatsu*@discount/100+"z/"+(getmapusers("ama_dun01.gat") + +getmapusers("ama_dun02.gat")+getmapusers("ama_dun03.gat"))+" "+$@ked_users$+")", + "- Ant Hell ("+$@kewd_antHell*@discount/100+"z/"+(getmapusers("anthell01.gat") + +getmapusers("anthell02.gat"))+" "+$@ked_users$+")", + "- Ayothaya Ancient Shrine ("+$@kewd_ayothaya*@discount/100+"z/"+(getmapusers("ayo_dun01.gat") + +getmapusers("ayo_dun02.gat"))+" "+$@ked_users$+")", + "- Byalan Dungeon ("+$@kewd_byalan*@discount/100+"z/"+(getmapusers("iz_dun00.gat") + +getmapusers("iz_dun01.gat")+getmapusers("iz_dun02.gat")+getmapusers("iz_dun03.gat") + +getmapusers("iz_dun04.gat"))+" "+$@ked_users$+")", + "- Comodo Caves ("+$@kewd_comodo*@discount/100+"z/"+(getmapusers("beach_dun.gat") + +getmapusers("beach_dun2.gat")+getmapusers("beach_dun3.gat"))+" "+$@ked_users$+")", + "- Clock Tower ("+$@kewd_clockTower*@discount/100+"z/"+(getmapusers("c_tower1.gat") + +getmapusers("c_tower2.gat")+getmapusers("c_tower3.gat")+getmapusers("c_tower4.gat") + +getmapusers("alde_dun01.gat")+getmapusers("alde_dun02.gat")+getmapusers("alde_dun03.gat") + +getmapusers("alde_dun04.gat"))+" "+$@ked_users$+")", + "- Coal Mine ("+$@kewd_coalMines*@discount/100+"z/"+(getmapusers("mjo_dun01.gat") + +getmapusers("mjo_dun02.gat")+getmapusers("mjo_dun03.gat"))+" "+$@ked_users$+")", + "- Culvert ("+$@kewd_culvert*@discount/100+"z/"+(getmapusers("prt_sewb1.gat")+getmapusers("prt_sewb2.gat") + +getmapusers("prt_sewb3.gat")+getmapusers("prt_sewb4.gat"))+" "+$@ked_users$+")", + "- Einbroch Station ("+$@kewd_einbech*@discount/100+"z/"+(getmapusers("ein_dun01.gat") + +getmapusers("ein_dun02.gat"))+" "+$@ked_users$+")", + "- Gefenia ("+$@kewd_gefenia*@discount/100+"z/"+(getmapusers("gefenia01.gat")+getmapusers("gefenia02.gat") + +getmapusers("gefenia03.gat")+getmapusers("gefenia04.gat"))+" "+$@ked_users$+")", + "- Geffen Dungeon ("+$@kewd_geffen*@discount/100+"z/"+(getmapusers("gef_dun00.gat") + +getmapusers("gef_dun01.gat")+getmapusers("gef_dun02.gat")+getmapusers("gef_dun03.gat"))+" "+$@ked_users$+")", + "- Glast Heim ("+$@kewd_glastHeim*@discount/100+"z/"+(getmapusers("gl_cas02.gat")+getmapusers("gl_church.gat") + +getmapusers("gl_chyard.gat")+getmapusers("gl_dun01.gat")+getmapusers("gl_dun02.gat") + +getmapusers("gl_in01.gat")+getmapusers("gl_knt01.gat")+getmapusers("gl_knt02.gat") + +getmapusers("gl_prison.gat")+getmapusers("gl_prison1.gat")+getmapusers("gl_sew01.gat") + +getmapusers("gl_sew02.gat")+getmapusers("gl_sew03.gat")+getmapusers("gl_sew04.gat") + +getmapusers("gl_step.gat")+getmapusers("glast_01.gat"))+" "+$@ked_users$+")", + "- Gon Ryun Dungeon ("+$@kewd_gonRyun*@discount/100+"z/"+(getmapusers("gon_dun01.gat") + +getmapusers("gon_dun02.gat")+getmapusers("gon_dun03.gat"))+" "+$@ked_users$+")", + "- Hidden Temple ("+$@kewd_hiddenTemple*@discount/100+"z/"+(getmapusers("prt_maze01.gat") + +getmapusers("prt_maze02.gat")+getmapusers("prt_maze03.gat"))+" "+$@ked_users$+")", + "- Juperos ("+$@kewd_juperos*@discount/100+"z/"+(getmapusers("juperos_01.gat")+getmapusers("juperos_02.gat") + +getmapusers("jupe_area1.gat")+getmapusers("jupe_area2.gat")+getmapusers("jupe_core.gat") + +getmapusers("jupe_gate.gat")+getmapusers("jupe_area1.gat"))+" "+$@ked_users$+")", + "- LightHalzen Rekkenber ("+$@kewd_lightHalzen*@discount/100+"z/"+(getmapusers("lhz_dun01.gat") + +getmapusers("lhz_dun02.gat")+getmapusers("lhz_dun03.gat"))+" "+$@ked_users$+")", + "- Lou Yang Royal Tomb ("+$@kewd_louYang*@discount/100+"z/"+(getmapusers("lou_dun01.gat") + +getmapusers("lou_dun02.gat")+getmapusers("lou_dun03.gat"))+" "+$@ked_users$+")", + "- Magma Dungeon ("+$@kewd_magma*@discount/100+"z/"+(getmapusers("mag_dun01.gat") + +getmapusers("mag_dun02.gat"))+" "+$@ked_users$+")", + "- Orc Dungeon ("+$@kewd_orc*@discount/100+"z/"+(getmapusers("orcsdun01.gat") + +getmapusers("orcsdun02.gat"))+" "+$@ked_users$+")", + "- Payon Dungeon ("+$@kewd_payon*@discount/100+"z/"+(getmapusers("pay_dun00.gat") + +getmapusers("pay_dun01.gat")+getmapusers("pay_dun02.gat")+getmapusers("pay_dun03.gat") + +getmapusers("pay_dun04.gat"))+" "+$@ked_users$+")", + "- Pyramid ("+$@kewd_pyramid*@discount/100+"z/"+(getmapusers("moc_pryd01.gat")+getmapusers("moc_pryd02.gat") + +getmapusers("moc_pryd03.gat")+getmapusers("moc_pryd04.gat")+getmapusers("moc_pryd05.gat") + +getmapusers("moc_pryd06.gat")+getmapusers("moc_prydb1.gat"))+" "+$@ked_users$+")", + "- Sphinx ("+$@kewd_sphinx*@discount/100+"z/"+(getmapusers("in_sphinx1.gat") + +getmapusers("in_sphinx2.gat")+getmapusers("in_sphinx3.gat")+getmapusers("in_sphinx4.gat") + +getmapusers("in_sphinx5.gat"))+" "+$@ked_users$+")", + "- Sunken Ship ("+$@kewd_sunkenShip*@discount/100+"z/"+(getmapusers("treasure01.gat") + +getmapusers("treasure02.gat"))+" "+$@ked_users$+")", + "- Thanatos Tower ("+$@kewd_thanatosTower*@discount/100+"z/"+(getmapusers("tha_t01.gat") + +getmapusers("tha_t02.gat")+getmapusers("tha_t03.gat")+getmapusers("tha_t04.gat") + +getmapusers("tha_t05.gat")+getmapusers("tha_t06.gat")+getmapusers("tha_t07.gat") + +getmapusers("tha_t08.gat")+getmapusers("tha_t09.gat")+getmapusers("tha_t10.gat") + +getmapusers("tha_t11.gat")+getmapusers("tha_t12.gat")+getmapusers("thana_step.gat") + +getmapusers("thana_boss.gat"))+" "+$@ked_users$+")", + "- Toy Factory ("+$@kewd_toyFactory*@discount/100+"z/"+(getmapusers("xmas_dun01.gat") + +getmapusers("xmas_dun02.gat"))+" "+$@ked_users$+")", + "- Turtle Island ("+$@kewd_turtleIsland*@discount/100+"z/"+(getmapusers("tur_dun01.gat") + +getmapusers("tur_dun02.gat")+getmapusers("tur_dun03.gat")+getmapusers("tur_dun04.gat") + +getmapusers("tur_dun05.gat")+getmapusers("tur_dun06.gat"))+" "+$@ked_users$+")", + "- Umbala Dungeon ("+$@kewd_umbala*@discount/100+"z/"+(getmapusers("um_dun01.gat") + +getmapusers("um_dun02.gat"))+" "+$@ked_users$+")" + ); + } else { + set @kmenu, select( + "- Cancel", + "- Abyss Lake ("+$@kewd_abyssLake*@discount/100+"z)", + "- Amatsu Dungeon ("+$@kewd_amatsu*@discount/100+"z)", + "- Ant Hell ("+$@kewd_antHell*@discount/100+"z)", + "- Ayothaya Ancient Shrine ("+$@kewd_ayothaya*@discount/100+"z)", + "- Byalan Dungeon ("+$@kewd_byalan*@discount/100+"z)", + "- Comodo Caves ("+$@kewd_comodo*@discount/100+"z)", + "- Clock Tower ("+$@kewd_clockTower*@discount/100+"z)", + "- Coal Mine ("+$@kewd_coalMines*@discount/100+"z)", + "- Culvert ("+$@kewd_culvert*@discount/100+"z)", + "- Einbroch Mine ("+$@kewd_einbech*@discount/100+"z)", + "- Gefenia ("+$@kewd_gefenia*@discount/100+"z)", + "- Geffen Dungeon ("+$@kewd_geffen*@discount/100+"z)", + "- Glast Heim ("+$@kewd_glastHeim*@discount/100+"z)", + "- Gon Ryun Dungeon ("+$@kewd_gonRyun*@discount/100+"z)", + "- Hidden Temple ("+$@kewd_hiddenTemple*@discount/100+"z)", + "- Juperos ("+$@kewd_juperos*@discount/100+"z)", + "- LightHalzen Rekkenber ("+$@kewd_lightHalzen*@discount/100+"z)", + "- Lou Yang Royal Tomb ("+$@kewd_louYang*@discount/100+"z)", + "- Magma Dungeon ("+$@kewd_magma*@discount/100+"z)", + "- Orcs Dungeon ("+$@kewd_orc*@discount/100+"z)", + "- Payon Dungeon ("+$@kewd_payon*@discount/100+"z)", + "- Pyramid ("+$@kewd_pyramid*@discount/100+"z)", + "- Sphinx ("+$@kewd_sphinx*@discount/100+"z)", + "- Sunken Ship ("+$@kewd_sunkenShip*@discount/100+"z)", + "- Thanatos Tower ("+$@kewd_thanatosTower*@discount/100+"z)", + "- Toy Factory ("+$@kewd_toyFactory*@discount/100+"z)", + "- Turtle Island ("+$@kewd_turtleIsland*@discount/100+"z)", + "- Umbala Dungeon ("+$@kewd_umbala*@discount/100+"z)" + ); + } + switch (@kmenu) { + case 2: + SF_abyssLake(); + break; + case 3: + SF_amatsu(); + break; + case 4: + SF_antHell(); + break; + case 5: + SF_ayothaya(); + break; + case 6: + SF_byalan(); + break; + case 7: + SF_comodo(); + break; + case 8: + SF_clockTower(); + break; + case 9: + SF_coalMine(); + break; + case 10: + SF_culvert(); + break; + case 11: + SF_einbech(); + break; + case 12: + SF_gefenia(); + break; + case 13: + SF_geffen(); + break; + case 14: + SF_glastHeim(); + break; + case 15: + SF_gonRyun(); + break; + case 16: + SF_hiddenTemple(); + break; + case 17: + SF_juperos(); + break; + case 18: + SF_lightHalzen(); + break; + case 19: + SF_louYang(); + break; + case 20: + SF_magma(); + break; + case 21: + SF_orcs(); + break; + case 22: + SF_payon(); + break; + case 23: + SF_pyramid(); + break; + case 24: + SF_sphinx(); + break; + case 25: + SF_sunkenShip(); + break; + case 26: + SF_thanatosTower(); + break; + case 27: + SF_toyFactory(); + break; + case 28: + SF_turtleIsland(); + break; + case 29: + SF_umbala(); + break; + default: + return; + } + } while (@kmenu > 1); + return; + +//Subfunction SF_check(flag1, flag2, cost, floor-count, player-map, dungeon-map#, map#1, map#2, ...) +//If kewd_travel is set, both flags need to be one to be able to work there. +//Floor count is the amount of levels the dungeon needs a price for, +//dungeon-map# is the number of maps passed that need to be checked against +//the player's map to see if they are warping from within the entrance. + +function SF_check { + if ($@kewd_travel && getarg(0) == 0 && getarg(1) == 0) { + callfunc "F_keIntro", e_sry, "Sorry, but we can only warp you to dungeons you have saved in before."; + return 0; + } + set @cost, getarg(2); + set @discount,100; + set @map$, getarg(4); + set @mapI, getarg(5); + + while (@mapI > 0) + { + if (@map$ == getarg(5+@mapI)) { + set @discount,100-$@kewd_entryDiscount; + break; + } + set @mapI, @mapI-1; + } + set @discountKP, callfunc("F_keCost",100,$@kewd_discount); + set @discount,@discount*@discountKP/100; + + set @cost,@cost*@discount/100; + set @inc,@cost*$@kewd_levelCost/100; + + //@discountKP is used to reverse the price to before the KP discount takes place + if (@discountKP == 0) + set @discountKP,1; + if ($@kewd_deep == 0) + return 1; + + switch (getarg(3)) { + case 9: + set @cost9, @cost +8*@inc; + case 8: + set @cost8, @cost +7*@inc; + case 7: + set @cost7, @cost +6*@inc; + case 6: + set @cost6, @cost +5*@inc; + case 5: + set @cost5, @cost +4*@inc; + case 4: + set @cost4, @cost +3*@inc; + case 3: + set @cost3, @cost +2*@inc; + case 2: + set @cost2, @cost +@inc; + } + return 1; +} + +function SF_abyssLake { + if (!(SF_check(kewd_abyss, #kewd_abyss, $@kewd_abyssLake, 3, getarg(0), 1, "hu_fild05.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Abyss Lake", + "- Entrance ("+@cost+"z/"+getmapusers("abyss_01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("abyss_02.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("abyss_03.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Abyss Lake", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"hu_fild05.gat",173,308; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"abyss_02.gat",272,270; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"abyss_03.gat",116,29; + break; + } +} + +function SF_amatsu { + if (!(SF_check(kewd_amatsu, #kewd_amatsu, $@kewd_amatsu, 3, getarg(0), 1, "ama_in02.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Amatsu Dungeon", + "- Entrance ("+@cost+"z/"+getmapusers("ama_dun01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("ama_dun02.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("ama_dun03.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Amatsu Dungeon", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"ama_in02.gat",120,181; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"ama_dun02.gat",34,41; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"ama_dun03.gat",119,14; + break; + } +} + +function SF_antHell { + if (!(SF_check(kewd_antHell, #kewd_antHell, $@kewd_antHell, 1, getarg(0), 2, "moc_fild04.gat","moc_fild15.gat"))) + return; + if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Ant Hell", + "- Northern Entrance ("+@cost+"z/"+getmapusers("anthell01.gat")+" "+$@ked_users$+")", + "- Southern Entrance ("+@cost+"z/"+getmapusers("anthell02.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Ant Hell", + "- Northern Entrance ("+@cost+"z)", + "- Southern Entrance ("+@cost+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"moc_fild04.gat",232,322; + break; + case 3: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"moc_fild15.gat",246,251; + break; + } +} + +function SF_ayothaya { + if (!(SF_check(kewd_ayothaya, #kewd_ayothaya, $@kewd_ayothaya, 2, getarg(0), 1, "ayo_fild02.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to the Ancient Shrine", + "- Entrance ("+@cost+"z/"+getmapusers("ayo_dun01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("ayo_dun02.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to the Ancient Shrine", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"ayo_fild02.gat",273,150; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"ayo_dun02.gat",24,28; + break; + } +} + +function SF_byalan { + if (!(SF_check(kewd_byalan, #kewd_byalan, $@kewd_byalan, 5, getarg(0), 1, "izlu2dun.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Undersea Tunnel", + "- Entrance ("+@cost+"z/"+getmapusers("iz_dun00.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("iz_dun01.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("iz_dun02.gat")+" "+$@ked_users$+")", + "- Level 4 ("+@cost4+"z/"+getmapusers("iz_dun03.gat")+" "+$@ked_users$+")", + "- Level 5 ("+@cost5+"z/"+getmapusers("iz_dun04.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Undersea Tunnel", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)", + "- Level 4 ("+@cost4+"z)", + "- Level 5 ("+@cost5+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"izlu2dun.gat",114,84; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"iz_dun01.gat",253,252; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"iz_dun02.gat",236,204; + break; + case 5: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"iz_dun03.gat",32,63; + break; + case 6: + callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"iz_dun04.gat",26,27; + break; + } +} + +function SF_comodo { + if (!(SF_check(kewd_comodo, #kewd_comodo, $@kewd_comodo, 1, getarg(0), 2, "comodo.gat","cmd_fild01.gat"))) + return; + + if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Comodo Caves", + "- Mao, The Eastern Cave ("+@cost+"z/"+getmapusers("beach_dun3.gat")+" "+$@ked_users$+")", + "- Karu, The Western Cave ("+@cost+"z/"+getmapusers("beach_dun.gat")+" "+$@ked_users$+")", + "- Ruande, The Northern Cave ("+@cost+"z/"+getmapusers("beach_dun2.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Comodo Caves", + "- Mao, The Eastern Cave ("+@cost+"z)", + "- Karu, The Western Cave ("+@cost+"z)", + "- Ruande, The Northern Cave ("+@cost+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"cmd_fild01.gat",34,325; + break; + case 3: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"comodo.gat",32,209; + break; + case 4: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"comodo.gat",180,352; + break; + } +} + +function SF_clockTower { + if (!(SF_check(kewd_clockTower, #kewd_clockTower, $@kewd_clockTower, 5, getarg(0), 1, "aldebaran.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Clock Tower", + "- Entrance ("+@cost+"z/"+getmapusers("c_tower1.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("c_tower2.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("c_tower3.gat")+" "+$@ked_users$+")", + "- Level 4 ("+@cost4+"z/"+getmapusers("c_tower4.gat")+" "+$@ked_users$+")", + "- Basement 1 ("+@cost2+"z/"+getmapusers("alde_dun01.gat")+" "+$@ked_users$+")", + "- Basement 2 ("+@cost3+"z/"+getmapusers("alde_dun02.gat")+" "+$@ked_users$+")", + "- Basement 3 ("+@cost4+"z/"+getmapusers("alde_dun03.gat")+" "+$@ked_users$+")", + "- Basement 4 ("+@cost5+"z/"+getmapusers("alde_dun04.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Clock Tower", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)", + "- Level 4 ("+@cost4+"z)", + "- Basement 1 ("+@cost2+"z)", + "- Basement 2 ("+@cost3+"z)", + "- Basement 3 ("+@cost4+"z)", + "- Basement 4 ("+@cost5+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"aldebaran.gat",140,130; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"c_tower2.gat",268,26; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"c_tower3.gat",68,146; + break; + case 5: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"c_tower4.gat",185,44; + break; + case 6: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"alde_dun01.gat",297,25; + break; + case 7: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"alde_dun02.gat",43,24; + break; + case 8: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"alde_dun03.gat",18,267; + break; + case 9: + callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"alde_dun04.gat",82,267; + break; + } +} + +function SF_coalMine { + if (!(SF_check(kewd_coalMines, #kewd_coalMines, $@kewd_coalMines, 3, getarg(0), 1, "mjolnir_02.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to the Mjolnir Dead Pit", + "- Entrance ("+@cost+"z/"+getmapusers("mjo_dun01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("mjo_dun02.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("mjo_dun03.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to the Mjolnir Dead Pit", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"mjolnir_02.gat",89,358; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"mjo_dun02.gat",376,342; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"mjo_dun03.gat",305,260; + break; + } +} + +function SF_culvert { + if (!(SF_check(kewd_culvert, #kewd_culvert, $@kewd_culvert, 4, getarg(0), 1, "prt_fild05.gat"))) + return; + if ($@kewd_deep == 0) { + set @submenu, 2; + } else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to the Prontera Culvert", + "- Entrance ("+@cost+"z/"+getmapusers("prt_sewb1.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("prt_sewb2.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("prt_sewb3.gat")+" "+$@ked_users$+")", + "- Level 4 ("+@cost4+"z/"+getmapusers("prt_sewb4.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to the Prontera Culvert", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)", + "- Level 4 ("+@cost4+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"prt_fild05.gat",274,208; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"prt_sewb2.gat",19,19; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"prt_sewb3.gat",180,169; + break; + case 5: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"prt_sewb4.gat",100,92; + break; + } +} + +function SF_einbech { + if (!(SF_check(kewd_einbech, #kewd_einbech, $@kewd_einbech, 2, getarg(0), 1, "einbech.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to the Einbroch Mines", + "- Entrance ("+@cost+"z/"+getmapusers("ein_dun01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("ein_dun02.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to the Einbech Mines", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"einbech.gat",138,244; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"ein_dun02.gat",290,285; + break; + } +} + +function SF_geffen { + if (!(SF_check(kewd_geffen, #kewd_geffen, $@kewd_geffen, 4, getarg(0), 1, "gef_tower.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Geffen Dungeon", + "- Entrance ("+@cost+"z/"+getmapusers("gef_dun00.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("gef_dun01.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("gef_dun02.gat")+" "+$@ked_users$+")", + "- Level 4 ("+@cost4+"z/"+getmapusers("gef_dun03.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Geffen Dungeon", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)", + "- Level 4 ("+@cost4+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"gef_tower.gat",147,35; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gef_dun01.gat",115,236; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"gef_dun02.gat",106,132; + break; + case 5: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"gef_dun03.gat",203,200; + break; + } +} + +function SF_gefenia { + if (!(SF_check(kewd_gefenia, #kewd_gefenia, $@kewd_gefenia, 2, getarg(0), 4, "gefenia01.gat","gefenia02.gat","gefenia03.gat","gefenia04.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Gefenia", + "- Level 1 ("+@cost+"z/"+getmapusers("gefenia01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("gefenia02.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost2+"z/"+getmapusers("gefenia03.gat")+" "+$@ked_users$+")", + "- Level 4 ("+@cost+"z/"+getmapusers("gefenia04.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Gefenia", + "- Level 1 ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost2+"z)", + "- Level 4 ("+@cost+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"gefenia01.gat",60,169; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gefenia02.gat",116,116; + break; + case 4: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gefenia03.gat",119,277; + break; + case 5: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"gefenia04.gat",129,86; + break; + } +} + +function SF_glastHeim { + if (!(SF_check(kewd_glastHeim, #kewd_glastHeim, $@kewd_glastHeim, 7, getarg(0), 1, "glast_01.gat"))) + return; + if ($@kewd_deep == 0) { + if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Glast Heim", + "- Church Entrance ("+@cost+"z/"+getmapusers("gl_church.gat")+" "+$@ked_users$+")", + "- Castle Terrace ("+@cost+"z/"+(getmapusers("gl_cas01.gat")+getmapusers("gl_cas02.gat"))+" "+$@ked_users$+")", + "- Staircase Entrance ("+@cost+"z/"+getmapusers("gl_step.gat")+" "+$@ked_users$+")", + "- Chivalry Entrance ("+@cost+"z/"+getmapusers("gl_knt01.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Glast Heim", + "- Church Entrance ("+@cost+"z)", + "- Castle Terrace ("+@cost+"z)", + "- Staircase Entrance ("+@cost+"z)", + "- Chivalry Entrance ("+@cost+"z)" + ); + } + if (@submenu > 2) //Churchyard is index 3. + set @submenu, @submenu+1; + } else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Glast Heim", + "- Church Entrance ("+@cost+"z/"+getmapusers("gl_church.gat")+" "+$@ked_users$+")", + "- Churchyard ("+@cost2+"z/"+getmapusers("gl_chyard.gat")+" "+$@ked_users$+")", + "- Castle Terrace ("+@cost+"z/"+(getmapusers("gl_cas01.gat")+getmapusers("gl_cas02.gat"))+" "+$@ked_users$+")", + "- Staircase Entrance ("+@cost+"z/"+getmapusers("gl_step.gat")+" "+$@ked_users$+")", + "- Chivalry Entrance ("+@cost+"z/"+getmapusers("gl_knt01.gat")+" "+$@ked_users$+")", + "- Chivalry Level 2 ("+@cost2+"z/"+getmapusers("gl_knt02.gat")+" "+$@ked_users$+")", + "- Underground Prison 1 ("+@cost2+"z/"+getmapusers("gl_prison.gat")+" "+$@ked_users$+")", + "- Underground Prison 2 ("+@cost3+"z/"+getmapusers("gl_prison1.gat")+" "+$@ked_users$+")", + "- Culvert Level 1 ("+@cost4+"z/"+getmapusers("gl_sew01.gat")+" "+$@ked_users$+")", + "- Culvert Level 2 ("+@cost3+"z/"+getmapusers("gl_sew02.gat")+" "+$@ked_users$+")", + "- Culvert Level 3 ("+@cost4+"z/"+getmapusers("gl_sew03.gat")+" "+$@ked_users$+")", + "- Culvert Level 4 ("+@cost5+"z/"+getmapusers("gl_sew04.gat")+" "+$@ked_users$+")", + "- Underground Cave 1 ("+@cost6+"z/"+getmapusers("gl_dun01.gat")+" "+$@ked_users$+")", + "- Underground Cave 2 ("+@cost7+"z/"+getmapusers("gl_dun02.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Glast Heim", + "- Church Entrance ("+@cost+"z)", + "- Churchyard ("+@cost2+"z)", + "- Castle Terrace ("+@cost+"z)", + "- Staircase Entrance ("+@cost+"z)", + "- Chivalry Entrance ("+@cost+"z)", + "- Chivalry Level 2 ("+@cost2+"z)", + "- Underground Prison Level 1 ("+@cost2+"z)", + "- Underground Prison Level 2 ("+@cost3+"z)", + "- Culvert Level 1 ("+@cost4+"z)", + "- Culvert Level 2 ("+@cost3+"z)", + "- Culvert Level 3 ("+@cost4+"z)", + "- Culvert Level 4 ("+@cost5+"z)", + "- Underground Cave Level 1 ("+@cost6+"z)", + "- Underground Cave Level 2 ("+@cost7+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"glast_01.gat",206,136; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gl_chyard.gat",147,15; + break; + case 4: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"glast_01.gat",199,335; + break; + case 5: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"glast_01.gat",62,107; + break; + case 6: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"glast_01.gat",69,193; + break; + case 7: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gl_knt02.gat",157,287; + break; + case 8: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gl_prison.gat",14,70; + break; + case 9: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"gl_prison1.gat",150,14; + break; + case 10: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"gl_sew01.gat",258,255; + break; + case 11: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"gl_sew02.gat",108,291; + break; + case 12: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"gl_sew03.gat",171,283; + break; + case 13: + callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"gl_sew04.gat",68,277; + break; + case 14: + callfunc "F_keWarp",@cost6*100/@discountKP,$@kewd_discount,e_hmm,"gl_dun01.gat",133,271; + break; + case 15: + callfunc "F_keWarp",@cost7*100/@discountKP,$@kewd_discount,e_hmm,"gl_dun02.gat",224,274; + break; + } +} + +function SF_gonRyun { + if (!(SF_check(kewd_gonRyun, #kewd_gonRyun, $@kewd_gonRyun, 3, getarg(0), 1, "gonryun.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Gon Ryun Dungeon", + "- Entrance ("+@cost+"z/"+getmapusers("gon_dun01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("gon_dun02.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("gon_dun03.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Gon Ryun Dungeon", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"gonryun.gat",161,195; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gon_dun02.gat",22,114; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"gon_dun03.gat",68,11; + break; + } +} + +function SF_hiddenTemple { + if (!(SF_check(kewd_hiddenTemple, #kewd_hiddenTemple, $@kewd_hiddenTemple, 3, getarg(0), 1, "prt_fild01.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to the Laberynth Forest", + "- Entrance ("+@cost+"z/"+getmapusers("prt_maze01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("prt_maze02.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("prt_maze03.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to the Laberynth Forest", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"prt_fild01.gat",136,361; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"prt_maze02.gat",106,62; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"prt_maze03.gat",23,8; + break; + } +} + +function SF_juperos { + if (!(SF_check(kewd_juperos, #kewd_juperos, $@kewd_juperos, 3, getarg(0), 1, "jupe_cave.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Juperos", + "- Entrance ("+@cost+"z/"+getmapusers("juperos_01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("juperos_02.gat")+" "+$@ked_users$+")", + "- Core ("+@cost3+"z/"+getmapusers("jupe_core.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to the Laberynth Forest", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Core ("+@cost3+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"jupe_cave.gat",55,52; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"juperos_02.gat",37,63; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"jupe_gate.gat",-1,-1; + break; + } +} + +function SF_lightHalzen { + if (!(SF_check(kewd_lightHalzen, #kewd_lightHalzen, $@kewd_lightHalzen, 3, getarg(0), 1, "lighthalzen.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to the Rekkenber", + "- Entrance ("+@cost+"z/"+getmapusers("lou_dun01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("lou_dun02.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("lou_dun03.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to the Rekkenber", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"lighthalzen.gat",74,72; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"lhz_dun02.gat",154,18; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"lhz_dun03.gat",141,132; + break; + } +} + +function SF_louYang { + if (!(SF_check(kewd_louYang, #kewd_louYang, $@kewd_louYang, 3, getarg(0), 1, "louyang.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to the Royal Tomb", + "- Entrance ("+@cost+"z/"+getmapusers("lou_dun01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("lou_dun02.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("lou_dun03.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to the Royal Tomb", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)" + ); + }; + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"louyang.gat",41,267; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"lou_dun02.gat",281,20; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"lou_dun03.gat",165,39; + break; + } +} + +function SF_magma { + if (!(SF_check(kewd_magma, #kewd_magma, $@kewd_magma, 2, getarg(0), 1, "yuno_fild03.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Nogg Road", + "- Entrance ("+@cost+"z/"+getmapusers("mag_dun01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("mag_dun02.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Nogg Road", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"yuno_fild03.gat",35,135; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"mag_dun02.gat",47,30; + break; + } +} + +function SF_orcs { + if (!(SF_check(kewd_orc, #kewd_orc, $@kewd_orc, 2, getarg(0), 1, "gef_fild10.gat"))) + return; + if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Orcs Dungeon", + "- Front Entrance ("+@cost+"z/"+getmapusers("orcsdun01.gat")+" "+$@ked_users$+")", + "- Back Entrance ("+@cost+"z/"+getmapusers("orcsdun02.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Orcs Dungeon", + "- Front Entrance ("+@cost+"z)", + "- Back Entrance ("+@cost+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"in_orcs01.gat",34,165; + break; + case 3: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"in_orcs01.gat",112,99; + break; + } +} + +function SF_payon { + if (!(SF_check(kewd_payon, #kewd_payon, $@kewd_payon, 5, getarg(0), 1, "pay_arche.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to the Payon Cave", + "- Entrance ("+@cost+"z/"+getmapusers("pay_dun00.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("pay_dun01.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("pay_dun02.gat")+" "+$@ked_users$+")", + "- Level 4 ("+@cost4+"z/"+getmapusers("pay_dun03.gat")+" "+$@ked_users$+")", + "- Level 5 ("+@cost5+"z/"+getmapusers("pay_dun04.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to the Payon Cave", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)", + "- Level 4 ("+@cost4+"z)", + "- Level 5 ("+@cost5+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"pay_arche.gat",41,133; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"pay_dun01.gat",19,33; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"pay_dun02.gat",19,63; + break; + case 5: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"pay_dun03.gat",155,159; + break; + case 6: + callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"pay_dun04.gat",34,202; + break; + } +} + +function SF_pyramid { + if (!(SF_check(kewd_pyramid, #kewd_pyramid, $@kewd_pyramid, 4, getarg(0),1, "moc_ruins.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to the Pyramid", + "- Entrance ("+@cost+"z/"+getmapusers("moc_pryd01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("moc_pryd02.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("moc_pryd03.gat")+" "+$@ked_users$+")", + "- Level 4 ("+@cost4+"z/"+getmapusers("moc_pryd04.gat")+" "+$@ked_users$+")", + "- Basement 1 ("+@cost2+"z/"+getmapusers("moc_pryd05.gat")+" "+$@ked_users$+")", + "- Basement 2 ("+@cost3+"z/"+getmapusers("moc_pryd06.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to the Pyramid", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)", + "- Level 4 ("+@cost4+"z)", + "- Basement 1 ("+@cost2+"z)", + "- Basement 2 ("+@cost3+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"moc_ruins.gat",62,162; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"moc_pryd02.gat",10,192; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"moc_pryd03.gat",100,92; + break; + case 5: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"moc_pryd04.gat",18,187; + break; + case 6: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"moc_pryd05.gat",94,96; + break; + case 7: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"moc_pryd06.gat",192,11; + break; + } +} + +function SF_sphinx { + if (!(SF_check(kewd_sphinx, #kewd_sphinx, $@kewd_sphinx, 5, getarg(0), 1, "moc_fild19.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to the Sphinx", + "- Entrance ("+@cost+"z/"+getmapusers("in_sphinx1.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("in_sphinx2.gat")+" "+$@ked_users$+")", + "- Level 3 ("+@cost3+"z/"+getmapusers("in_sphinx3.gat")+" "+$@ked_users$+")", + "- Level 4 ("+@cost4+"z/"+getmapusers("in_sphinx4.gat")+" "+$@ked_users$+")", + "- Level 5 ("+@cost5+"z/"+getmapusers("in_sphinx5.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to the Sphinx", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)", + "- Level 3 ("+@cost3+"z)", + "- Level 4 ("+@cost4+"z)", + "- Level 5 ("+@cost5+"z)" + ); + } + + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"moc_fild19.gat",107,100; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"in_sphinx2.gat",149,81; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"in_sphinx3.gat",210,54; + break; + case 5: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"in_sphinx4.gat",10,222; + break; + case 6: + callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"in_sphinx5.gat",100,99; + break; + } +} + +function SF_sunkenShip { + if (!(SF_check(kewd_sunkenShip, #kewd_sunkenShip, $@kewd_sunkenShip, 2, getarg(0), 1, "alb2trea.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Sunken Ship", + "- Entrance ("+@cost+"z/"+getmapusers("treasure01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("treasure02.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Sunken Ship", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)" + ); + } + + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"alb2trea.gat",87,103; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"treasure02.gat",102,27; + break; + } +} + +function SF_thanatosTower { + if (!(SF_check(kewd_thanatosTower, #kewd_thanatosTower, $@kewd_thanatosTower, 9, getarg(0), 1, "tha_t01.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Thanatos Tower", + "- Entrance ("+@cost+"z/"+getmapusers("tha_t01.gat")+" "+$@ked_users$+")", + "- Floor 2 ("+@cost2+"z/"+getmapusers("tha_t02.gat")+" "+$@ked_users$+")", + "- Floor 3 ("+@cost3+"z/"+getmapusers("tha_t03.gat")+" "+$@ked_users$+")", + "- Floor 4 ("+@cost4+"z/"+getmapusers("tha_t04.gat")+" "+$@ked_users$+")", + "- Floor 5 ("+@cost5+"z/"+getmapusers("tha_t05.gat")+" "+$@ked_users$+")", + "- Floor 6 ("+@cost6+"z/"+getmapusers("tha_t06.gat")+" "+$@ked_users$+")", + "- Floor 7 ("+@cost7+"z/"+getmapusers("tha_t07.gat")+" "+$@ked_users$+")", + "- Floor 8 ("+@cost8+"z/"+getmapusers("tha_t08.gat")+" "+$@ked_users$+")", + "- Floor 9 ("+@cost9+"z/"+getmapusers("tha_t09.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Thanatos Tower", + "- Entrance ("+@cost+"z)", + "- Floor 2 ("+@cost2+"z)", + "- Floor 3 ("+@cost3+"z)", + "- Floor 4 ("+@cost4+"z)", + "- Floor 5 ("+@cost5+"z)", + "- Floor 6 ("+@cost6+"z)", + "- Floor 7 ("+@cost7+"z)", + "- Floor 8 ("+@cost8+"z)", + "- Floor 9 ("+@cost9+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"tha_t01.gat",149,40; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"tha_t02.gat",149,136; + break; + case 4: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"tha_t03.gat",220,159; + break; + case 5: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"tha_t04.gat",59,144; + break; + case 6: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"tha_t05.gat",62,9; + break; + case 7: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"tha_t06.gat",120,225; + break; + case 8: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"tha_t07.gat",32,166; + break; + case 9: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"tha_t08.gat",108,44; + break; + case 10: + callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"tha_t09.gat",87,145; + break; + } +} + +function SF_toyFactory { + if (!(SF_check(kewd_toyFactory, #kewd_toyFactory, $@kewd_toyFactory, 2, getarg(0), 1, "xmas.gat"))) + return; + + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Toy Factory", + "- Entrance ("+@cost+"z/"+getmapusers("xmas_dun01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("xmas_dun02.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Toy Factory", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)" + ); + } + + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"xmas.gat",144,306; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"xmas_dun02.gat",129,133; + break; + } +} + +function SF_turtleIsland { + if (!(SF_check(kewd_turtleIsland, #kewd_turtleIsland, $@kewd_turtleIsland, 3, getarg(0), 1, "tur_dun01.gat"))) + return; + if ($@kewd_deep == 0) { + if ($@kewd_turtleCave) + set @submenu, 3; + else + set @submenu, 2; + } else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Turtle Island", + "- Island Entrance ("+@cost+"z/"+getmapusers("tur_dun01.gat")+" "+$@ked_users$+")", + "- Cave Entrance ("+@cost+"z/"+getmapusers("tur_dun02.gat")+" "+$@ked_users$+")", + "- Cave Level 2 ("+@cost2+"z/"+getmapusers("tur_dun03.gat")+" "+$@ked_users$+")", + "- Cave Level 3 ("+@cost3+"z/"+getmapusers("tur_dun04.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Turtle Island", + "- Island Entrance ("+@cost+"z)", + "- Cave Entrance ("+@cost+"z)", + "- Cave Level 2 ("+@cost2+"z)", + "- Cave Level 3 ("+@cost3+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"tur_dun01.gat",153,47; + break; + case 3: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"tur_dun01.gat",155,234; + break; + case 4: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"tur_dun03.gat",132,189; + break; + case 5: + callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"tur_dun04.gat",100,192; + break; + } +} + +function SF_umbala { + if (!(SF_check(kewd_umbala, #kewd_umbala, $@kewd_umbala, 2, getarg(0), 1, "umbala.gat"))) + return; + if ($@kewd_deep == 0) + set @submenu, 2; + else if ($@kewd_showOnline) { + set @submenu, select( + "- Cancel warp to Umbala Dungeon", + "- Entrance ("+@cost+"z/"+getmapusers("um_dun01.gat")+" "+$@ked_users$+")", + "- Level 2 ("+@cost2+"z/"+getmapusers("um_dun02.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel warp to Umbala Dungeon", + "- Entrance ("+@cost+"z)", + "- Level 2 ("+@cost2+"z)" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"umbala.gat",113,282; + break; + case 3: + callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"um_dun02.gat",48,31; + break; + } +} + +} + +//Invoked when we want to add a map to the list of travelled-to dungeons +function script F_keAddTravelDungeon { + set @map$, getarg(0); + if ($@kewd_travel > 1) { + if (@map$ == "hu_fild05.gat" || kewd_abyss) + set #kewd_abyss,1; + if (@map$ == "ama_in02.gat" || kewd_amatsu) + set #kewd_amatsu,1; + if (@map$ == "moc_fild04.gat" || @map$ == "moc_fild15.gat" || kewd_antHell) + set #kewd_antHell,1; + if (@map$ == "ayo_fild02.gat" || kewd_ayothaya) + set #kewd_ayothaya,1; + if (@map$ == "izlu2dun.gat" || kewd_byalan) + set #kewd_byalan,1; + if (@map$ == "comodo.gat" || @map$ == "cmd_fild01.gat" || kewd_comodo) + set #kewd_comodo,1; + if (@map$ == "aldebaran.gat" || kewd_clockTower) + set #kewd_clockTower,1; + if (@map$ == "mjolnir_02.gat" || kewd_coalMines) + set #kewd_coalMines,1; + if (@map$ == "prt_fild05.gat" || kewd_culvert) + set #kewd_culvert,1; + if (@map$ == "einbech.gat" || kewd_einbech) + set #kewd_einbech,1; + if (@map$ == "gef_tower.gat" || kewd_geffen) + set #kewd_geffen,1; + if (@map$ == "glast_01.gat" || kewd_glastHeim) + set #kewd_glastHeim,1; + if (@map$ == "gonryun.gat" || kewd_gonRyun) + set #kewd_gonRyun,1; + if (@map$ == "prt_fild01.gat" || kewd_hiddenTemple) + set #kewd_hiddenTemple,1; + if (@map$ == "jupe_cave.gat" || kewd_juperos) + set #kewd_juperos,1; + if (@map$ == "lighthalzen.gat" || kewd_lightHalzen) + set #kewd_lightHalzen,1; + if (@map$ == "louyang.gat" || kewd_louYang) + set #kewd_louYang,1; + if (@map$ == "yuno_fild03.gat" || kewd_magma) + set #kewd_magma,1; + if (@map$ == "in_orcs01.gat" || kewd_orc) + set #kewd_orc,1; + if (@map$ == "pay_arche.gat" || kewd_payon) + set #kewd_payon,1; + if (@map$ == "moc_ruins.gat" || kewd_pyramid) + set #kewd_pyramid,1; + if (@map$ == "moc_fild19.gat" || kewd_sphinx) + set #kewd_sphinx,1; + if (@map$ == "alb2trea.gat" || kewd_sunkenShip) + set #kewd_sunkenShip,1; + if (@map$ == "tha_t01.gat" || kewd_thanatosTower) + set #kewd_thanatosTower,1; + if (@map$ == "xmas.gat" || kewd_toyFactory) + set #kewd_toyFactory,1; + if (@map$ == "tur_dun01.gat" || kewd_turtleIsland) + set #kewd_turtleIsland,1; + if (@map$ == "umbala.gat" || kewd_umbala) + set #kewd_umbala,1; + } else { + if (@map$ == "hu_fild05.gat") + set kewd_abyss,1; + if (@map$ == "ama_in02.gat") + set kewd_amatsu,1; + if (@map$ == "moc_fild04.gat" || @map$ == "moc_fild15.gat") + set kewd_antHell,1; + if (@map$ == "ayo_fild02.gat") + set kewd_ayothaya,1; + if (@map$ == "izlu2dun.gat") + set kewd_byalan,1; + if (@map$ == "comodo.gat" || @map$ == "cmd_fild01.gat") + set kewd_comodo,1; + if (@map$ == "aldebaran.gat") + set kewd_clockTower,1; + if (@map$ == "mjolnir_02.gat") + set kewd_coalMines,1; + if (@map$ == "prt_fild05.gat") + set kewd_culvert,1; + if (@map$ == "einbech.gat") + set kewd_einbech,1; + if (@map$ == "gef_tower.gat") + set kewd_geffen,1; + if (@map$ == "glast_01.gat") + set kewd_glastHeim,1; + if (@map$ == "gonryun.gat") + set kewd_gonRyun,1; + if (@map$ == "prt_fild01.gat") + set kewd_hiddenTemple,1; + if (@map$ == "jupe_cave.gat") + set kewd_juperos,1; + if (@map$ == "lighthalzen.gat") + set kewd_lightHalzen,1; + if (@map$ == "louyang.gat") + set kewd_louYang,1; + if (@map$ == "yuno_fild03.gat") + set kewd_magma,1; + if (@map$ == "in_orcs01.gat") + set kewd_orc,1; + if (@map$ == "pay_arche.gat") + set kewd_payon,1; + if (@map$ == "moc_ruins.gat") + set kewd_pyramid,1; + if (@map$ == "moc_fild19.gat") + set kewd_sphinx,1; + if (@map$ == "alb2trea.gat") + set kewd_sunkenShip,1; + if (@map$ == "tha_t01.gat") + set kewd_thanatosTower,1; + if (@map$ == "xmas.gat") + set kewd_toyFactory,1; + if (@map$ == "tur_dun01.gat") + set kewd_turtleIsland,1; + if (@map$ == "umbala.gat") + set kewd_umbala,1; + } + return; +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_pvp.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_pvp.txt new file mode 100644 index 000000000..136b7ce1d --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_pvp.txt @@ -0,0 +1,156 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Pvp Warping Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 1.7 +//===== Compatible With: ===================================== +//= eAthena SVN R3424+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Offers warping to the PvP arenas. +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//============================================================ + +- script keInit_warpPvp { +OnInit: //Load Config + donpcevent "keConfig::OnLoadWarpPvp"; + end; +} + +function script F_keWarpPvp { + + function SF_pvpMenu; + + set @cost,callfunc("F_keCost",1,100); + if ($@kewp_advanced == 0) { + SF_pvpMenu 1,$@kewp_cost,100,0,0; + return; + } + + do { + if ($@kewp_showOnline) { + set @kmenu, select( + "- Cancel", + "- All Levels Rooms ("+($@kewp_cost*@cost)+"z/"+(getmapusers("pvp_n_8-1.gat")+getmapusers("pvp_n_8-2.gat") + +getmapusers("pvp_n_8-3.gat")+getmapusers("pvp_n_8-4.gat")+getmapusers("pvp_n_8-5.gat"))+" "+$@ked_users$+")", + "- Levels "+($@kewp_baseLv1-$@kewp_range)+"-"+($@kewp_baseLv1+$@kewp_range)+" Rooms ("+($@kewp_cost1*@cost)+"z/" + +(getmapusers("pvp_n_1-1.gat")+getmapusers("pvp_n_1-2.gat")+getmapusers("pvp_n_1-3.gat") + +getmapusers("pvp_n_1-4.gat")+getmapusers("pvp_n_1-5.gat"))+" "+$@ked_users$+")", + "- Levels "+($@kewp_baseLv2-$@kewp_range)+"-"+($@kewp_baseLv2+$@kewp_range)+" Rooms ("+($@kewp_cost2*@cost)+"z/" + +(getmapusers("pvp_n_2-1.gat")+getmapusers("pvp_n_2-2.gat")+getmapusers("pvp_n_2-3.gat") + +getmapusers("pvp_n_2-4.gat")+getmapusers("pvp_n_2-5.gat"))+" "+$@ked_users$+")", + "- Levels "+($@kewp_baseLv3-$@kewp_range)+"-"+($@kewp_baseLv3+$@kewp_range)+" Rooms ("+($@kewp_cost3*@cost)+"z/" + +(getmapusers("pvp_n_3-1.gat")+getmapusers("pvp_n_3-2.gat")+getmapusers("pvp_n_3-3.gat") + +getmapusers("pvp_n_3-4.gat")+getmapusers("pvp_n_3-5.gat"))+" "+$@ked_users$+")", + "- Levels "+($@kewp_baseLv4-$@kewp_range)+"-"+($@kewp_baseLv4+$@kewp_range)+" Rooms ("+($@kewp_cost4*@cost)+"z/" + +(getmapusers("pvp_n_4-1.gat")+getmapusers("pvp_n_4-2.gat")+getmapusers("pvp_n_4-3.gat") + +getmapusers("pvp_n_4-4.gat")+getmapusers("pvp_n_4-5.gat"))+" "+$@ked_users$+")", + "- Levels "+($@kewp_baseLv5-$@kewp_range)+"-"+($@kewp_baseLv5+$@kewp_range)+" Rooms ("+($@kewp_cost5*@cost)+"z/" + +(getmapusers("pvp_n_5-1.gat")+getmapusers("pvp_n_5-2.gat")+getmapusers("pvp_n_5-3.gat") + +getmapusers("pvp_n_5-4.gat")+getmapusers("pvp_n_5-5.gat"))+" "+$@ked_users$+")", + "- Levels "+($@kewp_baseLv6-$@kewp_range)+"-"+($@kewp_baseLv6+$@kewp_range)+" Rooms ("+($@kewp_cost6*@cost)+"z/" + +(getmapusers("pvp_n_6-1.gat")+getmapusers("pvp_n_6-2.gat")+getmapusers("pvp_n_6-3.gat") + +getmapusers("pvp_n_6-4.gat")+getmapusers("pvp_n_6-5.gat"))+" "+$@ked_users$+")", + "- Levels "+($@kewp_baseLv7-$@kewp_range)+"-"+($@kewp_baseLv7+$@kewp_range)+" Rooms ("+($@kewp_cost7*@cost)+"z/" + +(getmapusers("pvp_n_7-1.gat")+getmapusers("pvp_n_7-2.gat")+getmapusers("pvp_n_7-3.gat") + +getmapusers("pvp_n_7-4.gat")+getmapusers("pvp_n_7-5.gat"))+" "+$@ked_users$+")" + ); + } else { + set @kmenu, select( + "- Cancel", + "- No Level Restriction Rooms ("+($@kewp_cost*@cost)+"z)", + "- Levels "+($@kewp_baseLv1-$@kewp_range)+"-"+($@kewp_baseLv1+$@kewp_range)+" Rooms ("+($@kewp_cost1*@cost)+"z)", + "- Levels "+($@kewp_baseLv2-$@kewp_range)+"-"+($@kewp_baseLv2+$@kewp_range)+" Rooms ("+($@kewp_cost2*@cost)+"z)", + "- Levels "+($@kewp_baseLv3-$@kewp_range)+"-"+($@kewp_baseLv3+$@kewp_range)+" Rooms ("+($@kewp_cost3*@cost)+"z)", + "- Levels "+($@kewp_baseLv4-$@kewp_range)+"-"+($@kewp_baseLv4+$@kewp_range)+" Rooms ("+($@kewp_cost4*@cost)+"z)", + "- Levels "+($@kewp_baseLv5-$@kewp_range)+"-"+($@kewp_baseLv5+$@kewp_range)+" Rooms ("+($@kewp_cost5*@cost)+"z)", + "- Levels "+($@kewp_baseLv6-$@kewp_range)+"-"+($@kewp_baseLv6+$@kewp_range)+" Rooms ("+($@kewp_cost6*@cost)+"z)", + "- Levels "+($@kewp_baseLv7-$@kewp_range)+"-"+($@kewp_baseLv7+$@kewp_range)+" Rooms ("+($@kewp_cost7*@cost)+"z)" + ); + } + switch(@kmenu) { + case 2: //No restrictions + SF_pvpMenu 8,$@kewp_cost,100,0,0; + break; + case 3: + SF_pvpMenu 1,$@kewp_cost1,100,$@kewp_baseLv1-$@kewp_range,$@kewp_baseLv1+$@kewp_range; + break; + case 4: + SF_pvpMenu 2,$@kewp_cost2,100,$@kewp_baseLv2-$@kewp_range,$@kewp_baseLv2+$@kewp_range; + break; + case 5: + SF_pvpMenu 3,$@kewp_cost3,100,$@kewp_baseLv3-$@kewp_range,$@kewp_baseLv3+$@kewp_range; + break; + case 6: + SF_pvpMenu 4,$@kewp_cost4,100,$@kewp_baseLv4-$@kewp_range,$@kewp_baseLv4+$@kewp_range; + break; + case 7: + SF_pvpMenu 5,$@kewp_cost5,100,$@kewp_baseLv5-$@kewp_range,$@kewp_baseLv5+$@kewp_range; + break; + case 8: + SF_pvpMenu 6,$@kewp_cost6,100,$@kewp_baseLv6-$@kewp_range,$@kewp_baseLv6+$@kewp_range; + break; + case 9: + SF_pvpMenu 7,$@kewp_cost7,100,$@kewp_baseLv7-$@kewp_range,$@kewp_baseLv7+$@kewp_range; + break; + } + } while (@kmenu > 1); + return; + +//SubFunction: SF_pvpMenu (int map-group, int cost, int min level, int max level) +//Displays the list of the five available Pvp rooms to warp to. +//map-group is the first index of the pvp map names (in pvp_n_2-3.gat it would be 2) +function SF_pvpMenu { + if (getarg(4)) { + if (BaseLevel < getarg(3)) { + callfunc "F_keIntro", e_sry, "Sorry, you need at least level "+getarg(2)+" to enter these arenas."; + return; + } + if (BaseLevel > getarg(4)) { + callfunc "F_keIntro", e_bzz, "Sorry, people above level "+getarg(3)+" are not allowed within these arenas."; + return; + } + set @msg$,"levels "+getarg(3)+"-"+getarg(3); + } else + set @msg$,"all levels"; + if ($@kewp_showOnline) { + set @submenu, select( + "- Cancel Warp (Rooms for "+@msg$+"/"+(getarg(1)*@cost)+"z)", + "- Room Sandwich ("+getmapusers("pvp_n_"+getarg(0)+"-1.gat")+" "+$@ked_users$+")", + "- Room Rock On ("+getmapusers("pvp_n_"+getarg(0)+"-2.gat")+" "+$@ked_users$+")", + "- Four Room ("+getmapusers("pvp_n_"+getarg(0)+"-3.gat")+" "+$@ked_users$+")", + "- Room Undercross ("+getmapusers("pvp_n_"+getarg(0)+"-4.gat")+" "+$@ked_users$+")", + "- Room Compass ("+getmapusers("pvp_n_"+getarg(0)+"-5.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel Warp (Rooms for "+@msg$+"/"+(getarg(1)*@cost)+"z)", + "- Room Sandwich", + "- Room Rock On", + "- Four Room", + "- Room Undercross", + "- Room Compass" + ); + } + switch (@submenu) { + case 2: + callfunc "F_keWarp",getarg(1),getarg(2),e_com,"pvp_n_"+getarg(0)+"-1.gat",-1,-1; + break; + case 3: + callfunc "F_keWarp",getarg(1),getarg(2),e_com,"pvp_n_"+getarg(0)+"-2.gat",-1,-1; + break; + case 4: + callfunc "F_keWarp",getarg(1),getarg(2),e_com,"pvp_n_"+getarg(0)+"-3.gat",-1,-1; + break; + case 5: + callfunc "F_keWarp",getarg(1),getarg(2),e_com,"pvp_n_"+getarg(0)+"-4.gat",-1,-1; + break; + case 6: + callfunc "F_keWarp",getarg(1),getarg(2),e_com,"pvp_n_"+getarg(0)+"-5.gat",-1,-1; + break; + } +} + +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_town.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_town.txt new file mode 100644 index 000000000..df6d6b132 --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_town.txt @@ -0,0 +1,295 @@ +//===== eAthena Script ======================================= +//= Kafra Express - Warping Town Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 1.8 +//===== Compatible With: ===================================== +//= eAthena SVN R3424+, RO Episode 8+ (LightHalzen) +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Offers warp services to towns. +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//============================================================ + +- script keInit_warpTown { +OnInit: //Load Config + donpcevent "keConfig::OnLoadWarpTown"; + end; +} + +function script F_keWarpTown { + + function SF_check; + function SF_warp; + + set @cost,callfunc("F_keCost",$@kewt_cost,$@kewt_discount); + set @niflcost,callfunc("F_keCost",$@kewt_niflCost,$@kewd_discount); + if (@cost > Zeny && $@kewt_free) + set @cost, Zeny; + do { + if ($@kewt_showOnline) { + set @kmenu, select( + "- Cancel", + "- Alberta ("+@cost+"z/"+(getmapusers("alberta.gat")+getmapusers("alberta_in.gat"))+" "+$@ked_users$+")", + "- Al De Baran ("+@cost+"z/"+(getmapusers("aldebaran.gat")+getmapusers("aldeba_in.gat"))+" "+$@ked_users$+")", + "- Amatsu ("+@cost+"z/"+(getmapusers("amatsu.gat")+getmapusers("ama_in01.gat")+getmapusers("ama_in02.gat")) + +" "+$@ked_users$+")", + "- Ayothaya ("+@cost+"z/"+(getmapusers("ayothaya.gat")+getmapusers("ayo_in01.gat")+getmapusers("ayo_in02.gat")) + +" "+$@ked_users$+")", + "- Comodo ("+@cost+"z/"+(getmapusers("comodo.gat")+getmapusers("cmd_in01.gat")+getmapusers("cmd_in02.gat")) + +" "+$@ked_users$+")", + "- Einbech ("+@cost+"z/"+(getmapusers("einbech.gat"))+" "+$@ked_users$+")", + "- Einbroch ("+@cost+"z/"+(getmapusers("einbroch.gat")+getmapusers("ein_in01.gat"))+" "+$@ked_users$+")", + "- Geffen ("+@cost+"z/"+(getmapusers("geffen.gat")+getmapusers("geffen_in.gat")+getmapusers("gef_tower.gat")) + +" "+$@ked_users$+")", + "- Gon Ryun ("+@cost+"z/"+(getmapusers("gonryun.gat")+getmapusers("gon_in.gat"))+" "+$@ked_users$+")", + "- Izlude ("+@cost+"z/"+(getmapusers("izlude.gat")+getmapusers("izlude_in.gat"))+" "+$@ked_users$+")", + "- Jawaii ("+@cost+"z/"+(getmapusers("jawaii.gat")+getmapusers("jawaii_in.gat"))+" "+$@ked_users$+")", + "- LightHalzen ("+@cost+"z/"+(getmapusers("lighthalzen.gat")+getmapusers("lhz_in01.gat") + +getmapusers("lhz_in02.gat")+getmapusers("lhz_in03.gat"))+" "+$@ked_users$+")", + "- Lou Yang ("+@cost+"z/"+(getmapusers("louyang.gat")+getmapusers("lou_in01.gat")+getmapusers("lou_in02.gat")) + +" "+$@ked_users$+")", + "- Lutie ("+@cost+"z/"+(getmapusers("xmas.gat")+getmapusers("xmas_in.gat"))+" "+$@ked_users$+")", + "- Morroc ("+@cost+"z/"+(getmapusers("morocc.gat")+getmapusers("morocc_in.gat")+getmapusers("moc_castle.gat")) + +" "+$@ked_users$+")", + "- Niflheim ("+@niflcost+"z/"+(getmapusers("niflheim.gat")+getmapusers("nif_in.gat"))+" "+$@ked_users$+")", + "- Payon ("+@cost+"z/"+(getmapusers("payon.gat")+getmapusers("payon_in01.gat")+getmapusers("payon_in02.gat")) + +" "+$@ked_users$+")", + "- Prontera ("+@cost+"z/"+(getmapusers("prontera.gat")+getmapusers("prt_castle.gat") + +getmapusers("prt_church.gat")+getmapusers("prt_in.gat"))+" "+$@ked_users$+")", + "- Umbala ("+@cost+"z/"+(getmapusers("umbala.gat")+getmapusers("um_in.gat"))+" "+$@ked_users$+")", + "- Yuno ("+@cost+"z/"+(getmapusers("yuno.gat")+getmapusers("yuno_in01.gat")+getmapusers("yuno_in02.gat") + +getmapusers("yuno_in03.gat")+getmapusers("yuno_in04.gat")+getmapusers("yuno_in05.gat"))+" "+$@ked_users$+")" + ); + } else { + set @kmenu, select( + "- Cancel", + "- Alberta ("+@cost+"z)", + "- Al De Baran ("+@cost+"z)", + "- Amatsu ("+@cost+"z)", + "- Ayothaya ("+@cost+"z)", + "- Comodo ("+@cost+"z)", + "- Einbech ("+@cost+"z)", + "- Einbroch ("+@cost+"z)", + "- Geffen ("+@cost+"z)", + "- Gon Ryun ("+@cost+"z)", + "- Izlude ("+@cost+"z)", + "- Jawaii ("+@cost+"z)", + "- LightHalzen ("+@cost+"z)", + "- Lou Yang ("+@cost+"z)", + "- Lutie ("+@cost+"z)", + "- Morroc ("+@cost+"z)", + "- Niflheim ("+@niflcost+"z)", + "- Payon ("+@cost+"z)", + "- Prontera ("+@cost+"z)", + "- Umbala ("+@cost+"z)", + "- Yuno ("+@cost+"z)" + ); + } + switch (@kmenu) { + case 2: //Alberta + if (SF_check(ketw_alberta, #ketw_alberta)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"alberta.gat",117,56; + break; + case 3: //AlDeBaran + if (SF_check(ketw_aldebaran, #ketw_aldebaran)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"aldebaran.gat",139,124; + break; + case 4: //Amatsu + if (SF_check(ketw_amatsu, #ketw_amatsu)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"amatsu.gat",197,88; + break; + case 5: //Ayathoya + if (SF_check(ketw_ayothaya, #ketw_ayothaya)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"ayothaya.gat",202,174; + break; + case 6: //Comodo + if (SF_check(ketw_comodo, #ketw_comodo)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"comodo.gat",189,150; + break; + case 7: //Einbech + if (SF_check(ketw_einbech, #ketw_einbech)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"einbech.gat",165,127; + break; + case 8: //Einbroch + if (SF_check(ketw_einbroch, #ketw_einbroch)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"einbroch.gat",64,199; + break; + case 9: //Geffen + if (SF_check(ketw_geffen, #ketw_geffen)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"geffen.gat",120,66; + break; + case 10: //GonRyun + if (SF_check(ketw_gonryun, #ketw_gonryun)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"gonryun.gat",160,180; + break; + case 11: //Izlude + if (SF_check(ketw_izlude, #ketw_izlude)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"izlude.gat",127,97; + break; + case 12: //Jawaii + if (SF_check(ketw_jawaii, #ketw_jawaii)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"jawaii.gat",214,223; + break; + case 13: //LightHalzen + if (SF_check(ketw_lighthalzen, #ketw_lighthalzen)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"lighthalzen.gat",158,92; + break; + case 14: //LouYang + if (SF_check(ketw_louyang, #ketw_louyang)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"louyang.gat",218,118; + break; + case 15: //Lutie + if (SF_check(ketw_lutie, #ketw_lutie)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"xmas.gat",148,133; + break; + case 16: //Morroc + if (SF_check(ketw_morroc, #ketw_morroc)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"morocc.gat",162,91; + break; + case 17: //Niflheim + if (SF_check(ketw_niflheim, #ketw_niflheim)) { + if (nif_q_done != 1) { + mes "...?"; + callfunc "F_keIntro", e_no, "For some reason I can't warp you there!"; + } else + callfunc "F_keWarp",$@kewt_niflCost,$@kewd_discount,e_yawn,"niflheim.gat",194,185; + } + break; + case 18: //Payon + if (SF_check(ketw_payon, #ketw_payon)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"payon.gat",159,181; + case 19: //Prontera + if (SF_check(ketw_prontera, #ketw_prontera)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"prontera.gat",156,175; + break; + case 20: //Umbala + if (SF_check(ketw_umbala, #ketw_umbala)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"umbala.gat",88,153; + break; + case 21: //Yuno + if (SF_check(ketw_yuno, #ketw_yuno)) + SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"yuno.gat",158,77; + break; + } + } while (@kmenu > 1); + return; + +//SubFunction SF_check(char-flag, account_flag) +//Checks if the character can warp to that town taking into consideration +//traveller's mode. +function SF_check { + if ($@kewt_travel && getarg(0) == 0 && getarg(1) == 0) { + callfunc "F_keIntro", e_sry, "Sorry, but we can only warp you to towns you have saved in at least once."; + return 0; + } + return 1; +} + +//SubFunction SF_warp (int cost, int discount, int emotion, String map, int x, int y) +//Modded from F_keWarp to allow free warping to towns when not enough zeny. +function SF_warp { + set @cost, getarg(0); + if (@cost > Zeny && $@kewt_free) + set @cost, Zeny; + if (!(callfunc("F_keCharge",@cost,getarg(1),1))) { + callfunc "F_keIntro", e_an, "You don't have enough Zeny..."; + return; + } + emotion getarg(2); + warp getarg(3),getarg(4),getarg(5); + end; +} + +} + +//Invoked when we want to add a map to the list of travelled-to towns +function script F_keAddTravelTown { + set @map$, getarg(0); + if ($@kewt_travel > 1) { + if (@map$ == "alberta.gat" || ketw_alberta) + set #ketw_alberta,1; + if (@map$ == "aldebaran.gat" || ketw_aldebaran) + set #ketw_aldebaran,1; + if (@map$ == "amatsu.gat" || ketw_amatsu) + set #ketw_amatsu,1; + if (@map$ == "ayothaya.gat" || ketw_ayothaya) + set #ketw_ayothaya,1; + if (@map$ == "comodo.gat" || ketw_comodo) + set #ketw_comodo,1; + if (@map$ == "einbech.gat" || ketw_einbech) + set #ketw_einbech,1; + if (@map$ == "einbroch.gat" || ketw_einbroch) + set #ketw_einbroch,1; + if (@map$ == "geffen.gat" || ketw_geffen) + set #ketw_geffen,1; + if (@map$ == "gonryun.gat" || ketw_gonryun) + set #ketw_gonryun,1; + if (@map$ == "izlude.gat" || ketw_izlude) + set #ketw_izlude,1; + if (@map$ == "jawaii.gat" || ketw_jawaii) + set #ketw_jawaii,1; + if (@map$ == "lighthalzen.gat" || ketw_lighthalzen) + set #ketw_lighthalzen,1; + if (@map$ == "louyang.gat" || ketw_louyang) + set #ketw_louyang,1; + if (@map$ == "xmas.gat" || ketw_lutie) + set #ketw_lutie,1; + if (@map$ == "morocc.gat" || ketw_morroc) + set #ketw_morroc,1; + if (@map$ == "niflheim.gat" || ketw_niflheim) + set #ketw_niflheim,1; + if (@map$ == "payon.gat" || ketw_payon) + set #ketw_payon,1; + if (@map$ == "prontera.gat" || ketw_prontera) + set #ketw_prontera,1; + if (@map$ == "umbala.gat" || ketw_umbala) + set #ketw_umbala,1; + if (@map$ == "yuno.gat" || ketw_yuno) + set #ketw_yuno,1; + } else { + if (@map$ == "alberta.gat") + set ketw_alberta,1; + if (@map$ == "aldebaran.gat") + set ketw_aldebaran,1; + if (@map$ == "amatsu.gat") + set ketw_amatsu,1; + if (@map$ == "ayothaya.gat") + set ketw_ayothaya,1; + if (@map$ == "comodo.gat") + set ketw_comodo,1; + if (@map$ == "einbech.gat") + set ketw_einbech,1; + if (@map$ == "einbroch.gat") + set ketw_einbroch,1; + if (@map$ == "geffen.gat") + set ketw_geffen,1; + if (@map$ == "gonryun.gat") + set ketw_gonryun,1; + if (@map$ == "izlude.gat") + set ketw_izlude,1; + if (@map$ == "jawaii.gat") + set ketw_jawaii,1; + if (@map$ == "lighthalzen.gat") + set ketw_lighthalzen,1; + if (@map$ == "louyang.gat") + set ketw_louyang,1; + if (@map$ == "xmas.gat") + set ketw_lutie,1; + if (@map$ == "morocc.gat") + set ketw_morroc,1; + if (@map$ == "niflheim.gat") + set ketw_niflheim,1; + if (@map$ == "payon.gat") + set ketw_payon,1; + if (@map$ == "prontera.gat") + set ketw_prontera,1; + if (@map$ == "umbala.gat") + set ketw_umbala,1; + if (@map$ == "yuno.gat") + set ketw_yuno,1; + } + return; +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_woe.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_woe.txt new file mode 100644 index 000000000..1657ced6e --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_woe.txt @@ -0,0 +1,159 @@ +//===== eAthena Script ======================================= +//= Kafra Express - WoE Warping Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 1.7 +//===== Compatible With: ===================================== +//= eAthena SVN R3424+, RO Episode 4.1+ (War of Emperium) +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Offers warping to the War of Emperium grounds. +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//= Remove the comment on lines 52,53 and 63 to enable direct G. Dungeon warping +//============================================================ + +- script keInit_warpWoe { +OnInit: //Load Config + donpcevent "keConfig::OnLoadWarpWoe"; + end; +} + +function script F_keWarpWOE { + if ($@kewg_check && getcharid(2) <= 0) { + callfunc "F_keIntro", e_srt, "Sorry, these warps are only available to people who belong to a Guild."; + return; + } + if ($@kewg_checkAgit && agitcheck(0) == 0) { + callfunc "F_keIntro", e_srt, "Sorry, these warps are only enabled during the Guild Wars."; + return; + } + + function SF_dungeons; + set @cost, callfunc("F_keCost",100,$@kewg_discount); + + do { + if ($@kewg_showOnline) { + set @kmenu, select( + "- Cancel", + "- Al De Baran Guild ("+($@kewg_alDeBaran*@cost/100)+"z/"+(getmapusers("alde_gld.gat") + +getmapusers("aldeg_cas01.gat")+getmapusers("aldeg_cas02.gat")+getmapusers("aldeg_cas03.gat") + +getmapusers("aldeg_cas04.gat")+getmapusers("aldeg_cas05.gat"))+" "+$@ked_users$+")", + "- Geffen Guild ("+($@kewg_geffen*@cost/100)+"z/"+(getmapusers("gef_fild13.gat") + +getmapusers("gefg_cas01.gat")+getmapusers("gefg_cas02.gat")+getmapusers("gefg_cas03.gat") + +getmapusers("gefg_cas04.gat")+getmapusers("gefg_cas05.gat"))+" "+$@ked_users$+")", + "- Payon Guild ("+($@kewg_payon*@cost/100)+"z/"+(getmapusers("pay_gld.gat") + +getmapusers("payg_cas01.gat")+getmapusers("payg_cas02.gat")+getmapusers("payg_cas03.gat") + +getmapusers("payg_cas04.gat")+getmapusers("payg_cas05.gat"))+" "+$@ked_users$+")", + "- Prontera Guild ("+($@kewg_prontera*@cost/100)+"z/"+(getmapusers("prt_gld.gat") + +getmapusers("prtg_cas01.gat")+getmapusers("prtg_cas02.gat")+getmapusers("prtg_cas03.gat") + +getmapusers("prtg_cas04.gat")+getmapusers("prtg_cas05.gat"))+" "+$@ked_users$+")", +// "- Guild Dungeons ("+(getmapusers("gld_dun01.gat")+getmapusers("gld_dun02.gat") +// +getmapusers("gld_dun03.gat")+getmapusers("gld_dun04.gat"))+" "+$@ked_users$+")", + "- See "+$@ked_users$+" distribution" + ); + } else { + set @kmenu, select( + "- Cancel", + "- Al De Baran Guild ("+($@kewg_alDeBaran*@cost/100)+"z)", + "- Geffen Guild ("+($@kewg_geffen*@cost/100)+"z)", + "- Payon Guild ("+($@kewg_payon*@cost/100)+"z)", + "- Prontera Guild ("+($@kewg_prontera*@cost/100)+"z)" +// ,"- Guild Dungeons" + ); + } + switch (@kmenu) { + case 2: //Al De Baran + callfunc "F_keWarp",$@kewg_alDeBaran,$@kewg_discount,44,"alde_gld.gat",153,160; + break; + case 3: //Geffen + callfunc "F_keWarp",$@kewg_geffen,$@kewg_discount,44,"gef_fild13.gat",243,180; + break; + case 4: //Payon + callfunc "F_keWarp",$@kewg_payon,$@kewg_discount,44,"pay_gld.gat",249,177; + break; + case 5: //Prontera + callfunc "F_keWarp",$@kewg_prontera,$@kewg_discount,44,"prt_gld.gat",119,160; + break; + case 6: //Guild Dungeons + SF_dungeons(); + break; + case 7: //Info + mes "The current distribution of "+$@ked_users$+" is as follows:"; + next; + mes "[Al De Baran]"; + mes "- Guild Grounds: "+getmapusers("alde_gld.gat"); + mes "- Castle 1 - Noisyubantian: "+getmapusers("aldeg_cas01.gat"); + mes "- Castle 2 - Hohensyubangawoo: "+getmapusers("aldeg_cas02.gat"); + mes "- Castle 3 - Nyirenverk: "+getmapusers("aldeg_cas03.gat"); + mes "- Castle 4 - Byirtsburi: "+getmapusers("aldeg_cas04.gat"); + mes "- Castle 5 - Rotenburk: "+getmapusers("aldeg_cas05.gat"); + next; + mes "[Geffen]"; + mes "- Guild Grounds: "+getmapusers("gef_fild13.gat"); + mes "- Castle 1 - Reprion: "+getmapusers("gefg_cas01.gat"); + mes "- Castle 2 - Yolbriger: "+getmapusers("gefg_cas02.gat"); + mes "- Castle 3 - Isinlife: "+getmapusers("gefg_cas03.gat"); + mes "- Castle 4 - Berigel: "+getmapusers("gefg_cas04.gat"); + mes "- Castle 5 - Melsedetsu: "+getmapusers("gefg_cas05.gat"); + next; + mes "[Payon]"; + mes "- Guild Grounds: "+getmapusers("pay_gld.gat"); + mes "- Castle 1 - Mingting: "+getmapusers("payg_cas01.gat"); + mes "- Castle 2 - Tiantan: "+getmapusers("payg_cas02.gat"); + mes "- Castle 3 - Fuying: "+getmapusers("payg_cas03.gat"); + mes "- Castle 4 - Honglou: "+getmapusers("payg_cas04.gat"); + mes "- Castle 5 - Zhulinxian: "+getmapusers("payg_cas05.gat"); + next; + mes "[Prontera]"; + mes "- Guild Grounds: "+getmapusers("prt_gld.gat"); + mes "- Castle 1 - Creamhilt: "+getmapusers("prtg_cas01.gat"); + mes "- Castle 2 - Sbanhealt: "+getmapusers("prtg_cas02.gat"); + mes "- Castle 3 - Lazrigees: "+getmapusers("prtg_cas03.gat"); + mes "- Castle 4 - Squagul: "+getmapusers("prtg_cas04.gat"); + mes "- Castle 5 - Guindull: "+getmapusers("prtg_cas05.gat"); + next; + callfunc "F_keIntro", -1, ""; + break; + } + } while (@kmenu > 1); + return; + +function SF_dungeons { + do { + if ($@kewg_showOnline) { + set @submenu, select( + "- Cancel", + "- Baldur Dungeon ("+($@kewg_baldur*@cost/100)+"z/"+getmapusers("gld_dun01.gat")+" "+$@ked_users$+")", + "- Luina Dungeon ("+($@kewg_luina*@cost/100)+"z/"+getmapusers("gld_dun02.gat")+" "+$@ked_users$+")", + "- Valkyrie Dungeon ("+($@kewg_valkyrie*@cost/100)+"z/"+getmapusers("gld_dun03.gat")+" "+$@ked_users$+")", + "- Britoniah Dungeon ("+($@kewg_britoniah*@cost/100)+"z/"+getmapusers("gld_dun04.gat")+" "+$@ked_users$+")" + ); + } else { + set @submenu, select( + "- Cancel", + "- Baldur Dungeon ("+($@kewg_baldur*@cost/100)+"z)", + "- Luina Dungeon ("+($@kewg_luina*@cost/100)+"z)", + "- Valkyrie Dungeon ("+($@kewg_valkyrie*@cost/100)+"z)", + "- Britoniah Dungeon ("+($@kewg_britoniah*@cost/100)+"z)" + ); + } + switch (@submenu) { + case 2: //Baldur + callfunc "F_keWarp",$@kewg_baldur,$@kewg_discount,44,"gld_dun01.gat",119,18; + break; + case 3: //Luina + callfunc "F_keWarp",$@kewg_luina,$@kewg_discount,44,"gld_dun02.gat",174,113; + break; + case 4: //Valkyrie + callfunc "F_keWarp",$@kewg_valkyrie,$@kewg_discount,44,"gld_dun03.gat",37,34; + break; + case 5: //Britoniah + callfunc "F_keWarp",$@kewg_britoniah,$@kewg_discount,44,"gld_dun04.gat",42,230; + break; + } + } while (@submenu > 1); +} + +} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/readme.txt b/npc/custom/eAAC_Scripts/kafraExpress/readme.txt new file mode 100644 index 000000000..b03070d81 --- /dev/null +++ b/npc/custom/eAAC_Scripts/kafraExpress/readme.txt @@ -0,0 +1,1173 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Kafra Express Script Package Documentation % +% - by Skotlex % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +This file's purpose is to give an indepth explanation about setting up, and +configuring the Kafra Express Script Package (KESP). It is intended to be +viewed by a text editor using fixed-width font and 80-character long lines. + +Document Version v1.8 (05/February/2006) +//////////////////////////////////////////////////////////////////////////////// +Table of Contents +//////////////////////////////////////////////////////////////////////////////// +[00] Including the NPC files and menu editing +[01] Intro to module configuring and general options (config.txt) +[02] Module: Main Core (ke_main.txt) +[03] Module: Bank (ke_bank.txt) +[04] Module: Broadcast (ke_broadcast.txt) +[05] Module: Stylist (ke_dye.txt) +[06] Module: Job Changer (ke_jobchange.txt) +[07] Module: Job Swapper (ke_jobswap.txt) +[08] Module: Smithery (ke_refine.txt) +[09] Module: Renting (ke_refine.txt) +[10] Module: Kafra Shop (ke_shop.txt) +[11] Module: Stat/Skill Market (ke_statmarket.txt) +[12] Module: Stat/Skill Resets/Raising (ke_stats.txt) +[13] Module: Uncarding (ke_uncard.txt) +[14] Module: Town Warping (ke_warp_town.txt) +[15] Module: Dungeon Warping (ke_warp_dungeon.txt) +[16] Module: PvP Warping (ke_warp_pvp.txt) +[17] Module: WoE Warping (ke_warp_woe.txt) +[18] The kafras.txt file: About Kafra Definitions + +//////////////////////////////////////////////////////////////////////////////// +[00] Including the NPC files and menu editing +//////////////////////////////////////////////////////////////////////////////// + +Because of the script's complexity, placing everything in a single file +is out of the question, therefore the KESP comes bundled in different +files. Because of the dynamic nature of the script, there are two things +you need to do in order to enable/disable a particular service: + +1. Include the txt file with the corresponding module. +To include the txt files, you need to know two things: where are the script +files located, and which is the configuration file where you place the npc +includes. We'll assume on this guide that you unpacked the KESP in +npc/custom/kafraExpress. The configuration file for scripts is +conf/map_athena.conf for eA1.0rc5, and npcs/scripts_custom.txt for current eA +SVN versions. Add the files you want in the following manner: + + npc: npc/custom/kafraExpress/ke_main.txt + //npc: npc/custom/kafraExpress/ke_rent.txt + +The first line is including the file ke_main.,txt, while the following +excludes ke_rent from being used. Placing the "//" at the beginning of the +line is known as commenting, and it's a useful way of quickly toggling a +certain script on/off. The following is the list of all files that come +bundled in the package: + +npc: npc/custom/kafraExpress/kafras.txt +npc: npc/custom/kafraExpress/config.txt +npc: npc/custom/kafraExpress/ke_main.txt + +npc: npc/custom/kafraExpress/ke_bank.txt +npc: npc/custom/kafraExpress/ke_broadcast.txt +npc: npc/custom/kafraExpress/ke_dye.txt +npc: npc/custom/kafraExpress/ke_jobchange.txt +npc: npc/custom/kafraExpress/ke_jobswap.txt +npc: npc/custom/kafraExpress/ke_rent.txt +npc: npc/custom/kafraExpress/ke_shop.txt +npc: npc/custom/kafraExpress/ke_statmarket.txt +npc: npc/custom/kafraExpress/ke_stats.txt +npc: npc/custom/kafraExpress/ke_refine.txt +npc: npc/custom/kafraExpress/ke_uncard.txt +npc: npc/custom/kafraExpress/ke_warp_dungeon.txt +npc: npc/custom/kafraExpress/ke_warp_pvp.txt +npc: npc/custom/kafraExpress/ke_warp_town.txt +npc: npc/custom/kafraExpress/ke_warp_woe.txt + +What files can be commented, which files you want to include? On the minimum, +you need ke_main.txt, kafras.txt and config.txt to have the bare-bones functionality. +Refer to the table of context to see the relation between files and the +services they offer. + +2. Configure the Menus +The second part of the configuration is adding/removing the menu entries that +lead to the specific services. Failure to do this can either A. leave you with +menu entries that lead to "Function Not found!" errors on the map server, or +B. Services that were included, but you can't pick because they don't show up +in the menu. The main file where you should configure the menus is ke_main.txt. + +From the main module, ke_main.txt, you must pick which services are available. +The file contains eight menu sections, which is made up of two pairs of +identitical menus. The only difference is that the first menu is displayed on +Kafras placed on towns, while the second menu is for Kafras placed on fields and +dungeons. The menu roughly looks like this: + + menu + "- Leave",L_END, + "- Heal Service (""z/10SP)",L_HEAL, + "- Warp Service",L_WARP, +// "- Use Storage (""z)",L_STORAGE, +// "- Use Guild Storage (""z)",L_GUILD_STORAGE, + "- Job Services",M_JOB, + "- Other Services",M_OTHER, + "- Save Respawn point",L_SAVE; + +This is the main menu, as you can see the only service unavailable is to use +the storage. Like in the npc/config file, you can comment the lines of the +services you do not want. + +WARNING: If you need to comment the last option of a menu, remember to replace +the comma for a semi-colon on the next-to-last option or script parsing errors +will occur. + +The "Warp Service" leads to the second pair of menus you can configure: + + menu + "- Return",-, + "- Dungeons",L_DUNGEON, +// "- PvP Arena",L_PVP, +// "- Guild Wars",L_GUILD_DUNGEON, + "- Towns",L_TOWN; + goto M_INIT; + +As before, you can comment/uncomment the features you want or not. Likewise, +the third menu under "Job Services" contains features related to job changing, +stats/skills and renting. The fourth pair is the "Other Services" menu which +contains the rest of modules which are probably not going to be used +frequently. + +For your convenience, the following is the list of all the menu options and the file(s) required for it to work: + +//Main Menu (under labels M_INIT/MD_INIT) + + "- Heal Service" -> ke_main.txt + "- Warp Service" + "- Use Storage" -> ke_main.txt + "- Use Guild Storage" -> ke_main.txt + "- Job Services" + "- Other Services" + "- Save Respawn point" -> ke_main.txt + +//Warp Menu (under labels M_WARP/MD_WARP) + + "- Dungeons" -> ke_warp_dungeon.txt + "- PvP Arena" -> ke_warp_pvp.txt + "- Guild Wars" -> ke_warp_gvg.txt + "- Towns" -> ke_warp_town.txt + +//Job Services Menu (under labels M_JOB/MD_JOB) + + "- Change Job" -> ke_jobchange.txt + "- Swap Job" -> ke_jobswap.txt + "- Stat/Skill Services" -> ke_stats.txt + "- Stat/Skill Market" -> ke_statmarket.txt + "- Rental Service" -> ke_rent.txt + +//Other Services Menu (under labels M_OTHER/MD_OTHER) + + "- Bank Services" -> ke_bank.txt + "- Use Kafra Shop" -> ke_shop.txt + "- Broadcast a message" -> ke_broadcast.txt + "- Refine Services" -> ke_refine.txt + "- Uncard Services" -> ke_uncard.txt + "- Stylist Service" -> ke_dye.txt + "- Use a Kafra Pass" -> ke_main.txt + +//////////////////////////////////////////////////////////////////////////////// +[01] Intro to individual module configuration. +//////////////////////////////////////////////////////////////////////////////// + +For portability reasons, the configure options for every module is in the file +config.txt, which lets you upgrade to future versions without having to +readjust your settings every time. +The config file has the options separated per module to make it easier to +read. There may be bits of code in each section to avoid parsing configure +options for unneeded variables which should be left alone. In some rare +occassions variables from one module will be used in a different module (ie: +Broadcasting PvP messages uses the variables from the pvp module). all variables +follow the standard "ke_variablename", so a variable called +"kewd_discount" refers to the discount variable in the deep warps module (wd). +For example, the renting module's configuration segment is: + + //------------------------------------------------------------------------------- + //Config for the Renting Module + //------------------------------------------------------------------------------- +OnLoadRent: + set $@kert_cartOnly, 0; //Set to 1 to enable only cart rental, 0 enables all add-ons. + set $@kert_cartCost, 2000; //Cost to rent a Cart. + set $@kert_falconCost, 2000; //Cost to rent a Falcon. + set $@kert_pecoCost, 2000; //Cost to rent a PecoPeco. + end; + +Variables are usually of two types: Exact value based or Percentage based. +Exact value variables are often price for different services, while the +percentage based are things like 30% discount when using Kafra Passes. +Percentage values are expressed per-hundredth (that is, 10 = 10%, 100 = 100%) +unless otherwise specified. + +Each variable has a small description next to it, hence the need of this +document. In this document the variable type is identified next to it by: (1) +when it's boolean, (%) when it's a percentage, ($) when it's a price, (#) for +numbers and (") for strings. + +//////////////////////////////////////////////////////////////////////////////// +[02] Module: Main Core (ke_main.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +This module offers the core functionality of the Kafra Express. Contains the +main menu and handles the Kafra Pass Reserve Points system. + +Variables +================================================================================ + +(1) ke_saveOnSpot +----------------- +When 1, a character's respawn point is saved exactly where they are standing. +otherwise, the respawn point is specified by the kafra definition (see Section +18). + +($) keh_hpCost +($) keh_spCost +-------------- +The cost of healing sp per every 10 sp. For example, if the cost is 1, it +costs 100z to heal 1000. + +($) kes_cost +($) kegs_cost +------------- +The cost of using the storage, guild storage (respectively) + +(1) kekp_reset +-------------- +For Kafra Passes. When 1, the Pass expires when starting a chat with the +Kafra. Otherwise the variable remains active a pretty long time (probably all +session). + +($) kekp_reserveCost +-------------------- +The cost in zeny of reserve points. When using a Kafra Pass many services will +be cheaper, the amount of zeny saved is "used" to grant the player reserve +points. For example, if the reserve cost is 100, for every 100z the player +saves, he'll earn 1 reserve points. Reserve points can be used in scripts, and +by default is used in the Al De Baran Kafra Headquarters to gain items. Use a +value of 0 to disable Reserve Point gaining. + +(#) kekp_minReserve +(#) kekp_maxReserve +--------------- +What is the minimum/maximum reserve points the player can gain when using a +Kafra Pass per transaction? This only applies when the player has saved at +least 1z. + +(") ked_users +------------- +Certain modules (in particular, the warping ones) have the ability to display +the number of players related to the function (ie: number of users in a +dungeon), in such cases this variable is used to display the 'unit' of said +count. For example, if ked_users is "kids" then the related modules might +display things like "- Glast Heim (6 kids)". + +//////////////////////////////////////////////////////////////////////////////// +[03] Module: Bank (ke_bank.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +This modules enables characters to "store" zeny on a virtual bank account +which is shared among characters of the same account. There can be deposits, +withdrawals, which can have transactions fees associated. + +It is also possible to establish a monthly maintenance fee that has to be +payed, when the player does not has enough money in the account to pay this +fee, they stop gaining interests until they deposit enough to pay it up. +Finally, all fees charged by the bank can be stored in a server-wide variable +which may be used by other custom scripts. + +Variables +================================================================================ + +(%) kebk_depositCost +(%) kebk_withdrawCost +--------------------- +The Fee in % charged whenever a player does a deposit/withdrawal. For example, +when a player deposits 100z and the fee is 3%, only 97z are deposited, and 3z +are charged. Likewise, if a player withdraws 100z when the fee is of 5%, +they'll withdraw 100z and an additional 5z will be removed from their accounts +as fee cost. + +($) kebk_minTransact +($) kebk_maxTransact +-------------------- +The minimum/maximum values of a single transaction (deposit or withdrawal) + +($) kebk_capacity +----------------- +Indicates what is the bank account capacity for players. That is, what is the +maximum zeny their account can hold. You can't deposit anymore once the max +has been reached, and daily interests are lost while maxed. + +(%) kebk_dayInterest +-------------------- +The daily interests that the account makes. The value is in 0.01% units, so a +value of 100 equals 1% daily interests. + +($) kebk_monMaintenance +----------------------- +Monthly flat fee charged for maintenance. + +(1) kebk_useGlobalBank +---------------------- +When 1, every fee charged from the player goes into a server variable +($ke_globalbank), which can then be used by other scripts. is 0 by default +because none of the Kafra Express modules uses it. + +//////////////////////////////////////////////////////////////////////////////// +[04] Module: Broadcast (ke_broadcast.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +Provides broadcasting services for players. Broadcasts can be local (current +map only) or global (server announce), there are also four types of broadcast: +Requests for a party, PvP Challenge invitations, General Broadcasts (player +input the string they want to say) and General Anonymous Broadcasts (player +name is not displayed when doing the broadcast). + +Note that the variables from ke_warp_pvp.txt will be used for auto-configuring +the pvp broadcasts. + +Variables: +================================================================================ + +(1) kebc_showOnline +------------------- +When 1, the total count of players will be displayed in the menu (map users +next to the local broadcast entry, server users next to the global broadcast +entry). + +($) kebc_partyCost +($) kebc_pvpCost +($) kebc_cost +($) kebc_anonCost +------------------ +Respective base costs for doing Party-Requests/Pvp Challenge/General/Anonymous +broadcasts. + +(%) kebc_globalFactor +--------------------- +When the broadcast is global, the base cost is multipled by this factor. If +the factor is 500, then global broadcasts cost 5x times the cost of the map's +broadcast. + +(%) kebc_discount +----------------- +Discount on broadcast prices when the Kafra Pass is active. + +//////////////////////////////////////////////////////////////////////////////// +[05] Module: Stylist (ke_dye.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +Offers cloth dye, hair dye and hair style changes, both by input and by wheel +browsing. Does not consumes dyestuffs because it is designed for custom dye +packages. + +Variables +================================================================================ + +(1) kedy_enableHairstyle +------------------------ +If one, the menu will include hair-style changing options, otherwise only +dye-changes are offered + +(#) kedy_styles +--------------- +Specifies the number of available hair styles + +(#) kedy_hair +------------- +Specificies the number of hair dyes + +(#) kedy_clothJN +(#) kedy_clothJ1ST +(#) kedy_clothJ2ND +(#) kedy_clothJSN +(#) kedy_clothJWED +------------------ +Specifies the number of cloth dyes based on job-type: Novices, First Classes, +Second Classes, Super Novices, Wedding Class. + +//////////////////////////////////////////////////////////////////////////////// +[06] Module: Job Changer (ke_jobchange.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +Offers job changing, including rebirth and baby classes. The rebirth system +can allow people free changing through a different path, or forcing the +correct path. Zeny can be charged/granted as well as weapons on job-change. +Remaining Skill Points can be wiped, ignored or prevent the change from +happening. Before changing players can review the consequences of doing so, +including weapons to gain. + +Finally, there's an option that makes it possible to skip the novice class +altogether and change directly to first jobs. + +Variables +================================================================================ + +(#) kejc_skillsPolicy +--------------------- +Determines what to do with remaining skill points upon change: + 0: No job changing until points are used. + 1: Extra Skill Points are wiped. + 2: Extra skill points are conserved. + +(#) kejc_upperPolicy +-------------------- +What to do about the advanced classes? + 0: Free for all, players can pick any advanced job regardless of the previous. + 1: Force mode, classes are auto-selected from the previous path. In the + case the path could not be determined (players changed jobs previously + using other npcs), players will be able to select their next job. + +(1) kejc_announce +----------------- +When 1, a global announce will be done upon change. + +(1) kejc_resetDye +----------------- +If one, the cloth dye is reset upon changing. + +(1) kejc_skipNovice +------------------- +If one, players can skip the novice class and directly into their first job. +Exploit proof, skills are wiped when changing to a 1st class this way, and +their basic skill level is set to 9. + +(#) kejc_baseSN +--------------- +Base Level required before changing into a Super Novice. + +(#) kejc_base2ND +(#) kejc_job2ND +(#) kejc_cost2ND +---------------- +Base level, Job level and zeny required to change into a second job. If the +cost is below zero, zeny will be given to the player instead of charged. + +(#) kejc_baseRebirth +(#) kejc_jobRebirth +(#) kejc_costRebirth +-------------------- +Base level, Job level and zeny required before doing a rebirth (change to High +Novice). + +(1) kejc_rebirthReset +--------------------- +If 1, when changing into a HighNovice characters will have their level reset +to 1 (with the additional 100 stat points) + +(1) kejc_weaponPolicy +--------------------- +If 1, characters will get a weapon upon job change. For each first&second +class there are two weapons to specify, the standard weapon and the "premium" +one. + +(#) kejc_wBonusLv +----------------- +When characters reach this job level, they will receive the premium weapon instead of the normal one. If 0, premium weapons are disabled. + +(#) kejc_wAcolyte +(#) kejc_wArcher +(#) kejc_wMage +(#) kejc_wMerchant +(#) kejc_wSwordman +(#) kejc_wThief +(#) kejc_wSuperNovice +(#) kejc_wPriest +(#) kejc_wMonk +(#) kejc_wHunter +(#) kejc_wBard +(#) kejc_wDancer +(#) kejc_wWizard +(#) kejc_wSage +(#) kejc_wBlacksmith +(#) kejc_wAlchemist +(#) kejc_wKnight +(#) kejc_wCrusader +(#) kejc_wAssassin +(#) kejc_wRogue +----------------------- +ID of the normal weapons received upon job change (if weapon policy is in +effect). + +(#) kejc_w2Priest +(#) kejc_w2Monk +(#) kejc_w2Hunter +(#) kejc_w2Bard +(#) kejc_w2Dancer +(#) kejc_w2Wizard +(#) kejc_w2Sage +(#) kejc_w2Blacksmith +(#) kejc_w2Alchemist +(#) kejc_w2Knight +(#) kejc_w2Crusader +(#) kejc_w2Assassin +(#) kejc_w2Rogue +-------------------- +ID of the premium weapons received upon job chane (if bonus weapon policy is +in effect). Note that first classes can't get a bonus weapon. + +//////////////////////////////////////////////////////////////////////////////// +[07] Module: Job Swapper (ke_jobswap.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +Permits characters to change jobs among other jobs of their same "level". +This is, between first classes or between second classes. It is also possible +to store the last job used and revert to it at a later date. Dye, Job Level +and Skill Point count is saved, however the skill-tree is not saved and skills +need be reallocated. When reverting to the previous class, characters might be +able to return from an adv class to a normal one, but if they are baby +classes, they can't change back to a normal one. + +Variables +================================================================================ + +(1) kejs_SNpolicy +----------------- +Determines what to do with Super Novices. if 0, they can't swap jobs, if 1, +they are considered first classes. + +(#) kejs_revertPolicy +--------------------- +Determines if Reverting classes is possible and when: + 0: Cannot go back to the previous job. + 1: Can only go back if the previous job belongs to the same type as the + first (is also a 1st/2nd job and is the same normal/adv/baby category). + 2: Can return to the previous job regardless (exception: when one of the + two jobs is a baby job and the other is not). + +(1) kejs_announce +----------------- +If 1 does a server announce when swapping jobs. + +($) kejs_revertCost +------------------- +Cost of changing to the previous job. + +(1) kejs_saveDye +---------------- +If one, the dye is saved when swapping and restored upon revert. + +(1) kejs_resetDye +----------------- +If 1 the clothe dye is reset upon swap. + +(%) kejs_swapDiscount +(%) kejs_revertDiscount +----------------------- +Discount % to apply when the kafra pass is active for swapping/reverting. + +(#) kejs_job1ST +(#) kejs_job2ND +--------------- +Minimum job level before being able to swap among 1st/2nd classes. + +($) kejs_cost1ST +($) kejs_cost2ND +---------------- +Base cost of swaping jobs. + +(%) kejs_discount1ST +(%) kejs_discount2ND +-------------------- +Discount % to apply to the base cost for every job level above the minimum +required. For example, if the discount is 1% per level and you change when you +have +10 level more than the min necessary, you get a 10% discount. + +(%) kejs_preserve1ST +(%) kejs_preserve2ND +-------------------- +Indicates how much of the previous job level to preserve when changing. For +example, if the preserve value is 50 (50%) and you change from a level 40 +Knight into Priest, you'll become a lv 20 Priest. Skill points are adjusted +accordingly so it's exploit-free. + +//////////////////////////////////////////////////////////////////////////////// +[08] Module: Smithery (ke_refine.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +Offers the services usually found in the town smithery and then some more: +Item refining, Item Repairing, Ore Purification (rough oris -> pure ones). +Also sells Phracon and Emveretarcon. + +Item refining can follow all the rules of normal refining, but it can also +override them to refine everything, or safe refines up to max level. + +Ore Purification can be extended to include all the rough materials that +blacksmiths can purify (star dust -> star crumbs, for example). + +Variables +================================================================================ + +(#) kerf_maxLv +-------------- +Maximum refinement level of equipment. + +(1) kerf_safe +------------- +If 1 success chances are ignoring and refining never fails. + +(1) kerf_showChance +------------------- +If 1 the chance of success/failure is actually shown before confirming. + +(1) kerf_refineAll +------------------ +If 1 then unrefinable items will be refined too (like accesories) + +(%) kerf_discount +----------------- +Discount rate to be applied during forging when the Kafra Pass is active. + +($) kerf_armorCost +($) kerf_weaponLv1Cost +($) kerf_weaponLv2Cost +($) kerf_weaponLv3Cost +($) kerf_weaponLv4Cost +---------------------- +Cost per level to refine armors, and level 1/2/3/4 weapons. + +(1) kerf_purifyAll +------------------ +If 1, the extended purify menu will be used, which shows how to purify steels, +star crumbs, etc; otherwise, just elus and oris are available. + +($) kerf_repairCost +------------------- +Cost of repairing a broken weapon. + +(%) kerf_repairDiscount +----------------------- +Repair Discount% when the kafra pass is active. + +(1) kerf_repairSteel +-------------------- +If 1, a steel will be required to repair items. + +//////////////////////////////////////////////////////////////////////////////// +[09] Module: Renting (ke_refine.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +Allows renting of Cart/Falcon/PecoPeco. Note that the only restriction applied +is whether the character has "PushCart", "Falcon Taming" or "PecoPeco Riding", +it does not checks for the character's class. + +It must also be noted that renting is free while the Kafra Pass is active. + +Variables +================================================================================ + +(1) kert_cartOnly +----------------- +If 1, this module only offers cart rentals. Otherwise you can rent any of the three. + +($) kert_cartCost +($) kert_falconCost +($) kert_pecoCost +------------------- +Cost for renting carts/falcons/pecos. + +//////////////////////////////////////////////////////////////////////////////// +[10] Module: Kafra Shop (ke_shop.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +Allows invoking of a shop from the Kafra. Note that the shops must be of +invisible type (ke_shop.txt has an example of two such shops). The config +enables you to select whether the shop will allow buying, selling or +both, as well as the name of the shops to use in towns or dungeons (if you +want to use a custom shop defined elsewhere or want to use the same shop for +both). + +Variables +================================================================================ + +(#) $@kesh_towntype +(#) $@kesh_duntype +------------------- +Specifies the type of transaction allowed at the shop. Use 1 to enable only +buying of items, 2 for only selling, or any other value for both. + +(#) $@kesh_townshop$ +(#) $@kesh_dunshop$ +-------------------- +Specifies the name of the shop to use for buying/selling of items. By default +the file includes two such shops which you can use, or you can disable them +and specify your own in the config changing these variables. + +//////////////////////////////////////////////////////////////////////////////// +[11] Module: Stat/Skill Market (ke_statmarket.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +Not really a "market", this module lets players sell and buy stat/skill +points. Also allows for direct trading between stats/skills. + +NOTE: Selling stat points can lead to zeny exploits if your server uses the +stat_db.txt file, because players can then sell all their stat points, do a +reset and get them back! To prevent this, set the following battle config +option: + use_statpoint_table: no +Alternatively, you can set the selling point of statpoints to be 0z. + +Variables +================================================================================ + +($) kesm_stBuyPrice +($) kesm_stSellPrice +-------------------- +Price for every stat point to be bought/sold. + +($) kesm_skBuyPrice +($) kesm_skSellPrice +-------------------- +Price for every skill point to be bought/sold. + +(%) kesm_discount +----------------- +Discount price when kafra pass is active. Only applies to buying stats/skills. + +(#) kesm_skTradePrice +(#) kesm_stTradePrice +--------------------- +These two define how many stat points are traded per each skill point when +doing a direct conversion between stats/skills. The idea is that trading +directly one for the other should be cheaper than selling them and then buying +from the other. You can set both to the same value and the trading will have +no loss. +Notice that skTradePrice is the cost for converting stats to skills and +stTradePrice is the cost for converting skills to stats. So... NEVER set +stTradePrice higher than skTradePrice or you allow an easy exploit of infinite +stats/skills! + +//////////////////////////////////////////////////////////////////////////////// +[11] Module: Stat/Skill Resets/Raising (ke_stats.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +Does stat/skills resets, and additionally helps characters raise their basic +stats faster. Optionally, skill resets will not touch the basic-skill level. +Price have two components: base fee and per level fee, so characters with +higher levels will have to pay more for a reset than low level ones. +For stat resetting, base level is taken into account. For skill resets, job +levels. For a dual reset, the addition of both is considered. Also, when taken +into consideration job level for second classes, the job-level at which one +changed jobs is also considered. So a Job level 1 Knight actually has job +level of 41~51. + +NOTE: Be careful with quest skills. If your server is configured to reset +quest skills and players can get their quest skills for free, you are letting +them exploit the system and get unlimited skill points! (even worse if they +can sell'em in the Stat/Skills market module). Be sure to either remove free +quest skills npcs or make quest skills not resetable. + +Variables: +================================================================================ + +($) kest_stResetCost +-------------------- +Base cost of doing a stat reset. + +($) kest_skResetCost +-------------------- +Base cost of doing a skill reset. + +($) kest_resetCost +------------------ +Base cost of a dual reset. + +($) kest_BaseLvCost +------------------- +Cost per Base level for doing a stat reset. + +($) kest_JobLvCost +------------------ +Cost per Job level for doing a skill reset. + +($) kest_BothLvCost +------------------- +Cost per Base+Job level for doing a dual reset. + +(%) kest_discount +----------------- +Discount % applied when Kafra Pass is active. + +(1) kest_resetBasic +------------------- +If 1, the skill "basic skill" is also reset. + +//////////////////////////////////////////////////////////////////////////////// +[12] Module: Uncarding (ke_uncard.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +This module allows people to remove cards from their equipped items. Prices +are modified by the item type, the amount of cards and the refine level of the +item. There's also a chance the removal will fail and: Nothing is lost, the +card or item is lost, both are lost. The procedure may also require up to two +different items (and each one with their own specified qty). + +Variables: +================================================================================ + +($) keuc_BaseCost +----------------- +Base cost of uncarding, modified by the following conditions: + +($) keuc_CardCost +----------------- +Each card to be removed increases the total by this value. + +($) keuc_UpgradeCostA +($) keuc_UpgradeCostW1 +($) keuc_UpgradeCostW2 +($) keuc_UpgradeCostW3 +($) keuc_UpgradeCostW4 +---------------------- +These indicate the price increase per refine level for armors and weapons +levels 1/2/3/4. A +10 armor gets a price increases of ten times +keuc_UpgradeCostA. + +(%) keuc_discount +----------------- +Discount % to apply when kafra pass is active. + +(#) keuc_Mat1 +(#) keuc_Qty1 +------------- +Id and Qty of the first material that is needed to uncard. If the qty is zero, +then it's disabled. + +(#) keuc_Mat2 +(#) keuc_Qty2 +------------- +id & Qty of the second material to use. Only valid if the first material was +also defined, use qty=0 to disable. + +(%) keuc_Fail0Chance +-------------------- +This is the safe failure chance (0-1000, where 1000 = 100.0%). A Safe failure +means the original item remains intact, but you are still charged the money +and the materials. Use 0 to disable this type of failure. + +(%) keuc_Fail1Chance +-------------------- +This is the partial failure chance (0-1000). Partial failures are when either +the cards or the item is lost. The player gets to choose which one is more +important before proceeding. Use 0 to disable. + +(%) keuc_Fail2Chance +-------------------- +Total failure chance (0-1000). When this triggers, both item and cards are +lost. Use 0 to disable. + +//////////////////////////////////////////////////////////////////////////////// +[14] Module: Town Warping (ke_warp_town.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +This module enables warping to towns. Currently all towns have the same +warping cost, independent of how far away they are placed. The only exception +is Niflheim, which is more of a dungeon than a town. + +Variables +================================================================================ + +(1) kewt_showOnline +------------------- +If set to 1, the menus will display the online count of players in +towns. + +($) kewt_cost +------------- +Cost of warping to a town. + +($) kewt_niflCost +----------------- +Cost of warping to Niflheim. Different cost since Niflheim is more of a +dungeon than a city. Also, players can't warp to Niflheim until they do the +Niflheim Piano Key Quest. + +(#) kewt_travel +--------------- +Allows enabling the traveller system. The traveller system makes it so you can't +warp to a town until you have been there first by some other means (usually +walking) and saved with the Kafra Express in that town. +There are three valid values for this variable: 0, 1, 2. +0 - Disables this mode. +1 - Uses the mode on a per character basis; that is, each character needs to +travel to that town and save and that unlocks warping only for that +character (note that this mode can mean up to 15+ variables per character, +which can become quite the overload on a large server). +2 - Uses the mode on a per account basis; that is, once a character has saved +on a town, all other (and future) characters from the same account have the +warp unlocked (uses up to 15+ variables per account). + +(1) kewt_free +------------- +If 1, players will be able to warp to towns even if they run out of money. +Niflheim excepted. + +(%) kewt_discount +----------------- +Discount % to apply when warping while the Kafra Pass is active. + +//////////////////////////////////////////////////////////////////////////////// +[15] Module: Dungeon Warping (ke_warp_dungeon.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +Offers warps to all dungeons. Dungeon warping has two main operation modes: +Deep Dungeon Warping and Short Dungeon Warping. Deep Dungeon warping enables +players to warp to any level of any dungeon, while Short Dungeon Warping is +restricted to warping only to the entrance of the dungeon. Traveller's mode is +also available for dungeons. + +Variables +================================================================================ + +(1) kewd_showOnline +------------------- +If set to 1, the menus will display the online online count of characters in +the dungeons. + +(%) kewd_discount +----------------- +Discount % to apply when warping while the Kafra Pass is active. + +(#) kewd_travel +--------------- +Enables the traveller system. Just like the traveller's system for towns, +you can't warp to any dungeon to which you have not visited first on foot and +saved with the corresponding Kafra Express first. +If 1, traveller's mode is enabled on a per character basis (so once a +character saves, only that character has unlocked the warp). Note that this +method stores up to 25 extra variables per character. +If 2, traveller's mode is enabled on a per account basis (so once a character +saves, all charaters of the corresponding account have the warp unlocked). +Note that this method stores up to 25 extra variables per account. + +(1) kewd_deep +------------- +This variable decides whether deep or short warps will be used. There's no +need to set it as it will be set automatically based on which file was +included (ke_warp_short.txt or ke_warp_deep.txt). + +(%) kewd_levelCost +------------------ +This variable only applies to deep warps. It indicates in percentage the cost +increase per level. For example, if the dungeon costs 1000z to warp to, and +the levelCost increase is of 50 (50%) then warping to level 2 costs 1500, lv3 +costs 2000, and so on. + +(%) kewd_entryDiscount +---------------------- +The discount for using the Kafra in the dungeon entrance to warp within the +dungeon. For example, if you use the Kafra next to Payon dungeon to warp to +Payon Dungeon lv5, this discount is then applied. This variable only makes +sense on deep warp mode. + +(1) kewd_turtleCave +------------------- +Only used on short warps. If 1, then warping to Turtle Dungeon should lead +directly to the cave's entrance, otherwise it warps you to the Island's +entrance. + +($) kewd_amatsu +($) kewd_antHell +($) kewd_ayothaya +($) kewd_byalan +($) kewd_comodo +($) kewd_clockTower +($) kewd_coalMines +($) kewd_culvert +($) kewd_gefenia +($) kewd_geffen +($) kewd_glastHeim +($) kewd_gonRyun +($) kewd_hiddenTemple +($) kewd_louYang +($) kewd_magma +($) kewd_orc +($) kewd_payon +($) kewd_pyramids +($) kewd_sphinx +($) kewd_sunkenShip +($) kewd_toyFactory +($) kewd_turtleIsland +($) kewd_umbala +--------------------- +Base cost of warping to each dungeon, that is, the entrance level cost. + +//////////////////////////////////////////////////////////////////////////////// +[16] Module: PvP Warping (ke_pvp.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +The PvP warping module leads to the pvp maps named pvp_n_*-*.gat. It has two +modes: simple and advanced. On simple mode, every player of every level gets +thrown into the pvp_n_1-*.gat maps to nuke it out, on advanced mode each of +the map groups gets their own range of permissible levels to enter. Since +there is no sure way how characters should escape from a pvp map, they are +currently given a butterfly wing when they warp. + +Variables +================================================================================ + +(1) kewp_showOnline +------------------- +If 1, the menu entries will display the online count of players of each entry. + +(1) kewp_advanced +----------------- +Use the advanced pvp system if 1 (see module description) + +($) kewp_cost +------------- +Cost of warping to the pvp rooms used in non-advanced rooms and "free for all" +in advanced mode. + +($) kewp_cost1 +($) kewp_cost2 +($) kewp_cost3 +($) kewp_cost4 +($) kewp_cost5 +($) kewp_cost6 +($) kewp_cost7 +-------------- +The costs for each of the pvp room groups in advanced mode. + +(#) kewp_baseLv1 +(#) kewp_baseLv2 +(#) kewp_baseLv3 +(#) kewp_baseLv4 +(#) kewp_baseLv5 +(#) kewp_baseLv6 +(#) kewp_baseLv7 +---------------- +These indicate the nominal base level for each room (which base level should +characters be around to join it). Applicable only to advanced mode. + +(#) kewp_range +-------------- +Specifies how far away the character's level can be from the nominal value to +still be allowed within the room. If the nominal level is 50 and the range is +3, only characters with levels 47-53 may join. + +//////////////////////////////////////////////////////////////////////////////// +[17] Module: WoE Warps (warp_woe.txt) +//////////////////////////////////////////////////////////////////////////////// + +Description +================================================================================ +This module allows characters to warp into the WoE grounds during (or out of) +War of Emperium times. Players may warp directly into the Guild Dungeons if +the proper lines are uncommented on the warp menu (See warp_woe.txt's header +for the location of the menu entries): + + menu "- Cancel",-, +// "- Guild Dungeons",M_DUNGEON, + "- Al De Baran Guild (""z)",L_ALDEBARAN, + "- Geffen Guild (""z)",L_GEFFEN, + "- Payon Guild (""z)",L_PAYON, + "- Prontera Guild (""z)",L_PRONTERA; + return; + +Variables +================================================================================ + +(1) kewg_check +-------------- +Does a guild check. If 1, only characters who belong to a guild can use these +warps. + +(1) kewg_checkAgit +------------------ +Does the WoE times check. If 1, only during War of Emperium the warps will be +active. + +(1) kewg_showOnline +------------------- +Set to 1 to display in the menus the online count of players in each of the +guild areas. It also adds a menu entry that displays the summary of players +within each castle and guild grounds. + +(%) kewg_discount +----------------- +Discount % to be applied for warps while the Kafra Pass is active. + +($) kewg_baldur +($) kewg_luina +($) kewg_valkyrie +($) kewg_britoniah +------------------ +Costs to the respective guild dungeons when enabled. + +($) kewg_alDeBaran +($) kewg_geffen +($) kewg_payon +($) kewg_prontera +------------------ +Costs to each of the guild grounds. + +//////////////////////////////////////////////////////////////////////////////// +[18] The kafras.txt file: About Kafra Definitions +//////////////////////////////////////////////////////////////////////////////// + +The file kafras.txt contains the definition of the Kafras, which is the actual +sprite on-screen that characters speak with. An enabled kafra may look like +this: + +//Alberta +alberta.gat,113,53,7 script Kafra Express 116,{ + callfunc "F_KafraExpress","Kafra Express","kafra_02",0,"alberta.gat",116,57; +} + +And a disabled/commented Kafra would look like this: + +//Prontera Guild Grounds +//prt_gld.gat,127,163,5 script Kafra Express 115,{ +// callfunc "F_KafraExpress","Kafra Express","kafra_03",1,"prt_gld.gat",129,170; +//} + +For scripters, the way to define an NPC is not new, and beyond the scope of +this document, so I'll only document the function "F_KafraExpress": + +F_KafraExpress (String "Kafra's name", String "kafra image file", int location, String map, int x, int save y) + +The first parameter, the Kafra's name, is the name that will be displayed all +over the dialogue windows. The Kafra Image file is the image that is to be +displayed on the screen during the npc chat (without the extension). You can +use "" to disable the image. + +Location refers to the type of Kafra. Type=0 refers to Kafras in towns while +Type=1 refers to Kafras placed in the wild, ie: in dungeons. Type=2 is for +Kafras that should count as both town & dungeon. Under these situations, the +menus displayed are those of the town, the type is used for the traveller's +warping mode. Finally, Type=3 is a special type used only for the Niflheim +Kafra. + +The last three Parameters are used to define the save location when you save +your respawn. They are not needed if you use the "Save-on-spot" feature, but +it's recommended to pass them nevertheless. Note that the map name will still +be used when using traveller's mode. -- cgit v1.2.3-70-g09d2