diff options
Diffstat (limited to 'npc/custom/eAAC_Scripts/kafraExpress')
21 files changed, 0 insertions, 7896 deletions
diff --git a/npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt b/npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt deleted file mode 100644 index 2f9555f1d..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt +++ /dev/null @@ -1,483 +0,0 @@ -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 deleted file mode 100644 index 6ff968655..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/config.txt +++ /dev/null @@ -1,419 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Config Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 2.4 -//===== Compatible With: ===================================== -//= Any rAthena Version with function support -//===== Description: ========================================= -//= Part of the Kafra Express Script Package. -//= This module contains the configuration of all modules. -//===== Additional Comments: ================================= -//= See <http://www.eathena.ws/board/index.php?showtopic=20290> -//= 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; //How many uses a kafra pass has before expiring? - //(if 0, 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) - 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 - - set $@kejc_disable,0; //Disable certain jobs from the changer: - //1: Super Novice - //2: Taekwon/Star Gladiator/Soul Linker - //4: GunSlinger - //8: Ninja - - //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: - setarray $@kejc_weapon1[0], - 1501, //Acolyte/Club - 1701, //Archer/Bow - 1601, //Mage/Rod - 1301, //Merchant/Axe - 1101, //Swordman/Sword - 1201, //Thief/Knife - 0, //Taekwon/Nothing (they don't wield weapons) - 1202, //Super Novice/Knife - 13010, //GunSlinger/Six Shooter - 1201; //Ninja/Knife - - //Normal Weapons for Second classes - setarray $@kejc_weapon_21[0], - 1551, //Priest/Bible - 1704, //Hunter/Composite Bow - 1602, //Wizard/Rod - 1351, //Blacksmith/Battle Axe - 1116, //Knight/Katana - 1250, //Assassin/Jur - 1550; //Star Gladiator/Book - - setarray $@kejc_weapon_22[0], - 1801, //Monk/Waghnak - 1704, //Bard/Dancer/Composite Bow - 1550, //Sage/Book - 1351, //Alchemist/Battle Axe - 1107, //Crusader/Blade - 1210, //Rogue/Cutter - 1602; //Soul Linker/Rod - - if ($@kejc_wBonusLv == 0) //Don't touch. - end; - - //Improved versions awarded to second classes - setarray $@kejc_weapon2_21[0], - 1519, //Priest/Chain - 1714, //Hunter/Gakkung - 1610, //Wizard/Arc Wand - 1360, //Blacksmith/Two-Handed Axe - 1160, //Knight/Broad-Sword - 1254, //Assassin/Jamadhar - 1552; //Star Gladiator/Tablet - - setarray $@kejc_weapon2_22[0], - 1811, //Monk/Finger - 1714, //Bard/Dancer/Gakkung - 1552, //Sage/Tablet - 1360, //Alchemist/Two-Handed Axe - 1119, //Crusader/Tsurugi - 1222, //Rogue/Damascus - 1610; //Soul Linker/Arc Wand - - end; - //------------------------------------------------------------------------------- - //Config for the Job Swapping Module - //------------------------------------------------------------------------------- -OnLoadJobSwap: - set $@kejs_disable,0; //Disable certain jobs from the swapper: - //1: Super Novice - //2: Taekwon/Star Gladiator/Soul Linker - //4: GunSlinger - //8: Ninja - - 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,3250; //Abyss Lake base cost - set $@kewd_amatsu,2500; //Amatsu Dungeon base cost - set $@kewd_antHell,750; //Anthell base cost - set $@kewd_ayothaya,2000; //Ayothaya Dungeon base cost - set $@kewd_byalan,1000; //Byalan base cost - set $@kewd_comodo,1500; //Comodo Caves base cost - set $@kewd_clockTower,2250; //Clock Tower base cost - set $@kewd_coalMines,1000; //Coal Mines base cost - set $@kewd_culvert,0500; //Prontera Culvert base cost - set $@kewd_einbech,2250; //Einbech Mines base cost - set $@kewd_gefenia,7000; //Gefenia base cost - set $@kewd_geffen,1500; //Geffen Dungeon base cost - set $@kewd_glastHeim,2500; //Glast Heim base cost - set $@kewd_gonRyun,2250; //Gonryun Dungeon base cost - set $@kewd_hiddenTemple,750; //Hidden Temple base cost - set $@kewd_juperos,3750; //Juperos base cost - set $@kewd_kiehl,3400; //Kiehl Doll Factory base cost - set $@kewd_iceCave,3750; //Ice Cave base cost - set $@kewd_lightHalzen,4500; //LightHalzen Rekkenber base cost - set $@kewd_louYang,2500; //Louyang Dungeon base cost - set $@kewd_magma,3000; //Magma Dungeon base cost - set $@kewd_odin,2750; //Odin Temple base cost - set $@kewd_orc,1000; //Orc Dungeon base cost - set $@kewd_payon,1000; //Payon Dungeon base cost - set $@kewd_pyramid,2000; //Pyramids base cost - set $@kewd_rachel,3000; //Rachel Sanctuary base cost - set $@kewd_sphinx,1750; //Sphinx base cost - set $@kewd_sunkenShip,1250; //Sunken Ship base cost - set $@kewd_thanatosTower,3250; //Thanatos Tower base cost - set $@kewd_toyFactory,1250; //Toy Factory base cost - set $@kewd_turtleIsland,3250; //Turtle Island base cost - set $@kewd_umbala,1750; //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 deleted file mode 100644 index d1a5d65a5..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/global_functionsKE.txt +++ /dev/null @@ -1,331 +0,0 @@ -//===== rAthena Script ======================================= -//= Global functions -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 1.5 -//===== Compatible With: ===================================== -//= rAthena 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: - return "taekwon kid"; - case Job_SuperNovice: - return "super novice"; - - case Job_Hunter: - return "hunter"; - case Job_Dancer: - return "dancer"; - case Job_Bard: - return "bard"; - case Job_Priest: - return "priest"; - case Job_Monk: - return "monk"; - case Job_Wizard: - return "wizard"; - case Job_Sage: - return "sage"; - case Job_BlackSmith: - return "blacksmith"; - case Job_Alchemist: - return "alchemist"; - case Job_Knight: - case Job_Knight2: - return "knight"; - case Job_Crusader: - case Job_Crusader2: - return "crusader"; - case Job_Assassin: - return "assassin"; - case Job_Rogue: - return "rogue"; - case Job_Star_Gladiator: - case Job_Star_Gladiator2: - return "star gladiator"; - case Job_Soul_Linker: - return "soul linker"; - - case Job_Novice_High: - return "high novice"; - case Job_Acolyte_High: - return "high acolyte"; - case Job_Archer_High: - return "high archer"; - case Job_Mage_High: - return "high mage"; - case Job_Merchant_High: - return "high merchant"; - case Job_Swordman_High: - return "high swordsman"; - case Job_Thief_High: - return "high thief"; - - case Job_Assassin_Cross: - return "assassin cross"; - case Job_Champion: - return "champion"; - case Job_Clown: - return "minstrel"; - case Job_Creator: - return "biochemist"; - case Job_Gypsy: - return "gypsy"; - case Job_High_Priest: - return "high priest"; - case Job_High_Wizard: - return "high wizard"; - case Job_Lord_Knight: - case Job_Lord_Knight2: - return "lord knight"; - case Job_Paladin: - case Job_Paladin2: - return "paladin"; - case Job_Professor: - return "professor"; - case Job_Sniper: - return "sniper"; - case Job_Stalker: - return "stalker"; - case Job_Whitesmith: - return "whitesmith"; - - case Job_Baby: - return "baby"; - case Job_Baby_Acolyte: - return "baby acolyte"; - case Job_Baby_Archer: - return "baby archer"; - case Job_Baby_Mage: - return "baby mage"; - case Job_Baby_Merchant: - return "baby merchant"; - case Job_Baby_Swordman: - return "baby swordsman"; - case Job_Baby_Thief: - return "baby thief"; - case Job_Super_Baby: - return "super baby"; - - case Job_Baby_Hunter: - return "baby hunter"; - case Job_Baby_Dancer: - return "baby dancer"; - case Job_Baby_Bard: - return "baby bard"; - case Job_Baby_Priest: - return "baby priest"; - case Job_Baby_Monk: - return "baby monk"; - case Job_Baby_Wizard: - return "baby wizard"; - case Job_Baby_Sage: - return "baby sage"; - case Job_Baby_BlackSmith: - return "baby blacksmith"; - case Job_Baby_Alchemist: - return "baby alchemist"; - case Job_Baby_Knight: - case Job_Baby_Knight2: - return "baby knight"; - case Job_Baby_Crusader: - case Job_Baby_Crusader2: - return "baby crusader"; - case Job_Baby_Assassin: - return "baby assassin"; - case Job_Baby_Rogue: - return "baby rogue"; - default: - return "unknown"; - } - -} - -//Returns job name using two params: JobId and Type -function script GF_getJobName2 { - set @classId, callfunc("GF_getJobId", getarg(0), getarg(1)); - return callfunc("GF_getJobName", @classId); -} - -//Returns a Job's ID modified by their Type -function script GF_getJobId { - set @classId, getarg(0); - set @type, getarg(1); - - if (@classId == Job_SuperNovice || @classId == Job_Super_Baby) { - switch (@type) { - case 0: - return Job_SuperNovice; - case 2: - return Job_Super_Baby; - default: - return @classId; - } - } - if (@classId >= Job_Taekwon && @classId <= Job_Soul_Linker) { - //Currently has no alternates. - return @classId; - } - if (@classId >= Job_Novice_High && @classId <= Job_Paladin2) - set @classId, @classId -Job_Novice_High; - else if (@classId >= Job_Baby && @classId <= Job_Super_Baby) - set @classId, @classId -Job_Baby; - - if (@type == 1) - set @classId, @classId +Job_Novice_High; - - if (@type == 2) - set @classId, @classId +Job_Baby; - - return @classId; -} - -//Returns the type of class: -//0= Novice, 1= First Class, 2= Second Class, 3= Super Novice -//4= Wedding -function script GF_getJobLevel { - - set @classId, getarg(0); - - if (@classId >= Job_Novice_High && @classId <= Job_Paladin2) - set @classId, @classId -Job_Novice_High; - - if (@classId >= Job_Baby && @classId <= Job_Baby_Crusader2) - set @classId, @classId -Job_Baby; - - if(@classId == Job_Novice) { - return 0; - } - if((@classId >= Job_Swordman && @classId <= Job_Thief) - || @classId == Job_Taekwon) { - return 1; - } - if ((@classId >= Job_Knight && @classId <= Job_Crusader2) - || (@classId >= Job_Star_Gladiator && @classId <= Job_Soul_Linker)) { - return 2; - } - - if(@classId == Job_SuperNovice || @classId == Job_Super_Baby) { - return 3; - } - if(@classId == 22) { - return 4; - } - return -1; -} - -//Returns the type of class, based on path: -//0= Normal Jobs, 1= Upper Jobs, 2= Baby Jobs -//Works the same as Upper, except you can pass any job id to get it's upper value -function script GF_getJobType { - set @classId, getarg(0); - - if ((@classId >= Job_Novice && @classId <= Job_SuperNovice) - || (@classId >= Job_Taekwon && @classId <= Job_Soul_Linker)) { - return 0; - } - if (@classId >= Job_Novice_High && @classId <= Job_Paladin2) { - return 1; - } - if (@classId >= Job_Baby && @classId <= Job_Super_Baby) { - return 2; - } - return -1; -} -//Returns the base class of the given job, return values are: -//Job_Novice (Novice, Baby Novice, Super Novice -//Job_Acolyte (Aco, Priest, Monk +High/Baby variations) -//Job_Archer (Archer, Sniper, Bard, Dancer +High/Baby variations) -//Job_Mage (Mage, Wizard, Sage +High/Baby variations) -//Job_Swordman (Swordsman, Knight, Crusader +High/Baby variations) -//Job_Thief (Thief, Assassin, Rogue +High/Baby variations) -//-1 : others (when wearing Tux/Wedding dress, for example) -//Works the same as baseClass, except you pass the class which you want -//examined. -function script GF_getJobClass { - set @classId, getarg(0); - - if (@classId >= Job_Novice_High && @classId <= Job_Paladin2) - set @classId, @classId -Job_Novice_High; - - if (@classId >= Job_Baby && @classId <= Job_Baby_Crusader2) - set @classId, @classId -Job_Baby; - - switch (@classId) { - case Job_Novice: - case Job_SuperNovice: - case Job_Super_Baby: - return Job_Novice; - - case Job_Acolyte: - case Job_Priest: - case Job_Monk: - return Job_Acolyte; - - case Job_Archer: - case Job_Hunter: - case Job_Bard: - case Job_Dancer: - return Job_Archer; - - case Job_Mage: - case Job_Wizard: - case Job_Sage: - return Job_Mage; - - case Job_Merchant: - case Job_BlackSmith: - case Job_Alchemist: - return Job_Merchant; - - case Job_Swordman: - case Job_Knight: - case Job_Knight2: - case Job_Paladin: - case Job_Paladin2: - return Job_Swordman; - - case Job_Thief: - case Job_Assassin: - case Job_Rogue: - return Job_Thief; - - case Job_Taekwon: - case Job_Star_Gladiator: - case Job_Star_Gladiator2: - case Job_Soul_Linker: - return Job_Taekwon; - - default: - return -1; - } -} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/kafras.txt b/npc/custom/eAAC_Scripts/kafraExpress/kafras.txt deleted file mode 100644 index a8ed11e80..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/kafras.txt +++ /dev/null @@ -1,321 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - NPC definitions -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 2.7 -//===== Compatible With: ===================================== -//= Any rAthena 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. -//= 2.8 Replaced '::' with '#'. [L0ne_W0lf] -//============================================================ - -//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,113,60,5 script Kafra Express#Alberta 116,{ - callfunc "F_KafraExpress","Kafra Express","kafra_02",0,"alberta",116,57; -} - -aldebaran,133,124,5 script Kafra Express#AlDeBaran 115,{ - callfunc "F_KafraExpress","Kafra Express","kafra_03",2,"aldebaran",139,131; -} - -amatsu,201,80,8 script Kafra Express#Amatsu 114,{ - callfunc "F_KafraExpress","Kafra Express","kafra_04",0,"amatsu",197,81; -} - -ayothaya,195,160,8 script Kafra Express#Ayothaya 112,{ - callfunc "F_KafraExpress","Kafra Express","kafra_06",0,"ayothaya",194,173; -} - -comodo,190,153,5 script Kafra Express#Comodo 721,{ - callfunc "F_KafraExpress","Kafra Express","kafra_07",0,"comodo",189,166; -} - -geffen,121,62,8 script Kafra Express#Geffen 113,{ - callfunc "F_KafraExpress","Kafra Express","kafra_05",0,"geffen",119,56; -} - -gonryun,169,188,2 script Kafra Express#GonRyun 117,{ - callfunc "F_KafraExpress","Kafra Express","kafra_01",2,"gonryun",168,199; -} - -einbech,143,243,3 script Kafra Express#Einbech 860,{ - callfunc "F_KafraExpress","Kafra Express","kafra_08",0,"einbech",157,250; -} - -einbroch,58,207,4 script Kafra Express#Einbroch 860,{ - callfunc "F_KafraExpress","Kafra Express","kafra_08",0,"einbroch",64,184; -} - -hugel,101,117,1 script Kafra Express#Hugel 115,{ - callfunc "F_KafraExpress","Kafra Express","kafra_03",0,"hugel",102,109; -} - -izlude,136,94,2 script Kafra Express#Izlude 115,{ - callfunc "F_KafraExpress","Kafra Express","kafra_03",0,"izlude",147,99; -} - -jawaii,208,217,7 script Kafra Express#Jawaii 721,{ - callfunc "F_KafraExpress","Kafra Express","kafra_07",0,"jawaii",213,209; -} - -lighthalzen,165,106,3 script Kafra Express#Light 861,{ - callfunc "F_KafraExpress","Kafra Express","kafra_09",0,"lighthalzen",152,106; -} - -louyang,220,123,3 script Kafra Express#LouYang 117,{ - callfunc "F_KafraExpress","Kafra Express","kafra_01",0,"louyang",221,128; -} - -xmas,148,126,4 script Kafra Express#Lutie 112,{ - callfunc "F_KafraExpress","Kafra Express","kafra_06",0,"xmas",149,117; -} - -morocc,154,97,3 script Kafra Express#Morocc 721,{ - callfunc "F_KafraExpress","Kafra Express","kafra_07",0,"morocc",156,91; -} - -niflheim,196,192,3 script Kafra Express#Niflheim 791,{ - callfunc "F_KafraExpress","Kafra Express","",3,"niflheim",194,185; -} - -payon,152,181,5 script Kafra Express#Payon 114,{ - callfunc "F_KafraExpress","Kafra Express","kafra_04",0,"payon",162,182; -} - -prontera,147,177,7 script Kafra Express#Prontera 116,{ - callfunc "F_KafraExpress","Kafra Express","kafra_02",0,"prontera",156,195; -} - -rachel,138,147,4 script Kafra Express#Rachel 114,{ - callfunc "F_KafraExpress","Kafra Express","kafra_04",0,"rachel",128,146; -} - -umbala,89,159,4 script Kafra Express#Umbala 860,{ - callfunc "F_KafraExpress","Kafra Express","kafra_08",0,"umbala",91,159; -} - -yuno,159,87,5 script Kafra Express#Yuno 861,{ - callfunc "F_KafraExpress","Kafra Express","kafra_09",0,"yuno",159,52; -} - -//Dungeon Kafras -//Abyss Lake -hu_fild05,170,305,7 script Kafra Express#D_Abyss 861,{ - callfunc "F_KafraExpress","Kafra Express","kafra_09",1,"hu_fild05",160,302; -} - -//Amatsu D -ama_in02,115,184,6 script Kafra Express#D_Amatsu 117,{ - callfunc "F_KafraExpress","Kafra Express","kafra_01",1,"ama_in02",118,184; -} - -//AntHell North -moc_fild04,208,323,1 script Kafra Express#D_Anthell1 114,{ - callfunc "F_KafraExpress","Kafra Express","kafra_04",1,"moc_fild04",207,332; -} - -//AntHell South -moc_fild15,251,243,3 script Kafra Express#D_Anthell2 114,{ - callfunc "F_KafraExpress","Kafra Express","kafra_04",1,"moc_fild15",246,251; -} - -//Ayothaya Dungeon -ayo_fild02,289,144,3 script Kafra Express#D_Ayothaya 116,{ - callfunc "F_KafraExpress","Kafra Express","kafra_02",1,"ayo_fild02",289,155; -} - -//Byalan Island -izlu2dun,101,82,7 script Kafra Express#D_Byalan 112,{ - callfunc "F_KafraExpress","Kafra Express","kafra_06",1,"izlu2dun",112,84; -} - -//Comodo East Cave -cmd_fild01,33,321,4 script Kafra Express#D_ComodoE 721,{ - callfunc "F_KafraExpress","Kafra Express","kafra_07",1,"cmd_fild01",34,325; -} - -//Comodo West Cave -comodo,31,218,4 script Kafra Express#D_ComodoW 721,{ - callfunc "F_KafraExpress","Kafra Express","kafra_07",1,"comodo",32,209; -} - -//Comodo North Cave -comodo,182,347,2 script Kafra Express#D_ComodoN 721,{ - callfunc "F_KafraExpress","Kafra Express","kafra_07",1,"comodo",180,352; -} - -//Coal Mines -mjolnir_02,83,364,4 script Kafra Express#D_Coal 861,{ - callfunc "F_KafraExpress","Kafra Express","kafra_09",1,"mjolnir_02",89,358; -} - -//Culvert -prt_fild05,275,219,5 script Kafra Express#D_Culvert 112,{ - callfunc "F_KafraExpress","Kafra Express","kafra_06",1,"prt_fild05",274,208; -} - -//Gefenia -gefenia01,56,171,6 script Kafra Express#D_Gefenia1 861,{ - callfunc "F_KafraExpress","Kafra Express","kafra_09",1,"gefenia01",59,169; -} - -//Geffen Dungeon -gef_tower,156,33,3 script Kafra Express#D_Geffen 113,{ - callfunc "F_KafraExpress","Kafra Express","kafra_05",1,"gef_tower",147,35; -} - -//GH: Church -glast_01,193,136,5 script Kafra Express#D_GHChurch 791,{ - callfunc "F_KafraExpress","Kafra Express","",1,"glast_01",206,136; -} - -//GH: Castle -glast_01,200,350,4 script Kafra Express#D_GHCastle 791,{ - callfunc "F_KafraExpress","Kafra Express","",1,"glast_01",200,347; -} - -//GH: Staircase -glast_01,58,103,7 script Kafra Express#D_GHStair 791,{ - callfunc "F_KafraExpress","Kafra Express","",1,"glast_01",62,107; -} - -//GH: Chivalry -glast_01,62,198,6 script Kafra Express#D_GHChiv 791,{ - callfunc "F_KafraExpress","Kafra Express","",1,"glast_01",69,193; -} - -//Ice Dungeon -ra_fild01,225,324,5 script Kafra Express#D_IceDun 861,{ - callfunc "F_KafraExpress","Kafra Express","kafra_09",1,"ra_fild01",244,326; -} - -//Kiehl Machine Doll Factory -yuno_fild08,72,184,4 script Kafra Express#D_Khiel 860,{ - callfunc "F_KafraExpress","Kafra Express","kafra_08",1,"yuno_fild08",67,182; -} - -//LightHalzen Rekkenber (Sewer Entrance) -lighthalzen,311,293,17 script Kafra Express#D_Lhz 860,{ - callfunc "F_KafraExpress","Kafra Express","kafra_08",1,"lighthalzen",301,286; -} - -//LightHalzen Rekkenber (Rekkenber Entrance)( -//lighthalzen,69,57,7 script Kafra Express#D_Lhz 860,{ -// callfunc "F_KafraExpress","Kafra Express","kafra_08",1,"lighthalzen",78,57; -//} - -//Juperos -jupe_cave,45,55,5 script Kafra Express#D_Juperos 860,{ - callfunc "F_KafraExpress","Kafra Express","kafra_08",1,"jupe_cave",45,48; -} - -//Laberynth -prt_fild01,143,365,3 script Kafra Express#D_Maze 112,{ - callfunc "F_KafraExpress","Kafra Express","kafra_06",1,"prt_fild01",136,361; -} - -//LouYang D -louyang,35,276,6 script Kafra Express#D_Louyang 117,{ - callfunc "F_KafraExpress","Kafra Express","kafra_01",1,"louyang",41,267; -} - -//Magma D -yuno_fild03,34,143,5 script Kafra Express#D_Magma 115,{ - callfunc "F_KafraExpress","Kafra Express","kafra_03",1,"yuno_fild03",35,135; -} - -//Odin Temple -odin_tem01,100,149,2 script Kafra Express#D_Odin 117,{ - callfunc "F_KafraExpress","Kafra Express","kafra_01",1,"odin_tem01",100,142; -} - -//Orc D North -in_orcs01,24,165,5 script Kafra Express#D_OrcsN 116,{ - callfunc "F_KafraExpress","Kafra Express","kafra_02",1,"in_orcs01",34,165; -} - -//Orc D South -in_orcs01,103,99,5 script Kafra Express#D_OrcsS 116,{ - callfunc "F_KafraExpress","Kafra Express","kafra_02",1,"in_orcs01",112,99; -} - -//Payon D -pay_arche,38,138,6 script Kafra Express#D_Payon 112,{ - callfunc "F_KafraExpress","Kafra Express","kafra_06",1,"pay_arche",41,133; -} - -//Pyramids D -moc_ruins,60,166,5 script Kafra Express#D_Pyramid 115,{ - callfunc "F_KafraExpress","Kafra Express","kafra_03",1,"moc_ruins",62,162; -} - -//Rachel Temple -ra_temin,268,325,5 script Kafra Express#D_Rachel 116,{ - callfunc "F_KafraExpress","Kafra Express","kafra_02",1,"ra_temin",284,325; -} - -//Sphinx D -moc_fild19,106,97,8 script Kafra Express#D_Sphinx 115,{ - callfunc "F_KafraExpress","Kafra Express","kafra_03",1,"moc_fild19",107,100; -} - -//Sunken Ship -alb2trea,75,101,5 script Kafra Express#D_Sunken 114,{ - callfunc "F_KafraExpress","Kafra Express","kafra_04",1,"alb2trea",87,103; -} - -//Thanatos Tower -tha_scene01,139,194,0 script Kafra Express#D_Thanatos 113,{ - callfunc "F_KafraExpress","Kafra Express","kafra_05",1,"tha_scene01",132,220; -} - -//Toy Factory -xmas,138,307,6 script Kafra Express#D_Toy 116,{ - callfunc "F_KafraExpress","Kafra Express","kafra_02",1,"xmas",144,306; -} - -//Turtle Cave Entrance -tur_dun01,147,237,6 script Kafra Express#D_TCave 113,{ - callfunc "F_KafraExpress","Kafra Express","kafra_05",1,"tur_dun01",155,234; -} - -//Turtle Island Entrance -tur_dun01,148,54,6 script Kafra Express#D_TIsland 113,{ - callfunc "F_KafraExpress","Kafra Express","kafra_05",1,"tur_dun01",153,47; -} - -//Umbala D -umbala,120,284,3 script Kafra Express#D_Umbala 117,{ - callfunc "F_KafraExpress","Kafra Express","kafra_01",1,"umbala",113,282; -} - -//Guild War Kafras: Disabled by Default! - -//Al De Baran Guild Grounds -//alde_gld,156,165,3 script Kafra Express#G_AlDeBaran 116,{ -// callfunc "F_KafraExpress","Kafra Express","kafra_02",1,"alde_gld",156,157; -//} - -//Geffen Guild Grounds -//gef_fild13,237,182,6 script Kafra Express#G_Geffen 113,{ -// callfunc "F_KafraExpress","Kafra Express","kafra_05",1,"gef_fild13",231,181; -//} - -//Payon Guild Grounds -//pay_gld,243,172,6 script Kafra Express#G_Payon 117,{ -// callfunc "F_KafraExpress","Kafra Express","kafra_01",1,"pay_gld",243,178; -//} - -//Prontera Guild Grounds -//prt_gld,127,163,5 script Kafra Express#G_Prontera 115,{ -// callfunc "F_KafraExpress","Kafra Express","kafra_03",1,"prt_gld",129,170; -//} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt deleted file mode 100644 index af90b37e7..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt +++ /dev/null @@ -1,179 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Bank Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 2.8 -//===== Compatible With: ===================================== -//= rAthena 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 -1,{ -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) - { - if (#ke_bank > 1000000) //Overflow protection - set @qty,(#ke_bank/10000)*$@kebk_dayInterest*(@banktick-#ke_banktick); - else - 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 deleted file mode 100644 index e750d5be0..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_broadcast.txt +++ /dev/null @@ -1,224 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Broadcasting Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 3.1 -//===== Compatible With: ===================================== -//= rAthena SVN8637+ -//===== 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 -1,{ -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 "+jobname(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 "+jobname(class)+" "+strcharinfo(0)+" is looking for PvP challengers "+@lvls$+"in the 'Room Sandwich'!",0; - break; - case 3: //Rockon - SF_doBroadcast @pvpcost,@map$,"The "+jobname(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 "+jobname(class)+" "+strcharinfo(0)+" is looking for PvP challengers "+@lvls$+"in the 'Four Room'!",0; - break; - case 5: //Undercross - SF_doBroadcast @pvpcost,@map$,"The "+jobname(class)+" "+strcharinfo(0)+" is looking for PvP challengers "+@lvls$+"in the 'Room Undercross'!",0; - break; - case 6: //Compass - SF_doBroadcast @pvpcost,@map$,"The "+jobname(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 deleted file mode 100644 index 75160f320..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_dye.txt +++ /dev/null @@ -1,134 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Stylist Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 2.0 -//===== Compatible With: ===================================== -//= rAthena SVN8637+ -//===== 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 -1,{ -OnInit: //Load Config - donpcevent "keConfig::OnLoadDye"; - end; -} - -function script F_keStylist { - - function SF_inputpalette; - function SF_wheelpalette; - - set @jobClass,eaclass(class); - if (@jobClass == -1) - set @maxCDye,0; - else { - if ((@jobClass&EAJ_BASEMASK) == EAJ_NOVICE) { - if (@jobClass&EAJL_2) - set @maxCDye, $@kedy_clothJSN; - else - set @maxCDye, $@kedy_clothJN; - } else { - if (@jobClass&EAJL_2) - set @maxCDye, $@kedy_clothJ2ND; - else - set @maxCDye, $@kedy_clothJ1ST; - } } - 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 deleted file mode 100644 index 5398f97f0..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_jobchange.txt +++ /dev/null @@ -1,385 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Job Changing Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 4.0 -//===== Compatible With: ===================================== -//= rAthena SVN R8840+ -//===== 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 permanent variables kej_class1 and kej_class2 -//============================================================ - -- script keInit_jobchange -1,{ -OnInit: //Load Config - donpcevent "keConfig::OnLoadJobChange"; - end; -} - -function script F_keJobChange { - - function SF_to1stJob; - function SF_to2ndJob; - function SF_getJobIndex; - function SF_getJobNames; - function SF_testChangeJob; - function SF_changeJob; - - set @job, eaClass(class); - set @type, @job&~EAJ_UPPERMASK; //Because it is changed when rebirthing - set @reset, 0; //Base Level is reset only on rebirths - if ((@job&EAJ_BASEMASK) == EAJ_NOVICE) - { //Novices - if (@job&EAJL_2) //S. Novices - goto L_FAIL; - 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); - } else - if(@job&EAJL_2){ - //Second classes - if (@job&~EAJ_UPPERMASK) //rebirth/baby - goto L_FAIL; - if (SF_testChangeJob($@kejc_costRebirth,$@kejc_baseRebirth,$@kejc_jobRebirth)) { - set @type, EAJL_UPPER; - if ($@kejc_skipNovice) - SF_to1stJob(1); - else - SF_changeJob @job,EAJ_NOVICE_HIGH,0,0,$@kejc_costRebirth,1,$@kejc_rebirthReset; - } - } else { - //First classes - if (SF_testChangeJob($@kejc_cost2ND,$@kejc_base2ND,$@kejc_job2ND)) - SF_to2ndJob(); - } - return; -L_FAIL: - //Dead End - callfunc "F_keIntro", e_swt2, "I cannot change you from your current job."; - return; - -//Handles changing to 1st job. -function SF_to1stJob { - setarray @classes[0], - EAJ_Acolyte|@type, - EAJ_Archer|@type, - EAJ_Mage|@type, - EAJ_Merchant|@type, - EAJ_Swordman|@type, - EAJ_Thief|@type, - EAJ_Taekwon|@type, - EAJ_Super_Novice|@type, - EAJ_GunSlinger|@type, - EAJ_Ninja|@type; - - do { - set @newjob, -1; - if (@type == EAJL_UPPER && $@kejc_upperPolicy && kej_class1) { - set @newjob, eaclass(kej_class1); - set @newjob, (@newjob&EAJ_UPPERMASK)|@type; - if (roclass(@newjob) == -1) - set @newjob, -1; - set @submenu, 1; - } - if (@newjob == -1) { - SF_getJobNames getarraysize(@classes); - if (@type&EAJL_UPPER || $@kejc_disable&1) - set @names$[7], ""; //No S.Novice - - if (@type&~EAJ_UPPERMASK) - { //No TK/NJ/GS for Baby/Advanced - set @names$[6], ""; - set @names$[8], ""; - set @names$[9], ""; - } else { - if ($@kejc_disable&2) //No TK - set @names$[6], ""; - if ($@kejc_disable&4) //No GS - set @names$[8], ""; - if ($@kejc_disable&8) //No NJ - set @names$[9], ""; - } - - set @submenu, select( - "- Cancel job change", - @names$[0], @names$[1], @names$[2], - @names$[3], @names$[4], @names$[5], - @names$[6], @names$[7], @names$[8], - @names$[9] - ); - - if (@submenu > 1) { - if (@submenu == 9 && //S. Novice's own change check. - SF_testChangeJob(0,$@kejc_baseSN,@jobLv) == 0) - return; - set @newjob, @classes[@submenu-2]; - } - } - - if (@newjob > -1) { - set @i, SF_getJobIndex(@newjob); - if (@i > -1) - set @weapon, $@kejc_weapon1[@i]; - else - set @weapon, 0; - if (getarg(0)) { //Skipping High Novice, charge rebirth costs. - if (SF_changeJob(@job,@newJob,@weapon,0,$@kejc_costRebirth,2,$@kejc_rebirthReset)) - return; - } else { - if (SF_changeJob(@job,@newJob,@weapon,0,0,2,0)) - return; - } - } - } while (@submenu > 1); -} - -function SF_to2ndJob { - do { - set @newjob, -1; - if (@type == EAJL_UPPER && $@kejc_upperPolicy && kej_class2) { - set @newjob, eaclass(kej_class2); - set @newjob, (@newjob&EAJ_UPPERMASK)|@type; - if (roclass(@newjob) == -1) - set @newjob, -1; //Invalid class. - else - if ((@newjob&EAJ_BASEMASK) != (@job&EAJ_BASEMASK)) - set @newjob, -1; //Saved next job does not corresponds to current 1st! - } - if (@newjob == -1) { //Fetch from menu. - setarray @classes[0], - (@job&EAJ_UPPERMASK)|@type|EAJL_2_1, - (@job&EAJ_UPPERMASK)|@type|EAJL_2_2; - - if (roclass(@classes[0]) == -1) - { //Can't upgrade? - callfunc "F_keIntro", e_swt2, "I cant' change you from your current job."; - return; - } - - SF_getJobNames 2; - set @submenu, select( - "- Cancel job change", - @names$[0],@names$[1] - ); - if (@submenu > 1) - set @newjob, @classes[@submenu-2]; - } - if (@newjob > -1) { - set @i, SF_getJobIndex(@newjob); - if (@i > -1) { - if (@newjob&EAJL_2_2) { //2-2 classes - set @weapon, $@kejc_weapon_22[@i]; - set @weapon2,$@kejc_weapon2_22[@i]; - } else { //2-1 classes - set @weapon, $@kejc_weapon_21[@i]; - set @weapon2,$@kejc_weapon2_21[@i]; - } - } else { - set @weapon, 0; - set @weapon2, 0; - } - if (SF_changeJob(@job,@newJob,@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 (CurrentJob, NewJob, Weapon, Weapon2, -// Zeny, WipeSkills, ResetLv) -//Attempts to change to the Jobgiven. -//CurrentJob is actual job in eA format. -//NewJob is job to change to in eA format. -//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 @job, getarg(0); - set @newjob,getarg(1); - set @weapon,getarg(2); - set @weapon2,getarg(3); - set @cost,getarg(4); - set @wipeSkill,getarg(5); - set @resetLv,getarg(6); - - if (roclass(@newjob) == -1) { //Invalid job? - callfunc "F_keIntro", -1, "I can't change you to this job..."; - return 0; - } - - set @jobStr$, jobname(roclass(@newjob)); - 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 awarded 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(@weapon2)+"]."; - } else { - mes "- You will receive a "+getitemname(@weapon2)+"["+getitemslots(@weapon2)+"] 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) { - if((@job&EAJ_BASEMASK) == @job && @job != EAJ_NOVICE) - set kej_class1,class; //Advancing to second class, so... - if(@job&EAJL_2) - set kej_class2,class; //Only way of being here is by doing a rebirth - if(@job&~EAJ_UPPERMASK) { - set kej_class1,0; //Clear when one is a high class - if(@job&~EAJL_2 && @job&EAJ_BASEMASK != EAJ_NOVICE) - 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; - if ($@kejc_weaponPolicy && @weapon > 0) { - if ($@kejc_wBonusLv && @weapon2 > 0 && JobLevel >= $@kejc_wBonusLv) - getitem @weapon2,1; - else - getitem @weapon,1; - } - jobchange roclass(@newjob); - if ($@kejc_announce) - announce strcharinfo(0)+" has been promoted to "+@jobStr$+"!",8; - set Zeny,Zeny-@cost; - emotion e_grat; - return 1; - default: //Cancel... - return 0; - } -} - -//SubFunction: SF_getJobIndex(Job) -//Given a job in eA format, retrieves the basic index which is used for the -//config arrays. -function SF_getJobIndex { - set @i, getarg(0); - set @i, @i&EAJ_BASEMASK; - switch (@i) { - case EAJ_ACOLYTE: - return 0; - case EAJ_ARCHER: - return 1; - case EAJ_MAGE: - return 2; - case EAJ_MERCHANT: - return 3; - case EAJ_SWORDMAN: - return 4; - case EAJ_THIEF: - return 5; - case EAJ_TAEKWON: - return 6; - case EAJ_NOVICE: //Super Novice, actually - return 7; - case EAJ_GUNSLINGER: - return 8; - case EAJ_NINJA: - return 9; - default: - return -1; - } -} - -//SubFunction: SF_getJobNames(Qty) -//Fills an array @names$ with the job names taken from the array "classes", -// making each entry start with "- " followed by the job name. -function SF_getJobNames { - set @size, getarg(0); - for (set @i, 0; @i < @size; set @i, @i+1) - setd "@names$["+@i+"]", "- "+jobname(roclass(@classes[@i])); -} - -} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_jobswap.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_jobswap.txt deleted file mode 100644 index 198650da5..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_jobswap.txt +++ /dev/null @@ -1,392 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Job Swapping Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 3.8 -//===== Compatible With: ===================================== -//= rAthena SVN8840+ -//===== 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 -1,{ -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 @thisJob, eaclass(Class); - set @type, @thisJob&~EAJ_UPPERMASK; - set @prevJob, eaclass(kej_prev_job); - set @prevLv, kej_prev_joblv; - - 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()) - 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 || @prevLv == 0 || - (@thisJob&EAJL_BABY != @prevJob&EAJL_BABY)) - return 0; - - if ($@kejs_revertPolicy == 2) - return 1; - - if ((@thisJob&EAJ_BASEMASK) == EAJ_NOVICE) - { - if ($@kejs_disable&1) - return 0; - if (@prevJob&(EAJL_UPPER|EAJL_2)) - return 0; - return 1; - } - - if ((@prevJob&EAJ_BASEMASK) == EAJ_NOVICE) - { - if ($@kejs_disable&1) - return 0; - - if (@thisJob&(EAJL_UPPER|EAJL_2)) - return 0; - return 1; - } - - if (@thisJob&~EAJ_UPPERMASK != @prevJob&~EAJ_UPPERMASK) - return 0; - - if (@thisJob&EAJL_2 && !(@prevJob&EAJL_2)) - return 0; - - if (@prevJob&EAJL_2 && !(@thisJob&EAJL_2)) - return 0; - - return 1; -} - -//SubFunction SF_canSwitch, specifies if character can change to another job. -function SF_canSwitch { - switch(@thisJob&EAJ_BASEMASK) { - case EAJ_NOVICE: - if ($@kejs_disable&1 || !@thisJob&EAJL_2) - return 0; - break; - case EAJ_TAEKWON: - if ($@kejs_disable&2) - return 0; - break; - case EAJ_GUNSLINGER: - if ($@kejs_disable&4) - return 0; - break; - case EAJ_NINJA: - if ($@kejs_disable&8) - return 0; - break; - } - return 1; -} - -//Sub Function SF_switch. Presents the switch job menu. Returns 1 only if the -//menu was left by picking "Cancel". -function SF_switch { - if (@thisJob&EAJL_2 && (@thisJob&EAJ_BASEMASK) != EAJ_NOVICE) { - //Second Classes - set @cost, SF_calcSwapCost($@kejs_job2ND, $@kejs_cost2ND, $@kejs_discount2ND); - set @preserve, $@kejs_preserve2ND; - if (!SF_testSwap($@kejs_job2ND, @cost)) - return 0; - - setarray @classes[0], - EAJ_Assassin|@type, - EAJ_Rogue|@type, - EAJ_Blacksmith|@type, - EAJ_Alchemist|@type, - EAJ_Hunter|@type, - EAJ_BardDancer|@type, - EAJ_Knight|@type, - EAJ_Crusader|@type, - EAJ_Priest|@type, - EAJ_Monk|@type, - EAJ_Wizard|@type, - EAJ_Sage|@type, - EAJ_Star_Gladiator|@type, - EAJ_Soul_Linker|@type; - - SF_getJobNames getarraysize(@classes); - - if (@type || $@kejs_disable&2) - { //No SG/SL - set @names$[12], ""; - set @names$[13], ""; - } - - do { - set @kmenu, select( - "- Cancel job change", - @names$[0], @names$[1], @names$[2], @names$[3], - @names$[4], @names$[5], @names$[6], @names$[7], - @names$[8], @names$[9], @names$[10], @names$[11], - @names$[12], @names$[13] - ); - - if (@kmenu > 1) { - set @job, roclass(@classes[@kmenu-2]); - if (@job > -1 && SF_swapJob(@job,@cost,@preserve)) - return 1; - } - } while (@kmenu > 1); - return 0; - } else { - //First Classes - set @cost, SF_calcSwapCost($@kejs_job1ST, $@kejs_cost1ST, $@kejs_discount1ST); - set @preserve, $@kejs_preserve1ST; - if (!SF_testSwap($@kejs_job1ST, @cost)) - return 0; - setarray @classes[0], - EAJ_Acolyte|@type, - EAJ_Archer|@type, - EAJ_Mage|@type, - EAJ_Merchant|@type, - EAJ_Swordman|@type, - EAJ_Thief|@type, - EAJ_Taekwon|@type, - EAJ_Super_Novice|@type, - EAJ_GunSlinger|@type, - EAJ_Ninja|@type; - - SF_getJobNames getarraysize(@classes); - - if ($@kejs_disable&1 || @type&EAJL_UPPER) - set @names$[7], ""; //No S.Novice - if (@type) - { //No TK/NJ/GS for Baby/Advanced - set @names$[6], ""; - set @names$[8], ""; - set @names$[9], ""; - } else { - if ($@kejs_disable&2) //No TK - set @names$[6], ""; - if ($@kejs_disable&4) //No GS - set @names$[8], ""; - if ($@kejs_disable&8) //No NJ - set @names$[9], ""; - } - - do { - set @kmenu, select( - "- Cancel job swap", - @names$[0], @names$[1], @names$[2], - @names$[3], @names$[4], @names$[5], - @names$[6], @names$[7], @names$[8], - @names$[9] - ); - - if (@kmenu > 1) { - set @job, roclass(@classes[@kmenu-2]); - if (@job > -1 && SF_swapJob(@job,@cost,@preserve)) - return 0; - } - } while (@kmenu > 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$, jobname(@newjobId); - set @oldJob$, jobname(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("NV_BASIC"); - set @skillpoint, skillpointcount() -JobLevel -@basic +@newjoblv; //Preserve holds the final amount of SkillPoints you should have. - - if (@skillpoint < 0) { - callfunc "F_keIntro", e_gasp, "You need "+(-@skillpoint)+" more skill points to change class!"; - return 0; - } - - 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_saveDye) - set kej_prev_dye,getlook(7); - } - 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 JobLevel, @newjoblv; - set SkillPoint, @skillpoint; - setoption(0); - sc_end -1; - callfunc "F_keCharge",getarg(1),$@kejs_swapDiscount,1; - - emotion e_ok; - return 1; -} - -//SubFunction: SF_revertJob (cost) -//Reverts to the previous job. -function SF_revertJob { - if (@thisJob == @prevJob) { - 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$, jobname(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("NV_BASIC"); - 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); - sc_end -1; - - if ($@kejs_announce) - announce strcharinfo(0)+" has changed from "+jobname(@thisJobId)+" to "+@newjob$+"...",16; - return 1; -} - -//SubFunction: SF_getJobNames(Qty) -//Fills an array @names$ with the job names taken from the array "classes", -// making each entry start with "- " followed by the job name. -function SF_getJobNames { - set @size, getarg(0); - for (set @i, 0; @i < @size; set @i, @i+1) - setd "@names$["+@i+"]", "- "+jobname(roclass(@classes[@i])); -} - -} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_main.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_main.txt deleted file mode 100644 index c42a072f2..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_main.txt +++ /dev/null @@ -1,408 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Main Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 5.7 -//===== Compatible With: ===================================== -//= rAthena 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 <http://www.eathena.ws/board/index.php?showtopic=20290> -//= 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 && @kafraPass > 0) - set @kafraPass,@kafraPass-1; - 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 && getskilllv("NV_BASIC") < 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 && getskilllv("NV_BASIC") < 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() == 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; - if ($@kekp_reset > 0) - set @kafraPass,$@kekp_reset; - else - 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 deleted file mode 100644 index c8a949839..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_refine.txt +++ /dev/null @@ -1,339 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Refining Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 2.8 -//===== Compatible With: ===================================== -//= rAthena 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 -1,{ -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 deleted file mode 100644 index 3806f20d8..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_rent.txt +++ /dev/null @@ -1,81 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Rental Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 1.8 -//===== Compatible With: ===================================== -//= rAthena SVN R3424+ -//===== Description: ========================================= -//= Part of the Kafra Express Script Package. -//= Rents PecoPecos, Falcons, Carts -//===== Additional Comments: ================================= -//= See config.txt for configuration. -//============================================================ - -- script keInit_rent -1,{ -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("MC_PUSHCART")==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("HT_FALCON")==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("KN_RIDING")==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 deleted file mode 100644 index e627d0c61..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_shop.txt +++ /dev/null @@ -1,66 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Portable Shop Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 0.1 -//===== Compatible With: ===================================== -//= rAthena SVN R5195+ -//===== Description: ========================================= -//= Part of the Kafra Express Script Package. -//= Offers buying/selling shop. -//===== Additional Comments: ================================= -//= See config.txt for configuration. -//============================================================ - -- script keInit_shop -1,{ -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 deleted file mode 100644 index 3951e2cd4..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_statmarket.txt +++ /dev/null @@ -1,128 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Expres - Stat/Skill Market Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 2.0 -//===== Compatible With: ===================================== -//= rAthena 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 -1,{ -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 many!"; - 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 many."; - 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 many."; - 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 deleted file mode 100644 index d4d5f510e..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_stats.txt +++ /dev/null @@ -1,130 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Stat/Reset Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 2.2 -//===== Compatible With: ===================================== -//= rAthena 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 -1,{ -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("NV_BASIC"); - 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 deleted file mode 100644 index 8c4f6f811..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_uncard.txt +++ /dev/null @@ -1,165 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Uncarder Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 1.6 -//===== Compatible With: ===================================== -//= rAthena SVN R3424+ -//===== Description: ========================================= -//= Part of the Kafra Express Script Package. -//= Offers uncarding services. -//===== Additional Comments: ================================= -//= See config.txt for configuration. -//============================================================ - -- script keInit_uncard -1,{ -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 deleted file mode 100644 index 199494184..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_dungeon.txt +++ /dev/null @@ -1,1739 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Dungeon Warps Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 4.2 -//===== Compatible With: ===================================== -//= rAthena SVN R3424+, RO Episode 8+ (Hugel) -//===== Description: ========================================= -//= Part of the Kafra Express Script Package. -//= Offers warping to dungeons. -//===== Additional Comments: ================================= -//= See config.txt for configuration. -//= Flag values used for dungeons: -//= 0x00000001 Abyss Lake -//= 0x00000002 Amatsu -//= 0x00000004 AntHell -//= 0x00000008 Ayothaya -//= 0x00000010 Byalan -//= 0x00000020 Comodo -//= 0x00000040 Clock tower -//= 0x00000080 Coal Mines -//= 0x00000100 Culvert -//= 0x00000200 Einbech -//= 0x00000400 Kiehl -//= 0x00000800 Geffen -//= 0x00001000 GlastHeim -//= 0x00002000 Gon Ryun -//= 0x00004000 Hidden Temple -//= 0x00008000 Juperos -//= 0x00010000 Lighthalzen -//= 0x00020000 Lou Yang -//= 0x00040000 Magma Caves -//= 0x00080000 Orcs -//= 0x00100000 Payon -//= 0x00200000 Pyramid -//= 0x00400000 Sphinx -//= 0x00800000 Sunken Ship -//= 0x01000000 Thanatos -//= 0x02000000 Toy Factory -//= 0x04000000 Turtle Island -//= 0x08000000 Umbala -//= 0x10000000 Odin Temple -//= 0x20000000 Ice Cave -//= 0x40000000 Rachel Temple -//============================================================ - -- script keInit_warpDungeon -1,{ -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_kiehl; -function SF_iceCave; -function SF_lightHalzen; -function SF_louYang; -function SF_magma; -function SF_odin; -function SF_orcs; -function SF_payon; -function SF_pyramid; -function SF_rachel; -function SF_sphinx; -function SF_sunkenShip; -function SF_thanatosTower; -function SF_toyFactory; -function SF_turtleIsland; -function SF_umbala; - //Store player map, will be needed in any of the submenus. - set @map$, getarg(0); - 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") - +getmapusers("abyss_02")+getmapusers("abyss_03"))+" "+$@ked_users$+")", - "- Amatsu Dungeon ("+$@kewd_amatsu*@discount/100+"z/"+(getmapusers("ama_dun01") - +getmapusers("ama_dun02")+getmapusers("ama_dun03"))+" "+$@ked_users$+")", - "- Ant Hell ("+$@kewd_antHell*@discount/100+"z/"+(getmapusers("anthell01") - +getmapusers("anthell02"))+" "+$@ked_users$+")", - "- Ayothaya Ancient Shrine ("+$@kewd_ayothaya*@discount/100+"z/"+(getmapusers("ayo_dun01") - +getmapusers("ayo_dun02"))+" "+$@ked_users$+")", - "- Byalan Dungeon ("+$@kewd_byalan*@discount/100+"z/"+(getmapusers("iz_dun00") - +getmapusers("iz_dun01")+getmapusers("iz_dun02")+getmapusers("iz_dun03") - +getmapusers("iz_dun04"))+" "+$@ked_users$+")", - "- Comodo Caves ("+$@kewd_comodo*@discount/100+"z/"+(getmapusers("beach_dun") - +getmapusers("beach_dun2")+getmapusers("beach_dun3"))+" "+$@ked_users$+")", - "- Clock Tower ("+$@kewd_clockTower*@discount/100+"z/"+(getmapusers("c_tower1") - +getmapusers("c_tower2")+getmapusers("c_tower3")+getmapusers("c_tower4") - +getmapusers("alde_dun01")+getmapusers("alde_dun02")+getmapusers("alde_dun03") - +getmapusers("alde_dun04"))+" "+$@ked_users$+")", - "- Coal Mine ("+$@kewd_coalMines*@discount/100+"z/"+(getmapusers("mjo_dun01") - +getmapusers("mjo_dun02")+getmapusers("mjo_dun03"))+" "+$@ked_users$+")", - "- Culvert ("+$@kewd_culvert*@discount/100+"z/"+(getmapusers("prt_sewb1")+getmapusers("prt_sewb2") - +getmapusers("prt_sewb3")+getmapusers("prt_sewb4"))+" "+$@ked_users$+")", - "- Einbroch Station ("+$@kewd_einbech*@discount/100+"z/"+(getmapusers("ein_dun01") - +getmapusers("ein_dun02"))+" "+$@ked_users$+")", - "- Gefenia ("+$@kewd_gefenia*@discount/100+"z/"+(getmapusers("gefenia01")+getmapusers("gefenia02") - +getmapusers("gefenia03")+getmapusers("gefenia04"))+" "+$@ked_users$+")", - "- Geffen Dungeon ("+$@kewd_geffen*@discount/100+"z/"+(getmapusers("gef_dun00") - +getmapusers("gef_dun01")+getmapusers("gef_dun02")+getmapusers("gef_dun03"))+" "+$@ked_users$+")", - "- Glast Heim ("+$@kewd_glastHeim*@discount/100+"z/"+(getmapusers("gl_cas02")+getmapusers("gl_church") - +getmapusers("gl_chyard")+getmapusers("gl_dun01")+getmapusers("gl_dun02") - +getmapusers("gl_in01")+getmapusers("gl_knt01")+getmapusers("gl_knt02") - +getmapusers("gl_prison")+getmapusers("gl_prison1")+getmapusers("gl_sew01") - +getmapusers("gl_sew02")+getmapusers("gl_sew03")+getmapusers("gl_sew04") - +getmapusers("gl_step")+getmapusers("glast_01"))+" "+$@ked_users$+")", - "- Gon Ryun Dungeon ("+$@kewd_gonRyun*@discount/100+"z/"+(getmapusers("gon_dun01") - +getmapusers("gon_dun02")+getmapusers("gon_dun03"))+" "+$@ked_users$+")", - "- Hidden Temple ("+$@kewd_hiddenTemple*@discount/100+"z/"+(getmapusers("prt_maze01") - +getmapusers("prt_maze02")+getmapusers("prt_maze03"))+" "+$@ked_users$+")", - "- Juperos ("+$@kewd_juperos*@discount/100+"z/"+(getmapusers("juperos_01")+getmapusers("juperos_02") - +getmapusers("jupe_area1")+getmapusers("jupe_area2")+getmapusers("jupe_core") - +getmapusers("jupe_gate")+getmapusers("jupe_area1"))+" "+$@ked_users$+")", - "- Kiehl Doll Factory ("+$@kewd_kiehl*@discount/100+"z/"+(getmapusers("kh_dun01") - +getmapusers("kh_dun02"))+" "+$@ked_users$+")", - "- Ice Cave("+$@kewd_iceCave*@discount/100+"z/"+(getmapusers("ice_dun01") - +getmapusers("ice_dun02")+getmapusers("ice_dun03"))+" "+$@ked_users$+")", - "- LightHalzen Rekkenber ("+$@kewd_lightHalzen*@discount/100+"z/"+(getmapusers("lhz_dun01") - +getmapusers("lhz_dun02")+getmapusers("lhz_dun03"))+" "+$@ked_users$+")", - "- Lou Yang Royal Tomb ("+$@kewd_louYang*@discount/100+"z/"+(getmapusers("lou_dun01") - +getmapusers("lou_dun02")+getmapusers("lou_dun03"))+" "+$@ked_users$+")", - "- Magma Dungeon ("+$@kewd_magma*@discount/100+"z/"+(getmapusers("mag_dun01") - +getmapusers("mag_dun02"))+" "+$@ked_users$+")", - "- Odin Temple ("+$@kewd_odin*@discount/100+"z/"+(getmapusers("odin_tem01") - +getmapusers("odin_tem02")+getmapusers("odin_tem03"))+" "+$@ked_users$+")", - "- Orc Dungeon ("+$@kewd_orc*@discount/100+"z/"+(getmapusers("orcsdun01") - +getmapusers("orcsdun02"))+" "+$@ked_users$+")", - "- Payon Dungeon ("+$@kewd_payon*@discount/100+"z/"+(getmapusers("pay_dun00") - +getmapusers("pay_dun01")+getmapusers("pay_dun02")+getmapusers("pay_dun03") - +getmapusers("pay_dun04"))+" "+$@ked_users$+")", - "- Pyramid ("+$@kewd_pyramid*@discount/100+"z/"+(getmapusers("moc_pryd01")+getmapusers("moc_pryd02") - +getmapusers("moc_pryd03")+getmapusers("moc_pryd04")+getmapusers("moc_pryd05") - +getmapusers("moc_pryd06")+getmapusers("moc_prydb1"))+" "+$@ked_users$+")", - "- Rachel Temple ("+$@kewd_rachel*@discount/100+"z/"+(getmapusers("ra_san01") - +getmapusers("ra_san02")+getmapusers("ra_san03")+getmapusers("ra_san04") - +getmapusers("ra_san05"))+" "+$@ked_users$+")", - "- Sphinx ("+$@kewd_sphinx*@discount/100+"z/"+(getmapusers("in_sphinx1") - +getmapusers("in_sphinx2")+getmapusers("in_sphinx3")+getmapusers("in_sphinx4") - +getmapusers("in_sphinx5"))+" "+$@ked_users$+")", - "- Sunken Ship ("+$@kewd_sunkenShip*@discount/100+"z/"+(getmapusers("treasure01") - +getmapusers("treasure02"))+" "+$@ked_users$+")", - "- Thanatos Tower ("+$@kewd_thanatosTower*@discount/100+"z/"+(getmapusers("tha_t01") - +getmapusers("tha_t02")+getmapusers("tha_t03")+getmapusers("tha_t04") - +getmapusers("tha_t05")+getmapusers("tha_t06")+getmapusers("tha_t07") - +getmapusers("tha_t08")+getmapusers("tha_t09")+getmapusers("tha_t10") - +getmapusers("tha_t11")+getmapusers("tha_t12")+getmapusers("thana_step") - +getmapusers("thana_boss"))+" "+$@ked_users$+")", - "- Toy Factory ("+$@kewd_toyFactory*@discount/100+"z/"+(getmapusers("xmas_dun01") - +getmapusers("xmas_dun02"))+" "+$@ked_users$+")", - "- Turtle Island ("+$@kewd_turtleIsland*@discount/100+"z/"+(getmapusers("tur_dun01") - +getmapusers("tur_dun02")+getmapusers("tur_dun03")+getmapusers("tur_dun04") - +getmapusers("tur_dun05")+getmapusers("tur_dun06"))+" "+$@ked_users$+")", - "- Umbala Dungeon ("+$@kewd_umbala*@discount/100+"z/"+(getmapusers("um_dun01") - +getmapusers("um_dun02"))+" "+$@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)", - "- Kiehl Doll Factory ("+$@kewd_kiehl*@discount/100+"z)", - "- Ice Cave ("+$@kewd_iceCave*@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)", - "- Odin Temple ("+$@kewd_odin*@discount/100+"z)", - "- Orcs Dungeon ("+$@kewd_orc*@discount/100+"z)", - "- Payon Dungeon ("+$@kewd_payon*@discount/100+"z)", - "- Pyramid ("+$@kewd_pyramid*@discount/100+"z)", - "- Rachel Temple ("+$@kewd_rachel*@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_kiehl(); - break; - case 19: - SF_iceCave(); - break; - case 20: - SF_lightHalzen(); - break; - case 21: - SF_louYang(); - break; - case 22: - SF_magma(); - break; - case 23: - SF_odin(); - break; - case 24: - SF_orcs(); - break; - case 25: - SF_payon(); - break; - case 26: - SF_pyramid(); - break; - case 27: - SF_rachel(); - break; - case 28: - SF_sphinx(); - break; - case 29: - SF_sunkenShip(); - break; - case 30: - SF_thanatosTower(); - break; - case 31: - SF_toyFactory(); - break; - case 32: - SF_turtleIsland(); - break; - case 33: - SF_umbala(); - break; - default: - return; - } - } while (@kmenu > 1); - return; - -//Subfunction SF_check(flag, cost, floor-count, player-map, dungeon-map#, map#1, map#2, ...) -//If kewd_travel is set, the flag needs to match to be to warp 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 && !((kewd_travel|#kewd_travel)&getarg(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(1); - set @discount,100; - set @map$, getarg(3); - set @mapI, getarg(4); - - while (@mapI > 0) - { - if (@map$ == getarg(4+@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; - - //@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; - - //Reuse temp variable to set floor costs. - set @mapI, getarg(2); - set @inc,@cost*$@kewd_levelCost/100; - while (@mapI > 1) { - setd "@cost"+@mapI, @cost+(@mapI-1)*@inc; - set @mapI, @mapI-1; - } - return 1; -} - -function SF_abyssLake { - if (!(SF_check(0x1, $@kewd_abyssLake, 3, @map$, 1, "hu_fild05"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("abyss_02")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("abyss_03")+" "+$@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",173,308; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"abyss_02",272,270; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"abyss_03",116,29; - break; - } -} - -function SF_amatsu { - if (!(SF_check(0x2, $@kewd_amatsu, 3, @map$, 1, "ama_in02"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("ama_dun02")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("ama_dun03")+" "+$@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",120,181; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"ama_dun02",34,41; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"ama_dun03",119,14; - break; - } -} - -function SF_antHell { - if (!(SF_check(0x4, $@kewd_antHell, 1, @map$, 2, "moc_fild04","moc_fild15"))) - return; - if ($@kewd_showOnline) { - set @submenu, select( - "- Cancel warp to Ant Hell", - "- Northern Entrance ("+@cost+"z/"+getmapusers("anthell01")+" "+$@ked_users$+")", - "- Southern Entrance ("+@cost+"z/"+getmapusers("anthell02")+" "+$@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",201,327; - break; - case 3: - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"moc_fild15",246,251; - break; - } -} - -function SF_ayothaya { - if (!(SF_check(0x8, $@kewd_ayothaya, 2, @map$, 1, "ayo_fild02"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("ayo_dun02")+" "+$@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",273,150; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"ayo_dun02",24,28; - break; - } -} - -function SF_byalan { - if (!(SF_check(0x10, $@kewd_byalan, 5, @map$, 1, "izlu2dun"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("iz_dun01")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("iz_dun02")+" "+$@ked_users$+")", - "- Level 4 ("+@cost4+"z/"+getmapusers("iz_dun03")+" "+$@ked_users$+")", - "- Level 5 ("+@cost5+"z/"+getmapusers("iz_dun04")+" "+$@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",114,84; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"iz_dun01",253,252; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"iz_dun02",236,204; - break; - case 5: - callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"iz_dun03",32,63; - break; - case 6: - callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"iz_dun04",26,27; - break; - } -} - -function SF_comodo { - if (!(SF_check(0x20, $@kewd_comodo, 1, @map$, 2, "comodo","cmd_fild01"))) - return; - - if ($@kewd_showOnline) { - set @submenu, select( - "- Cancel warp to Comodo Caves", - "- Mao, The Eastern Cave ("+@cost+"z/"+getmapusers("beach_dun3")+" "+$@ked_users$+")", - "- Karu, The Western Cave ("+@cost+"z/"+getmapusers("beach_dun")+" "+$@ked_users$+")", - "- Ruande, The Northern Cave ("+@cost+"z/"+getmapusers("beach_dun2")+" "+$@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",34,325; - break; - case 3: - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"comodo",32,209; - break; - case 4: - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"comodo",180,352; - break; - } -} - -function SF_clockTower { - if (!(SF_check(0x40, $@kewd_clockTower, 5, @map$, 1, "aldebaran"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("c_tower2")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("c_tower3")+" "+$@ked_users$+")", - "- Level 4 ("+@cost4+"z/"+getmapusers("c_tower4")+" "+$@ked_users$+")", - "- Basement 1 ("+@cost2+"z/"+getmapusers("alde_dun01")+" "+$@ked_users$+")", - "- Basement 2 ("+@cost3+"z/"+getmapusers("alde_dun02")+" "+$@ked_users$+")", - "- Basement 3 ("+@cost4+"z/"+getmapusers("alde_dun03")+" "+$@ked_users$+")", - "- Basement 4 ("+@cost5+"z/"+getmapusers("alde_dun04")+" "+$@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",140,130; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"c_tower2",268,26; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"c_tower3",68,146; - break; - case 5: - callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"c_tower4",185,44; - break; - case 6: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"alde_dun01",297,25; - break; - case 7: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"alde_dun02",43,24; - break; - case 8: - callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"alde_dun03",18,267; - break; - case 9: - callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"alde_dun04",82,267; - break; - } -} - -function SF_coalMine { - if (!(SF_check(0x80, $@kewd_coalMines, 3, @map$, 1, "mjolnir_02"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("mjo_dun02")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("mjo_dun03")+" "+$@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",89,358; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"mjo_dun02",376,342; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"mjo_dun03",305,260; - break; - } -} - -function SF_culvert { - if (!(SF_check(0x100, $@kewd_culvert, 4, @map$, 1, "prt_fild05"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("prt_sewb2")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("prt_sewb3")+" "+$@ked_users$+")", - "- Level 4 ("+@cost4+"z/"+getmapusers("prt_sewb4")+" "+$@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",274,208; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"prt_sewb2",19,19; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"prt_sewb3",180,169; - break; - case 5: - callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"prt_sewb4",100,92; - break; - } -} - -function SF_einbech { - if (!(SF_check(0x200, $@kewd_einbech, 2, @map$, 1, "einbech"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("ein_dun02")+" "+$@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",138,244; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"ein_dun02",290,285; - break; - } -} - -function SF_geffen { - if (!(SF_check(0x800, $@kewd_geffen, 3, @map$, 1, "gef_tower"))) - 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")+" "+$@ked_users$+")", - "- Level 1 ("+@cost2+"z/"+getmapusers("gef_dun01")+" "+$@ked_users$+")", - "- Level 2 ("+@cost3+"z/"+getmapusers("gef_dun02")+" "+$@ked_users$+")" -// "- Level 3 ("+@cost4+"z/"+getmapusers("gef_dun03")+" "+$@ked_users$+")" - ); - } else { - set @submenu, select( - "- Cancel warp to Geffen Dungeon", - "- Entrance ("+@cost+"z)", - "- Level 1 ("+@cost2+"z)", - "- Level 2 ("+@cost3+"z)" -// "- Level 3 ("+@cost4+"z)" - ); - } - switch (@submenu) { - case 2: - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"gef_tower",147,35; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gef_dun01",115,236; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"gef_dun02",106,132; - break; - case 5: - callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"gef_dun03",203,200; - break; - } -} - -function SF_gefenia { - if (!(SF_check(0x400, $@kewd_gefenia, 2, @map$, 4, "gefenia01","gefenia02","gefenia03","gefenia04"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("gefenia02")+" "+$@ked_users$+")", - "- Level 3 ("+@cost2+"z/"+getmapusers("gefenia03")+" "+$@ked_users$+")", - "- Level 4 ("+@cost+"z/"+getmapusers("gefenia04")+" "+$@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",60,169; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gefenia02",116,116; - break; - case 4: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gefenia03",119,277; - break; - case 5: - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"gefenia04",129,86; - break; - } -} - -function SF_glastHeim { - if (!(SF_check(0x1000, $@kewd_glastHeim, 7, @map$, 1, "glast_01"))) - return; - if ($@kewd_deep == 0) { - if ($@kewd_showOnline) { - set @submenu, select( - "- Cancel warp to Glast Heim", - "- Church Entrance ("+@cost+"z/"+getmapusers("gl_church")+" "+$@ked_users$+")", - "- Castle Terrace ("+@cost+"z/"+(getmapusers("gl_cas01")+getmapusers("gl_cas02"))+" "+$@ked_users$+")", - "- Staircase Entrance ("+@cost+"z/"+getmapusers("gl_step")+" "+$@ked_users$+")", - "- Chivalry Entrance ("+@cost+"z/"+getmapusers("gl_knt01")+" "+$@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")+" "+$@ked_users$+")", - "- Churchyard ("+@cost2+"z/"+getmapusers("gl_chyard")+" "+$@ked_users$+")", - "- Castle Terrace ("+@cost+"z/"+(getmapusers("gl_cas01")+getmapusers("gl_cas02"))+" "+$@ked_users$+")", - "- Staircase Entrance ("+@cost+"z/"+getmapusers("gl_step")+" "+$@ked_users$+")", - "- Chivalry Entrance ("+@cost+"z/"+getmapusers("gl_knt01")+" "+$@ked_users$+")", - "- Chivalry Level 2 ("+@cost2+"z/"+getmapusers("gl_knt02")+" "+$@ked_users$+")", - "- Underground Prison 1 ("+@cost2+"z/"+getmapusers("gl_prison")+" "+$@ked_users$+")", - "- Underground Prison 2 ("+@cost3+"z/"+getmapusers("gl_prison1")+" "+$@ked_users$+")", - "- Culvert Level 1 ("+@cost4+"z/"+getmapusers("gl_sew01")+" "+$@ked_users$+")", - "- Culvert Level 2 ("+@cost3+"z/"+getmapusers("gl_sew02")+" "+$@ked_users$+")", - "- Culvert Level 3 ("+@cost4+"z/"+getmapusers("gl_sew03")+" "+$@ked_users$+")", - "- Culvert Level 4 ("+@cost5+"z/"+getmapusers("gl_sew04")+" "+$@ked_users$+")", - "- Underground Cave 1 ("+@cost6+"z/"+getmapusers("gl_dun01")+" "+$@ked_users$+")", - "- Underground Cave 2 ("+@cost7+"z/"+getmapusers("gl_dun02")+" "+$@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",206,136; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gl_chyard",147,15; - break; - case 4: - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"glast_01",199,335; - break; - case 5: - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"glast_01",62,107; - break; - case 6: - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"glast_01",69,193; - break; - case 7: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gl_knt02",157,287; - break; - case 8: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gl_prison",14,70; - break; - case 9: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"gl_prison1",150,14; - break; - case 10: - callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"gl_sew01",258,255; - break; - case 11: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"gl_sew02",108,291; - break; - case 12: - callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"gl_sew03",171,283; - break; - case 13: - callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"gl_sew04",68,277; - break; - case 14: - callfunc "F_keWarp",@cost6*100/@discountKP,$@kewd_discount,e_hmm,"gl_dun01",133,271; - break; - case 15: - callfunc "F_keWarp",@cost7*100/@discountKP,$@kewd_discount,e_hmm,"gl_dun02",224,274; - break; - } -} - -function SF_gonRyun { - if (!(SF_check(0x2000, $@kewd_gonRyun, 3, @map$, 1, "gonryun"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("gon_dun02")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("gon_dun03")+" "+$@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",161,195; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"gon_dun02",22,114; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"gon_dun03",68,11; - break; - } -} - -function SF_hiddenTemple { - if (!(SF_check(0x4000, $@kewd_hiddenTemple, 3, @map$, 1, "prt_fild01"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("prt_maze02")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("prt_maze03")+" "+$@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",136,361; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"prt_maze02",106,62; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"prt_maze03",23,8; - break; - } -} - -function SF_juperos { - if (!(SF_check(0x8000, $@kewd_juperos, 3, @map$, 1, "jupe_cave"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("juperos_02")+" "+$@ked_users$+")", - "- Core ("+@cost3+"z/"+getmapusers("jupe_core")+" "+$@ked_users$+")" - ); - } else { - set @submenu, select( - "- Cancel warp to Juperos", - "- 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",55,52; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"juperos_02",37,63; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"jupe_gate",-1,-1; - break; - } -} - -function SF_kiehl { - if (!(SF_check(0x400, $@kewd_kiehl, 3, @map$, 1, "yuno_fild08"))) - return; - if ($@kewd_deep == 0) - set @submenu, 2; - else if ($@kewd_showOnline) { - set @submenu, select( - "- Cancel warp to Machine Doll Factory", - "- Entrance ("+@cost+"z/"+getmapusers("kh_dun01")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("kh_dun02")+" "+$@ked_users$+")" - ); - } else { - set @submenu, select( - "- Cancel warp to Machine Doll Factory", - "- Entrance ("+@cost+"z)", - "- Level 2 ("+@cost2+"z)" - ); - } - switch (@submenu) { - case 2: - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"yuno_fild08",80,179; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"kh_dun02",41,198; - break; - } -} - -function SF_iceCave { - if (!(SF_check(0x20000000, $@kewd_iceCave, 3, @map$, 1, "ra_fild01"))) - return; - if ($@kewd_deep == 0) - set @submenu, 2; - else if ($@kewd_showOnline) { - set @submenu, select( - "- Cancel warp to the Ice Cave", - "- Entrance ("+@cost+"z/"+getmapusers("ice_dun01")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("ice_dun02")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("ice_dun03")+" "+$@ked_users$+")" - ); - } else { - set @submenu, select( - "- Cancel warp to the Ice Cave", - "- 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,"ra_fild01",233,319; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"ice_dun02",151,151; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"ice_dun03",148,25; - break; - } -} - -function SF_lightHalzen { - if (!(SF_check(0x10000, $@kewd_lightHalzen, 3, @map$, 1, "lighthalzen"))) - return; - if ($@kewd_deep == 0) - set @submenu, 2; - else if ($@kewd_showOnline) { - set @submenu, select( - "- Cancel warp to the Rekkenber", - "- Entrance ("+@cost+"z/"+getmapusers("lhz_dun01")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("lhz_dun02")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("lhz_dun03")+" "+$@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: -//This is the Rekkenber building entrance, which officially is only a dungeon exit. - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"lighthalzen",74,72; -// callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"lighthalzen",303,302; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"lhz_dun02",154,18; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"lhz_dun03",141,132; - break; - } -} - -function SF_louYang { - if (!(SF_check(0x20000, $@kewd_louYang, 3, @map$, 1, "louyang"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("lou_dun02")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("lou_dun03")+" "+$@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",41,267; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"lou_dun02",281,20; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"lou_dun03",165,39; - break; - } -} - -function SF_magma { - if (!(SF_check(0x40000, $@kewd_magma, 2, @map$, 1, "yuno_fild03"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("mag_dun02")+" "+$@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",35,135; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"mag_dun02",47,30; - break; - } -} - -function SF_odin { - if (!(SF_check(0x10000000, $@kewd_odin, 5, @map$, 1, "odin_tem01"))) - return; - if ($@kewd_deep == 0) - set @submenu, 2; - else if ($@kewd_showOnline) { - set @submenu, select( - "- Cancel warp to the Odin Temple", - "- Entrance ("+@cost+"z/"+getmapusers("odin_tem01")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("odin_tem02")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("odin_tem03")+" "+$@ked_users$+")" - ); - } else { - set @submenu, select( - "- Cancel warp to the Odin Temple", - "- 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,"odin_tem01",91,145; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"odin_tem02",25,181; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"odin_tem03",120,54; - break; - } -} - -function SF_orcs { - if (!(SF_check(0x80000, $@kewd_orc, 2, @map$, 1, "gef_fild10"))) - return; - if ($@kewd_showOnline) { - set @submenu, select( - "- Cancel warp to Orcs Dungeon", - "- Front Entrance ("+@cost+"z/"+getmapusers("orcsdun01")+" "+$@ked_users$+")", - "- Back Entrance ("+@cost+"z/"+getmapusers("orcsdun02")+" "+$@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",34,165; - break; - case 3: - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"in_orcs01",112,99; - break; - } -} - -function SF_payon { - if (!(SF_check(0x100000, $@kewd_payon, 5, @map$, 1, "pay_arche"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("pay_dun01")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("pay_dun02")+" "+$@ked_users$+")", - "- Level 4 ("+@cost4+"z/"+getmapusers("pay_dun03")+" "+$@ked_users$+")", - "- Level 5 ("+@cost5+"z/"+getmapusers("pay_dun04")+" "+$@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",41,133; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"pay_dun01",19,33; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"pay_dun02",19,63; - break; - case 5: - callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"pay_dun03",155,159; - break; - case 6: - callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"pay_dun04",34,202; - break; - } -} - -function SF_pyramid { - if (!(SF_check(0x200000, $@kewd_pyramid, 4, @map$,1, "moc_ruins"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("moc_pryd02")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("moc_pryd03")+" "+$@ked_users$+")", - "- Level 4 ("+@cost4+"z/"+getmapusers("moc_pryd04")+" "+$@ked_users$+")", - "- Basement 1 ("+@cost2+"z/"+getmapusers("moc_pryd05")+" "+$@ked_users$+")", - "- Basement 2 ("+@cost3+"z/"+getmapusers("moc_pryd06")+" "+$@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",62,162; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"moc_pryd02",10,192; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"moc_pryd03",100,92; - break; - case 5: - callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"moc_pryd04",18,187; - break; - case 6: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"moc_pryd05",94,96; - break; - case 7: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"moc_pryd06",192,11; - break; - } -} - -function SF_rachel { - if (!(SF_check(0x40000000, $@kewd_rachel, 5, @map$, 1, "ra_temin"))) - return; - if ($@kewd_deep == 0) - set @submenu, 2; - else if ($@kewd_showOnline) { - set @submenu, select( - "- Cancel warp to Freya's Temple", - "- Entrance ("+@cost+"z/"+getmapusers("ra_san01")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("ra_san02")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("ra_san03")+" "+$@ked_users$+")", - "- Level 4 ("+@cost4+"z/"+getmapusers("ra_san04")+" "+$@ked_users$+")", - "- Level 5 ("+@cost5+"z/"+getmapusers("ra_san05")+" "+$@ked_users$+")" - ); - } else { - set @submenu, select( - "- Cancel warp to Freya's Temple", - "- 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,"ra_temin",276,318; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"ra_san02",36,21; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"ra_san03",10,150; - break; - case 5: - callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"ra_san04",204,216; - break; - case 6: - callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"ra_san05",149,16; - break; - } -} - -function SF_sphinx { - if (!(SF_check(0x400000, $@kewd_sphinx, 5, @map$, 1, "moc_fild19"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("in_sphinx2")+" "+$@ked_users$+")", - "- Level 3 ("+@cost3+"z/"+getmapusers("in_sphinx3")+" "+$@ked_users$+")", - "- Level 4 ("+@cost4+"z/"+getmapusers("in_sphinx4")+" "+$@ked_users$+")", - "- Level 5 ("+@cost5+"z/"+getmapusers("in_sphinx5")+" "+$@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",107,100; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"in_sphinx2",149,81; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"in_sphinx3",210,54; - break; - case 5: - callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"in_sphinx4",10,222; - break; - case 6: - callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"in_sphinx5",100,99; - break; - } -} - -function SF_sunkenShip { - if (!(SF_check(0x800000, $@kewd_sunkenShip, 2, @map$, 1, "alb2trea"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("treasure02")+" "+$@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",87,103; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"treasure02",102,27; - break; - } -} - -function SF_thanatosTower { - if (!(SF_check(0x1000000, $@kewd_thanatosTower, 13, @map$, 1, "tha_scene01"))) - 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")+" "+$@ked_users$+")", - "- Floor 2 ("+@cost2+"z/"+getmapusers("tha_t02")+" "+$@ked_users$+")", - "- Floor 3 ("+@cost3+"z/"+getmapusers("tha_t03")+" "+$@ked_users$+")", - "- Floor 4 ("+@cost4+"z/"+getmapusers("tha_t04")+" "+$@ked_users$+")", - "- Floor 5 ("+@cost5+"z/"+getmapusers("tha_t05")+" "+$@ked_users$+")", - "- Floor 6 ("+@cost6+"z/"+getmapusers("tha_t06")+" "+$@ked_users$+")", - "- Floor 7 ("+@cost7+"z/"+getmapusers("tha_t07")+" "+$@ked_users$+")", - "- Floor 8 ("+@cost8+"z/"+getmapusers("tha_t08")+" "+$@ked_users$+")", - "- Floor 9 ("+@cost9+"z/"+getmapusers("tha_t09")+" "+$@ked_users$+")", - "- Floor 10 ("+@cost10+"z/"+getmapusers("tha_t10")+" "+$@ked_users$+")", - "- Floor 11 ("+@cost11+"z/"+getmapusers("tha_t11")+" "+$@ked_users$+")", - "- Floor 12 ("+@cost12+"z/"+getmapusers("tha_t12")+" "+$@ked_users$+")" -// "- Terrace ("+@cost13+"z/"+getmapusers("thana_boss")+" "+$@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)", - "- Floor 10 ("+@cost10+"z)", - "- Floor 11 ("+@cost11+"z)", - "- Floor 12 ("+@cost12+"z)" -// "- Terrace ("+@cost13+"z)" - ); - } - switch (@submenu) { - case 2: - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"tha_scene01",139,201; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"tha_t02",149,136; - break; - case 4: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"tha_t03",220,159; - break; - case 5: - callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"tha_t04",59,144; - break; - case 6: - callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"tha_t05",62,9; - break; - case 7: - callfunc "F_keWarp",@cost6*100/@discountKP,$@kewd_discount,e_hmm,"tha_t06",120,225; - break; - case 8: - callfunc "F_keWarp",@cost7*100/@discountKP,$@kewd_discount,e_hmm,"tha_t07",32,166; - break; - case 9: - callfunc "F_keWarp",@cost8*100/@discountKP,$@kewd_discount,e_hmm,"tha_t08",108,44; - break; - case 10: - callfunc "F_keWarp",@cost9*100/@discountKP,$@kewd_discount,e_hmm,"tha_t09",87,145; - break; - case 11: - callfunc "F_keWarp",@cost10*100/@discountKP,$@kewd_discount,e_hmm,"tha_t10",166,138; - break; - case 12: - callfunc "F_keWarp",@cost11*100/@discountKP,$@kewd_discount,e_hmm,"tha_t11",88,36; - break; - case 13: - callfunc "F_keWarp",@cost12*100/@discountKP,$@kewd_discount,e_hmm,"tha_t12",132,55; - break; - case 14: - callfunc "F_keWarp",@cost13*100/@discountKP,$@kewd_discount,e_hmm,"thana_boss",135,126; - break; - } -} - -function SF_toyFactory { - if (!(SF_check(0x2000000, $@kewd_toyFactory, 2, @map$, 1, "xmas"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("xmas_dun02")+" "+$@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",144,306; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"xmas_dun02",129,133; - break; - } -} - -function SF_turtleIsland { - if (!(SF_check(0x4000000, $@kewd_turtleIsland, 3, @map$, 1, "tur_dun01"))) - 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")+" "+$@ked_users$+")", - "- Cave Entrance ("+@cost+"z/"+getmapusers("tur_dun02")+" "+$@ked_users$+")", - "- Cave Level 2 ("+@cost2+"z/"+getmapusers("tur_dun03")+" "+$@ked_users$+")", - "- Cave Level 3 ("+@cost3+"z/"+getmapusers("tur_dun04")+" "+$@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",153,47; - break; - case 3: - callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"tur_dun01",155,234; - break; - case 4: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"tur_dun03",132,189; - break; - case 5: - callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"tur_dun04",100,192; - break; - } -} - -function SF_umbala { - if (!(SF_check(0x8000000, $@kewd_umbala, 2, @map$, 1, "umbala"))) - 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")+" "+$@ked_users$+")", - "- Level 2 ("+@cost2+"z/"+getmapusers("um_dun02")+" "+$@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",113,282; - break; - case 3: - callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"um_dun02",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 (kewd_travel) { //Copy over character permissions. - set #kewd_travel,#kewd_travel|kewd_travel; - set kewd_travel, 0; - } - - if (@map$ == "hu_fild05") - set #kewd_travel,#kewd_travel|0x1; - if (@map$ == "ama_in02") - set #kewd_travel,#kewd_travel|0x2; - if (@map$ == "moc_fild04" || @map$ == "moc_fild15") - set #kewd_travel,#kewd_travel|0x4; - if (@map$ == "ayo_fild02") - set #kewd_travel,#kewd_travel|0x8; - if (@map$ == "izlu2dun") - set #kewd_travel,#kewd_travel|0x10; - if (@map$ == "comodo" || @map$ == "cmd_fild01") - set #kewd_travel,#kewd_travel|0x20; - if (@map$ == "aldebaran") - set #kewd_travel,#kewd_travel|0x40; - if (@map$ == "mjolnir_02") - set #kewd_travel,#kewd_travel|0x80; - if (@map$ == "prt_fild05") - set #kewd_travel,#kewd_travel|0x100; - if (@map$ == "einbech") - set #kewd_travel,#kewd_travel|0x200; - if (@map$ == "yuno_fild08") - set #kewd_travel,#kewd_travel|0x400; - if (@map$ == "gef_tower") - set #kewd_travel,#kewd_travel|0x800; - if (@map$ == "glast_01") - set #kewd_travel,#kewd_travel|0x1000; - if (@map$ == "gonryun") - set #kewd_travel,#kewd_travel|0x2000; - if (@map$ == "prt_fild01") - set #kewd_travel,#kewd_travel|0x4000; - if (@map$ == "jupe_cave") - set #kewd_travel,#kewd_travel|0x8000; - if (@map$ == "lighthalzen") - set #kewd_travel,#kewd_travel|0x10000; - if (@map$ == "louyang") - set #kewd_travel,#kewd_travel|0x20000; - if (@map$ == "yuno_fild03") - set #kewd_travel,#kewd_travel|0x40000; - if (@map$ == "in_orcs01") - set #kewd_travel,#kewd_travel|0x80000; - if (@map$ == "pay_arche") - set #kewd_travel,#kewd_travel|0x100000; - if (@map$ == "moc_ruins") - set #kewd_travel,#kewd_travel|0x200000; - if (@map$ == "moc_fild19") - set #kewd_travel,#kewd_travel|0x400000; - if (@map$ == "alb2trea") - set #kewd_travel,#kewd_travel|0x800000; - if (@map$ == "tha_scene01") - set #kewd_travel,#kewd_travel|0x1000000; - if (@map$ == "xmas") - set #kewd_travel,#kewd_travel|0x2000000; - if (@map$ == "tur_dun01") - set #kewd_travel,#kewd_travel|0x4000000; - if (@map$ == "umbala") - set #kewd_travel,#kewd_travel|0x8000000; - if (@map$ == "odin_tem01") - set #kewd_travel,#kewd_travel|0x10000000; - if (@map$ == "ra_fild01") - set #kewd_travel,#kewd_travel|0x20000000; - if (@map$ == "ra_temin") - set #kewd_travel,#kewd_travel|0x40000000; - } else { - if (@map$ == "hu_fild05") - set kewd_travel,kewd_travel|0x1; - if (@map$ == "ama_in02") - set kewd_travel,kewd_travel|0x2; - if (@map$ == "moc_fild04" || @map$ == "moc_fild15") - set kewd_travel,kewd_travel|0x4; - if (@map$ == "ayo_fild02") - set kewd_travel,kewd_travel|0x8; - if (@map$ == "izlu2dun") - set kewd_travel,kewd_travel|0x10; - if (@map$ == "comodo" || @map$ == "cmd_fild01") - set kewd_travel,kewd_travel|0x20; - if (@map$ == "aldebaran") - set kewd_travel,kewd_travel|0x40; - if (@map$ == "mjolnir_02") - set kewd_travel,kewd_travel|0x80; - if (@map$ == "prt_fild05") - set kewd_travel,kewd_travel|0x100; - if (@map$ == "einbech") - set kewd_travel,kewd_travel|0x200; - if (@map$ == "yuno_fild08") - set kewd_travel,kewd_travel|0x400; - if (@map$ == "gef_tower") - set kewd_travel,kewd_travel|0x800; - if (@map$ == "glast_01") - set kewd_travel,kewd_travel|0x1000; - if (@map$ == "gonryun") - set kewd_travel,kewd_travel|0x2000; - if (@map$ == "prt_fild01") - set kewd_travel,kewd_travel|0x4000; - if (@map$ == "jupe_cave") - set kewd_travel,kewd_travel|0x8000; - if (@map$ == "lighthalzen") - set kewd_travel,kewd_travel|0x10000; - if (@map$ == "louyang") - set kewd_travel,kewd_travel|0x20000; - if (@map$ == "yuno_fild03") - set kewd_travel,kewd_travel|0x40000; - if (@map$ == "in_orcs01") - set kewd_travel,kewd_travel|0x80000; - if (@map$ == "pay_arche") - set kewd_travel,kewd_travel|0x100000; - if (@map$ == "moc_ruins") - set kewd_travel,kewd_travel|0x200000; - if (@map$ == "moc_fild19") - set kewd_travel,kewd_travel|0x400000; - if (@map$ == "alb2trea") - set kewd_travel,kewd_travel|0x800000; - if (@map$ == "tha_scene01") - set kewd_travel,kewd_travel|0x1000000; - if (@map$ == "xmas") - set kewd_travel,kewd_travel|0x2000000; - if (@map$ == "tur_dun01") - set kewd_travel,kewd_travel|0x4000000; - if (@map$ == "umbala") - set kewd_travel,kewd_travel|0x8000000; - if (@map$ == "odin_tem01") - set kewd_travel,kewd_travel|0x10000000; - if (@map$ == "ra_fild01") - set kewd_travel,kewd_travel|0x20000000; - if (@map$ == "ra_temin") - set kewd_travel,kewd_travel|0x40000000; - } - return; -} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_pvp.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_pvp.txt deleted file mode 100644 index 9e8c5cd3c..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_pvp.txt +++ /dev/null @@ -1,156 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Pvp Warping Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 1.7 -//===== Compatible With: ===================================== -//= rAthena 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 -1,{ -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")+getmapusers("pvp_n_8-2") - +getmapusers("pvp_n_8-3")+getmapusers("pvp_n_8-4")+getmapusers("pvp_n_8-5"))+" "+$@ked_users$+")", - "- Levels "+($@kewp_baseLv1-$@kewp_range)+"-"+($@kewp_baseLv1+$@kewp_range)+" Rooms ("+($@kewp_cost1*@cost)+"z/" - +(getmapusers("pvp_n_1-1")+getmapusers("pvp_n_1-2")+getmapusers("pvp_n_1-3") - +getmapusers("pvp_n_1-4")+getmapusers("pvp_n_1-5"))+" "+$@ked_users$+")", - "- Levels "+($@kewp_baseLv2-$@kewp_range)+"-"+($@kewp_baseLv2+$@kewp_range)+" Rooms ("+($@kewp_cost2*@cost)+"z/" - +(getmapusers("pvp_n_2-1")+getmapusers("pvp_n_2-2")+getmapusers("pvp_n_2-3") - +getmapusers("pvp_n_2-4")+getmapusers("pvp_n_2-5"))+" "+$@ked_users$+")", - "- Levels "+($@kewp_baseLv3-$@kewp_range)+"-"+($@kewp_baseLv3+$@kewp_range)+" Rooms ("+($@kewp_cost3*@cost)+"z/" - +(getmapusers("pvp_n_3-1")+getmapusers("pvp_n_3-2")+getmapusers("pvp_n_3-3") - +getmapusers("pvp_n_3-4")+getmapusers("pvp_n_3-5"))+" "+$@ked_users$+")", - "- Levels "+($@kewp_baseLv4-$@kewp_range)+"-"+($@kewp_baseLv4+$@kewp_range)+" Rooms ("+($@kewp_cost4*@cost)+"z/" - +(getmapusers("pvp_n_4-1")+getmapusers("pvp_n_4-2")+getmapusers("pvp_n_4-3") - +getmapusers("pvp_n_4-4")+getmapusers("pvp_n_4-5"))+" "+$@ked_users$+")", - "- Levels "+($@kewp_baseLv5-$@kewp_range)+"-"+($@kewp_baseLv5+$@kewp_range)+" Rooms ("+($@kewp_cost5*@cost)+"z/" - +(getmapusers("pvp_n_5-1")+getmapusers("pvp_n_5-2")+getmapusers("pvp_n_5-3") - +getmapusers("pvp_n_5-4")+getmapusers("pvp_n_5-5"))+" "+$@ked_users$+")", - "- Levels "+($@kewp_baseLv6-$@kewp_range)+"-"+($@kewp_baseLv6+$@kewp_range)+" Rooms ("+($@kewp_cost6*@cost)+"z/" - +(getmapusers("pvp_n_6-1")+getmapusers("pvp_n_6-2")+getmapusers("pvp_n_6-3") - +getmapusers("pvp_n_6-4")+getmapusers("pvp_n_6-5"))+" "+$@ked_users$+")", - "- Levels "+($@kewp_baseLv7-$@kewp_range)+"-"+($@kewp_baseLv7+$@kewp_range)+" Rooms ("+($@kewp_cost7*@cost)+"z/" - +(getmapusers("pvp_n_7-1")+getmapusers("pvp_n_7-2")+getmapusers("pvp_n_7-3") - +getmapusers("pvp_n_7-4")+getmapusers("pvp_n_7-5"))+" "+$@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 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")+" "+$@ked_users$+")", - "- Room Rock On ("+getmapusers("pvp_n_"+getarg(0)+"-2")+" "+$@ked_users$+")", - "- Four Room ("+getmapusers("pvp_n_"+getarg(0)+"-3")+" "+$@ked_users$+")", - "- Room Undercross ("+getmapusers("pvp_n_"+getarg(0)+"-4")+" "+$@ked_users$+")", - "- Room Compass ("+getmapusers("pvp_n_"+getarg(0)+"-5")+" "+$@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",-1,-1; - break; - case 3: - callfunc "F_keWarp",getarg(1),getarg(2),e_com,"pvp_n_"+getarg(0)+"-2",-1,-1; - break; - case 4: - callfunc "F_keWarp",getarg(1),getarg(2),e_com,"pvp_n_"+getarg(0)+"-3",-1,-1; - break; - case 5: - callfunc "F_keWarp",getarg(1),getarg(2),e_com,"pvp_n_"+getarg(0)+"-4",-1,-1; - break; - case 6: - callfunc "F_keWarp",getarg(1),getarg(2),e_com,"pvp_n_"+getarg(0)+"-5",-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 deleted file mode 100644 index 66c7134c9..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_town.txt +++ /dev/null @@ -1,513 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - Warping Town Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 2.2 -//===== Compatible With: ===================================== -//= rAthena SVN R3424+, RO Episode 8+ (Hugel) -//===== Description: ========================================= -//= Part of the Kafra Express Script Package. -//= Offers warp services to towns. -//===== Additional Comments: ================================= -//= See config.txt for configuration. -//= Flag values used for towns: -//= 0x00000001 Alberta -//= 0x00000002 AlDeBaran -//= 0x00000004 Amatsu -//= 0x00000008 Ayothaya -//= 0x00000010 Comodo -//= 0x00000020 Einbech -//= 0x00000040 Einbroch -//= 0x00000080 Geffen -//= 0x00000100 Gon Ryun -//= 0x00000200 Hugel -//= 0x00000400 Izlude -//= 0x00000800 Jawaii -//= 0x00001000 LightHalzen -//= 0x00002000 Lou Yang -//= 0x00004000 Lutie -//= 0x00008000 Morocc -//= 0x00010000 Niflheim -//= 0x00020000 Payon -//= 0x00040000 Prontera -//= 0x00080000 Umbala -//= 0x00100000 Yuno -//= 0x00200000 Rachel -//============================================================ - -- script keInit_warpTown -1,{ -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")+getmapusers("alberta_in"))+" "+$@ked_users$+")", - "- Al De Baran ("+@cost+"z/"+(getmapusers("aldebaran")+getmapusers("aldeba_in"))+" "+$@ked_users$+")", - "- Amatsu ("+@cost+"z/"+(getmapusers("amatsu")+getmapusers("ama_in01")+getmapusers("ama_in02")) - +" "+$@ked_users$+")", - "- Ayothaya ("+@cost+"z/"+(getmapusers("ayothaya")+getmapusers("ayo_in01")+getmapusers("ayo_in02")) - +" "+$@ked_users$+")", - "- Comodo ("+@cost+"z/"+(getmapusers("comodo")+getmapusers("cmd_in01")+getmapusers("cmd_in02")) - +" "+$@ked_users$+")", - "- Einbech ("+@cost+"z/"+(getmapusers("einbech"))+" "+$@ked_users$+")", - "- Einbroch ("+@cost+"z/"+(getmapusers("einbroch")+getmapusers("ein_in01"))+" "+$@ked_users$+")", - "- Geffen ("+@cost+"z/"+(getmapusers("geffen")+getmapusers("geffen_in")+getmapusers("gef_tower")) - +" "+$@ked_users$+")", - "- Gon Ryun ("+@cost+"z/"+(getmapusers("gonryun")+getmapusers("gon_in"))+" "+$@ked_users$+")", - "- Hugel ("+@cost+"z/"+(getmapusers("hugel")+getmapusers("hu_in01"))+" "+$@ked_users$+")", - "- Izlude ("+@cost+"z/"+(getmapusers("izlude")+getmapusers("izlude_in"))+" "+$@ked_users$+")", - "- Jawaii ("+@cost+"z/"+(getmapusers("jawaii")+getmapusers("jawaii_in"))+" "+$@ked_users$+")", - "- LightHalzen ("+@cost+"z/"+(getmapusers("lighthalzen")+getmapusers("lhz_in01") - +getmapusers("lhz_in02")+getmapusers("lhz_in03"))+" "+$@ked_users$+")", - "- Lou Yang ("+@cost+"z/"+(getmapusers("louyang")+getmapusers("lou_in01")+getmapusers("lou_in02")) - +" "+$@ked_users$+")", - "- Lutie ("+@cost+"z/"+(getmapusers("xmas")+getmapusers("xmas_in"))+" "+$@ked_users$+")", - "- Morocc ("+@cost+"z/"+(getmapusers("morocc")+getmapusers("morocc_in")+getmapusers("moc_castle")) - +" "+$@ked_users$+")", - "- Niflheim ("+@niflcost+"z/"+(getmapusers("niflheim")+getmapusers("nif_in"))+" "+$@ked_users$+")", - "- Payon ("+@cost+"z/"+(getmapusers("payon")+getmapusers("payon_in01")+getmapusers("payon_in02")) - +" "+$@ked_users$+")", - "- Prontera ("+@cost+"z/"+(getmapusers("prontera")+getmapusers("prt_castle") - +getmapusers("prt_church")+getmapusers("prt_in"))+" "+$@ked_users$+")", - "- Rachel ("+@cost+"z/"+(getmapusers("rachel")+getmapusers("ra_in01") - +getmapusers("ra_temple")+getmapusers("ra_temin")+getmapusers("ra_temsky") - +getmapusers("que_rachel"))+" "+$@ked_users$+")", - "- Umbala ("+@cost+"z/"+(getmapusers("umbala")+getmapusers("um_in"))+" "+$@ked_users$+")", - "- Yuno ("+@cost+"z/"+(getmapusers("yuno")+getmapusers("yuno_in01")+getmapusers("yuno_in02") - +getmapusers("yuno_in03")+getmapusers("yuno_in04")+getmapusers("yuno_in05"))+" "+$@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)", - "- Hugel ("+@cost+"z)", - "- Izlude ("+@cost+"z)", - "- Jawaii ("+@cost+"z)", - "- LightHalzen ("+@cost+"z)", - "- Lou Yang ("+@cost+"z)", - "- Lutie ("+@cost+"z)", - "- Morocc ("+@cost+"z)", - "- Niflheim ("+@niflcost+"z)", - "- Payon ("+@cost+"z)", - "- Prontera ("+@cost+"z)", - "- Rachel ("+@cost+"z)", - "- Umbala ("+@cost+"z)", - "- Yuno ("+@cost+"z)" - ); - } - switch (@kmenu) { - case 2: //Alberta - if (SF_check(0x1)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"alberta",117,56; - break; - case 3: //AlDeBaran - if (SF_check(0x2)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"aldebaran",139,124; - break; - case 4: //Amatsu - if (SF_check(0x4)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"amatsu",197,88; - break; - case 5: //Ayathoya - if (SF_check(0x8)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"ayothaya",202,174; - break; - case 6: //Comodo - if (SF_check(0x10)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"comodo",189,150; - break; - case 7: //Einbech - if (SF_check(0x20)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"einbech",137,220; - break; - case 8: //Einbroch - if (SF_check(0x40)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"einbroch",64,199; - break; - case 9: //Geffen - if (SF_check(0x80)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"geffen",120,66; - break; - case 10: //GonRyun - if (SF_check(0x100)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"gonryun",160,180; - break; - case 11: //Hugel - if (SF_check(0x200)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"hugel",96,105; - break; - case 12: //Izlude - if (SF_check(0x400)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"izlude",127,97; - break; - case 13: //Jawaii - if (SF_check(0x800)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"jawaii",214,223; - break; - case 14: //LightHalzen - if (SF_check(0x1000)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"lighthalzen",158,92; - break; - case 15: //LouYang - if (SF_check(0x2000)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"louyang",218,118; - break; - case 16: //Lutie - if (SF_check(0x4000)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"xmas",148,133; - break; - case 17: //Morocc - if (SF_check(0x8000)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"morocc",162,91; - break; - case 18: //Niflheim - if (SF_check(0x10000)) { - 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",194,185; - } - break; - case 19: //Payon - if (SF_check(0x20000)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"payon",159,181; - break; - case 20: //Prontera - if (SF_check(0x40000)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"prontera",156,175; - break; - case 21: //Rachel - if (SF_check(0x200000)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"rachel",137,133; - break; - case 22: //Umbala - if (SF_check(0x80000)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"umbala",88,153; - break; - case 23: //Yuno - if (SF_check(0x100000)) - SF_warp $@kewt_cost,$@kewt_discount,e_yawn,"yuno",158,77; - break; - } - } while (@kmenu > 1); - return; - -//SubFunction SF_check(flag) -//Checks if the character can warp to that town taking into consideration -//traveller's mode. -function SF_check { - if ($@kewt_travel && !((kewt_travel|#kewt_travel)&getarg(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); -// Temporary code to update variables from old format to new. - if(ketw_alberta) { - set kewt_travel,kewt_travel|0x1; - set ketw_alberta,0; - } - if(ketw_aldebaran) { - set kewt_travel,kewt_travel|0x2; - set ketw_aldebaran,0; - } - if(ketw_amatsu) { - set kewt_travel,kewt_travel|0x4; - set ketw_amatsu,0; - } - if(ketw_ayothaya) { - set kewt_travel,kewt_travel|0x8; - set ketw_ayothaya,0; - } - if(ketw_comodo) { - set kewt_travel,kewt_travel|0x10; - set ketw_comodo,0; - } - if(ketw_einbech) { - set kewt_travel,kewt_travel|0x20; - set ketw_einbech,0; - } - if(ketw_einbroch) { - set kewt_travel,kewt_travel|0x40; - set ketw_einbroch,0; - } - if(ketw_geffen) { - set kewt_travel,kewt_travel|0x80; - set ketw_geffen,0; - } - if(ketw_gonryun) { - set kewt_travel,kewt_travel|0x100; - set ketw_gonryun,0; - } - if(ketw_hugel) { - set kewt_travel,kewt_travel|0x200; - set ketw_hugel,0; - } - if(ketw_izlude) { - set kewt_travel,kewt_travel|0x400; - set ketw_izlude,0; - } - if(ketw_jawaii) { - set kewt_travel,kewt_travel|0x800; - set ketw_jawaii,0; - } - if(ketw_lighthalzen) { - set kewt_travel,kewt_travel|0x1000; - set ketw_lighthalzen,0; - } - if(ketw_louyang) { - set kewt_travel,kewt_travel|0x2000; - set ketw_louyang,0; - } - if(ketw_lutie) { - set kewt_travel,kewt_travel|0x4000; - set ketw_lutie,0; - } - if(ketw_morroc) { - set kewt_travel,kewt_travel|0x8000; - set ketw_morroc,0; - } - if(ketw_niflheim) { - set kewt_travel,kewt_travel|0x10000; - set ketw_niflheim,0; - } - if(ketw_payon) { - set kewt_travel,kewt_travel|0x20000; - set ketw_payon,0; - } - if(ketw_prontera) { - set kewt_travel,kewt_travel|0x40000; - set ketw_prontera,0; - } - if(ketw_umbala) { - set kewt_travel,kewt_travel|0x80000; - set ketw_umbala,0; - } - if(ketw_yuno) { - set kewt_travel,kewt_travel|0x100000; - set ketw_yuno,0; - } - - if(#ketw_alberta) { - set #kewt_travel,#kewt_travel|0x1; - set #ketw_alberta,0; - } - if(#ketw_aldebaran) { - set #kewt_travel,#kewt_travel|0x2; - set #ketw_aldebaran,0; - } - if(#ketw_amatsu) { - set #kewt_travel,#kewt_travel|0x4; - set #ketw_amatsu,0; - } - if(#ketw_ayothaya) { - set #kewt_travel,#kewt_travel|0x8; - set #ketw_ayothaya,0; - } - if(#ketw_comodo) { - set #kewt_travel,#kewt_travel|0x10; - set #ketw_comodo,0; - } - if(#ketw_einbech) { - set #kewt_travel,#kewt_travel|0x20; - set #ketw_einbech,0; - } - if(#ketw_einbroch) { - set #kewt_travel,#kewt_travel|0x40; - set #ketw_einbroch,0; - } - if(#ketw_geffen) { - set #kewt_travel,#kewt_travel|0x80; - set #ketw_geffen,0; - } - if(#ketw_gonryun) { - set #kewt_travel,#kewt_travel|0x100; - set #ketw_gonryun,0; - } - if(#ketw_hugel) { - set #kewt_travel,#kewt_travel|0x200; - set #ketw_hugel,0; - } - if(#ketw_izlude) { - set #kewt_travel,#kewt_travel|0x400; - set #ketw_izlude,0; - } - if(#ketw_jawaii) { - set #kewt_travel,#kewt_travel|0x800; - set #ketw_jawaii,0; - } - if(#ketw_lighthalzen) { - set #kewt_travel,#kewt_travel|0x1000; - set #ketw_lighthalzen,0; - } - if(#ketw_louyang) { - set #kewt_travel,#kewt_travel|0x2000; - set #ketw_louyang,0; - } - if(#ketw_lutie) { - set #kewt_travel,#kewt_travel|0x4000; - set #ketw_lutie,0; - } - if(#ketw_morroc) { - set #kewt_travel,#kewt_travel|0x8000; - set #ketw_morroc,0; - } - if(#ketw_niflheim) { - set #kewt_travel,#kewt_travel|0x10000; - set #ketw_niflheim,0; - } - if(#ketw_payon) { - set #kewt_travel,#kewt_travel|0x20000; - set #ketw_payon,0; - } - if(#ketw_prontera) { - set #kewt_travel,#kewt_travel|0x40000; - set #ketw_prontera,0; - } - if(#ketw_umbala) { - set #kewt_travel,#kewt_travel|0x80000; - set #ketw_umbala,0; - } - if(#ketw_yuno) { - set #kewt_travel,#kewt_travel|0x100000; - set #ketw_yuno,0; - } -// End update code. - - if ($@kewt_travel > 1) { - if (@map$ == "alberta" || kewt_travel&0x1) - set #kewt_travel,#kewt_travel|0x1; - if (@map$ == "aldebaran" || kewt_travel&0x2) - set #kewt_travel,#kewt_travel|0x2; - if (@map$ == "amatsu" || kewt_travel&0x4) - set #kewt_travel,#kewt_travel|0x4; - if (@map$ == "ayothaya" || kewt_travel&0x8) - set #kewt_travel,#kewt_travel|0x8; - if (@map$ == "comodo" || kewt_travel&0x10) - set #kewt_travel,#kewt_travel|0x10; - if (@map$ == "einbech" || kewt_travel&0x20) - set #kewt_travel,#kewt_travel|0x20; - if (@map$ == "einbroch" || kewt_travel&0x40) - set #kewt_travel,#kewt_travel|0x40; - if (@map$ == "geffen" || kewt_travel&0x80) - set #kewt_travel,#kewt_travel|0x80; - if (@map$ == "gonryun" || kewt_travel&0x100) - set #kewt_travel,#kewt_travel|0x100; - if (@map$ == "hugel" || kewt_travel&0x200) - set #kewt_travel,#kewt_travel|0x200; - if (@map$ == "izlude" || kewt_travel&0x400) - set #kewt_travel,#kewt_travel|0x400; - if (@map$ == "jawaii" || kewt_travel&0x800) - set #kewt_travel,#kewt_travel|0x800; - if (@map$ == "lighthalzen" || kewt_travel&1000) - set #kewt_travel,#kewt_travel|0x1000; - if (@map$ == "louyang" || kewt_travel&0x2000) - set #kewt_travel,#kewt_travel|0x2000; - if (@map$ == "xmas" || kewt_travel&0x4000) - set #kewt_travel,#kewt_travel|0x4000; - if (@map$ == "morocc" || kewt_travel&0x8000) - set #kewt_travel,#kewt_travel|0x8000; - if (@map$ == "niflheim" || kewt_travel&0x10000) - set #kewt_travel,#kewt_travel|0x10000; - if (@map$ == "payon" || kewt_travel&0x20000) - set #kewt_travel,#kewt_travel|0x20000; - if (@map$ == "prontera" || kewt_travel&0x40000) - set #kewt_travel,#kewt_travel|0x40000; - if (@map$ == "umbala" || kewt_travel&0x80000) - set #kewt_travel,#kewt_travel|0x80000; - if (@map$ == "yuno" || kewt_travel&0x100000) - set #kewt_travel,#kewt_travel|0x100000; - if (@map$ == "rachel" || kewt_travel&0x200000) - set #kewt_travel,#kewt_travel|0x200000; - } else { - if (@map$ == "alberta") - set kewt_travel,kewt_travel|0x1; - if (@map$ == "aldebaran") - set kewt_travel,kewt_travel|0x2; - if (@map$ == "amatsu") - set kewt_travel,kewt_travel|0x4; - if (@map$ == "ayothaya") - set kewt_travel,kewt_travel|0x8; - if (@map$ == "comodo") - set kewt_travel,kewt_travel|0x10; - if (@map$ == "einbech") - set kewt_travel,kewt_travel|0x20; - if (@map$ == "einbroch") - set kewt_travel,kewt_travel|0x40; - if (@map$ == "geffen") - set kewt_travel,kewt_travel|0x80; - if (@map$ == "gonryun") - set kewt_travel,kewt_travel|0x100; - if (@map$ == "hugel") - set kewt_travel,kewt_travel|0x200; - if (@map$ == "izlude") - set kewt_travel,kewt_travel|0x400; - if (@map$ == "jawaii") - set kewt_travel,kewt_travel|0x800; - if (@map$ == "lighthalzen") - set kewt_travel,kewt_travel|0x1000; - if (@map$ == "louyang") - set kewt_travel,kewt_travel|0x2000; - if (@map$ == "xmas") - set kewt_travel,kewt_travel|0x4000; - if (@map$ == "morocc") - set kewt_travel,kewt_travel|0x8000; - if (@map$ == "niflheim") - set kewt_travel,kewt_travel|0x10000; - if (@map$ == "payon") - set kewt_travel,kewt_travel|0x20000; - if (@map$ == "prontera") - set kewt_travel,kewt_travel|0x40000; - if (@map$ == "umbala") - set kewt_travel,kewt_travel|0x80000; - if (@map$ == "yuno") - set kewt_travel,kewt_travel|0x100000; - if (@map$ == "rachel") - set kewt_travel,kewt_travel|0x200000; - } - return; -} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_woe.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_woe.txt deleted file mode 100644 index f713e1fce..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_warp_woe.txt +++ /dev/null @@ -1,159 +0,0 @@ -//===== rAthena Script ======================================= -//= Kafra Express - WoE Warping Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 1.8 -//===== Compatible With: ===================================== -//= rAthena 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 -1,{ -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) { - 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") - +getmapusers("aldeg_cas01")+getmapusers("aldeg_cas02")+getmapusers("aldeg_cas03") - +getmapusers("aldeg_cas04")+getmapusers("aldeg_cas05"))+" "+$@ked_users$+")", - "- Geffen Guild ("+($@kewg_geffen*@cost/100)+"z/"+(getmapusers("gef_fild13") - +getmapusers("gefg_cas01")+getmapusers("gefg_cas02")+getmapusers("gefg_cas03") - +getmapusers("gefg_cas04")+getmapusers("gefg_cas05"))+" "+$@ked_users$+")", - "- Payon Guild ("+($@kewg_payon*@cost/100)+"z/"+(getmapusers("pay_gld") - +getmapusers("payg_cas01")+getmapusers("payg_cas02")+getmapusers("payg_cas03") - +getmapusers("payg_cas04")+getmapusers("payg_cas05"))+" "+$@ked_users$+")", - "- Prontera Guild ("+($@kewg_prontera*@cost/100)+"z/"+(getmapusers("prt_gld") - +getmapusers("prtg_cas01")+getmapusers("prtg_cas02")+getmapusers("prtg_cas03") - +getmapusers("prtg_cas04")+getmapusers("prtg_cas05"))+" "+$@ked_users$+")", -// "- Guild Dungeons ("+(getmapusers("gld_dun01")+getmapusers("gld_dun02") -// +getmapusers("gld_dun03")+getmapusers("gld_dun04"))+" "+$@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",153,160; - break; - case 3: //Geffen - callfunc "F_keWarp",$@kewg_geffen,$@kewg_discount,44,"gef_fild13",243,180; - break; - case 4: //Payon - callfunc "F_keWarp",$@kewg_payon,$@kewg_discount,44,"pay_gld",249,177; - break; - case 5: //Prontera - callfunc "F_keWarp",$@kewg_prontera,$@kewg_discount,44,"prt_gld",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"); - mes "- Castle 1 - Noisyubantian: "+getmapusers("aldeg_cas01"); - mes "- Castle 2 - Hohensyubangawoo: "+getmapusers("aldeg_cas02"); - mes "- Castle 3 - Nyirenverk: "+getmapusers("aldeg_cas03"); - mes "- Castle 4 - Byirtsburi: "+getmapusers("aldeg_cas04"); - mes "- Castle 5 - Rotenburk: "+getmapusers("aldeg_cas05"); - next; - mes "[Geffen]"; - mes "- Guild Grounds: "+getmapusers("gef_fild13"); - mes "- Castle 1 - Reprion: "+getmapusers("gefg_cas01"); - mes "- Castle 2 - Yolbriger: "+getmapusers("gefg_cas02"); - mes "- Castle 3 - Isinlife: "+getmapusers("gefg_cas03"); - mes "- Castle 4 - Berigel: "+getmapusers("gefg_cas04"); - mes "- Castle 5 - Melsedetsu: "+getmapusers("gefg_cas05"); - next; - mes "[Payon]"; - mes "- Guild Grounds: "+getmapusers("pay_gld"); - mes "- Castle 1 - Mingting: "+getmapusers("payg_cas01"); - mes "- Castle 2 - Tiantan: "+getmapusers("payg_cas02"); - mes "- Castle 3 - Fuying: "+getmapusers("payg_cas03"); - mes "- Castle 4 - Honglou: "+getmapusers("payg_cas04"); - mes "- Castle 5 - Zhulinxian: "+getmapusers("payg_cas05"); - next; - mes "[Prontera]"; - mes "- Guild Grounds: "+getmapusers("prt_gld"); - mes "- Castle 1 - Creamhilt: "+getmapusers("prtg_cas01"); - mes "- Castle 2 - Sbanhealt: "+getmapusers("prtg_cas02"); - mes "- Castle 3 - Lazrigees: "+getmapusers("prtg_cas03"); - mes "- Castle 4 - Squagul: "+getmapusers("prtg_cas04"); - mes "- Castle 5 - Guindull: "+getmapusers("prtg_cas05"); - 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")+" "+$@ked_users$+")", - "- Luina Dungeon ("+($@kewg_luina*@cost/100)+"z/"+getmapusers("gld_dun02")+" "+$@ked_users$+")", - "- Valkyrie Dungeon ("+($@kewg_valkyrie*@cost/100)+"z/"+getmapusers("gld_dun03")+" "+$@ked_users$+")", - "- Britoniah Dungeon ("+($@kewg_britoniah*@cost/100)+"z/"+getmapusers("gld_dun04")+" "+$@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",119,18; - break; - case 3: //Luina - callfunc "F_keWarp",$@kewg_luina,$@kewg_discount,44,"gld_dun02",174,113; - break; - case 4: //Valkyrie - callfunc "F_keWarp",$@kewg_valkyrie,$@kewg_discount,44,"gld_dun03",37,34; - break; - case 5: //Britoniah - callfunc "F_keWarp",$@kewg_britoniah,$@kewg_discount,44,"gld_dun04",42,230; - break; - } - } while (@submenu > 1); -} - -} diff --git a/npc/custom/eAAC_Scripts/kafraExpress/readme.txt b/npc/custom/eAAC_Scripts/kafraExpress/readme.txt deleted file mode 100644 index 5bce41399..000000000 --- a/npc/custom/eAAC_Scripts/kafraExpress/readme.txt +++ /dev/null @@ -1,1144 +0,0 @@ -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% 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 v2.0 (27/September/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 ("<some code here>"z/10SP)",L_HEAL, - "- Warp Service",L_WARP, -// "- Use Storage ("<some code here>"z)",L_STORAGE, -// "- Use Guild Storage ("<some code here>"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<module initials>_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) - -(#) kekp_reset --------------- -For Kafra Passes. When set, the Pass expires after starting a chat with the -Kafra the amount of times specified. Otherwise the variable remains active a -pretty long time (probably all session). For example, if set to 2, after -activating the pass and opening the storage, the Pass will still be active -the next time you speak to a kafra, it will expire on the "third" time you -speak to her. - -($) 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 ------------------- -Specifies the number of cloth dyes based on job-type: Novices, First Classes, -Second Classes, Super Novices. -Note that special classes like Xmas or Wedding tend to not have palettes, and -it should be handled server-side so that switching palettes with this module -will not cause you client crashes. - -//////////////////////////////////////////////////////////////////////////////// -[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. - -(#) kejc_disable ----------------- -Permits disabling some job trees from the changer (add as required): - 1: You can't change to a S. Novice - 2: You can't change to Taekwon (but if you are a Taekwon already, you can - still change to Soul Linker/Star Gladiator) - 4: Can't change to GunSlinger - 8: Can't change to Ninja - -(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_weapon1[] -(#) kejc_weapon_21[] -(#) kejc_weapon_22[] ------------------------ -These arrays contain the IDs of the normal weapons received upon job change -for first, 2-1 and 2-2 classes (if weapon policy is in effect). Refer to the -comments in the config file for identifying which position is for which job. - -(#) kejc_weapon2_21[] -(#) kejc_weapon2_22[] --------------------- -These arrays contain the ID of the premium weapons received upon job change -(if bonus weapon policy is in effect). Note that first classes can't get a -bonus weapon, and that Bard/Dancers both receive the same weapon. Refer to the -comments in the config file for identifying which position is for which job. - -//////////////////////////////////////////////////////////////////////////////// -[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 -================================================================================ - -(#) kejs_disable ------------------ -You can disable some classes from swapping using this setting (add numbers as -appropiate): - 1: Super Novices may not swap/swap to. - 2: Disable swapping for Taekwon/Star Gladiator/Soul Linker classes. - 4: Disable swapping to/from GunSlinger. - 8: Disable swapping to/from Ninja. -For example, if you set it to 12 (8+4), the swap menu will not include -Gunslinger nor Ninja, and they will find that they can't swap to other classes -neither. - -(#) 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. -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. - -(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). -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). - -(1) kewd_deep -------------- -This variable decides whether deep or short warps will be used. As explained -on the description, enabling deep warps allows warping to any dungeon level. - -(%) 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_<dungeon name> ---------------------- -There is a config variable for every dungeon, it specifies the base cost of -warping to that dungeon (which 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_*-*. It has two -modes: simple and advanced. On simple mode, every player of every level gets -thrown into the pvp_n_1-* 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 ("<some code>"z)",L_ALDEBARAN, - "- Geffen Guild ("<some code>"z)",L_GEFFEN, - "- Payon Guild ("<some code>"z)",L_PAYON, - "- Prontera Guild ("<some code>"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,113,53,7 script Kafra Express 116,{ - callfunc "F_KafraExpress","Kafra Express","kafra_02",0,"alberta",116,57; -} - -And a disabled/commented Kafra would look like this: - -//Prontera Guild Grounds -//prt_gld,127,163,5 script Kafra Express 115,{ -// callfunc "F_KafraExpress","Kafra Express","kafra_03",1,"prt_gld",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. |