kafras_alde.txt 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051
  1. //===== eAthena Script =======================================
  2. //= Al De Baran Kafras
  3. //===== By: ============================
  4. //= eAthena Dev Team
  5. //===== Current Version: =======================
  6. //= 2.2
  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 New teleport destinations, prices [Lupus]
  21. //=====================================================================
  22. // Kafra Main Office (Kafra Leilah) ------------------------------------
  23. aldeba_in.gat,96,181,4 script Kafra Leilah 113,{
  24. cutin "kafra_05",2;
  25. callfunc "F_Kafra",0,2,1;
  26. M_Save:
  27. savepoint "aldeba_in.gat",96,179;
  28. callfunc "F_KafEnd",0,1;
  29. }
  30. // South --------------------------------------------------
  31. aldebaran.gat,143,119,4 script Kafra::kaf_aldebaran 113,{
  32. cutin "kafra_05",2;
  33. cleararray @wrpC$[0],"",getarraysize(@wrpC$);
  34. setarray @wrpP[0], 1200, 1200, 1800, 1700;
  35. setarray @wrpD$[0], "Geffen", "Yuno" , "Izlude", "Coal Mine(Dead Pit)";
  36. set @wrpC$[0], @wrpD$[0]+" -> "+@wrpP[0];
  37. set @wrpC$[1], @wrpD$[1]+" -> "+@wrpP[1];
  38. set @wrpC$[2], @wrpD$[2]+" -> "+@wrpP[2];
  39. set @wrpC$[3], @wrpD$[3]+" -> "+@wrpP[3];
  40. set @wrpC$[4], "Cancel";
  41. callfunc "F_Kafra",0,0,1;
  42. M_Save:
  43. savepoint "aldebaran.gat",143,109;
  44. callfunc "F_KafEnd",0,1;
  45. }