kafras_pron.txt 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116
  1. //===== eAthena Script =======================================
  2. //= Prontera Kafras
  3. //===== By: =========================
  4. //= eAthena Dev Team
  5. //===== Current Version: ===================
  6. //= 2.4
  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. //===== Additional Comments: ==========================================
  17. //= v1.1 Now using functions :)
  18. //= v2.1b Minor changes to function calls. Using arguments.
  19. //= This version uses arrays .[kobra_k88]
  20. //= 2.2 North Kafra allows you save your position
  21. //= 2.3 New Teleport list, new prices, 2.3a fixed Alberta Teleport [Lupus]
  22. //= 2.3b One Kafra's been moved to Prontera, thx to Vicious_Pucca [Lupus]
  23. //= 2.4 Updated Kafras locations for the mini-map [Lupus]
  24. //= 2.41 New prices [Evera]
  25. //=====================================================================
  26. // North ==================================
  27. prontera.gat,152,326,4 script Kafra::kaf_prontera 112,{
  28. cutin "kafra_06",2;
  29. callfunc "F_Kafra",0,1,1;
  30. M_Save:
  31. savepoint "prontera.gat",157,327;
  32. callfunc "F_KafEnd",0,1;
  33. }
  34. // SOUTH ======================================
  35. prontera.gat,151,29,8 script Kafra::kaf_prontera2 116,{
  36. cutin "kafra_02",2;
  37. callfunc "F_KafSetPront";
  38. callfunc "F_Kafra",0,0,0;
  39. M_Save:
  40. menu "-Save outside city.",sM_Out,"-Save inside city.",sM_In;
  41. sM_Out:
  42. savepoint "prt_fild08.gat",170,369;
  43. callfunc "F_KafEnd",0,1;
  44. sM_In:
  45. savepoint "prontera.gat",150,33;
  46. callfunc "F_KafEnd",0,1;
  47. }
  48. //WEST=========================================
  49. prontera.gat,29,207,6 script Kafra::kaf_prontera3 113,{
  50. cutin "kafra_05",2;
  51. callfunc "F_KafSetPront";
  52. callfunc "F_Kafra",0,0,0;
  53. M_Save:
  54. menu "-Save outside city.",sM_Out,"-Save inside city.",sM_In;
  55. sM_Out:
  56. savepoint "prt_fild05.gat",367,205;
  57. callfunc "F_KafEnd",0,1;
  58. sM_In:
  59. savepoint "prontera.gat",33,208;
  60. callfunc "F_KafEnd",0,1;
  61. }
  62. // East ===========================================
  63. prontera.gat,282,200,4 script Kafra::kaf_prontera4 115,{
  64. cutin "kafra_03",2;
  65. callfunc "F_KafSetPront";
  66. callfunc "F_Kafra",0,0,0;
  67. M_Save:
  68. menu "-Save outside city.",sM_Out,"-Save inside city.",sM_In;
  69. sM_Out:
  70. savepoint "prt_fild06.gat",31,192;
  71. callfunc "F_KafEnd",0,1;
  72. sM_In:
  73. savepoint "prontera.gat",281,203;
  74. callfunc "F_KafEnd",0,1;
  75. }
  76. // Center ===========================================
  77. prontera.gat,146,86,6 script Kafra::kaf_prontera5 117,{
  78. cutin "kafra_01",2;
  79. callfunc "F_KafSetPront";
  80. callfunc "F_Kafra",0,0,0;
  81. M_Save:
  82. savepoint "prontera.gat",116,73;
  83. callfunc "F_KafEnd",0,1;
  84. }
  85. // Function: Sets variables for Prontera Kafras ----------------------------
  86. function script F_KafSetPront {
  87. cleararray @wrpC$[0],"",getarraysize(@wrpC$);
  88. setarray @wrpD$[0], "Izlude", "Geffen", "Payon", "Morroc", "Orc Dungeon", "Alberta";
  89. setarray @wrpP[0], 600, 1200, 1200, 1200, 1200, 1800;
  90. set @wrpC$[0], @wrpD$[0]+" -> "+@wrpP[0];
  91. set @wrpC$[1], @wrpD$[1]+" -> "+@wrpP[1];
  92. set @wrpC$[2], @wrpD$[2]+" -> "+@wrpP[2];
  93. set @wrpC$[3], @wrpD$[3]+" -> "+@wrpP[3];
  94. set @wrpC$[4], @wrpD$[4]+" -> "+@wrpP[4];
  95. set @wrpC$[5], @wrpD$[5]+" -> "+@wrpP[5];
  96. set @wrpC$[6], "Cancel";
  97. setarray @viewpX[0], 151, 29, 282, 152;
  98. setarray @viewpY[0], 29, 207, 200, 326;
  99. return;
  100. }