gldfunc_kafra.txt 1.5 KB

1234567891011121314151617181920212223242526272829303132333435363738
  1. //===== eAthena Script =======================================
  2. //= War of Emperium Kafras Function
  3. //===== By: ==================================================
  4. //= jAthena - kalen (1.0)
  5. //= 1.1 by Akaru, ho|yAnge|X, and Valaris
  6. //===== Current Version: =====================================
  7. //= 1.2a
  8. //===== Compatible With: =====================================
  9. //= eAthena 0.1+; RO Episode 4+
  10. //===== Description: =========================================
  11. //= Kafra service for guild members
  12. //======================================
  13. //= Break down of arguments used in the function:
  14. //= arg(0): name of City.
  15. //= arg(1): name of guild castle.
  16. //= arg(2): x1 coordinate for warp
  17. //= arg(3): y1 coordinate for warp
  18. //===== Additional Comments: =================================
  19. //= v1.2: All Guild kafra scripts use this function. [kobra_k88]
  20. //= 1.2a Added extra check for Contract with Kafra Guild Skill [Lupus]
  21. //============================================================
  22. function script F_GKafra {
  23. cutin "kafra_01",2;
  24. set @GID, GetCastleData(getarg(0)+".gat",1);
  25. if (getcharid(2) == @GID && getgdskilllv(@GID,10001)) goto L_StartG;
  26. mes "[Kafra Service]";
  27. mes "I am here to serve only ^5533FF" + GetGuildName(@GID) + "^000000 members. Please use different Kafra Service. Thank you.";
  28. cutin "",255;
  29. close;
  30. L_StartG:
  31. set @wrpP[0], 0;
  32. set @wrpD$[0], getarg(1);
  33. setarray @wrpC$[0], @wrpD$[0], "Cancel", "", "", "","";
  34. callfunc "F_Kafra",2,0,0;
  35. end;
  36. }