kafras_pron.txt 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135
  1. //===== eAthena Script =======================================
  2. //= Prontera Kafras
  3. //===== By: =========================
  4. //= eAthena Dev Team
  5. //===== Current Version: ===================
  6. //= 2.7
  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. //= 2.2 North Kafra allows you save your position
  23. //= 2.3 New Teleport list, new prices, 2.3a fixed Alberta Teleport [Lupus]
  24. //= 2.3b One Kafra's been moved to Prontera, thx to Vicious_Pucca [Lupus]
  25. //= 2.4 Updated Kafras locations for the mini-map [Lupus]
  26. //= 2.41 New prices [Evera]
  27. //= 2.5 Can't save outside city [Evera]
  28. //= 2.6 Fixed central Kafra position (146,86 -> 146,98) [L0ne_W0lf]
  29. //= 2.7 Updated function calls with new arguments. [L0ne_W0lf]
  30. //= Added unique Kafra Welcome messages.
  31. //=====================================================================
  32. // North ==================================
  33. prontera,152,326,3 script Kafra Employee::kaf_prontera 112,{
  34. cutin "kafra_06",2;
  35. callfunc "F_KafSetPront";
  36. mes "[Kafra Employee]";
  37. mes "Welcome to the";
  38. mes "Kafra Corporation~";
  39. mes "The Kafra Services are";
  40. mes "always here to support";
  41. mes "you. So how can I be";
  42. mes "of service today?";
  43. callfunc "F_Kafra",5,0,0,40,800;
  44. M_Save:
  45. savepoint "prontera",157,327;
  46. callfunc "F_KafEnd",0,1,"in the city of Prontera";
  47. }
  48. // SOUTH ======================================
  49. prontera,151,29,0 script Kafra Employee::kaf_prontera2 115,{
  50. cutin "kafra_03",2;
  51. callfunc "F_KafSetPront";
  52. mes "[Kafra Employee]";
  53. mes "Welcome~!";
  54. mes "The Kafra Services";
  55. mes "are always on your side.";
  56. mes "So how can I help you?";
  57. callfunc "F_Kafra",5,0,0,40,800;
  58. M_Save:
  59. savepoint "prontera",150,33;
  60. callfunc "F_KafEnd",0,1,"in the city of Prontera";
  61. }
  62. //WEST=========================================
  63. prontera,29,207,6 script Kafra Employee::kaf_prontera3 113,{
  64. cutin "kafra_05",2;
  65. callfunc "F_KafSetPront";
  66. mes "[Kafra Employee]";
  67. mes "The Kafra Corporation";
  68. mes "is always working to provide";
  69. mes "you with convenient services.";
  70. mes "How may I be of assistance?";
  71. callfunc "F_Kafra",5,0,0,40,800;
  72. M_Save:
  73. savepoint "prontera",33,208;
  74. callfunc "F_KafEnd",0,1,"in the city of Prontera";
  75. }
  76. // East ===========================================
  77. prontera,282,200,2 script Kafra Employee::kaf_prontera4 114,{
  78. cutin "kafra_04",2;
  79. callfunc "F_KafSetPront";
  80. mes "[Kafra Employee]";
  81. mes "Welcome!";
  82. mes "The Kafra Corporation";
  83. mes "will always support the";
  84. mes "adventurers of Rune-Midgard";
  85. mes "with its excellent service. So";
  86. mes "what can I do for you today?";
  87. callfunc "F_Kafra",5,0,0,40,800;
  88. M_Save:
  89. savepoint "prontera",281,203;
  90. callfunc "F_KafEnd",0,1,"in the city of Prontera";
  91. }
  92. // Center ===========================================
  93. prontera,146,89,6 script Kafra Employee::kaf_prontera5 117,{
  94. cutin "kafra_01",2;
  95. callfunc "F_KafSetPront";
  96. mes "[Kafra Employee]";
  97. mes "Welcome to the";
  98. mes "Kafra Corporation.";
  99. mes "The Kafra services";
  100. mes "are always on your side.";
  101. mes "How may I assist you?";
  102. callfunc "F_Kafra",5,0,0,40,800;
  103. M_Save:
  104. savepoint "prontera",116,73;
  105. callfunc "F_KafEnd",0,1,"in the city of Prontera";
  106. }
  107. // Function: Sets variables for Prontera Kafras ----------------------------
  108. function script F_KafSetPront {
  109. cleararray @wrpC$[0],"",getarraysize(@wrpC$);
  110. setarray @wrpD$[0], "Izlude", "Geffen", "Payon", "Morroc", "Orc Dungeon", "Alberta";
  111. setarray @wrpP[0], 600, 1200, 1200, 1200, 1200, 1800;
  112. set @wrpC$[0], @wrpD$[0]+" -> "+@wrpP[0];
  113. set @wrpC$[1], @wrpD$[1]+" -> "+@wrpP[1];
  114. set @wrpC$[2], @wrpD$[2]+" -> "+@wrpP[2];
  115. set @wrpC$[3], @wrpD$[3]+" -> "+@wrpP[3];
  116. set @wrpC$[4], @wrpD$[4]+" -> "+@wrpP[4];
  117. set @wrpC$[5], @wrpD$[5]+" -> "+@wrpP[5];
  118. set @wrpC$[6], "Cancel";
  119. setarray @viewpX[0], 151, 29, 282, 152;
  120. setarray @viewpY[0], 29, 207, 200, 326;
  121. return;
  122. }