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://svn.code.sf.net/p/rathena/svn/trunk@16164 54d463be-8e91-2dee-dedb-b68131a5f0ec
This commit is contained in:
jmanfffreak
parent
2c2594d918
commit
919738969e
@ -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
|
||||
@ -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;
|
||||
}
|
||||
@ -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;
|
||||
}
|
||||
@ -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;
|
||||
}
|
||||
@ -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]";
|
||||
|
||||
@ -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.
|
||||
//============================================================
|
||||
@ -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;
|
||||
@ -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
|
||||
@ -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)
|
||||
@ -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;
|
||||
}
|
||||
@ -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
|
||||
@ -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;
|
||||
//-------------------------------------------------------------------------------
|
||||
}
|
||||
@ -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;
|
||||
}
|
||||
}
|
||||
@ -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;
|
||||
//}
|
||||
@ -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
|
||||
|
||||
}
|
||||
@ -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
|
||||
|
||||
}
|
||||
@ -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
|
||||
|
||||
}
|
||||
@ -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]));
|
||||
}
|
||||
|
||||
}
|
||||
@ -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]));
|
||||
}
|
||||
|
||||
}
|
||||
@ -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;
|
||||
}
|
||||
@ -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);
|
||||
}
|
||||
|
||||
}
|
||||
@ -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;
|
||||
}
|
||||
@ -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;
|
||||
}
|
||||
@ -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;
|
||||
}
|
||||
@ -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);
|
||||
}
|
||||
|
||||
}
|
||||
@ -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;
|
||||
}
|
||||
|
||||
}
|
||||
File diff suppressed because it is too large
Load Diff
@ -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;
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
@ -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;
|
||||
}
|
||||
@ -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);
|
||||
}
|
||||
|
||||
}
|
||||
File diff suppressed because it is too large
Load Diff
@ -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;
|
||||
}
|
||||
@ -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;
|
||||
}
|
||||
@ -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;
|
||||
}
|
||||
@ -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;
|
||||
}
|
||||
@ -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
|
||||
44
npc/custom/itemmall.txt
Normal file
44
npc/custom/itemmall.txt
Normal file
@ -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
|
||||
@ -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;
|
||||
}
|
||||
@ -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;
|
||||
|
||||
@ -17,12 +17,11 @@
|
||||
//npc: npc/custom/banks/kafra_bank.txt
|
||||
//npc: npc/custom/banks/bank.txt
|
||||
// -- Reset NPC
|
||||
//npc: npc/custom/jobs/reset.txt
|
||||
//npc: npc/custom/reset.txt
|
||||
// -- Job Changer
|
||||
//npc: npc/custom/jobs/jobmaster.txt
|
||||
//npc: npc/custom/jobmaster.txt
|
||||
// -- Healer(s)
|
||||
//npc: npc/custom/healers/heal.txt
|
||||
//npc: npc/custom/healers/heal_payment.txt
|
||||
//npc: npc/custom/heal.txt
|
||||
// -- Black Jack
|
||||
//npc: npc/custom/blackjack.txt
|
||||
// -- City and Dungeon Warper
|
||||
@ -38,7 +37,7 @@
|
||||
// -- Platinum Skills
|
||||
//npc: npc/custom/platinum_skills.txt
|
||||
// -- Custom Shops
|
||||
//npc: npc/custom/2-2shop.txt
|
||||
//npc: npc/custom/itemmall.txt
|
||||
// -- Free Falcon & Peco breeder, Free Carts
|
||||
//npc: npc/custom/breeder.txt
|
||||
// -- Unofficial Airplane Script
|
||||
@ -80,15 +79,6 @@
|
||||
//npc: npc/custom/battleground/bg_kvm02.txt
|
||||
//npc: npc/custom/battleground/bg_kvm03.txt
|
||||
|
||||
// --------------------------------------------------------------
|
||||
// Lance's Scripts (coded before joining eA Dev team)
|
||||
// --------------------------------------------------------------
|
||||
//npc: npc/custom/Lance/FR_HallOfFame.txt
|
||||
//npc: npc/custom/Lance/FR_WeatherController.txt
|
||||
//npc: npc/custom/Lance/FR_MailSystem.txt
|
||||
//npc: doc/sample/npc_dynamic_shop.txt
|
||||
// --------------------------------------------------------------
|
||||
|
||||
// --------------------------------------------------------------
|
||||
// ----------------------- Quests Scripts -----------------------
|
||||
// -- Treasure Hunters Guild Quests (40 Quests + Special Guild Shop)
|
||||
|
||||
@ -1,59 +0,0 @@
|
||||
// --------------------------------------------------------------
|
||||
// - eAAC Scripts -
|
||||
// --------------------------------------------------------------
|
||||
|
||||
// --------------------------------------------------------------
|
||||
// ----------------------- Kafra Express ------------------------
|
||||
// Kafra Express scripts are all enabled by default in the conf.
|
||||
// All you have to do is enable/uncomment the following line and
|
||||
// edit the confi.txt file inside the kafraExpress folder. Read
|
||||
// the readme.txt for further information. Also before enabling
|
||||
// this, open and read the following conf file, since you have
|
||||
// to de-activate the default Global_Functions.txt file and
|
||||
// enable the custom global_functionsKE.txt files made by Skotlex
|
||||
// Script made by Skotlex.
|
||||
// Forum topic for support:
|
||||
//| http://www.eathena.ws/board/index.php?showtopic=20290
|
||||
//import: npc/custom/eAAC_Scripts/Kafra_Express_files.conf
|
||||
|
||||
// --------------------------------------------------------------
|
||||
// ---------------------- Roll A Dice NPC -----------------------
|
||||
// Script made by birkiczd.
|
||||
// Forum topic for support:
|
||||
//| http://www.eathena.ws/board/index.php?showtopic=62483
|
||||
//npc: npc/custom/eAAC_Scripts/roll_a_dice.txt
|
||||
|
||||
// --------------------------------------------------------------
|
||||
// ---------------------- Message Boards ------------------------
|
||||
// Script made by cold
|
||||
// Forum topic for support:
|
||||
//| http://www.eathena.ws/board/index.php?showtopic=51051
|
||||
//npc: npc/custom/eAAC_Scripts/messageboards.txt
|
||||
|
||||
// --------------------------------------------------------------
|
||||
// ---------------------- Donation Girl -------------------------
|
||||
// Script made by joshuaali
|
||||
// Forum topic for support:
|
||||
//| http://www.eathena.ws/board/index.php?showtopic=71464
|
||||
//npc: npc/custom/eAAC_Scripts/DonationGirl/donate.txt
|
||||
|
||||
// --------------------------------------------------------------
|
||||
// ----------------------- Quest Warper -------------------------
|
||||
// Script made by Neouni
|
||||
// Forum topic for support:
|
||||
//| http://www.eathena.ws/board/index.php?showtopic=83352
|
||||
//npc: npc/custom/eAAC_Scripts/quest_warper.txt
|
||||
|
||||
// --------------------------------------------------------------
|
||||
// ----------------------- Coin Banker --------------------------
|
||||
// Script made by erKURITA
|
||||
// Forum topic for support:
|
||||
//| http://www.eathena.ws/board/index.php?showtopic=80615
|
||||
//npc: npc/custom/eAAC_Scripts/banker.txt
|
||||
|
||||
// --------------------------------------------------------------
|
||||
// ---------------------- Vending Machine------------------------
|
||||
// Script made by Celestria
|
||||
// Forum topic for support:
|
||||
//| http://www.eathena.ws/board/index.php?showtopic=91261
|
||||
//npc: npc/custom/eAAC_Scripts/vendmachine.txt
|
||||
@ -34,5 +34,4 @@ import: npc/scripts_guild.conf
|
||||
// -- Your NPCs go in this file!
|
||||
import: npc/scripts_custom.conf
|
||||
// -- eAAC Scripts
|
||||
import: npc/scripts_eaac.conf
|
||||
// --------------------------------------------------------------
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user