rathena/npc/guild/gldfunc_kafra.txt
L0ne_W0lf 942687c211 * Rather large Kafra update. (May need further testing)
- Updated a good portion of the kafra functions.
- Added proper dialog for most functions.
- Updated guild Kafras and some o f their locations. 
* Updated all Guide NPCs. They are now mostly 100% official.
- Renamed some of the old files to make them look better, IE: yun to juno.
- Added Kunlun and Ayotaya guides.
* Added the Einbech tool Dealer since it seemed to had gotten lost when I updated shops.
* Updated Dye Maker and Hair Dyer to official. 

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@10810 54d463be-8e91-2dee-dedb-b68131a5f0ec
2007-06-25 20:22:54 +00:00

41 lines
1.6 KiB
Plaintext

//===== eAthena Script =======================================
//= War of Emperium Kafras Function
//===== By: ==================================================
//= jAthena - kalen (1.0)
//= 1.1 by Akaru, ho|yAnge|X, and Valaris
//===== Current Version: =====================================
//= 1.2a
//===== Compatible With: =====================================
//= eAthena 0.1+; RO Episode 4+
//===== Description: =========================================
//= Kafra service for guild members
//======================================
//= Break down of arguments used in the function:
//= arg(0): name of City.
//= arg(1): name of guild castle.
//= arg(2): x1 coordinate for warp
//= arg(3): y1 coordinate for warp
//===== Additional Comments: =================================
//= v1.2: All Guild kafra scripts use this function. [kobra_k88]
//= 1.2a Added extra check for Contract with Kafra Guild Skill [Lupus]
//= 1.2 Kafra's not charge for use of Cart Rentals [L0ne_W0lf]
//= Updated dialog and names.
//============================================================
function script F_GKafra {
cutin "kafra_01",2;
set @GID, GetCastleData(getarg(0),1);
if (getcharid(2) == @GID && getgdskilllv(@GID,10001)) goto L_StartG;
mes "[Kafra Service]";
mes "I am contracted to provide service only for the ^ff0000" + GetGuildName(@GID) + "^000000 Guild. Please use another Kafra Corporation staff member around here. I am Sorry for your inconvenience.";
cutin "",255;
close;
L_StartG:
set @wrpP[0], 200;
set @wrpD$[0], getarg(1);
setarray @wrpC$[0], @wrpD$[0]+" ^880000"+@wrpP[0]+"^000000 z", "Cancel", "", "", "","";
callfunc "F_Kafra",2,0,0,0,800;
end;
}