kafras_com.txt 2.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273
  1. //===== eAthena Script ===============
  2. //= Comodo Kafras
  3. //===== By: ============================
  4. //= eAthena Dev Team
  5. //===== Current Version: =======================
  6. //= 2.3
  7. //===== Compatible With: ============================
  8. //= eAthena 1.0
  9. //===== Description: ============================================
  10. //= Description of argument settings for callfunc "F_Kafra".
  11. //= arg(0): When set at 0 the default Kafra message is displayed.
  12. //= When set to 1 the Niflhiem Kafra message is displayed.
  13. //= When set to 2 the Guild Kafra message is displayed.
  14. //= arg(1): Set to 1 to disable teleport menu option. Otherwise set to 0.
  15. //= arg(2): Set to 1 to disable info menu. Otherwise set to 0.
  16. //= arg(3): Cost of Storage service
  17. //= arg(4): Cost of Rent a Pushcart service
  18. //===== Additional Comments: ==========================================
  19. //= v1.1 Now using functions :)
  20. //= v2.1b Minor changes to function calls. Using arguments.
  21. //= This version uses arrays .[kobra_k88]
  22. //= Corrected savepoint for in town kafra.[kobra_k88]
  23. //= 2.2 New teleport destinations, prices [Lupus]
  24. //= 2.21 from Pharos, both warps are now 1200z [Evera]
  25. //= 2.3 Updated function calls with new arguments. [L0ne_W0lf]
  26. //= Added unique Kafra Welcome message2.
  27. //=====================================================================
  28. // In Town ==============================================>\\
  29. comodo,195,150,4 script Kafra Employee::kaf_comodo 721,{
  30. cutin "kafra_07",2;
  31. cleararray @wrpC$[0],"",getarraysize(@wrpC$);
  32. setarray @wrpD$[0], "Morroc", "Comodo Pharos Beacon", "Umbala";
  33. setarray @wrpP[0], 1800, 1200, 1800;
  34. set @wrpC$[0], @wrpD$[0]+" -> "+@wrpP[0];
  35. set @wrpC$[1], @wrpD$[1]+" -> "+@wrpP[1];
  36. set @wrpC$[2], @wrpD$[2]+" -> "+@wrpP[2];
  37. set @wrpC$[3], "Cancel";
  38. mes "[Kafra Employee]";
  39. mes "Welcome to the";
  40. mes "Kafra Corporation.";
  41. mes "You know that our";
  42. mes "service is always";
  43. mes "on your side~";
  44. callfunc "F_Kafra",5,0,1,80,1000;
  45. M_Save:
  46. savepoint "comodo",204,143;
  47. callfunc "F_KafEnd",0,1,"in Pyros Lighthouse";
  48. }
  49. // Comodo Pharos Lighthouse (Beacon Island) ===================>\\
  50. cmd_fild07,136,134,4 script Kafra Employee::kaf_cmd_fild07 721,{
  51. cutin "kafra_07",2;
  52. cleararray @wrpC$[0],"",getarraysize(@wrpC$);
  53. setarray @wrpD$[0], "Comodo", "Morroc";
  54. setarray @wrpP[0], 1200, 1200;
  55. set @wrpC$[0], @wrpD$[0]+" -> "+@wrpP[0];
  56. set @wrpC$[1], @wrpD$[1]+" -> "+@wrpP[1];
  57. set @wrpC$[2], "Cancel";
  58. mes "[Kafra Employee]";
  59. mes "Welcome to the";
  60. mes "Kafra Corporation.";
  61. mes "You know that our";
  62. mes "service is always";
  63. mes "on your side~";
  64. callfunc "F_Kafra",5,0,1,80,1000;
  65. M_Save:
  66. savepoint "cmd_fild07",127,134;
  67. callfunc "F_KafEnd",0,1,"in the town of Comodo";
  68. }