diff options
| author | jmanfffreak <jmanfffreak@54d463be-8e91-2dee-dedb-b68131a5f0ec> | 2012-05-28 21:19:30 +0000 |
|---|---|---|
| committer | jmanfffreak <jmanfffreak@54d463be-8e91-2dee-dedb-b68131a5f0ec> | 2012-05-28 21:19:30 +0000 |
| commit | 72cd35c33dee93b88969b579a0cc3327b2e7f2d6 (patch) | |
| tree | 91b88d46c64c35aafa450284f989d769f0f42e0f /npc/custom | |
| parent | 2aa1029edac5ac7cfb19de5ca5a1050ac5b8f87c (diff) | |
| download | hercules-72cd35c33dee93b88969b579a0cc3327b2e7f2d6.tar.gz hercules-72cd35c33dee93b88969b579a0cc3327b2e7f2d6.tar.bz2 hercules-72cd35c33dee93b88969b579a0cc3327b2e7f2d6.tar.xz hercules-72cd35c33dee93b88969b579a0cc3327b2e7f2d6.zip | |
Massive updates to /npc/custom folder:
* Removed eAAC scripts, which were outdated. (tid: 64380) (will be released in downloads section)
* Removed scripts in /Lance/ folder, which haven't been updated in years. (will be released in downloads section)
* Combined heal.txt and heal_payment.txt into one script, set options within file to enable or disable zeny requirement.
* Added choice in job changer if you allow third job changes.
* Updated warper with new towns and some dungeons.
* Card remover now has option to prevent or allow item destruction upon removing failure
* Removed 2-2shop and replaced with a full itemmall (thanks Masao!)
* General file structure changes (possibly more later)
git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16164 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/custom')
41 files changed, 168 insertions, 10718 deletions
diff --git a/npc/custom/2-2shop.txt b/npc/custom/2-2shop.txt deleted file mode 100644 index 63f135ed0..000000000 --- a/npc/custom/2-2shop.txt +++ /dev/null @@ -1,15 +0,0 @@ -//===== rAthena Script ======================================= -//= 2-2 Class Shop -//===== By: ================================================== -//= DracoRPG -//===== Current Version: ===================================== -//= 1.0 -//===== Compatible With: ===================================== -//= rAthena SVN -//===== Description: ========================================= -//= Sells items useful for 2-2 Classes -//===== Additional Comments: ================================= -//= -//============================================================ - -prontera,155,211,5 shop 2-2 Class Shop 86,1950:-1,1952:-1,1954:-1,1956:-1,1958:-1,1960:-1,1801:-1,1803:-1,1805:-1,1811:-1,1809:-1,1901:-1,1903:-1,1905:-1,1909:-1,1911:-1,1907:-1,1550:-1,1551:-1,1552:-1,1553:-1,1554:-1,1555:-1,1556:-1,1557:-1,1558:-1,2341:-1,2343:-1 diff --git a/npc/custom/Lance/FR_HallOfFame.txt b/npc/custom/Lance/FR_HallOfFame.txt deleted file mode 100644 index 1c8b2c79f..000000000 --- a/npc/custom/Lance/FR_HallOfFame.txt +++ /dev/null @@ -1,299 +0,0 @@ -//===== rAthena Script ======================================= -//= Hall of Fame -//===== By: ================================================== -//= Lance (idea from emilylee78) -//===== Current Version: ===================================== -//= 2.4 FINAL -//===== Compatible With: ===================================== -//= rAthena SVN -//===== Description: ========================================= -//= A Hall of Fame framework. Will update the list on every -//= login and logout in a safe manner. -//= -//= Usage: callfunc "printHallOfFame", $; -//= $ - Can be either 0 or 1. -//= 0 - Display the current rankings. -//= 1 - Display last week's rankings. -//= Note : Remember to put a close; after calling it. -//===== Additional Comments: ================================= -//= 1.0 - Initial beta release [Lance] -//= 1.1 - Fixed typos. Optimized a teeny bit. [Lance] -//= 1.2 - Bug fixes. [Lance] -//= 1.3 - Added a more realistic shuffling. [Lance] -//= 1.4 - Added Weekly Top 10 list. [Lance] -//= 1.5 - Friggin typos =< + Better shuffling [Lance] -//= 1.6 - Bugfixes [Lance] -//= 1.7 - More bugfixes. Type mismatch =P [Lance] -//= 2.0 - Exclude GMs and add recovery plan. -//= Suggested by EvilPoringOfDooom. [Lance] -//= 2.1 - Typo.. again.. T_T [Lance] -//= 2.2 - Minor updates and added Jury [Lance] -//= 2.3 - Utilizing eAthena's new scripting engine [Lance] -//= 2.4 - Minor bug fix with event script label (bugport:722) [Samura22] -//============================================================ - -prontera,0,0,0 script OnPCLoginEvent -1,{ -OnPCLoginEvent: - callfunc "HallOfFameInit"; - end; - -OnInit: - // Total Number of Players in Hall of Fame - // ======================================= - set $HoF_totalCount, 10; - // Reshuffle (Will affect perfomance) ==== - set $HoF_reshuffle, 1; - // Minimum GM Lvl to be excluded from HoF= - set $HoF_minGMLvl, 99; - // Recovery Plan to Remove GMs ============ - set $@HoF_recovery, 0; - // ======================================= - - //set $HoF_totalCount, $HoF_totalCount - 1; - set $@FebruaryD, 28; - if((gettime(7) % 4) == 0) { - set $@FebruaryD, 29; - } - setarray $@MonthDayThing[1],31, $@FebruaryD,31,30,31,30,31,31,30,31,30,31; - set $@HoF_TimeUpdateD, $HoF_LastUpdateD; - set $@HoF_TimeUpdateM, $HoF_LastUpdateM; - set $@HoF_TimeUpdateY, $HoF_LastUpdateY; - // Time to do some maths - set $@TimeNowD, gettime(5); - set $@TimeNowM, gettime(6); - set $@TimeNowY, gettime(7); - // Debug Message -- - debugmes "[Hall of Fame] Last Update is Year " + $@HoF_TimeUpdateY + " Month " + $@HoF_TimeUpdateM + " Day " + $@HoF_TimeUpdateD; - debugmes "[Hall of Fame] Today is Year " + $@TimeNowY + " Month " + $@TimeNowM + " Day " + $@TimeNowD; - if(($@TimeNowD - $@HoF_TimeUpdateD) < 0){ - set $@TimeNowD, $@TimeNowD + $@MonthDayThing[$@TimeNowM]; - set $@TimeNowM, $@TimeNowM - 1; - } - set $@GapD, $@TimeNowD - $@HoF_TimeUpdateD; - if(($@TimeNowM - $@HoF_TimeUpdateM) < 0){ - set $@TimeNowM, $@TimeNowM + 12; - set $@TimeNowY, $@TimeNowY - 1; - } - set $@GapM, $@TimeNowM - $@HoF_TimeUpdateM; - set $@GapY, $@TimeNowY - $@HoF_TimeUpdateY; - debugmes "[Hall of Fame] Gap is " + $@GapY + " Years " + $@GapM + " Months " + $@GapD + " Days."; - if($@GapY > 0 || $@GapM > 0 || $@GapD >= 7) { - callfunc "hallOfFameReset"; // Phew.. - } - end; - -OnClock0000: - set $HoF_UpdateCount, $HoF_UpdateCount + 1; - if($HoF_UpdateCount == 7) { - callfunc "hallOfFameReset"; - } - end; -} - -prontera,0,0,0 script PCLogoutEvent -1,{ -OnPCLogoutEvent: - callfunc "HallOfFameInit"; - end; -} - -function script hallOfFameReset { - copyarray $HoF_LadderNameO$[0], $HoF_LadderName$[0], $HoF_totalCount; - copyarray $HoF_LadderBLevelO[0], $HoF_LadderBLevel[0], $HoF_totalCount; - copyarray $HoF_LadderJLevelO[0], $HoF_LadderJLevel[0], $HoF_totalCount; - copyarray $HoF_LadderZenyO[0], $HoF_LadderZeny[0], $HoF_totalCount; - deletearray $HoF_LadderName$[0], $HoF_totalCount; - deletearray $HoF_LadderBLevel[0], $HoF_totalCount; - deletearray $HoF_LadderJLevel[0], $HoF_totalCount; - deletearray $HoF_LadderZeny[0], $HoF_totalCount; - set $HoF_LastUpdateD, gettime(5); - set $HoF_LastUpdateM, gettime(6); - set $HoF_LastUpdateY, gettime(7); - set $HoF_UpdateCount, 0; - debugmes "[Hall of Fame] System Reset Invoked!"; - return; -} - -function script HallOfFameInit { - if(getgmlevel() >= $HoF_minGMLvl && $@HoF_recovery != 1) { - set PCLogoutEvent, 0; - } else { - set PCLogoutEvent, 1; - callfunc "updateHallofFame", $HoF_reshuffle; - } - return; -} - -function script updateHallofFame { - set @i, 0; - if(getarg(0) == 1){ - goto L_ShuffleName; - } - if(BaseLevel >= $HoF_LadderBLevel[$HoF_totalCount-1]){ - goto L_checkBase; - } - goto L_End; - -L_ShuffleName: - if($HoF_LadderName$[@i] == strcharinfo(0)) { - goto L_ShuffleScore; - } - if(@i == $HoF_totalCount-1) { - goto L_checkEntry; - } - set @i, @i + 1; - goto L_ShuffleName; - -L_ShuffleScore: - deletearray $HoF_LadderName$[@i],1; - deletearray $HoF_LadderZeny[@i],1; - deletearray $HoF_LadderJLevel[@i],1; - deletearray $HoF_LadderBLevel[@i],1; - goto L_ShuffleName; - -L_checkEntry: - if(getgmlevel() >= $HoF_minGMLvl){ - end; - } - set @i, 0; - goto L_checkBase; - -L_checkBase: - if(BaseLevel >= $HoF_LadderBLevel[@i]) { - goto L_BaseOK; - } else { - goto L_Increment; - } - -L_BaseOK: - if(BaseLevel == $HoF_LadderBLevel[@i]){ - goto L_BaseSameLoop; - } else { - goto L_NewEntry; - } - -L_BaseSameLoop: - if(JobLevel >= $HoF_LadderJLevel[@i]) { - goto L_JobOK; - } else if(Zeny >= $HoF_LadderZeny[@i]) { - goto L_ZenyOK; - } - goto L_Increment; - -L_JobOK: - if(JobLevel == $HoF_LadderJLevel[@i]) { - goto L_JobSame; - } else { - goto L_NewEntry; - } - -L_ZenyOK: - if(Zeny == $HoF_LadderZeny[@i]){ - goto L_Increment; - } else { - goto L_NewEntry; - } - -L_JobSame: - if(Zeny >= $HoF_LadderZeny[@i]) { - goto L_ZenyOK; - } else { - goto L_Increment; - } - -L_NewEntry: - callfunc "hallOfFameNewEntry", @i, strcharinfo(0), BaseLevel, JobLevel, Zeny; - end; - -L_Increment: - if(@i == $HoF_totalCount-1) { - goto L_End; - } else { - set @i, @i + 1; - goto L_checkBase; - } - -L_End: - return; - -} - - -function script hallOfFameNewEntry { - if(getarg(0) == 0) goto L_New_Entry; - else if(getarg(1) != $HoF_LadderName$[getarg(0) - 1]) goto L_New_Entry; - return; - -L_New_Entry: - set @startPos, getarg(0); - copyarray @HoF_LadderNameB$[0], $HoF_LadderName$[@startPos], $HoF_totalCount; - copyarray @HoF_LadderBLevelB[0], $HoF_LadderBLevel[@startPos], $HoF_totalCount; - copyarray @HoF_LadderJLevelB[0], $HoF_LadderJLevel[@startPos], $HoF_totalCount; - copyarray @HoF_LadderZenyB[0], $HoF_LadderZeny[@startPos], $HoF_totalCount; - setarray $HoF_LadderName$[@startPos], getarg(1); - setarray $HoF_LadderBLevel[@startPos], getarg(2); - setarray $HoF_LadderJLevel[@startPos], getarg(3); - setarray $HoF_LadderZeny[@startPos], getarg(4); - set @startPos, @startPos + 1; - set @limitPos, $HoF_totalCount - @startPos; - copyarray $HoF_LadderName$[@startPos], @HoF_LadderNameB$[0], @limitPos; - copyarray $HoF_LadderBLevel[@startPos], @HoF_LadderBLevelB[0], @limitPos; - copyarray $HoF_LadderJLevel[@startPos], @HoF_LadderJLevelB[0], @limitPos; - copyarray $HoF_LadderZeny[@startPos], @HoF_LadderZenyB[0], @limitPos; - announce "[Hall of Fame] " + getarg(1) + " has made his/herself onto the No. " + @startPos + " ranking in Hall of Fame!", bc_all; - return; -} - -function script printHallOfFame { - if(getarg(0) == 1) { - mes "[Hall of Fame] - Last Week's Rankings"; - for(set @loop, 0; @loop < $HoF_totalCount; set @loop, @loop + 1){ - mes "^ff0000"; - mes "Position No. " + (@loop + 1) + ":^0000ff"; - mes "+================================+"; - mes "^000000Name :" + $HoF_LadderNameO$[@loop]; - mes "BLvl :" + $HoF_LadderBLevelO[@loop]; - mes "JLvl :" + $HoF_LadderJLevelO[@loop]; - mes "Zeny :" + $HoF_LadderZenyO[@loop] + "^0000ff"; - mes "+================================+^000000"; - } - } else { - mes "[Hall of Fame] - Current Rankings"; - for(set @loop, 0; @loop < $HoF_totalCount; set @loop, @loop + 1){ - mes "^ff0000"; - mes "Position No. " + (@loop + 1) + ":^0000ff"; - mes "+================================+"; - mes "^000000Name :" + $HoF_LadderName$[@loop]; - mes "BLvl :" + $HoF_LadderBLevel[@loop]; - mes "JLvl :" + $HoF_LadderJLevel[@loop]; - mes "Zeny :" + $HoF_LadderZeny[@loop] + "^0000ff"; - mes "+================================+^000000"; - } - } - return; -} - -prontera,164,134,2 script Jury 109,{ - mes "[Jury]"; - mes "Good day. Would you like to view the Hall of Fame?"; - next; - menu "Yes",L_OK,"No",L_QUIT; - -L_OK: - mes "[Jury]"; - mes "Would you like to view the current or the past rankings?"; - -L_MENU: - next; - menu "Current", L_CUR, "Past", -,"Nevermind",L_QUIT; - callfunc "printHallOfFame",1; - goto L_MENU; - -L_CUR: - callfunc "printHallOfFame",0; - goto L_MENU; - -L_QUIT: - mes "[Jury]"; - mes "Have a nice day then."; - close; -} diff --git a/npc/custom/Lance/FR_MailSystem.txt b/npc/custom/Lance/FR_MailSystem.txt deleted file mode 100644 index e6b931167..000000000 --- a/npc/custom/Lance/FR_MailSystem.txt +++ /dev/null @@ -1,99 +0,0 @@ -//===== rAthena Script ======================================= -//= Custom Mail System -//===== By: ================================================== -//= Lance -//===== Current Version: ===================================== -//= 1.0 -//===== Compatible With: ===================================== -//= rAthena SVN; prior to new Mail System -//===== Description: ========================================= -//= Allows players to send and receive mails without GM lvl. -//===== Additional Comments: ================================= -//= 1.0 - Initial release [Lance] -//============================================================ - -prontera,143,171,3 script Messenger 738,1,1,{ - mes "[Messenger Deviruchi]"; - mes "Hiya! I'm the fastest messenger in Rune Midgard!"; - next; - mes "[Messenger Deviruchi]"; - mes "I can send your friends messages even if he or she is offline!"; - next; - mes "[Messenger Deviruchi]"; - mes "Wanna try?"; - menu "Yes", MENUSYS, "No", -; - close; - -MENUSYS: - next; - mes "[Messenger Deviruchi]"; - mes "What can I do for ya?"; - emotion e_what; - menu "Check Mail",L_CHECK,"Send Mail",L_SEND, "Leave", -; - next; - mes "[Messenger Deviruchi]"; - mes "Do come again!"; - emotion e_no1; - close; - -L_CHECK: - atcommand strcharinfo(0) + ":@listnewmail"; - menu "Read Mail", L_READ, "Check All Mails",CHKALLMAIL,"Send Mail",L_SEND, "Delete Mail", DELMAIL, "Back", MENUSYS; - close; - -CHKALLMAIL: - atcommand strcharinfo(0) + ":@listmail"; - menu "Read Mail", L_READ, "Delete Mail", DELMAIL, "Back", MENUSYS; - close; - -L_READ: - next; - mes "[Messenger Deviruchi]"; - mes "Please tell me the message number you want to read."; - input @msgnum; - next; - mes "[Messenger Deviruchi]"; - mes "Here it is!"; - emotion e_no1; - atcommand strcharinfo(0) + ":@readmail " + @msgnum; - menu "Reply Mail", L_SEND, "Back", MENUSYS; - close; - -L_SEND: - next; - mes "[Messenger Deviruchi]"; - mes "Who do you want to send this message to?"; - input @rcpt$; - next; - mes "[Messenger Deviruchi]"; - mes "What message do you want to send to him?"; - input @body$; - next; - atcommand strcharinfo(0) + ":@sendmail " + @rcpt$ + " " + @body$; - mes "[Messenger Deviruchi]"; - mes "All done!"; - emotion e_no1; - menu "Send another mail", L_SEND, "Back", MENUSYS; - close; - -DELMAIL: - next; - mes "[Messenger Deviruchi]"; - mes "Which message number do you want me to delete?"; - input @msgnum; - next; - mes "[Messenger Deviruchi]"; - mes "Are you sure you want to delete mail no. " + @msgnum + "?"; - menu "Yes",-,"No",DELMAIL, "Back", MENUSYS; - atcommand strcharinfo(0) + ":@deletemail " + @msgnum; - mes "[Messenger Deviruchi]"; - mes "All done!"; - emotion e_no1; - menu "Delete another mail", DELMAIL, "Back", MENUSYS; - close; - -OnTouch: - npctalk "Relax.. I'm no bad guy.."; - emotion e_heh; - end; -} diff --git a/npc/custom/Lance/FR_WeatherController.txt b/npc/custom/Lance/FR_WeatherController.txt deleted file mode 100644 index b71a3062b..000000000 --- a/npc/custom/Lance/FR_WeatherController.txt +++ /dev/null @@ -1,415 +0,0 @@ -//===== rAthena Script ======================================= -//= Weather Controller -//===== By: ================================================== -//= Lance -//===== Current Version: ===================================== -//= 1.0 -//===== Compatible With: ===================================== -//= rAthena SVN -//===== Description: ========================================= -//= controls the weather -//===== Additional Comments: ================================= -//= -//============================================================ - -- script dayNight -1,{ - end; - -OnInit: - if(gettime(3) > 7 && gettime(3) < 19) { - goto L_Day; - } else { - goto L_Night; - } - -L_Day: - day; - callfunc "RcloudFlag"; - end; - -L_Night: - night; - callfunc "cloudFlag"; - end; - -OnClock1900: - goto L_Night; - -OnClock0700: - goto L_Day; -} - -function script cloudFlag { - setmapflag "alb2trea",mf_clouds; - setmapflag "alberta",mf_clouds; - setmapflag "aldebaran",mf_clouds; - setmapflag "gef_fild00",mf_clouds; - setmapflag "gef_fild01",mf_clouds; - setmapflag "gef_fild02",mf_clouds; - setmapflag "gef_fild03",mf_clouds; - setmapflag "gef_fild04",mf_clouds; - setmapflag "gef_fild05",mf_clouds; - setmapflag "gef_fild06",mf_clouds; - setmapflag "gef_fild07",mf_clouds; - setmapflag "gef_fild08",mf_clouds; - setmapflag "gef_fild09",mf_clouds; - setmapflag "gef_fild10",mf_clouds; - setmapflag "gef_fild11",mf_clouds; - setmapflag "geffen",mf_clouds; - setmapflag "gl_church",mf_clouds; - setmapflag "gl_chyard",mf_clouds; - setmapflag "gl_knt01",mf_clouds; - setmapflag "gl_knt02",mf_clouds; - setmapflag "gl_step",mf_clouds; - setmapflag "glast_01",mf_clouds; - //setmapflag "hunter_1-1",mf_clouds; - //setmapflag "hunter_2-1",mf_clouds; - //setmapflag "hunter_3-1",mf_clouds; - setmapflag "izlude",mf_clouds; - setmapflag "job_thief1",mf_clouds; - //setmapflag "knight_1-1",mf_clouds; - //setmapflag "knight_2-1",mf_clouds; - //setmapflag "knight_3-1",mf_clouds; - setmapflag "mjolnir_01",mf_clouds; - setmapflag "mjolnir_02",mf_clouds; - setmapflag "mjolnir_03",mf_clouds; - setmapflag "mjolnir_04",mf_clouds; - setmapflag "mjolnir_05",mf_clouds; - setmapflag "mjolnir_06",mf_clouds; - setmapflag "mjolnir_07",mf_clouds; - setmapflag "mjolnir_08",mf_clouds; - setmapflag "mjolnir_09",mf_clouds; - setmapflag "mjolnir_10",mf_clouds; - setmapflag "mjolnir_11",mf_clouds; - setmapflag "mjolnir_12",mf_clouds; - setmapflag "moc_fild01",mf_clouds; - setmapflag "moc_fild02",mf_clouds; - setmapflag "moc_fild03",mf_clouds; - setmapflag "moc_fild04",mf_clouds; - setmapflag "moc_fild05",mf_clouds; - setmapflag "moc_fild06",mf_clouds; - setmapflag "moc_fild07",mf_clouds; - setmapflag "moc_fild08",mf_clouds; - setmapflag "moc_fild09",mf_clouds; - setmapflag "moc_fild10",mf_clouds; - setmapflag "moc_fild11",mf_clouds; - setmapflag "moc_fild12",mf_clouds; - setmapflag "moc_fild13",mf_clouds; - setmapflag "moc_fild14",mf_clouds; - setmapflag "moc_fild15",mf_clouds; - setmapflag "moc_fild16",mf_clouds; - setmapflag "moc_fild17",mf_clouds; - setmapflag "moc_fild18",mf_clouds; - setmapflag "moc_fild19",mf_clouds; - setmapflag "moc_pryd01",mf_clouds; - setmapflag "moc_pryd02",mf_clouds; - setmapflag "moc_pryd03",mf_clouds; - setmapflag "moc_pryd04",mf_clouds; - setmapflag "moc_pryd05",mf_clouds; - setmapflag "moc_pryd06",mf_clouds; - setmapflag "moc_prydb1",mf_clouds; - setmapflag "moc_ruins",mf_clouds; - setmapflag "morocc",mf_clouds; - //setmapflag "new_1-1",mf_clouds; - //setmapflag "new_1-2",mf_clouds; - //setmapflag "new_1-3",mf_clouds; - //setmapflag "new_1-4",mf_clouds; - setmapflag "pay_arche",mf_clouds; - setmapflag "pay_fild01",mf_clouds; - setmapflag "pay_fild02",mf_clouds; - setmapflag "pay_fild03",mf_clouds; - setmapflag "pay_fild04",mf_clouds; - setmapflag "pay_fild05",mf_clouds; - setmapflag "pay_fild06",mf_clouds; - setmapflag "pay_fild07",mf_clouds; - setmapflag "pay_fild08",mf_clouds; - setmapflag "pay_fild09",mf_clouds; - setmapflag "pay_fild10",mf_clouds; - setmapflag "pay_fild11",mf_clouds; - //setmapflag "priest_1-1",mf_clouds; - //setmapflag "priest_2-1",mf_clouds; - //setmapflag "priest_3-1",mf_clouds; - setmapflag "prontera",mf_clouds; - setmapflag "prt_are01",mf_clouds; - setmapflag "prt_fild00",mf_clouds; - setmapflag "prt_fild01",mf_clouds; - setmapflag "prt_fild02",mf_clouds; - setmapflag "prt_fild03",mf_clouds; - setmapflag "prt_fild04",mf_clouds; - setmapflag "prt_fild05",mf_clouds; - setmapflag "prt_fild06",mf_clouds; - setmapflag "prt_fild07",mf_clouds; - setmapflag "prt_fild08",mf_clouds; - setmapflag "prt_fild09",mf_clouds; - setmapflag "prt_fild10",mf_clouds; - setmapflag "prt_fild11",mf_clouds; - setmapflag "prt_maze01",mf_clouds; - setmapflag "prt_maze02",mf_clouds; - setmapflag "prt_maze03",mf_clouds; - setmapflag "prt_monk",mf_clouds; - setmapflag "cmd_fild01",mf_clouds; - setmapflag "cmd_fild02",mf_clouds; - setmapflag "cmd_fild03",mf_clouds; - setmapflag "cmd_fild04",mf_clouds; - setmapflag "cmd_fild05",mf_clouds; - setmapflag "cmd_fild06",mf_clouds; - setmapflag "cmd_fild07",mf_clouds; - setmapflag "cmd_fild08",mf_clouds; - setmapflag "cmd_fild09",mf_clouds; - setmapflag "cmd_in01",mf_clouds; - setmapflag "cmd_in02",mf_clouds; - setmapflag "gef_fild12",mf_clouds; - setmapflag "gef_fild13",mf_clouds; - setmapflag "gef_fild14",mf_clouds; - setmapflag "alde_gld",mf_clouds; - setmapflag "pay_gld",mf_clouds; - setmapflag "prt_gld",mf_clouds; - setmapflag "alde_alche",mf_clouds; - setmapflag "yuno",mf_clouds; - setmapflag "yuno_fild01",mf_clouds; - setmapflag "yuno_fild02",mf_clouds; - setmapflag "yuno_fild03",mf_clouds; - setmapflag "yuno_fild04",mf_clouds; - setmapflag "ama_fild01",mf_clouds; - setmapflag "ama_test",mf_clouds; - setmapflag "amatsu",mf_clouds; - setmapflag "gon_fild01",mf_clouds; - setmapflag "gon_test",mf_clouds; - setmapflag "gonryun",mf_clouds; - setmapflag "umbala",mf_clouds; - setmapflag "um_fild01",mf_clouds; - setmapflag "um_fild02",mf_clouds; - setmapflag "um_fild03",mf_clouds; - setmapflag "um_fild04",mf_clouds; - setmapflag "niflheim",mf_clouds; - setmapflag "nif_fild01",mf_clouds; - setmapflag "nif_fild02",mf_clouds; - setmapflag "nif_in",mf_clouds; - setmapflag "yggdrasil01",mf_clouds; - setmapflag "valkyrie",mf_clouds; - setmapflag "lou_fild01",mf_clouds; - setmapflag "louyang",mf_clouds; - setmapflag "nguild_gef",mf_clouds; - setmapflag "nguild_prt",mf_clouds; - setmapflag "nguild_pay",mf_clouds; - setmapflag "nguild_alde",mf_clouds; - setmapflag "jawaii",mf_clouds; - setmapflag "jawaii_in",mf_clouds; - setmapflag "gefenia01",mf_clouds; - setmapflag "gefenia02",mf_clouds; - setmapflag "gefenia03",mf_clouds; - setmapflag "gefenia04",mf_clouds; - setmapflag "payon",mf_clouds; - setmapflag "ayothaya",mf_clouds; - setmapflag "ayo_in01",mf_clouds; - setmapflag "ayo_in02",mf_clouds; - setmapflag "ayo_fild01",mf_clouds; - setmapflag "ayo_fild02",mf_clouds; - setmapflag "que_god01",mf_clouds; - setmapflag "que_god02",mf_clouds; - setmapflag "yuno_fild05",mf_clouds; - setmapflag "yuno_fild07",mf_clouds; - setmapflag "yuno_fild08",mf_clouds; - setmapflag "yuno_fild09",mf_clouds; - setmapflag "yuno_fild11",mf_clouds; - setmapflag "yuno_fild12",mf_clouds; - setmapflag "alde_tt02",mf_clouds; - setmapflag "einbech",mf_clouds; - setmapflag "einbroch",mf_clouds; - setmapflag "ein_fild06",mf_clouds; - setmapflag "ein_fild07",mf_clouds; - setmapflag "ein_fild08",mf_clouds; - setmapflag "ein_fild09",mf_clouds; - setmapflag "ein_fild10",mf_clouds; - setmapflag "que_sign01",mf_clouds; - setmapflag "ein_fild03",mf_clouds; - setmapflag "ein_fild04",mf_clouds; - setmapflag "lhz_fild02",mf_clouds; - setmapflag "lhz_fild03",mf_clouds; - return; -} - -function script RcloudFlag { - removemapflag "alb2trea",mf_clouds; - removemapflag "alberta",mf_clouds; - removemapflag "aldebaran",mf_clouds; - removemapflag "gef_fild00",mf_clouds; - removemapflag "gef_fild01",mf_clouds; - removemapflag "gef_fild02",mf_clouds; - removemapflag "gef_fild03",mf_clouds; - removemapflag "gef_fild04",mf_clouds; - removemapflag "gef_fild05",mf_clouds; - removemapflag "gef_fild06",mf_clouds; - removemapflag "gef_fild07",mf_clouds; - removemapflag "gef_fild08",mf_clouds; - removemapflag "gef_fild09",mf_clouds; - removemapflag "gef_fild10",mf_clouds; - removemapflag "gef_fild11",mf_clouds; - removemapflag "geffen",mf_clouds; - removemapflag "gl_church",mf_clouds; - removemapflag "gl_chyard",mf_clouds; - removemapflag "gl_knt01",mf_clouds; - removemapflag "gl_knt02",mf_clouds; - removemapflag "gl_step",mf_clouds; - removemapflag "glast_01",mf_clouds; - removemapflag "hunter_1-1",mf_clouds; - removemapflag "hunter_2-1",mf_clouds; - removemapflag "hunter_3-1",mf_clouds; - removemapflag "izlude",mf_clouds; - removemapflag "mjolnir_01",mf_clouds; - removemapflag "mjolnir_02",mf_clouds; - removemapflag "mjolnir_03",mf_clouds; - removemapflag "mjolnir_04",mf_clouds; - removemapflag "mjolnir_05",mf_clouds; - removemapflag "mjolnir_06",mf_clouds; - removemapflag "mjolnir_07",mf_clouds; - removemapflag "mjolnir_08",mf_clouds; - removemapflag "mjolnir_09",mf_clouds; - removemapflag "mjolnir_10",mf_clouds; - removemapflag "mjolnir_11",mf_clouds; - removemapflag "mjolnir_12",mf_clouds; - removemapflag "moc_fild01",mf_clouds; - removemapflag "moc_fild02",mf_clouds; - removemapflag "moc_fild03",mf_clouds; - removemapflag "moc_fild04",mf_clouds; - removemapflag "moc_fild05",mf_clouds; - removemapflag "moc_fild06",mf_clouds; - removemapflag "moc_fild07",mf_clouds; - removemapflag "moc_fild08",mf_clouds; - removemapflag "moc_fild09",mf_clouds; - removemapflag "moc_fild10",mf_clouds; - removemapflag "moc_fild11",mf_clouds; - removemapflag "moc_fild12",mf_clouds; - removemapflag "moc_fild13",mf_clouds; - removemapflag "moc_fild14",mf_clouds; - removemapflag "moc_fild15",mf_clouds; - removemapflag "moc_fild16",mf_clouds; - removemapflag "moc_fild17",mf_clouds; - removemapflag "moc_fild18",mf_clouds; - removemapflag "moc_fild19",mf_clouds; - removemapflag "moc_pryd01",mf_clouds; - removemapflag "moc_pryd02",mf_clouds; - removemapflag "moc_pryd03",mf_clouds; - removemapflag "moc_pryd04",mf_clouds; - removemapflag "moc_pryd05",mf_clouds; - removemapflag "moc_pryd06",mf_clouds; - removemapflag "moc_prydb1",mf_clouds; - removemapflag "moc_ruins",mf_clouds; - removemapflag "morocc",mf_clouds; - removemapflag "new_1-1",mf_clouds; - removemapflag "new_1-2",mf_clouds; - removemapflag "new_1-3",mf_clouds; - removemapflag "new_1-4",mf_clouds; - removemapflag "pay_arche",mf_clouds; - removemapflag "pay_fild01",mf_clouds; - removemapflag "pay_fild02",mf_clouds; - removemapflag "pay_fild03",mf_clouds; - removemapflag "pay_fild04",mf_clouds; - removemapflag "pay_fild05",mf_clouds; - removemapflag "pay_fild06",mf_clouds; - removemapflag "pay_fild07",mf_clouds; - removemapflag "pay_fild08",mf_clouds; - removemapflag "pay_fild09",mf_clouds; - removemapflag "pay_fild10",mf_clouds; - removemapflag "pay_fild11",mf_clouds; - removemapflag "priest_1-1",mf_clouds; - removemapflag "priest_2-1",mf_clouds; - removemapflag "priest_3-1",mf_clouds; - removemapflag "prontera",mf_clouds; - removemapflag "prt_are01",mf_clouds; - removemapflag "prt_fild00",mf_clouds; - removemapflag "prt_fild01",mf_clouds; - removemapflag "prt_fild02",mf_clouds; - removemapflag "prt_fild03",mf_clouds; - removemapflag "prt_fild04",mf_clouds; - removemapflag "prt_fild05",mf_clouds; - removemapflag "prt_fild06",mf_clouds; - removemapflag "prt_fild07",mf_clouds; - removemapflag "prt_fild08",mf_clouds; - removemapflag "prt_fild09",mf_clouds; - removemapflag "prt_fild10",mf_clouds; - removemapflag "prt_fild11",mf_clouds; - removemapflag "prt_maze01",mf_clouds; - removemapflag "prt_maze02",mf_clouds; - removemapflag "prt_maze03",mf_clouds; - removemapflag "prt_monk",mf_clouds; - removemapflag "cmd_fild01",mf_clouds; - removemapflag "cmd_fild02",mf_clouds; - removemapflag "cmd_fild03",mf_clouds; - removemapflag "cmd_fild04",mf_clouds; - removemapflag "cmd_fild05",mf_clouds; - removemapflag "cmd_fild06",mf_clouds; - removemapflag "cmd_fild07",mf_clouds; - removemapflag "cmd_fild08",mf_clouds; - removemapflag "cmd_fild09",mf_clouds; - removemapflag "gef_fild12",mf_clouds; - removemapflag "gef_fild13",mf_clouds; - removemapflag "gef_fild14",mf_clouds; - removemapflag "alde_gld",mf_clouds; - removemapflag "pay_gld",mf_clouds; - removemapflag "prt_gld",mf_clouds; - removemapflag "alde_alche",mf_clouds; - removemapflag "yuno",mf_clouds; - removemapflag "yuno_fild01",mf_clouds; - removemapflag "yuno_fild02",mf_clouds; - removemapflag "yuno_fild03",mf_clouds; - removemapflag "yuno_fild04",mf_clouds; - removemapflag "ama_fild01",mf_clouds; - removemapflag "ama_test",mf_clouds; - removemapflag "amatsu",mf_clouds; - removemapflag "gon_fild01",mf_clouds; - removemapflag "gon_in",mf_clouds; - removemapflag "gon_test",mf_clouds; - removemapflag "gonryun",mf_clouds; - removemapflag "umbala",mf_clouds; - removemapflag "um_fild01",mf_clouds; - removemapflag "um_fild02",mf_clouds; - removemapflag "um_fild03",mf_clouds; - removemapflag "um_fild04",mf_clouds; - removemapflag "niflheim",mf_clouds; - removemapflag "nif_fild01",mf_clouds; - removemapflag "nif_fild02",mf_clouds; - removemapflag "nif_in",mf_clouds; - removemapflag "yggdrasil01",mf_clouds; - removemapflag "valkyrie",mf_clouds; - removemapflag "lou_fild01",mf_clouds; - removemapflag "louyang",mf_clouds; - removemapflag "nguild_gef",mf_clouds; - removemapflag "nguild_prt",mf_clouds; - removemapflag "nguild_pay",mf_clouds; - removemapflag "nguild_alde",mf_clouds; - removemapflag "jawaii",mf_clouds; - removemapflag "jawaii_in",mf_clouds; - removemapflag "gefenia01",mf_clouds; - removemapflag "gefenia02",mf_clouds; - removemapflag "gefenia03",mf_clouds; - removemapflag "gefenia04",mf_clouds; - removemapflag "payon",mf_clouds; - removemapflag "ayothaya",mf_clouds; - removemapflag "ayo_in01",mf_clouds; - removemapflag "ayo_in02",mf_clouds; - removemapflag "ayo_fild01",mf_clouds; - removemapflag "ayo_fild02",mf_clouds; - removemapflag "que_god01",mf_clouds; - removemapflag "que_god02",mf_clouds; - removemapflag "yuno_fild05",mf_clouds; - removemapflag "yuno_fild07",mf_clouds; - removemapflag "yuno_fild08",mf_clouds; - removemapflag "yuno_fild09",mf_clouds; - removemapflag "yuno_fild11",mf_clouds; - removemapflag "yuno_fild12",mf_clouds; - removemapflag "alde_tt02",mf_clouds; - removemapflag "einbech",mf_clouds; - removemapflag "einbroch",mf_clouds; - removemapflag "ein_fild06",mf_clouds; - removemapflag "ein_fild07",mf_clouds; - removemapflag "ein_fild08",mf_clouds; - removemapflag "ein_fild09",mf_clouds; - removemapflag "ein_fild10",mf_clouds; - removemapflag "que_sign01",mf_clouds; - removemapflag "ein_fild03",mf_clouds; - removemapflag "ein_fild04",mf_clouds; - removemapflag "lhz_fild02",mf_clouds; - removemapflag "lhz_fild03",mf_clouds; - return; -} diff --git a/npc/custom/card_remover.txt b/npc/custom/card_remover.txt index e0b40272d..34855dbd5 100644 --- a/npc/custom/card_remover.txt +++ b/npc/custom/card_remover.txt @@ -14,6 +14,9 @@ //============================================================ prt_in,28,73,4 script Wise Old Woman#eAcustom 78,{ + .zenycost = 200000; // Set base cost in zeny of the card remover services + .percardcost = .percardcost; // set cost per card of the card remover services + .faildestroy = 1; // Should the card remover have a chance of failure that destroys items? mes "[Wise Old Woman]"; mes "Good day, young one. I have the power to remove cards that you have compounded onto your equipment. Does this idea please you?"; next; @@ -55,14 +58,14 @@ prt_in,28,73,4 script Wise Old Woman#eAcustom 78,{ close; } mes "[Wise Old Woman]"; - mes "This item has " + .@cardcount + " cards compounded on it. To perform my magic, I will need " + (200000+(.@cardcount * 25000)) + " zeny, a ^0000FFStar Crumb^000000, and a ^0000FFYellow Gemstone^000000."; + mes "This item has " + .@cardcount + " cards compounded on it. To perform my magic, I will need " + (.zenycost+(.@cardcount * .percardcost)) + " zeny, a ^0000FFStar Crumb^000000, and a ^0000FFYellow Gemstone^000000."; next; if(select("Very well. Do it.:Nevermind.") == 2) { mes "[Wise Old Woman]"; mes "Very well. Return at once if you seek my services."; close; } - if((zeny < (200000+(.@cardcount * 25000))) || (countitem(1000) < 1) || (countitem(715) < 1)) { + if((zeny < (.zenycost+(.@cardcount * .percardcost))) || (countitem(1000) < 1) || (countitem(715) < 1)) { mes "[Wise Old Woman]"; mes "You do not have all the items I require to work my magic, child. Come again when you do."; close; @@ -83,7 +86,7 @@ prt_in,28,73,4 script Wise Old Woman#eAcustom 78,{ } mes "[Wise Old Woman]"; mes "Very well. I shall begin."; - set zeny,zeny - (200000+(.@cardcount * 25000)); + set zeny,zeny - (.zenycost+(.@cardcount * .percardcost)); delitem 1000,1; delitem 715,1; @@ -93,7 +96,7 @@ prt_in,28,73,4 script Wise Old Woman#eAcustom 78,{ // Third value = Harmless failure chance (all that's lost is your investment) set .@failchance,rand(100); - /* + if (.faildestroy==1) { if(.@failchance < 2) { next; failedremovecards .@part,0; @@ -119,7 +122,7 @@ prt_in,28,73,4 script Wise Old Woman#eAcustom 78,{ close; } } - */ + } if(.@failchance < 10) { next; @@ -135,7 +138,7 @@ prt_in,28,73,4 script Wise Old Woman#eAcustom 78,{ close; case 2: mes "[Wise Old Woman]"; - mes "I charge a flat fee of 200000 zeny, plus 25000 zeny for each card I remove from the item. In addition, I need a star crumb and a yellow gemstone to work my magic."; + mes "I charge a flat fee of "+.zenycost+" zeny, plus "+.percardcost+" zeny for each card I remove from the item. In addition, I need a star crumb and a yellow gemstone to work my magic."; close; case 3: mes "[Wise Old Woman]"; diff --git a/npc/custom/eAAC_Scripts/DonationGirl/donate.txt b/npc/custom/eAAC_Scripts/DonationGirl/donate.txt deleted file mode 100644 index f3d25c6d2..000000000 --- a/npc/custom/eAAC_Scripts/DonationGirl/donate.txt +++ /dev/null @@ -1,415 +0,0 @@ -//===== rAthena Script ======================================= -//= Donation NPC -//===== By: ================================================== -//= Josh -//===== Current Version: ===================================== -//= 3.11 (changelog at end of file) -//===== Compatible With: ===================================== -//= rAthena SVN; SQL only, revision 7975+ -//===== Description: ========================================= -//= A script that lets a player claim an item for donating. -//= Allows a GM to input each donation. -//===== Comments ============================================= -//= This script uses SQL tables to store variables for the -//= amount donated by users and the items claimable. -//===== Installation ========================================= -//= You must import donate.sql and donate_item_db.sql (and -//= item_db.sql and item_db2.sql, which comes with rAthena) -//= before using this script. -//============================================================ - -prontera,145,179,5 script Donation Girl 714,{ - - if (getgmlevel() >= 80) goto L_GM; - -L_START: - mes "[Donation Girl]"; - mes "Hello! I'm the Donation Girl!"; - mes "If you have made a donation,"; - mes "you are entitled to a reward!"; - next; - menu "More info",-,"Make a claim",L_CHECK,"Statistics",L_STATS; -L_INFO: - mes "[Donation Girl]"; - mes "Each month, a lot of money is paid to keep this server running."; - next; - mes "[Donation Girl]"; - mes "You can support us by donating any amount of money."; - next; - mes "[Donation Girl]"; - mes "To show our appreciation, we will gladly give you a reward."; - next; - menu "Continue",L_START,"Cancel",-; - -L_CHECK: - query_sql "SELECT `amount`,`claimed` FROM `donate` WHERE `account_id` = "+getcharid(3), @amount$, @claimed$; - query_sql "SELECT "+@amount$+" - "+@claimed$, @value$; - query_sql "SELECT '"+@value$+"' > 0", @enough; - if(!@enough) { - mes "[Donation Girl]"; - mes "Sorry, you do not have enough to make a claim."; - mes "If you have donated but have not made a claim,"; - mes "Please give us time to process your donation."; - close; - } - -L_CLAIM: - mes "[Donation Girl]"; - mes "Thankyou for donating!"; - mes "You have $"+@value$+" worth of credit!"; - mes "What would you like to claim?"; - next; - menu "Items",L_CLAIMITEM,"Zeny",L_ZENY; - -L_CLAIMITEM: - mes "[Donation Girl]"; - mes "Very well. Which item would you like?"; - next; - query_sql "SELECT `id` FROM `donate_item_db` WHERE `price` <= "+@value$+" ORDER BY `id`",@name; - set @menu$, getitemname(@name[0]); - for(set @i, 1; @i < getarraysize(@name); set @i, @i + 1){ - set @menu$, @menu$ + ":" + getitemname(@name[@i]); - } - - set @m, select(@menu$)-1; - - query_sql "SELECT `price` FROM `donate_item_db` WHERE `id` = "+@name[@m], @price$; - query_sql "SELECT "+@value$+" / "+@price$, @max; - - mes "[Donation Girl]"; - mes getitemname(@name[@m])+"s cost $"+@price$+" each."; - mes "How many "+getitemname(@name[@m])+"s would you like to claim?"; - mes "Maximum: "+@max+"."; - input @quantity; - mes "[Donation Girl]"; - if(@quantity>@max) { - mes "Sorry, but you do not have enough to claim "+@quantity+" "+getitemname(@name[@m])+"s."; - next; - goto L_CLAIM; - } - if(!@quantity) { - mes "You can't have 0 as an amount!"; - next; - goto L_CLAIM; - } - if(!checkweight(@name[@m],@quantity)) { - mes "I'm sorry, but you cannot carry "+@quantity+" "+getitemname(@name[@m])+"s."; - next; - goto L_CLAIM; - } - query_sql "SELECT "+@quantity+" * "+@price$, @total$; - mes "Are you sure you want to claim "+@quantity+" "+getitemname(@name[@m])+"s for $"+@total$+"?"; - next; - menu "No",L_CLAIM,"Yes",-; - query_sql "UPDATE `donate` SET `claimed` = `claimed` + "+@total$+" WHERE `account_id` = "+getcharid(3); - logmes "Claimed "+@quantity+" "+getitemname(@name[@m])+"s"; - getitem @name[@m],@quantity; - mes "[Donation Girl]"; - mes "Thankyou for donating! We hope you enjoy your gift!"; - close; - -L_ZENY: - mes "[Donation Girl]"; - if(!$rate) { - mes "Sorry, we currently do not allow claiming Zeny."; - mes "Please go back and claim an item instead."; - next; - goto L_CLAIM; - } - query_sql "SELECT "+@value$+" * "+$rate, @maxzeny; - mes "Very well. You can claim as much as "+@maxzeny+"Z."; - mes "How much Zeny would you like to claim?"; - input @zeny; - mes "[Donation Girl]"; - if(@zeny>@maxzeny) { - mes "Sorry, but you do not have enough to claim "+@zeny+"Z."; - next; - goto L_CLAIM; - } - if(!@zeny) { - mes "You can't have 0 as an amount!"; - next; - goto L_CLAIM; - } - set @total, @zeny * $rate; - mes "Are you sure you want to claim "+@zeny+"Z for $"+@total+"?"; - next; - menu "No",L_CLAIM,"Yes",-; - query_sql "UPDATE `donate` SET `claimed` = `claimed` + "+@total+" WHERE `account_id` = "+getcharid(3); - logmes "Claimed "+@zeny+" zenies"; - set Zeny, Zeny + @zeny; - mes "[Donation Girl]"; - mes "Thankyou for donating! We hope you enjoy your gift!"; - close; - -L_STATS: - mes "[Donation Girl]"; - query_sql "SELECT IFNULL((SELECT SUM(amount) FROM `donate`),0)", @total$; - mes "Our fund is at a total of $"+@total$; - next; - menu "More info",L_INFO,"Make a claim",L_CHECK,"Statistics",L_STATS; - -L_GM: - mes "[GM Menu]"; - mes "Hello GM!"; - mes "What would you like to do?"; - next; - query_sql "SHOW VARIABLES LIKE 'version'", @version, @valule$; - query_sql "SELECT '"+@valule$+"' >= '5.0.8'", @version; - menu "Add/Remove Donation",L_GM2,"Add/Remove Items",L_ITEM,"(Re)Set Exchange Rate",L_RATE,"Test Script",L_START; - -L_GM2: - menu "Add a donation",L_DONATE,"Remove a donation",L_REMOVE,"View all donations",L_VIEWALL,"Return to main menu",L_GM; - -L_ITEM: - menu "Add an item",L_NEWITEM,"Remove an item",L_DELITEM,"View all items",L_ALLITEMS,"Return to main menu",L_GM; - -L_NEWITEM: - mes "[GM Menu]"; - mes "Please enter the item name:"; - input @itemname$; - set @iid, 0; - query_sql "SELECT `id` FROM `item_db` WHERE `name_english` = '"+escape_sql(@itemname$)+"' || `name_japanese` = '"+escape_sql(@itemname$)+"' UNION SELECT `id` FROM `item_db2` WHERE `name_english` = '"+escape_sql(@itemname$)+"' || `name_japanese` = '"+escape_sql(@itemname$)+"'", @iid; - if(!@iid) goto L_INONE; - query_sql "SELECT 1 FROM `donate_item_db` WHERE `id` = "+@iid, @check; - mes "[GM Menu]"; - mes "Please enter the cost of each "+@itemname$+":"; - input @cost$; - if(@version) query_sql "SELECT CAST('"+escape_sql(@cost$)+"' AS DECIMAL)", @cost$; - query_sql "SELECT '"+escape_sql(@cost$)+"' > 0", @valid; - if(!@valid) goto L_ZERO; - mes "[GM Menu]"; - mes "You have specified that donators can claim "+@itemname$+"s for $"+@cost$+" each."; - mes "Would you like to continue?"; - next; - menu "No",L_ITEM,"Yes",-; - mes "[GM Menu]"; - if(!@check){ - query_sql "INSERT INTO `donate_item_db` VALUES ("+@iid+",'"+@cost$+"')"; - logmes "Added "+@itemname$+"s to list of claimable items"; - mes "Item added successfully!"; - } else { - mes "Item "+@itemname$+" already exists in the database."; - mes "Would you like to replace it?"; - next; - menu "No",L_ITEM,"Yes",-; - query_sql "REPLACE INTO `donate_item_db` VALUES ("+@iid+",'"+@cost$+"')"; - logmes "Changed the price of "+@itemname$+"s"; - mes "[GM Menu]"; - mes "Item replaced successfully!"; - } - close; - -L_INONE: - mes "[GM Menu]"; - mes "Item "+@itemname$+" does not exist."; - next; - goto L_ITEM; - -L_DELITEM: - mes "[GM Menu]"; - mes "Please enter the item name:"; - input @itemname$; - set @iid, 0; - query_sql "SELECT `donate_item_db`.`id` FROM `donate_item_db` LEFT JOIN `item_db` ON `donate_item_db`.`id` = `item_db`.`id` LEFT JOIN `item_db2` ON `donate_item_db`.`id` = `item_db2`.`id` WHERE `item_db`.`name_english` = '"+escape_sql(@itemname$)+"' || `item_db`.`name_japanese` = '"+escape_sql(@itemname$)+"' || `item_db2`.`name_english` = '"+escape_sql(@itemname$)+"' || `item_db2`.`name_japanese` = '"+escape_sql(@itemname$)+"'", @iid; - if(!@iid) goto L_INONE; - next; - mes "[GM Menu]"; - mes "You have specified to delete "+@itemname$+" from the database."; - mes "Would you like to continue?"; - next; - menu "No",L_ITEM,"Yes",-; - query_sql "DELETE FROM `donate_item_db` WHERE `id` = "+@iid; - logmes "Deleted "+@itemname$+"s from list of claimable items"; - mes "[GM Menu]"; - mes "Item deleted successfully!"; - close; - -L_ALLITEMS: - mes "[GM Menu]"; - query_sql "SELECT `id`,`price` FROM `donate_item_db` ORDER BY `id`", @items, @itemamount$; - for(set @i, 0; @i < getarraysize(@items); set @i, @i + 1){ - mes getitemname(@items[@i])+" - $"+@itemamount$[@i]; - } - next; - goto L_GM; - -L_DONATE: - mes "[GM Menu]"; - mes "Please enter the donator's username:"; - input @donator$; - set @aid, 0; - query_sql "SELECT `account_id` FROM `login` WHERE `userid` = '"+escape_sql(@donator$)+"'", @aid; - if(!@aid) goto L_NONE; - set @donated$, ""; - query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @donated$; - query_sql "SELECT '"+@donated$+"' > 0", @donated; - switch(@donated) { - case 0: - mes @donator$+" has not donated before."; - break; - case 1: - mes @donator$+" has donated $"+@donated$+"."; - break; - } - next; - mes "[GM Menu]"; - mes "Please enter the amount donated by "+@donator$; - input @donating$; - if(@version) query_sql "SELECT CAST('"+escape_sql(@donating$)+"' AS DECIMAL)", @donating$; - query_sql "SELECT '"+escape_sql(@donating$)+"' > 0", @valid; - if(!@valid) goto L_ZERO; - mes "[GM Menu]"; - mes "You have specified that "+@donator$+" has donated $"+@donating$+"."; - mes "Would you like to continue?"; - next; - menu "No",L_GM,"Yes",-; - switch(@donated) { - case 0: - query_sql "INSERT INTO `donate` VALUES ("+@aid+", '"+@donating$+"', 0)"; - break; - case 1: - query_sql "UPDATE `donate` SET `amount` = `amount` + "+@donating$+" WHERE `account_id` = "+@aid; - break; - } - logmes "Credited "+@donator$+" with $"+@donating$; - query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @newdonated$; - mes "[GM Menu]"; - mes "Donation added successfully!"; - mes @donator$+" has donated a total of $"+@newdonated$; - close; - -L_ZERO: - mes "[GM Menu]"; - mes "You can't have 0 as an amount!"; - next; - goto L_GM; - -L_NONE: - mes "[GM Menu]"; - mes "Account name "+@donator$+" does not exist."; - next; - goto L_GM; - -L_REMOVE: - mes "[GM Menu]"; - mes "Please enter the donator's username:"; - input @donator$; - set @aid, 0; - query_sql "SELECT `account_id` FROM `login` WHERE `userid` = '"+escape_sql(@donator$)+"'", @aid; - if(!@aid) goto L_NONE; - query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @donated$; - query_sql "SELECT '"+@donated$+"' > 0", @donated; - mes "[GM Menu]"; - if(!@donated) { - query_sql "DELETE FROM `donate` WHERE `account_id` = "+@aid; - logmes "Deleted "+@donator$+" from donation database"; - mes @donator$+" is not a donator and has been deleted from the donation database."; - } else { - mes @donator$+" has donated $"+@donated$+"."; - next; - switch(select("Deduct an amount from "+@donator$,"Remove "+@donator$+" from the donation database")){ - mes "[GM Menu]"; - case 1: - mes "Please enter the amount "+@donator$+" is to be deducted by:"; - input @deduct$; - if(@version) query_sql "SELECT CAST('"+escape_sql(@deduct$)+"' AS DECIMAL)", @deduct$; - query_sql "SELECT '"+escape_sql(@deduct$)+"' > 0", @valid; - if(!@valid) goto L_ZERO; - mes "[GM Menu]"; - mes "You have specified that "+@donator$+" is to be deducted by $"+@deduct$+"."; - mes "Would you like to continue?"; - next; - menu "No",L_GM,"Yes",-; - query_sql "UPDATE `donate` SET `amount` = `amount` - "+@deduct$+" WHERE `account_id` = "+@aid; - query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @afterdeduct$; - logmes "Deducted "+@deduct$+" from "+@donator$; - mes "[GM Menu]"; - mes "Donation deducted successfully!"; - mes @donator$+" has donated a total of $"+@afterdeduct$; - break; - case 2: - mes "You have specified to remove "+@donator$+" from the donation database."; - mes "Would you like to continue?"; - next; - menu "No",L_GM,"Yes",-; - query_sql "DELETE FROM `donate` WHERE `account_id` = "+@aid; - logmes "Deleted "+@donator$+" from donation database"; - mes "[GM Menu]"; - mes "Donator deleted successfully!"; - break; - } - } - close; - -L_VIEWALL: - mes "[GM Menu]"; - query_sql "SELECT `account_id`,`amount` FROM `donate` ORDER BY `amount` DESC", @donatoraid, @donatedamount$; - for(set @i, 0; @i < getarraysize(@donatoraid); set @i, @i + 1){ - query_sql "SELECT `userid` FROM `login` WHERE `account_id` = "+@donatoraid[@i], @donateruserid$; - for(set @j, 0; @j < getarraysize(@donateruserid$); set @j, @j + 1){ - mes @donateruserid$[@j]+" - "+@donatedamount$[@i]; - } - } - next; - goto L_GM; - -L_RATE: - mes "[GM Menu]"; - if($rate) mes "$1 is currently worth "+$rate+"Z."; - mes "How much Zeny is $1 worth?"; - input $rate; - mes "[GM Menu]"; - mes "The value of $1 successfully changed to "+$rate+"Z."; - next; - goto L_GM; -} - -//===== Additional Comments: ================================= -//= 1.0 - First release. Probably contains bugs/security risks. -//= 1.1 - Added a check for whether the account exists when -//= adding a donator. Need to improve ordering when -//= viewing all donations. -//= 1.2 - Modified for public use. Added checkweight feature. -//= 2.0 - Many changes, especially ones I had always wanted -//= to add to this script. Includes reading items from -//= a separate SQL table and more database manipulation -//= options for GMs. -//= 2.1 - Made few changes including the add/remove items feature. -//= 3.0 - All strings inputted by a user and user/char names -//= in SQL queries are now escaped. Each item has a -//= price rather than a quantity. This script can work -//= with decimals. -//= 3.1 - Added quotes to some queries, fixed a variable and -//= removed a comment. -//= 3.2 - Fixed a problem where rAthena would crash if a -//= query returned NULL. -//= 3.3 - Optimized query speeds by combining a few select -//= queries into one. Requires Trunk 7975. -//= 3.4 - Added MySQL version check. If version < 5.0.8, all -//= queries with CAST are omitted. Use 5.0.8 and up -//= when possible. SQL errors may consequent if GM's -//= input is incorrect. Added logging of claims. -//= "log_npc" in log_athena.conf must be enabled. Logs -//= will appear in the "npclog" table. Claim menu now -//= only shows items that can be afforded. -//= 3.5 - Minor change to table. -//= 3.6 - Removed name column in donate_item_db. Added -//= support for item_db2 table. -//= 3.7 - Added Zeny support. $rate must be set for it to be -//= used. Removed truncate() in a query since rAthena -//= automatically truncates floats to ints. -//= 3.8 - Fixed problem with menus and null values. -//= 3.9 - Explicit reset of @aid. -//= 3.10 - Applied previous fix to other variables and forced -//= dialogue box closure every time database is modified. -//= 3.11 - Explicit reset of another variable. Fixed typo -//= - with $rate. Added logmes for GM operations. -//============================================================ -//= Thanks to Vich for helping me with the SQL syntax. -//= Thanks to Lance for helping me with the the arrays and -//= for implementing query_sql. -//= Thanks to Skotlex for implementing escape_sql. -//= Thanks to Toms for implementing the new multi-column -//= query_sql command. -//============================================================ diff --git a/npc/custom/eAAC_Scripts/DonationGirl/sql/donate.sql b/npc/custom/eAAC_Scripts/DonationGirl/sql/donate.sql deleted file mode 100644 index b820e2605..000000000 --- a/npc/custom/eAAC_Scripts/DonationGirl/sql/donate.sql +++ /dev/null @@ -1,6 +0,0 @@ -CREATE TABLE `donate` ( - `account_id` INT(11) UNSIGNED NOT NULL, - `amount` FLOAT(9,2) UNSIGNED NOT NULL, - `claimed` FLOAT(9,2) UNSIGNED NOT NULL, - PRIMARY KEY (`account_id`) -) TYPE=MYISAM; diff --git a/npc/custom/eAAC_Scripts/DonationGirl/sql/donate_item_db.sql b/npc/custom/eAAC_Scripts/DonationGirl/sql/donate_item_db.sql deleted file mode 100644 index 54b4895b3..000000000 --- a/npc/custom/eAAC_Scripts/DonationGirl/sql/donate_item_db.sql +++ /dev/null @@ -1,13 +0,0 @@ -CREATE TABLE `donate_item_db` ( - `id` SMALLINT(5) UNSIGNED NOT NULL DEFAULT '0', - `price` FLOAT(9,2) UNSIGNED NOT NULL, - PRIMARY KEY (`id`) -) TYPE=MYISAM; - -#(ID,Price); -REPLACE INTO `donate_item_db` VALUES (601,0.06); #Wing_Of_Fly -REPLACE INTO `donate_item_db` VALUES (602,0.33); #Wing_Of_Butterfly -REPLACE INTO `donate_item_db` VALUES (603,10); #Old_Blue_Box -REPLACE INTO `donate_item_db` VALUES (604,0.05); #Branch_Of_Dead_Tree -REPLACE INTO `donate_item_db` VALUES (605,2); #Anodyne -REPLACE INTO `donate_item_db` VALUES (606,2); #Aloebera diff --git a/npc/custom/eAAC_Scripts/Kafra_Express_files.conf b/npc/custom/eAAC_Scripts/Kafra_Express_files.conf deleted file mode 100644 index 96c5823df..000000000 --- a/npc/custom/eAAC_Scripts/Kafra_Express_files.conf +++ /dev/null @@ -1,29 +0,0 @@ -//|-----------------------------------------------------------------| -//|- English Athena Approved Certified Script: Kafra Express Set -| -//|-----------------------------------------------------------------| -//| -//| The configuration file. -npc: npc/custom/eAAC_Scripts/kafraExpress/config.txt - -//| The files for this npc. - -npc: npc/custom/eAAC_Scripts/kafraExpress/kafras.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_main.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_broadcast.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_dye.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_jobchange.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_jobswap.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_rent.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_shop.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_statmarket.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_stats.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_refine.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_uncard.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_warp_dungeon.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_warp_pvp.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_warp_town.txt -npc: npc/custom/eAAC_Scripts/kafraExpress/ke_warp_woe.txt - -//| For more info referring this script, open the provided readme.txt in this folder. -//| Copyright © 2004 - 2006 Skotlex. All Rights Reserved for him (this is almost a trademark =X) diff --git a/npc/custom/eAAC_Scripts/banker.txt b/npc/custom/eAAC_Scripts/banker.txt deleted file mode 100644 index 93dcf5e66..000000000 --- a/npc/custom/eAAC_Scripts/banker.txt +++ /dev/null @@ -1,423 +0,0 @@ -//| ~~~~~~~~~~~ Information ~~~~~~~~~~~~~ -//| | This is a simple banking npc, | -//| | instead of using those global | -//| | variables :P | -//| | | -//| | It's fully customizable, you | -//| | can exchange the coin ID used | -//| | at will, it won't affect the | -//| | script whatsoever =3 | -//| | | -//| | The prices can also be set, the | -//| | way you like the most, as they | -//| | won't affect the script either | -//| | | -//| | No db/client files modification | -//| | needed, just "Plug&Play" ;P | -//| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -//| -//| Revision: -//| v.1.0: Released script. No problems or bugs found, at least :P -//| It's your duty to find them now if there are. -//| @minvalue must contain the coin price of the lowest coin value -//| in order for the script to work correctly. By default it's set -//| to the bronze coin -//| -//| Revision: -//| v.2.0: Added a Mix option in the Zeny to Coin function, -//| where it allows you to split your desired Zeny into -//| the coins you wish to obtain, without having to go -//| through the other functions to obtain them all. That way -//| you can get them all at once ;3 -//| -//| It also displays the total zeny being exchanged, -//| the total coins obtained and the difference between -//| the amount of zeny you've inputted and the sum of -//| the coin's values. -//| -//| Revision: -//| v.2.5: Replaced all the coin names with a variable that has -//| getitemname(<coin_id), for more customization of the script. -//| -//| Fixed aswell a 0 at the mixing function, it had an unexistant -//| variable plus it was rendering a message to 0. Pretty bad =/ -//| -//| The implementation of the getitemname was because some people -//| complaining that those items seemed to be wrong, that the name -//| in the db was Platinum while the script had Silver, so well, -//| there you have it. No more silver coins, thanks to you :) - -//| Revision: -//| v.2.6: Added another Weight check to prevent coins from dropping -//| to the ground because A) Too many coins (more than 30,000 ea) -//| B) Your current weight + total coins weight were greater than -//| your max weight, causing them to drop due to "over-weight". -//| Thanks to Niktout for spotting it. - -//| Revision: -//| v.2.7: Added a check to the Zeny -> Coin Mix label. It seems you -//| can trade with negative zeny (meh...). This should prevent it. -//| Thanks to Niktout. - -//| Revision: -//| v.2.8: Added a n00b check for the Zeny -> Coin function. Should -//| prevent zeny overflow. Also added a variable cleaning section -//| at the beginning of the Mix function, to prevent old values -//| to be used as a payout. - -//| Revision: -//| v.2.8.1 Removed the 'conflicting' switch with variables as case options, -//| and moved the color names to the function, so now it executes once. -//| Did other optimizations and cleanups all around the code. Meh. - -//| Upcomming possible updates: -//| v.3.0: Adding a refining system, so you can gather ore and the likes -//| to make your own coins. They will have a failure chance -//| of course. You will need, for now: 10 ores of the type of -//| coin you wish, a mini furnace, an anvil depending on what -//| You're crafting, and a hammer according to it. - -//| Copyright © 2006-2007 erKURITA. All Rights Reserved - -prontera,155,188,3 script Zacariath Madhat 872,{ - -//|~~~~~~~~~~~~~ Settings of the NPC: ~~~~~~~~~~~~~~~~~ - set @npcname$,"^999999[Zach]^000000"; //| - set @bronzeprice,10000; //| - set @silverprice,100000; //| - set @goldprice,1000000; //| - set @mithrilprice,10000000; //| - set @bronzecoinid,673; //| - set @silvercoinid,677; //| - set @goldcoinid,671; //| - set @mithrilcoinid,674; //| - set @minvalue,@bronzeprice; //| - set @name1$,getitemname(@bronzecoinid); //| - set @name2$,getitemname(@silvercoinid); //| - set @name3$,getitemname(@goldcoinid); //| - set @name4$,getitemname(@mithrilcoinid); //| - set @MAX_ZENY,1000000000; //| -//|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - mes @npcname$; - mes "Hi "+strcharinfo(0)+", I'm this town's banker"; - mes "I can allow you to exchange your zeny into useful and handy coins, which you can use to make trades between players, or just save them"; - next; - mes @npcname$; - mes "^996600"+@name1$+"s^000000 are worth "+@bronzeprice+"z, ^999999"+@name2$+"s^000000 are worth "+@silverprice+"z, ^FFCC00"+@name3$+"s^000000 "+@goldprice+"z, ^CCCCCC"+@name4$+"s^000000 are worth "+@mithrilprice+"z"; - next; - goto L_Menu; - - L_Menu: - mes @npcname$; - mes "What do you want to do then?"; - menu "Exchange my coins into zeny",-,"Exchange my zeny into coins",L_ZenyCoin,"Nothing for now, sorry",L_End; - -//| Here starts the Coin to Zeny Exchange - L_CoinZeny: - next; - mes @npcname$; - mes "First than anything, what kind of coins are you going to exchange?"; - menu @name1$+"s",L_Bronze,@name2$+"s",L_Silver,@name3$+"s",L_Gold,@name4$+"s",L_Mithril,"None for now",L_Menu; - L_Bronze: - callsub L_Coincheckout,@bronzecoinid,@bronzeprice,"^996600"; - goto L_CoinZeny; - L_Silver: - callsub L_Coincheckout,@silvercoinid,@silverprice,"^999999"; - goto L_CoinZeny; - L_Gold: - callsub L_Coincheckout,@goldcoinid,@goldprice,"^FFCC00"; - goto L_CoinZeny; - L_Mithril: - callsub L_Coincheckout,@mithrilcoinid,@mithrilprice,"^CCCCCC"; - goto L_CoinZeny; - L_Coincheckout: - set @coinname$,getarg(2)+getitemname(getarg(0))+"^000000"; - next; - mes @npcname$; - mes "Let's see, how many coins do you want to exchange?"; - next; - L_Inputing: - input @coinamount; - if (@coinamount <= 0) { - mes @npcname$; - mes "You didn't input any amount, please retry"; - next; - goto L_Inputing; - } else if (countitem(getarg(0)) < @coinamount) { - mes @npcname$; - mes "You don't have enough coins, please get some"; - next; - goto L_Menu; - } else if (@coinamount*getarg(1) > @MAX_ZENY) { - mes @npcname$; - mes "I'm sorry, the quantity you inputted gives a bigger zeny amount than the max allowed. I can't allow this."; - next; - goto L_Menu; - } - next; - mes @npcname$; - mes "So, you want to exchange "+@coinamount+" "+@coinname$+" ?"; - menu "Yes, I want to exchange this much",-,"No, I want to exchange something else",L_CoinZeny,"No, I want to input another number",L_Inputing,"No, I dont want to exchange anything",L_Menu; - next; - set @price,getarg(1)*@coinamount; - delitem getarg(0),@coinamount; - set Zeny,Zeny+@price; - mes @npcname$; - mes "There we go, here's your money"; - next; - return; - -//| Here starts the Zeny to Coin exchange. - - L_ZenyCoin: - next; - if (MaxWeight*50/100 < Weight) { - if (MaxWeight*90/100 < Weight) { - mes @npcname$; - mes "Sorry but you have more than 90% weight. Your coins might drop. I can't give you anything."; - next; - goto L_Menu; - } - mes @npcname$; - mes "You have 50% or more weight, do you still want to continue?"; - menu "Yes",L_ContinueZenyCoin,"No, thanks",L_Menu; - } - L_ContinueZenyCoin: - mes @npcname$; - mes "First, how much zeny do you want to exchange"; - callsub L_Inputingzeny; - set @bronzezeny,@zenyamount/@bronzeprice; - set @silverzeny,@zenyamount/@silverprice; - set @goldzeny,@zenyamount/@goldprice; - set @mithrilzeny,@zenyamount/@mithrilprice; - next; - mes @npcname$; - mes "You can have, with "+@zenyamount+":"; - mes "^996600"+@bronzezeny+"^000000 "+@name1$+"s"; - mes "^999999"+@silverzeny+"^000000 "+@name2$+"s"; - mes "^FFCC00"+@goldzeny+"^000000 "+@name3$+"s"; - mes "or"; - mes "^CCCCCC"+@mithrilzeny+"^000000 "+@name4$+"s"; - next; - if (@zenyamount < @minvalue) goto L_Moremoney; - goto L_ZenyCoin2; - - L_ZenyCoin2: - mes @npcname$; - mes "Which coins do you want? Or do you want a mix of them?"; - menu "I want the "+@name1$+"s",-,"I want the "+@name2$+"s",L_Silvers,"I want the "+@name3$+"s",L_Golds,"I want the "+@name4$+"s",L_Mithrils,"I want a mix of them",L_Mix,"Nothing for now, sorry",L_Menu; - if (@bronzezeny == 0) goto L_Moremoney; - callsub L_Zenycheckout,@bronzecoinid,@bronzeprice,@bronzezeny; - goto L_Menu; - - L_Silvers: - if (@silverzeny == 0) goto L_Moremoney; - callsub L_Zenycheckout,@silvercoinid,@silverprice,@silverzeny; - goto L_Menu; - - L_Golds: - if (@goldzeny == 0) goto L_Moremoney; - callsub L_Zenycheckout,@goldcoinid,@goldprice,@goldzeny; - goto L_Menu; - - L_Mithrils: - if (@mithrilzeny == 0) goto L_Moremoney; - callsub L_Zenycheckout,@mithrilcoinid,@mithrilprice,@mithrilzeny; - goto L_Menu; - - L_Zenycheckout: - next; - if (((getiteminfo(getarg(0),6))*getarg(2)) > (MaxWeight-Weight)) { - mes @npcname$; - mes "Sorry, your max weight does not allow me to give you this much of zeny coins"; - mes "Either choose another type of coins or a lower quantity, thanks"; - close; - } - if (getarg(2) > 30000) { - mes @npcname$; - mes "Sorry, I can't give you more than 30,000 ea"; - mes "Pick another coin type"; - close; - } - set @itemid,getarg(0); - set @pricea,getarg(1)*getarg(2); - set Zeny,Zeny-@pricea; - getitem @itemid,getarg(2); - mes @npcname$; - mes "There you go, here's your coins"; - next; - return; - L_Inputingzeny: - input @zenyamount; - if (Zeny == 0) { - mes @npcname$; - mes "You don't have any Zeny left. I can't do anything. Get some Zeny first"; - next; - goto L_Menu; - } else if (@zenyamount <= 0) { - mes @npcname$; - mes "You didn't input any amount, please retry"; - next; - goto L_Inputingzeny; - } else if (@zenyamount > Zeny) { - mes @npcname$; - mes "The inputted zeny amount is bigger than your actual zeny amount"; - mes "Please re-entry another amount"; - next; - goto L_Inputingzeny; - } else return; - -//| Mix function - L_Mix: - set @totalzeny,0; - set @totalcoins,0; - set @bronzecoins,0; - set @silvercoins,0; - set @goldcoins,0; - set @mithrilcoins,0; - next; - mes @npcname$; - mes "Ok, let's start with ^996600"+@name1$+"s^000000"; - next; - mes @npcname$; - mes "How many coins do you want?"; - input @bronzecoins; - next; - set @totalzeny,@bronzecoins*@bronzeprice; - set @totalcoins,@bronzecoins; - mes "Zeny Amount Inputted: ^000066"+@zenyamount+"^000000"; - mes "Coins:"; - mes " ^996600"+@name1$+"s^000000: "+@bronzecoins+" ^CC0000"+@bronzecoins*@bronzeprice+"^000000"; - mes "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯"; - if (@totalzeny > @zenyamount || @totalzeny < 0) { - mes "TOTAL Zeny: "+@totalcoins+" - ^CC0000"+@totalzeny+"^000000"; - mes "Zeny Left: "+(@zenyamount-@totalzeny); - goto L_Overzeny; - } - mes "TOTAL Zeny: "+@totalcoins+" ^00CC00"+@totalzeny+"^000000"; - mes "Zeny Left: "+(@zenyamount-@totalzeny); - next; - if (@totalzeny > @zenyamount || @totalzeny < 0) goto L_Overzeny; - mes @npcname$; - mes "Is this enough or do you want more?"; - menu "It's enough, thanks",L_Payoff,"No, I want some more",-; - next; - mes @npcname$; - mes "Now ^999999"+@name2$+"s^000000. How many coins do you want?"; - next; - input @silvercoins; - next; - set @totalzeny,@totalzeny+@silvercoins*@silverprice; - set @totalcoins,@totalcoins+@silvercoins; - mes "Zeny Amount Inputted: ^000066"+@zenyamount+"^000000"; - mes "Coins:"; - mes " ^996600"+@name1$+"s^000000: "+@bronzecoins+" ^CC0000"+@bronzecoins*@bronzeprice+"^000000"; - mes " ^999999"+@name2$+"s^000000: "+@silvercoins+" ^CC0000"+@silvercoins*@silverprice+"^000000"; - mes "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯"; - if (@totalzeny > @zenyamount || @totalzeny < 0) { - mes "TOTAL Zeny: "+@totalcoins+" - ^CC0000"+@totalzeny+"^000000"; - mes "Zeny Left: "+(@zenyamount-@totalzeny); - goto L_Overzeny; - } - mes "TOTAL Zeny: "+@totalcoins+" ^00CC00"+@totalzeny+"^000000"; - mes "Zeny Left: "+(@zenyamount-@totalzeny); - next; - if (@totalzeny > @zenyamount || @totalzeny < 0) goto L_Overzeny; - mes @npcname$; - mes "Is this enough or do you want more?"; - menu "It's enough, thanks",L_Payoff,"No, I want some more",-; - next; - mes @npcname$; - mes "Now ^FFCC00"+@name3$+"s^000000. How many coins do you want?"; - input @goldcoins; - next; - set @totalzeny,@totalzeny+@goldcoins*@goldprice; - set @totalcoins,@totalcoins+@goldcoins; - mes "Zeny Amount Inputted: ^000066"+@zenyamount+"^000000"; - mes "Coins:"; - mes " ^996600"+@name1$+"s^000000: "+@bronzecoins+" ^CC0000"+@bronzecoins*@bronzeprice+"^000000"; - mes " ^999999"+@name2$+"s^000000: "+@silvercoins+" ^CC0000"+@silvercoins*@silverprice+"^000000"; - mes " ^FFCC00"+@name3$+"s^000000: "+@goldcoins+" ^CC0000"+@goldcoins*@goldprice+"^000000"; - mes "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯"; - if (@totalzeny > @zenyamount || @totalzeny < 0) { - mes "TOTAL Zeny: "+@totalcoins+" - ^CC0000"+@totalzeny+"^000000"; - mes "Zeny Left: "+(@zenyamount-@totalzeny); - goto L_Overzeny; - } - mes "TOTAL Zeny: "+@totalcoins+" ^00CC00"+@totalzeny+"^000000"; - mes "Zeny Left: "+(@zenyamount-@totalzeny); - next; - if (@totalzeny > @zenyamount || @totalzeny < 0) goto L_Overzeny; - mes @npcname$; - mes "Is this enough or do you want more?"; - menu "It's enough, thanks",L_Payoff,"No, I want some more",-; - next; - mes @npcname$; - mes "Now ^CCCCCC"+@name4$+"s^000000. How many coins do you want?"; - input @mithrilcoins; - next; - set @totalzeny,@totalzeny+@mithrilcoins*@mithrilprice; - set @totalcoins,@totalcoins+@mithrilcoins; - mes "Zeny Amount Inputted: ^000066"+@zenyamount+"^000000"; - mes "Coins:"; - mes " ^996600"+@name1$+"s^000000: "+@bronzecoins+" ^CC0000"+@bronzecoins*@bronzeprice+"^000000"; - mes " ^999999"+@name2$+"s^000000: "+@silvercoins+" ^CC0000"+@silvercoins*@silverprice+"^000000"; - mes " ^FFCC00"+@name3$+"s^000000: "+@goldcoins+" ^CC0000"+@goldcoins*@goldprice+"^000000"; - mes " ^CCCCCC"+@name4$+"s^000000: "+@mithrilcoins+" ^CC0000"+@mithrilcoins*@mithrilprice+"^000000"; - mes "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯"; - if (@totalzeny > @zenyamount || @totalzeny < 0) { - mes "TOTAL Zeny: "+@totalcoins+" - ^CC0000"+@totalzeny+"^000000"; - mes "Zeny Left: "+(@zenyamount-@totalzeny); - goto L_Overzeny; - } - mes "TOTAL: "+@totalcoins+" ^00CC00"+@totalzeny+"^000000"; - mes "Zeny Left: "+(@zenyamount-@totalzeny); - next; - if (@totalzeny > @zenyamount || @totalzeny < 0) goto L_Overzeny; - mes @npcname$; - mes "Is this ok?: "+@bronzecoins+" "+@name1$+"s, "+@silvercoins+" "+@name2$+"s, "+@goldcoins+" "+@name3$+"s, "+@mithrilcoins+" "+@name4$+"s, for a total amount of "+@totalzeny; - menu "Yes, it's ok",-,"No, I want to re-intro them",L_Mix,"Sorry, I dont want anything",L_Menu; - - L_Payoff: - next; - if (@zenyamount > Zeny) goto L_Overzeny; - set Zeny,Zeny-@totalzeny; - getitem @bronzecoinid,@bronzecoins; - getitem @silvercoinid,@silvercoins; - getitem @goldcoinid,@goldcoins; - getitem @mithrilcoinid,@mithrilcoins; - mes @npcname$; - mes "There you go, here's your coins"; - next; - set @bronzecoins,0; - set @silvercoins,0; - set @goldcoins,0; - set @mithrilcoins,0; - goto L_End; - - L_Overzeny: - next; - mes @npcname$; - mes "Sorry, I can't do anything else. Either the sum of all the coins you inputted is bigger than the zeny amount inputted, or the inputted amout of zeny is bigger that your total Zeny. Please retry."; - next; - goto L_Menu; - -//| Other labels - - L_Moremoney: - mes @npcname$; - mes "You need to get more zeny, I can't give you anything with "+@zenyamount+"z, sorry"; - next; - goto L_Menu; - - L_End: - next; - mes @npcname$; - mes "Good to see you and hope to see you again. Bye"; - close; - - OnInit: - setitemscript 671,"{}"; - end; -} 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. diff --git a/npc/custom/eAAC_Scripts/messageboards.txt b/npc/custom/eAAC_Scripts/messageboards.txt deleted file mode 100644 index c6c59edcb..000000000 --- a/npc/custom/eAAC_Scripts/messageboards.txt +++ /dev/null @@ -1,433 +0,0 @@ -//===== rAthena Script ======================================= -//= Message Man -//===== By: ================================================== -//= Vicious -//===== Current Version: ===================================== -//= 1.0 -//===== Compatible With: ===================================== -//= rAthena SVN -//===== Description: ========================================= -//= a message board where you can post and read messages -//===== Additional Comments: ================================= -//= -//============================================================ - -geffen,122,102,4 script Message Man 774,{ - mes "[Robert]"; - mes "Hello, I am here to serve you. Enjoy my service. ^_-"; - next; - mes "[Robert]"; - mes "Please keep in mind, that all messages are wiped once every two days"; - mes "-Msg From Creator- In new version this will be set able, look forward to this! -End Msg From Creator-"; - next; -L_Menu01: - mes "[Robert]"; - mes "What would you like to do??"; - next; - if((getgmlevel() >= 90)) menu "Public board",L_pubgmmenu,"Gm Board",L_gmmenu,"Close Public Board",L_clospub,"Open Public Board",L_openpub; - if(($messagepubclose == 1)) goto L_pubclosed; - menu "Read messages!",L_readmsg,"Post a message!",L_Postmsg,"Leave",L_leave; -L_pubgmmenu: - if(($messagepubclose == 1)) goto L_pubclosed; - menu "Re-set the rotation",L_setrot,"Reset Message",L_Clearmsgs,"Read messages!",L_readmsg,"Post a message!",L_Postmsg,"Leave",L_leave; -L_gmmenu: - menu "Read messages!",L_gmboardread,"Post a Message!",L_gmboardpost,"Reset Messages",L_gmboardreset; - -L_openpub: - mes "[Robert]"; - mes "Are you sure?"; - menu "Yes",-,"No",L_openpubn; - mes "[Robert]"; - mes "It is done."; - close2; - set $messagepubclose,0; - end; - -L_openpubn: - mes "[Robert]"; - mes "Very well it shall remain closed."; - close; - -L_pubclosed: - mes "[Robert]"; - mes "Im sorry. The public boards are currently Closed."; - close; - -L_clospub: - mes "[Robert]"; - mes "Are you sure?"; - next; - menu "Yes.",-,"No",L_closepubn; - mes "[Robert]"; - mes "Very well I will not allow anyone into the public board."; - close2; - set $messagepubclose,1; - end; - -L_closepubn: - mes "[Robert]"; - mes "Have a nice day"; - close; - -L_gmboardreset: - mes "[Robert]"; - mes "This will require atleast 2 GM's approval to reset the gm board."; - mes "-Msg From Creator- This is bugged same gm can vote twice. Planned to revise in next version. -End Msg From Creator-"; - next; - menu "Vote for reset.",L_gmboardresetvote,"Back to main.",L_Menu01,"Leave.",L_leave; - -L_gmboardresetvote: - callfunc "F_gmresetcheck"; - set @tempid,getcharid(0); - set $gmboardresetvotenumb,$gmboardresetvotenumb+1; - set $gmboardresetvoted[$gmboardresetvotenumb],1; - set $gmboardresetvoteid[$gmboardresetvotenumb],@tempid; - set @tempid,0; - set $gmboardreset,$gmboardreset-1; - mes "[Robert]"; - mes "Thank you."; - next; - if(($gmboardreset == 0)) goto L_gmresetdone; - if(($gmboardreset >= 1)) goto L_gmresetnotdone; - close; - -L_gmresetdone: - deletearray $gmmessageboardpost$[1],$gmmessageboardpostnumber; - deletearray $gmmessageboardpostdate$[1],$gmmessageboardpostnumber; - deletearray $gmmessageboardpostname$[1],$gmmessageboardpostnumber; - deletearray $gmmessageboardeditdate$[1],$gmmessageboardpostnumber; - deletearray $gmboardresetvoted[1],$gmboardresetvotenumber; - deletearray $gmboardresetvoted[1],$gmboardresetvotenumber; - deletearray $gmboardresetvoteid[1],$gmboardresetvotenumber; - set $gmboardresetvotenumber,0; - set $gmboardreset,2; - mes "[Robert]"; - mes "The reset has been done."; - close; - -L_gmresetnotdone: - mes "[Robert]"; - mes "There needs to be "+$gmboardreset+" more gm(s) approval to do the reset."; - close; - -L_gmboardread: - if(($gmmessageboardpostnumber == 0)) goto L_msgno; - callfunc "F_gmmessage"; - end; - -L_gmboardpost: - if(($gmmessageboardpostnumber >= 127)) goto L_postmsgyestm; - set @gmmessageboardpostername$,strcharinfo(0); - set @gmmessageboarddate$,gettimestr("%Y-%m/%d %H:%M:%S",21); - set $gmmessageboardpostnumber,$gmmessageboardpostnumber+1; - input @gmmsgboardmsgt$; - set $gmmessageboardpost$[$gmmessageboardpostnumber],@gmmsgboardmsgt$; - set $gmmessageboardpostdate$[$gmmessageboardpostnumber],@gmmessageboarddate$; - set $gmmessageboardpostname$[$gmmessageboardpostnumber],@gmmessageboardpostername$; - mes "[Robert]"; - mes "Here is what your message looks like"; - next; - mes "Posted by: "+$gmmessageboardpostname$[$gmmessageboardpostnumber]+"."; - mes "On: "+$gmmessageboardpostdate$[$gmmessageboardpostnumber]+"."; - mes $gmmessageboardpost$[$gmmessageboardpostnumber]; - close; - - -L_setrot: - set $@determinedayrotation,gettime(4); //this determines the day rotation for clearing messages. - if(($@determinedayrotation == 0)) set $rotation,0; - if(($@determinedayrotation == 1)) set $rotation,1; - if(($@determinedayrotation == 2)) set $rotation,0; - if(($@determinedayrotation == 3)) set $rotation,1; - if(($@determinedayrotation == 4)) set $rotation,0; - if(($@determinedayrotation == 5)) set $rotation,1; - if(($@determinedayrotation == 6)) set $rotation,0; - mes "It is done."; - close; - -L_Clearmsgs: - mes "[Robert]"; - mes "Are you sure?"; - next; - menu "Yes",L_clearmsgsy,"No thanks.",L_Menu01; - -L_clearmsgsy: - deletearray $messageboardpost$[1],$messageboardpostnumber; - deletearray $messageboardpostdate$[1],$messageboardpostnumber; - deletearray $messageboardpostname$[1],$messageboardpostnumber; - deletearray $messageboardeditdate$[1],$messageboardpostnumber; - deletearray $mymessage[1],$messageboardpostnumber; - set $messageboardpostnumber,0; - mes "[Robert]"; - mes "It is done."; - close; - -L_leave: - close; - -L_Postmsg: - mes "[Robert]"; - mes "What do you want to say in your message?"; - next; - set @msgboardmsgt$,0; - input @msgboardmsgt$; - mes "[Robert]"; - mes "are you sure this is the message you want?"; - mes @msgboardmsgt$; - next; - menu "Yes!",L_postmsgyes,"No let me re-do it!",L_Postmsg,"Ive changed my mind let me leave.",lleave; - -L_postmsgyes: - if(($messageboardpostnumber >= 127)) goto L_postmsgyestm; - set @messageboardpostername$,strcharinfo(0); - set @messageboarddate$,gettimestr("%Y-%m/%d %H:%M:%S",21); - set $messageboardpostnumber,$messageboardpostnumber+1; - set @mymessage2,$messageboardpostnumber; - set $mymessage[$messageboardpostnumber],5; - set $messageboardpost$[$messageboardpostnumber],@msgboardmsgt$; - set $messageboardpostdate$[$messageboardpostnumber],@messageboarddate$; - set $messageboardpostname$[$messageboardpostnumber],@messageboardpostername$; - mes "[Robert]"; - mes "here is what your message looks like"; - next; - mes "Posted by: "+$messageboardpostname$[$messageboardpostnumber]+"."; - mes "On: "+$messageboardpostdate$[$messageboardpostnumber]+"."; - mes $messageboardpost$[$messageboardpostnumber]; - close; - -L_postmsgyestm: - set @mesboardmsgt$,0; - mes "[Robert]"; - mes "Im sorry your going to have to wait till more space opens up for messages, it should be in 1 or 2 days =)"; - close; - -lleave: - deletearray $messageboardpost$[@tempview],@tempview; - deletearray $messageboardpostname$[@tempview],@tempview; - deletearray $messageboardpostdate$[@tempview],@tempview; - deletearray $mymessage[@tempview],@tempview; - set $messageboardpostnumber,$messageboardpostnumber-1; - set @msgboardmsgt$,0; - close; - -L_readmsg: - if(($messageboardpostnumber == 0)) goto L_msgno; - callfunc "F_message"; - end; - -L_msgno: - mes "[Robert]"; - mes "There are currently no messages."; - close; - -OnInit: - set $gmboardreset,2; - set $gmboardresetvotenumb,0; - end; - -OnInterIfInitOnce: - set $@determinedayrotation,gettime(4); //this determines the day rotation for clearing messages. - if(($@determinedayrotation == 0)) set $rotation,0; - if(($@determinedayrotation == 1)) set $rotation,1; - if(($@determinedayrotation == 2)) set $rotation,0; - if(($@determinedayrotation == 3)) set $rotation,1; - if(($@determinedayrotation == 4)) set $rotation,0; - if(($@determinedayrotation == 5)) set $rotation,1; - if(($@determinedayrotation == 6)) set $rotation,0; - end; - - -OnSun1200: - if(($rotation == 1)) end; - deletearray $messageboardpost$[1],$messageboardpostnumber; - deletearray $messageboardpostdate$[1],$messageboardpostnumber; - deletearray $messageboardpostname$[1],$messageboardpostnumber; - deletearray $mymessage[1],$messageboardpostnumber; - set $messageboardpostnumber,0; - end; - -OnSat1200: - if(($rotation == 0)) end; - deletearray $messageboardpost$[1],$messageboardpostnumber; - deletearray $messageboardpostdate$[1],$messageboardpostnumber; - deletearray $messageboardpostname$[1],$messageboardpostnumber; - deletearray $mymessage[1],$messageboardpostnumber; - set $messageboardpostnumber,0; - end; - -OnMon1200: - if(($rotation == 1)) end; - deletearray $messageboardpost$[1],$messageboardpostnumber; - deletearray $messageboardpostdate$[1],$messageboardpostnumber; - deletearray $messageboardpostname$[1],$messageboardpostnumber; - deletearray $mymessage[1],$messageboardpostnumber; - set $messageboardpostnumber,0; - end; - -OnTue1200: - if(($rotation == 0)) end; - deletearray $messageboardpost$[1],$messageboardpostnumber; - deletearray $messageboardpostdate$[1],$messageboardpostnumber; - deletearray $messageboardpostname$[1],$messageboardpostnumber; - deletearray $mymessage[1],$messageboardpostnumber; - set $messageboardpostnumber,0; - end; - -OnWed1200: - if(($rotation == 1)) end; - deletearray $messageboardpost$[1],$messageboardpostnumber; - deletearray $messageboardpostdate$[1],$messageboardpostnumber; - deletearray $messageboardpostname$[1],$messageboardpostnumber; - deletearray $mymessage[1],$messageboardpostnumber; - set $messageboardpostnumber,0; - end; - -OnThu1200: - if(($rotation == 0)) end; - deletearray $messageboardpost$[1],$messageboardpostnumber; - deletearray $messageboardpostdate$[1],$messageboardpostnumber; - deletearray $messageboardpostname$[1],$messageboardpostnumber; - deletearray $mymessage[1],$messageboardpostnumber; - set $messageboardpostnumber,0; - end; - -OnFri1200: - if(($rotation == 1)) end; - deletearray $messageboardpost$[1],$messageboardpostnumber; - deletearray $messageboardpostdate$[1],$messageboardpostnumber; - deletearray $messageboardpostname$[1],$messageboardpostnumber; - deletearray $mymessage[@tempview],@tempview; - set $messageboardpostnumber,0; - end; -} - -function script F_gmresetcheck { - set @tempcheck,0; -L_top: - set @tempcheck,@tempcheck+1; - if(($gmboardresetvoted[@tempview] == 1)) goto L_votecheck; - if(($gmboardresetvoted[@tempview] == 0)) return; - goto L_top; - end; -L_votecheck: - set @tempcheckid,0; - set @tempcheckid,getcharid(0); - if(($gmboardresetvoteid[@tempview] != @tempcheckid)) goto L_top; - if(($gmboardresetvoteid[@tempview] == @tempcheckid)) goto L_voted; - end; -} - -function script F_gmmessage { - set @tempview,0; -L_top: - set @tempview,@tempview+1; - mes "Posted By: "+$gmmessageboardpostname$[@tempview]+"."; - mes "On: "+$gmmessageboardpostdate$[@tempview]+"."; - mes $gmmessageboardpost$[@tempview]+"."; - menu "Next Message",L_top2; -L_top2: - if(($gmmessageboardpostnumber > @tempview)) goto L_top; - close; -} - -function script F_message { - set @tempview,0; -L_top: - set @tempview,@tempview+1; - mes "Posted By: "+$messageboardpostname$[@tempview]+"."; - mes "On: "+$messageboardpostdate$[@tempview]+"."; - mes $messageboardpost$[@tempview]+"."; - next; - if(($mymessage[@tempview] == 5) && (getgmlevel()>0)) menu "Next Message",L_top2,"Delete My Message",L_delmy,"Edit my message",L_editmy,"Delete This message",L_Del; - if((getgmlevel()>0)) menu "Next Message",L_top2,"Delete This message",L_Del; - if(($mymessage[@tempview] == 5)) menu "Next Message",L_top2,"Delete My Message",L_delmy,"Edit my message",L_editmy; - menu "Next message",L_top2; - close; - -L_editmy: - mes "Are you sure?"; - next; - menu "Yes",L_editmyy,"No",L_editmyn; - -L_editmyy: - mes "what do you want your new message to be?"; - next; - mes "Current message!"; - mes $messageboardpost$[@tempview]; - set @tempeditmsg$,0; - input @tempeditmsg$; - next; - mes "is this what you want?"; - mes @tempeditmsg$; - next; - menu "Yes!",L_editmyyy,"No.",L_editmyyn; - -L_editmyyy: - deletearray $messageboardpost$[@tempview],@tempview; - set $messageboardpost$[@tempview],@tempeditmsg$; - mes "Here is what your new message looks like."; - next; - mes "Posted By: "+$messageboardpostname$[@tempview]+"."; - mes "On: "+$messageboardpostdate$[@tempview]+"."; - mes $messageboardpost$[@tempview]+"."; - close2; - set @tempview,0; - end; - -L_editmyn: - Mes "So be it."; - set @tempview,0; - close; - -L_editmyyn: - mes "So be it!"; - set @tempeditmsg$,0; - set @tempview,0; - close; - -L_delmy: - mes "Are you sure...?"; - next; - menu "Yes",L_delmyy,"No thanks.",L_delmyn; - -L_delmyy: - deletearray $messageboardpost$[@tempview],@tempview; - deletearray $messageboardpostname$[@tempview],@tempview; - deletearray $messageboardpostdate$[@tempview],@tempview; - deletearray $mymessage[@tempview],@tempview; - deletearray $messageboardeditdate$[@tempview],@tempview; - set $messageboardpostnumber,$messageboardpostnumber-1; - set @tempview,0; - mes "It is done."; - close; - -L_delmyn: - mes "Come back soon."; - set @tempview,0; - close; - -L_top2: - if(($messageboardpostnumber > @tempview)) goto L_top; - close; - -L_Del: - mes "Are you sure?"; - next; - menu "Yes",L_Dely,"No",L_Deln; - -L_Dely: - deletearray $messageboardpost$[@tempview],@tempview; - deletearray $messageboardpostname$[@tempview],@tempview; - deletearray $messageboardpostdate$[@tempview],@tempview; - deletearray $mymessage[@tempview],@tempview; - deletearray $messageboardeditdate$[@tempview],@tempview; - set $messageboardpostnumber,$messageboardpostnumber-1; - mes "It is done."; - set @tempview,0; - close; - -L_Deln: - mes "Come back soon!"; - set @tempview,0; - close; -} diff --git a/npc/custom/eAAC_Scripts/roll_a_dice.txt b/npc/custom/eAAC_Scripts/roll_a_dice.txt deleted file mode 100644 index 4ba8fc827..000000000 --- a/npc/custom/eAAC_Scripts/roll_a_dice.txt +++ /dev/null @@ -1,245 +0,0 @@ -//===== rAthena Script ======================================= -//= Roll a Dice -//===== By: ================================================== -//= birkiczd -//===== Current Version: ===================================== -//= 1.4 -//===== Compatible With: ===================================== -//= rAthena SVN -//===== Description: ========================================= -//= This game lets you and the Dicer throw 3 dices. -//= Whoever get's a higher number (the player or dealer) wins. -//===== Additional Comments: ================================= -// 1.0 - made script public -// 1.1 - fixed a few bugs,added dice emos =) -// 1.2 - made variables for the amount of zenys for -// each bet so it is easy for people to costumize -// the script -// 1.3 - added more emoticons,made an Info menu -// option which contains explanations and rules, -// added the amount of lost/won zeny on the end -// of each game,added more colors -// 1.4 - some small code optimization thanks to Myzter -//============================================================ - -cmd_in02,181,98,2 script Dicer 57,{ - -//These variables allow you to set the amount of zeny people can bet -set @betzeny1,500; //500 zeny -set @betzeny2,1000; //1000 zeny -set @betzeny3,2000; //2000 zeny -set @betzeny4,10000; //10000 zeny - -//Variable for the number guess zeny bet -set @betnum, 1000; //1000 Zeny - - - mes "[Dicer]"; - mes "Welcome to the Revolution Dice Game.You wanna check your luck with dices?Remember I am the dice expert and rarely someone was able to beat me."; - next; - mes "[Dicer]"; - mes "What would you like to do?"; - next; - menu "Play",L_play,"Info",L_info,"Go away",L_go; - -L_go: - mes "[Dicer]"; - mes "Please come again when you are ready."; - close; - -L_info: - mes "[Dicer]"; - mes "Please choose one of the following options for more informations:"; - next; - menu "Main Rules",L_main,"Bets and Wins",L_bet,"Extra Games",L_extra,"Go away",L_go; - -L_main: - mes "[Dicer]"; - mes "^0080FFRoll A Dice^000000 is a very simple game.The game allows you and the NPC to throw 3 dices.Whoever gets a higher total number wins."; - next; - goto L_info; - -L_bet: - mes "[Dicer]"; - mes "You have 4 zeny amounts to choose for your bet.If you choose a high bet your win will also be higher,it is that simple.Also various extra games can increase your win."; - next; - mes "[Dicer]"; - mes "Example:"; - mes "^0080FFBet^000000 ^0080FFWin^000000"; - mes "500 1000"; - mes "1000 2000"; - mes "2000 4000"; - mes "10000 20000"; - next; - goto L_info; - -L_extra: - mes "[Dicer]"; - mes "You can also try increasing your win by playing extra games like guessing your total number at the end of the game.It will cost you an extra amount of zeny but if you guess the number your win will be tripled instead of doubled."; - next; - goto L_info; - -L_play: - mes "[Dicer]"; - mes "Ok,please choose the amount of zeny you want to bet:"; - next; - menu ""+@betzeny1+" Zeny",L_zeny1,""+@betzeny2+" Zeny",L_zeny2,""+@betzeny3+" Zeny",L_zeny3,""+@betzeny4+" Zeny",L_zeny4,"Too rich for my blood...",L_go; - - L_zeny1: - if(Zeny < @betzeny1) goto L_nzeny; - set @bet, @betzeny1; - goto L_gamea; - L_zeny2: - if(Zeny < @betzeny2) goto L_nzeny; - set @bet, @betzeny2; - goto L_gamea; - L_zeny3: - if(Zeny < @betzeny3) goto L_nzeny; - set @bet, @betzeny3; - goto L_gamea; - L_zeny4: - if(Zeny < @betzeny4) goto L_nzeny; - set @bet, @betzeny4; - goto L_gamea; - -L_nzeny: - mes "[Dicer]"; - emotion 20; - mes "Sorry but it seems you don't have enough zeny!"; - close; - -L_gamea: - mes "[Dicer]"; - mes "Would you like to try to increase your win by trying to guess the number you will get?"; - mes "It will cost you another ^0080FF"+@betnum+"^000000 zeny."; - next; - menu "Yes",L_gamec,"No",L_gameb; - -L_gamec: - if(Zeny < @betnum + @bet) goto L_nzeny; - mes "[Dicer]"; - mes "Please input the number you think you will get (3-18)."; - input @numg; - if(@numg<3) message strcharinfo(0),"Number is too low, input again."; - if(@numg>18) message strcharinfo(0),"Number is too high, input again."; - if(@numg<3||@numg>18) goto L_gamec; - set Zeny, Zeny - @betnum; - next; - goto L_gameb; - -L_gameb: - - set @dea1, rand(1,6); - set @dea2, rand(1,6); - set @dea3, rand(1,6); - set @pla1, rand(1,6); - set @pla2, rand(1,6); - set @pla3, rand(1,6); - set @deatot, @dea1+@dea2+@dea3; - set @platot, @pla1+@pla2+@pla3; - - mes "[Dicer]"; - mes "I will be the first one to roll the dices,and after that you will throw them.I am feeling lucky today, so you better go away before I take every zeny you have."; - next; - mes "[^0080FFDicer 1st Turn^000000]"; - mes "Throwing first dice!"; - mes ".....roll.....roll....roll...."; - emotion 58; - mes " "; - mes "First throw: ^0080FF"+@dea1+" ^000000"; - next; - mes "[^0080FFDicer 2nd Turn^000000]"; - mes "Throwing second dice!"; - emotion 58; - mes ".....roll.....roll....roll...."; - mes " "; - mes "Second throw: ^0080FF"+@dea2+" ^000000"; - next; - mes "[^0080FFDicer 3rd Turn^000000]"; - mes "Throwing third dice!"; - emotion 58; - mes ".....roll.....roll....roll...."; - mes " "; - mes "Third throw: ^0080FF"+@dea3+" ^000000"; - next; - mes "[Dicer]"; - mes "Now it's your turn to throw the dices.I bet you can't get higher numbers then me."; - next; - mes "[^0080FFPlayer 1st Turn^000000]"; - mes "Throwing first dice!"; - mes ".....roll.....roll....roll...."; - emotion 58; - mes " "; - mes "First throw: ^0080FF"+@pla1+" ^000000"; - next; - mes "[^0080FFPlayer 2nd Turn^000000]"; - mes "Throwing second dice!"; - emotion 58; - mes ".....roll.....roll....roll...."; - mes " "; - mes "Second throw: ^0080FF"+@pla2+" ^000000"; - next; - mes "[^0080FFPlayer 3rd Turn^000000]"; - mes "Throwing third dice!"; - emotion 58; - mes ".....roll.....roll....roll...."; - mes " "; - mes "Third throw: ^0080FF"+@pla3+" ^000000"; - next; - mes "[Dicer]"; - mes "Let's look at our total numbers:"; - mes " "; - mes "Dicer Total: ^0080FF"+@deatot+" ^000000."; - mes "Player Total: ^0080FF"+@platot+" ^000000."; - next; - if (@platot < @deatot) goto L_lose; - if (@platot == @deatot) goto L_again; - if (@platot > @deatot && @platot == @numg) goto L_win2; - if (@platot > @deatot) goto L_win1; - -L_lose: - mes "[Dicer]"; - set Zeny, Zeny - @bet; - emotion 39; - mes "I got a higher number!!!"; - mes "See I told you nobody can beat me!"; - mes " "; - mes "You lost ^0080FF"+@bet+"^000000 Zeny."; - next; - goto L_againa; - -L_again: - mes "[Dicer]"; - emotion 54; - mes "It seems it's a draw.Let's play again."; - next; - goto L_play; - -L_win1: - mes "[Dicer]"; - set Zeny, Zeny + @bet*2; - set @wona, @bet*2; - emotion 36; - mes "I can't belive I lost. Here take your money."; - mes " "; - mes "You won ^0080FF"+@wona+"^000000 Zeny."; - next; - goto L_againa; - -L_win2: - mes "[Dicer]"; - set Zeny, Zeny + @bet*3; - set @wonb, @bet*3; - emotion 36; - mes "You even guessed the total number you got.I can't belive I lost. Here is your money."; - mes " "; - mes "You won ^0080FF"+@wonb+"^000000 Zeny."; - next; - goto L_againa; - -L_againa: - mes "[Dicer]"; - mes "Would you like to play again?"; - next; - menu "Yes",L_play,"No",L_go; -} diff --git a/npc/custom/eAAC_Scripts/vendmachine.txt b/npc/custom/eAAC_Scripts/vendmachine.txt deleted file mode 100644 index 17371ef9d..000000000 --- a/npc/custom/eAAC_Scripts/vendmachine.txt +++ /dev/null @@ -1,243 +0,0 @@ -//===== rAthena Script ======================================= -//= Vending Machine -//===== By: ================================================== -//= Celestria -//===== Current Version: ===================================== -//= 2.4 -//===== Compatible With: ===================================== -//= rAthena SVN -//===== Description: ========================================= -//= sells items to players; occasionally the machine will "jam" :P -//===== Additional Comments: ================================= -//= 1.0 - Creted a script for selling numerous items that would occasionally jam on players. -//= - Used numbered variables to allow for multiplacation of the script. -//= 1.1 - Fixed $jamplayer1 not being a string, thanks to Terces. -//= - Changed random number that intiates jam to 1, to allow for faster modification of jam rates. -//= 2.0 - Completely redid the script using a call-function. -//= Now all replica scripts can simply be a copy of Vending Machine, -//= but with variables modified to suit it''s intended use. -//= 2.1 - Fixed an error where if one machine jammed on a menu item (say 3 for example), -//= if another machine also jammed on the same menu item (3 in this case), the original -//= machine to jam would be unjammed. -//= - This fix only allows a machine to jam one item at a time. Will fix in the future. -//= 2.2 - Added in/Renamed some variables to allow a single machine to block on several -//= items simultaneously. This fix also allows the two-item drop to work with every -//= item the machine is jammed on. -//= 2.3 - Added in "Slam" feature, as well as admin ability to turn machine on and off. -//= - Added admin menu. Allows GMs to put machines in/out of service, and to clear -//= all jammed items. -//= 2.4 - Made optimizations according to suggestions made by erKURITA. Script is now significantly shorter. -//============================================================ - -p_track01,45,58,4 script Vending Machine#1 910,{ - - set @machine,1; //sets the unique number of this machine - //DO NOT have two machines with the same number - - set @jamrate,1000; //Odds of machine jamming will be 1 in @jamrate - - set @slam,0; //set this to 0 to turn on the slam feature, any other setting disables it. - set @fallrate,10; //Odds of machine falling on someone who hits it are 1 in @fallrate - set @freerate,10000; //Odds of machine giving an item to someone who hits it are 1 in @freerate - - set @admin,99; //sets GM level needed to access Admin menu - - // the following sets the items for sale. Script currently only handles 10 items. - setarray @item[0], 12143, 519, 565; - setarray @price[0], 100, 50, 200; - - for (set @i,0; @i < 10; set @i,@i+1) - set @itemn$[@i],getitemname(@item[@i]); - - set @menu$[0], @itemn$[0]+" - "+@price[0]; - set @menu$[1], @itemn$[1]+" - "+@price[1]; - set @menu$[2], @itemn$[2]+" - "+@price[2]; - set @menu$[3], "Cancel"; - set @menu$[4], ""; - set @menu$[5], ""; - set @menu$[6], ""; - set @menu$[7], ""; - set @menu$[8], ""; - set @menu$[9], ""; - set @menu$[10], ""; // "Cancel" only. Used if vending ten items. - - callfunc "F_Vend1"; -} - - - - - -//=============================================================================================== -// Functions -// -// !!!DO NOT EDIT BELOW THIS LINE!!! -// -//=============================================================================================== - -function script F_Vend1 { - - if(getgmlevel() >= @admin) goto M_Admin; - -M_Player: - if($outorder[@machine]) goto M_Ooo; - if(@slam) callfunc "F_Vend2"; - mes "You see a vending machine. What would you like to do?"; - next; - menu "Buy an item",M_Vend,"Hit it",M_Hit; - -M_Vend: - callfunc "F_Vend2"; - end; - -M_Hit: - callfunc "F_Slam"; - end; - -M_Admin: - mes "[Admin Mode]"; - mes "What would you like to do?"; - next; - menu "Player Mode",M_Player,"Post 'Out of Order'",M_Ooo2,"Remove 'Out of Order'",M_Ooo3,"Fix Jammed Items",M_Fix; - -M_Ooo: - mes "Out of Order"; - close; - -M_Ooo2: - set $outorder[@machine],1; - mes "The machine is now Out of Service"; - close; - -M_Ooo3: - set $outorder[@machine],0; - mes "The machine is now in service."; - close; - -M_Fix: - for (set @i,0; @i < 10; set @i,@i+1) - setd "$itemjam"+@i+"$[@machine]",""; - mes "All jammed items have been fixed."; - close; -} - -function script F_Vend2 { - - for (set @i,0; @i < 10; set @i,@i+1) - if(strcharinfo(0)==getd("$itemjam"+@i+"$[@machine]")) goto B_StillJammed; - set @jammed,rand(1,@jamrate); - mes "You peek inside the vending machine to see what's available."; - next; - menu @menu$[0],M_Ite0, @menu$[1],M_Ite1, @menu$[2],M_Ite2, @menu$[3],M_Ite3, - @menu$[4],M_Ite4, @menu$[5],M_Ite5, @menu$[6],M_Ite6, @menu$[7],M_Ite7, - @menu$[8],M_Ite8, @menu$[9],M_Ite9, @menu$[10],M_Ite10; - - M_Ite0: - set @num, 0; - goto B_Buy; - M_Ite1: - set @num, 1; - goto B_Buy; - M_Ite2: - set @num, 2; - goto B_Buy; - M_Ite3: - set @num, 3; - goto B_Buy; - M_Ite4: - set @num, 4; - goto B_Buy; - M_Ite5: - set @num, 5; - goto B_Buy; - M_Ite6: - set @num, 6; - goto B_Buy; - M_Ite7: - set @num, 7; - goto B_Buy; - M_Ite8: - set @num, 8; - goto B_Buy; - M_Ite9: - set @num, 9; - goto B_Buy; - M_Ite10: - set @num, 10; - goto B_Buy; - - -B_Cancel: - mes "On second thoughts, you decide not to buy anything."; - close; - -B_StillJammed: - mes "You shake and punch the vending machine, but it appears no matter how much energy you exert, the dang item isn't going to come loose."; - next; - mes "["+strcharinfo(0)+"]"; - mes "DANG VENDING MACHINES!"; - close; - -B_Broke: - mes "As you put your last zeny in, you realise you don't have enough to afford the product."; - mes "Sadly you hit the refund button and pick up what little zeny you have."; - close; - -B_Buy: - if (@menu$[@num] == "Cancel") goto B_Cancel; - for (set @i,0; @i < 10; set @i,@i+1) - if(@num==@i) if(getd("$itemjam"+@i+"$[@machine]")) set @jammed,0; - if(Zeny < @price[@num]) goto B_Broke; - set Zeny,Zeny-@price[@num]; - if(@jammed == 1) goto B_Jamitem; - mes "Vrrrrrrrr~"; - mes "*clunk*"; - next; - if(@jammed == 0) goto B_Get2; - getitem @item[@num],1; - mes "A "+@itemn$[@num]+" pops out."; - close; -B_Get2: - getitem @item[@num],2; - mes "What the!?"; - mes "Two "+@itemn$[@num]+"s popped out!"; - mes "It must be your lucky day."; - for (set @i,0; @i < 10; set @i,@i+1) - if(@num==@i) setd "$itemjam"+@i+"$[@machine]",""; - close; -B_Jamitem: - mes "Vrrrrrrrr~"; - mes "*click*"; - next; - mes "["+strcharinfo(0)+"]"; - mes "Dammit!"; - mes "I hate it when these damn things jam!"; - for (set @i,0; @i < 10; set @i,@i+1) - if(@num==@i) setd "$itemjam"+@i+"$[@machine]",strcharinfo(0); - close; -} - -function script F_Slam { - - set @fall,rand(1,@fallrate); - set @free,rand(1,@freerate); -R_Item: - set @num,rand(9); - if(@item[@num]==0) goto R_Item; - - mes "You give the vending machine a good solid whack."; - next; - mes "..."; - next; - if(@fall==1){ - mes "The machine shakes, and then falls directly on top of you."; - close2; - percentheal -100,-100; - end;} - if(@free==1){ - getitem @item[@num],1; - mes "The machine shakes, and then drops an item."; - close;} - mes "The machine shakes, but nothing happens"; - close; -} diff --git a/npc/custom/healers/heal.txt b/npc/custom/heal.txt index 3c4e136e9..9ef5a6fc5 100644 --- a/npc/custom/healers/heal.txt +++ b/npc/custom/heal.txt @@ -1,35 +1,30 @@ -//===== rAthena Script ======================================= -//= Healer -//===== By: ================================================== -//= rAthena Dev Team -//===== Current Version: ===================================== -//= 3.2 -//===== Compatible With: ===================================== -//= rAthena SVN -//===== Description: ========================================= -//= Healer NPC Which Heals For Free -//===== Additional Comments: ================================= -//= -//============================================================ - - script healer -1,{ + set .payment,0; // Charge for heals? 1 = yes, 0 = no + .price = 100; // How much zeny to charge for heals? callfunc "F_ClearGarbage",0; + mes "[Healer]"; mes "I have amazing healing powers!!"; - mes "You look like a person who needs them"; + mes "You look like a person who needs them."; mes "Want some?"; + if (.payment==1) { + mes "My healing powers cost "+.price+" zeny."; + } next; switch(select("Heal:No thanks")) { - case 1: - percentheal 100,100; - mes "[Healer]"; - mes "Wonderfull, You are now healed!."; - mes "Have fun adventuring!!"; - break; - case 2: - mes "[Healer]"; - mes "Alright, come back if you need a heal."; - break; + case 1: + if (.payment==1) { + Zeny = Zeny-.price; + } + percentheal 100,100; + mes "[Healer]"; + mes "Wonderful, You are now healed!."; + mes "Have fun adventuring!!"; + break; + case 2: + mes "[Healer]"; + mes "Alright, come back if you need a heal."; + break; } close; } diff --git a/npc/custom/healers/heal_payment.txt b/npc/custom/healers/heal_payment.txt deleted file mode 100644 index e8d2e4f6c..000000000 --- a/npc/custom/healers/heal_payment.txt +++ /dev/null @@ -1,108 +0,0 @@ -//===== rAthena Script ======================================= -//= Healer (with payment) -//===== By: ================================================== -//= rAthena Dev Team -//===== Current Version: ===================================== -//= 1.3 -//===== Compatible With: ===================================== -//= rAthena SVN -//===== Description: ========================================= -//= NPC heals/regenerates people against zenys -//===== Additional Comments: ================================= -//= alternative dog with payment. -//= each HP need 1 zeny -//= each SP need (baselevel / 5) zenys -//= calculation is done at start of the script -//= Added Duplicates And Correct payon Loc [Darkchild] -//= Some modifications. Added NPC locations. [massdriller] -//= Removed Duplicates [Silent] -//============================================================ - -- script healer2 -1,{ - set @tempHp, MaxHp-Hp; - set @tempSpReal, MaxSp-Sp; - set @tempSp, ((MaxSp-Sp) * BaseLevel) / 5; - if (@tempHp > 0) goto WOUNDED; - if (@tempSpReal > 0) goto ONLY_REGENERATION; - - mes "[Healer]"; - mes "Oh?"; - mes "You do not look like a person in pain."; - close; - -WOUNDED: - if (@tempSp > 0) goto WITH_REGENERATION; - mes "[Healer]"; - mes "Oh dear, you look really hurt,"; - mes "I can cure you for: "+@tempHp+" z)"; - mes "Do you want me to cure you?"; - next; - menu "Healings ("+@tempHp+"z)",HEALINGS,"No, thanks",CANCEL; - -WITH_REGENERATION: - mes "[Healer]"; - mes "Do you want only your HP to be healed? ("+@tempHp+" z)"; - mes "Do you want only your SP to be healed? ("+@tempSp+" z)?"; - mes "Or Would you like both? ("+(@tempHp+@tempSp)+" z)"; - next; - menu "Only HP ("+@tempHp+"z)",HEALINGS,"Only SP ("+@tempSp+"z)",REGENERATION,"Both HP & SP ("+(@tempHp+@tempSp)+"z)",HEALINGS_AND_REGEN,"Nothing, thanks",CANCEL; - -ONLY_REGENERATION: - mes "[Healer]"; - mes "So, you only want your SP to heal? ("+@tempSp+" z)"; - mes "I need to make a living..."; - next; - menu "Regeneration ("+@tempSp+"z)",REGENERATION,"No, thanks",CANCEL; - -HEALINGS: - if (Zeny < @tempHp) goto NO_ZENYS; - set Zeny, Zeny-@tempHp; - heal @tempHp,0; - goto FIN; - -REGENERATION: - if (Zeny < @tempSp) goto NO_ZENYS; - set Zeny, Zeny-@tempSp; - heal 0,@tempSpReal; - goto FIN; - -HEALINGS_AND_REGEN: - if (Zeny < (@tempHp+@tempSp)) goto NO_ZENYS; - set Zeny, Zeny-(@tempHp+@tempSp); - heal @tempHp,@tempSpReal; - goto FIN; - -NO_ZENYS: - mes "[Healer]"; - mes "Oh dear, you don't look like you have enough zeny."; - mes "Sorry, i can't help you."; - close; - -FIN: - mes "[Healer]"; - mes "You are Completely Healed."; - close; - -CANCEL: - mes "[Healer]"; - mes "Allright. Please come again if you need anything."; - close; -} - -// NPC Duplicates -alberta,185,144,5 duplicate(healer2) Healer#alb 742 -aldebaran,134,123,5 duplicate(healer2) Healer#alde 742 -amatsu,200,80,5 duplicate(healer2) Healer#ama 742 -ayothaya,155,111,5 duplicate(healer2) Healer#ayo 742 -comodo,188,162,5 duplicate(healer2) Healer#com 742 -geffen,121,61,5 duplicate(healer2) Healer#gef 742 -gonryun,164,130,5 duplicate(healer2) Healer#gon 742 -izlude,125,118,5 duplicate(healer2) Healer#izl 742 -louyang,225,103,5 duplicate(healer2) Healer#lou 742 -morocc,159,96,5 duplicate(healer2) Healer#mor 742 -niflheim,188,180,5 duplicate(healer2) Healer#nif 742 -payon,180,105,5 duplicate(healer2) Healer#pay 742 -prontera,150,184,5 duplicate(healer2) Healer#pront 742 -umbala,94,162,5 duplicate(healer2) Healer#umb 742 -xmas,149,136,5 duplicate(healer2) Healer#xmas 742 -yuno,152,186,5 duplicate(healer2) Healer#yuno 742 diff --git a/npc/custom/itemmall.txt b/npc/custom/itemmall.txt new file mode 100644 index 000000000..3c8fb809b --- /dev/null +++ b/npc/custom/itemmall.txt @@ -0,0 +1,44 @@ +//===== eAthena Script ======================================= +//= Shop Street +//===== By: ================================================== +//= Masao +//===== Current Version: ===================================== +//= 1.0 [Masao] +//===== Compatible With: ===================================== +//= Any eA SVN +//===== Description: ========================================= +//= A Shopstreet in Prontera where players can buy some Equipment. +//============================================================ + +prontera,147,240,5 shop Armor 99,2304:10000,2306:20000,2308:20000,2310:50000,2311:50000,2313:50000,2315:75000,2317:100000,2322:20000,2326:60000,2331:75000,2342:100000,2353:75000,2364:150000,2367:100000,2399:50000 +prontera,147,242,5 shop Shield 99,2102:10000,2106:60000,2108:60000,2110:85000,2114:30000,2116:30000,2123:50000,2124:50000 +prontera,147,244,5 shop Footgear 99,2404:10000,2406:20000,2409:30000,2412:50000,2417:50000,2418:50000,2424:50000,2425:20000 +prontera,147,246,5 shop Mace 99,1502:10000,1505:20000,1511:20000,1514:-1,1517:-1,1520:50000,1522:100000,1523:25000,1528:50000,1529:50000,1531:50000 +prontera,147,248,5 shop Knuckle 494,1802:20000,1804:50000,1806:60000,1808:75000,1810:70000,1812:60000,1813:100000,1814:100000,1822:150000 +prontera,147,250,5 shop Whips 494,1951:10000,1953:20000,1955:30000,1962:20000,1963:50000,1972:10000,1974:10000,1976:50000 +prontera,147,252,5 shop Instruments 494,1902:10000,1904:20000,1906:-1,1908:50000,1913:50000,1914:50000,1915:50000,1916:50000,1917:50000 +prontera,147,254,5 shop Books 494,1550:30000,1551:60000,1552:51000,1559:25000,1561:75000,1564:25000,1568:70000,1569:70000,1570:70000,1571:70000,1572:50000 +prontera,147,256,5 shop Guns 497,13103:60000,13105:100000,13106:200000,13101:10000,13150:6000,13152:30000,13153:50000,13155:60000,13156:100000,13154:30000,13159:250000,13157:150000,13161:300000,13162:500000 +prontera,147,258,5 shop Fuuma Shuriken 497,7522:500,7521:500,7523:500 +prontera,147,260,5 shop One-Handed Swords 497,1108:10000,1117:10000,1120:100000,1124:50000,1130:100000,1131:50000,1133:50000,1138:200000,1139:200000,1145:-1,1149:50000 +prontera,147,262,5 shop Two-Handed Swords 497,1155:50000,1158:90000,1163:120000,1164:50000,1165:50000,1166:75000,1168:50000,1169:500000,1172:200000,1175:75000 +prontera,147,264,5 shop Spears 731,1405:20000,1408:50000,1415:100000,1417:75000,1421:75000,1422:25000 +prontera,147,238,1 shop Dagger 731,1208:20000,1211:20000,1217:20000,1223:50000,1231:75000,1235:75000,1236:75000,1237:75000 +prontera,164,264,4 shop Axes 731,1302:10000,1306:20000,1307:45000,1309:75000,1352:20000,1355:30000,1358:75000,1363:50000,1364:50000,1365:50000,1366:50000,1371:100000 +prontera,164,262,4 shop Accessories 731,2621:-1,2622:-1,2624:30000,2618:10000,2625:30000,2626:30000,2674:10000,2648:50000,2649:50000,2627:-1,2701:75000 +prontera,164,260,4 shop Bows 731,1702:20000,1705:50000,1708:20000,1720:50000,1723:75000,1724:75000,1725:75000 +prontera,164,258,4 shop Staffs / Rods 731,1602:20000,1605:20000,1608:20000,1611:45000,1618:85000,1620:85000,1622:50000,1624:50000,1625:50000,1626:50000 +prontera,164,256,4 shop Garments 405,2504:10000,2506:40000,2507:82000,2508:56000,2514:50000,2518:60000,2519:60000,2528:85000,2531:10000,2553:10000 +prontera,164,254,4 shop Katars 405,1251:50000,1253:100000,1255:75000,1261:125000,1262:20000,1263:20000,1265:100000,1275:100000,1276:100000,1277:100000,1278:100000 +prontera,164,252,4 shop Lower Headgear 405,2218:10000,5054:30000,2267:5000,5107:100000,2265:5000,2266:50000,2269:50000,2270:50000 +prontera,164,250,4 shop Middle Headgear 405,2201:5000,2203:4000,2205:3500,2212:5000,2225:10000,2229:50000,2231:50000,2234:50000,2235:50000,2281:25000,2292:50000,2296:50000 +prontera,164,248,4 shop Upper Headgear 405,2210:1000,2211:1000,2213:10000,2214:20000,2217:10000,2221:5000,2223:10000,2246:75000,2256:75000,2264:100000,2280:20000,2299:30000 +prontera,164,246,4 shop Headgear 01 832,5380:40000,5382:40000,2269:5000,2270:5000,5107:15000,5110:15000,2247:30000:5206:10000,2245:30000,2286:35000,2296:15000,2258:45000,5161:200000,5104:40000,2295:20000,5026:30000,5032:100000,5038:30000,5229:65000,5227:65000,5228:65000,5198:50000,5058:300000,5253:80000,5252:60000,5296:100000,5231:300000,5232:300000,5233:300000,5230:300000,5234:300000,5076:50000 +prontera,164,244,4 shop Headgear 02 832,5059:100000,5235:75000,5236:75000,5237:75000,5293:150000,5303:35000,5304:65000,5312:65000,5315:45000,5317:45000,5319:75000,5320:120000,5323:588888,5336:50000,5337:50000,5338:50000,5339:50000,5346:50000 +prontera,164,242,4 shop Headgear 03 832,5181:300000,5102:500000,5016:75000,5349:150000,5013:700000,5022:500000,5171:1250000,5135:500000,5029:50000,5033:65000,5040:100000,5047:35000,5065:65000,5068:50000,5074:50000,5084:75000,5086:150000,5108:350000,5121:100000,5133:50000,5137:100000,5138:150000,5140:55000,5146:75000,5151:75000,5152:150000,5170:150000,5173:75000,5174:75000,5175:75000,5184:50000,5185:45000,5187:75000,5188:50000,5191:25000,5192:25000,5193:25000,5194:25000,5195:25000,5196:25000,5197:25000 +prontera,164,240,4 shop Headgear 04 832,5200:75000,5205:100000,5211:75000,5226:50000,5238:75000,5239:75000,5240:75000,5241:75000,5242:75000,5243:50000,5325:75000,5254:100000,5255:65000,5257:50000,5297:100000,2202:45000,5258:35000,5298:50000,5276:50000,5273:50000,5275:50000,5274:50000,5259:50000,5271:250000,5272:50000,5284:50000,5286:75000,5288:50000,5289:50000,5291:55000,5292:55000,5294:55000,5352:50000,5324:100000,5359:50000,5360:50000 +prontera,164,238,4 shop Headgear 05 832,5340:50000,5341:50000,5342:50000,5343:50000,5344:50000,5345:50000,5354:50000,5355:50000,5361:65000,5365:50000,5373:75000,5374:350000,5379:50000,5383:60000,5384:88888,5390:88888,5388:50000,5411:50000,5393:75000,5397:35000,5399:50000,5800:175000,5801:300000,5802:150000 +prontera,151,284,4 shop Ammunition 880,1766:50,1755:20,1750:10,1754:20,1761:20,1752:20,1760:20,1759:20,1772:100,1757:30,1770:20,1769:30,1765:40,1763:30,1762:30,1767:30,1764:30,1751:20,1768:30,1753:30,1756:30,1758:30,1771:1000,13200:50,13202:100,13201:300,13206:500,13203:500,13207:500,13204:500,13205:500,13252:50,13254:500,13251:100,13253:300,13250:50,13256:50,13259:50,13258:50,13255:50,13257:50 +prontera,153,284,4 shop Alchemist Dealer 880,715:600,716:600,717:600,1025:200,7136:500,7135:500,7136:500,7137:500,7138:500,7139:500 +prontera,155,284,4 shop Street Dealer 880,678:5000,505:-1,506:40,610:4000,545:150,546:600,547:1650 +prontera,157,284,4 shop Sheepy Gonzales 895,12028:1000,12262:500,12016:750
\ No newline at end of file diff --git a/npc/custom/jobs/jobmaster.txt b/npc/custom/jobmaster.txt index ad23f2037..e11fa50c2 100644 --- a/npc/custom/jobs/jobmaster.txt +++ b/npc/custom/jobmaster.txt @@ -183,32 +183,51 @@ prontera,153,193,6 script Job Master 123,{ if(checkfalcon() || checkcart() || checkriding()) goto L_remove; if((Class >= Job_Knight) && (Class <= Job_Crusader2)){ - mes "Would you like to be reborn or change to 3rd class?"; - switch(select("I want to be reborn!", "I want to change to 3rd class!", "Cancel")) - { - case 1: - mes "Are you sure you want to be reborn?"; - if(select("Yes", "No")==1){ - set lastJob, Class; - if(Class == Job_Knight2){ - set lastJob, Job_Knight; - } else { - if(Class == Job_Crusader2){ - set lastJob, Job_Crusader; + if (.thirdclass==1) { + mes "Would you like to be reborn or change to 3rd class?"; + switch(select("I want to be reborn!", "I want to change to 3rd class!", "Cancel")) + { + case 1: + mes "Are you sure you want to be reborn?"; + if(select("Yes", "No")==1){ + set lastJob, Class; + if(Class == Job_Knight2){ + set lastJob, Job_Knight; + } else { + if(Class == Job_Crusader2){ + set lastJob, Job_Crusader; + } } + jobchange Job_Novice_High; + resetlvl(1); + skill 142,1,0; + skill 143,1,0; } - jobchange Job_Novice_High; - resetlvl(1); - skill 142,1,0; - skill 143,1,0; + break; + case 2: + goto L_Third; } - break; - case 2: - goto L_Third; + close; + } + else { + mes "Are you sure you want to be reborn?"; + if(select("Yes", "No")==1){ + set lastJob, Class; + if(Class == Job_Knight2){ + set lastJob, Job_Knight; + } else { + if(Class == Job_Crusader2){ + set lastJob, Job_Crusader; + } + } + jobchange Job_Novice_High; + resetlvl(1); + skill 142,1,0; + skill 143,1,0; + } } - close; } - if (Class >= Job_Lord_Knight && Class <= Job_Paladin2) + if (Class >= Job_Lord_Knight && Class <= Job_Paladin2 && .thirdclass == 1) { if(JobLevel < 50) goto L_cantCh; goto L_Third; @@ -295,5 +314,6 @@ OnInit: set $@JC_MinimumJB, 40; //Minimum job level for changing to 2nd classes (Default : 40) set $@JC_Plat, 1; //Give Platinum skills on Jobchange (Default : 1-yes) set $@JC_SupNovM, 45; //Base Level to change into Super Novice (Default : 45) + set .thirdclass, 1; // Allow players to change into third class? end; } diff --git a/npc/custom/eAAC_Scripts/quest_warper.txt b/npc/custom/quest_warper.txt index 85919fa0f..85919fa0f 100644 --- a/npc/custom/eAAC_Scripts/quest_warper.txt +++ b/npc/custom/quest_warper.txt diff --git a/npc/custom/jobs/reset.txt b/npc/custom/reset.txt index 2b185b958..2b185b958 100644 --- a/npc/custom/jobs/reset.txt +++ b/npc/custom/reset.txt diff --git a/npc/custom/warper.txt b/npc/custom/warper.txt index dfce62188..60b8b44a5 100644 --- a/npc/custom/warper.txt +++ b/npc/custom/warper.txt @@ -45,7 +45,7 @@ mes "[Warp Agent]"; mes "Please select which town you would like to be teleported to."; next; - switch(select("Alberta:Aldebaran:Amatsu:Ayothaya:Comodo:Einbroch:Einbech:Geffen:Gonryun:Hugel:Izlude:Lighthalzen:Louyang:Lutie:Morroc:Payon:Prontera:Umbala:Yuno")) { + switch(select("Alberta:Aldebaran:Amatsu:Ayothaya:Brasilis:Comodo:Einbroch:Einbech:El Dicastes:Geffen:Gonryun:Hugel:Izlude:Jawaii:Lighthalzen:Louyang:Lutie:Manuk:Morroc:Moscovia:Payon:Prontera:Splendide:Umbala:Veins:Yuno")) { case 1: warp "alberta",27,236; break; @@ -59,48 +59,69 @@ warp "ayothaya",149,118; break; case 5: - warp "comodo",188,161; + warp "brasilis",182,239; break; case 6: - warp "einbroch",64,200; + warp "comodo",188,161; break; case 7: - warp "einbech",70,95; + warp "einbroch",64,200; break; case 8: - warp "geffen",119,66; + warp "einbech",70,95; break; case 9: - warp "gonryun",150,130; + warp "dicastes01",198,187; break; case 10: - warp "hugel",96,145; + warp "geffen",119,66; break; case 11: - warp "izlude",128,111; + warp "gonryun",150,130; break; case 12: - warp "lighthalzen",158,92; + warp "hugel",96,145; break; case 13: - warp "louyang",210,108; + warp "izlude",128,111; break; case 14: - warp "xmas",150,133; + warp "jawaii",249,127; break; case 15: - warp "morocc",159,93; + warp "lighthalzen",158,92; break; case 16: - warp "payon",152,75; + warp "louyang",210,108; break; case 17: - warp "prontera",156,187; + warp "xmas",150,133; break; case 18: - warp "umbala",130,130; + warp "manuk",282,138; break; case 19: + warp "morocc",159,93; + break; + case 20: + warp "moscovia",223,184; + break; + case 21: + warp "payon",152,75; + break; + case 22: + warp "prontera",156,187; + break; + case 23: + warp "splendide",197,176; + break; + case 24: + warp "umbala",130,130; + break; + case 25: + warp "veins",216,123; + break; + case 26: warp "yuno",160,168; break; } @@ -109,7 +130,7 @@ mes "[Warp Agent]"; mes "Please select which dungeon you would like to be teleported to."; next; - switch(select("Abyss Lake:Amatsu Dungeon:Anthell:Ayothaya Dungeon:Bibilan Dungeon:Coal Mine (Dead Pit):Culvert:Einbech Dungeon:Glast Heim:Gonryun Dungeon:Juperos:Lighthalzen Bio Lab:Magma Dungeon:Niflheim:Odin Temple:Orc Dungeon:Payon Dungeon:Pyramids:Sphinx:Sunken Ship:Thanatos Tower:Turtle Dungeon")) { + switch(select("Abyss Lake:Amatsu Dungeon:Anthell:Ayothaya Dungeon:Bibilan Dungeon:Coal Mine (Dead Pit):Culvert:Einbech Dungeon:Glast Heim:Gonryun Dungeon:Ice Dungeon:Juperos:Lighthalzen Bio Lab:Magma Dungeon:Niflheim:Odin Temple:Orc Dungeon:Payon Dungeon:Pyramids:Sphinx:Sunken Ship:Thanatos Tower:Thor Volcano:Turtle Dungeon")) { case 1: warp "hu_fild05",189,207; break; @@ -141,39 +162,45 @@ warp "gonryun",160,195; break; case 11: - warp "yuno_fild07",218,176; + warp "ice_dun01",157,15; break; case 12: - warp "lighthalzen",158,285; + warp "yuno_fild07",218,176; break; case 13: - warp "yuno_fild03",39,140; + warp "lighthalzen",158,285; break; case 14: - warp "niflheim",35,161; + warp "yuno_fild03",39,140; break; case 15: - warp "odin_tem01",98,144; + warp "niflheim",35,161; break; case 16: - warp "gef_fild10",70,332; + warp "odin_tem01",98,144; break; case 17: - warp "pay_arche",43,132; + warp "gef_fild10",70,332; break; case 18: - warp "moc_ruins",62,162; + warp "pay_arche",43,132; break; case 19: - warp "moc_fild19",107,100; + warp "moc_ruins",62,162; break; case 20: - warp "alb2trea",75,98; + warp "moc_fild19",107,100; break; case 21: - warp "tha_scene01",131,223; + warp "alb2trea",75,98; break; case 22: + warp "tha_scene01",131,223; + break; + case 23: + warp "thor_v01",21,229; + break; + case 24: warp "tur_dun01",149,238; } break; |