gldfunc_ev_agit.txt 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149
  1. //===== eAthena Script =======================================
  2. //= War of Emperium Guild Event AgitStart/AgitBreak Functions
  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. //= F_AgitStart is in charge of spawning Emperium and mobs in castles
  12. //= when WoE is started.
  13. //= F_AgitBreak resets guild castle data when a castle has been taken over.
  14. //= It then sets the data for the new guild master if there is one.
  15. //=======================================
  16. //= Break down of arguments used in F_AgitStart:
  17. //= arg(0): name of specific guild castle.
  18. //= arg(1): name of specific agit castle script.
  19. //= arg(2): x1 for Emperium and monster spawn
  20. //= arg(3): y1 for Emperium and monster spawn
  21. //= Break down of arguments used in F_AgitBreak:
  22. //= arg(0): name of specific guild castle.
  23. //= arg(1): name of specific OnRevCastle label.
  24. //===== Additional Comments: =================================
  25. //= v1.2: All OnAgitStart and OnAgitBreak calls will use these functions.[kobra_k88]
  26. //= v1.2a: Added OnAgitEnd function.[kobra_k88]
  27. //============================================================
  28. // Function for OnAgitStart =========================================
  29. function script F_AgitStart {
  30. MapRespawnGuildID getarg(0)+".gat",GetCastleData(getarg(0)+".gat",1),2;
  31. Monster getarg(0)+".gat",getarg(2),getarg(3),"EMPERIUM",1288,1,"Agit_"+getarg(1)+"::OnAgitBreak";
  32. GvgOn getarg(0)+".gat";
  33. if (GetCastleData(getarg(0)+".gat",1) != 0) return;
  34. if(getarg(0) == "aldeg_cas01" || getarg(0) == "aldeg_cas02" || getarg(0) == "aldeg_cas03" || getarg(0) == "aldeg_cas04" || getarg(0) == "aldeg_cas05" || getarg(0) == "nguild_alde") goto L_AldegCas;
  35. if(getarg(0) == "gefg_cas01" || getarg(0) == "gefg_cas02" || getarg(0) == "gefg_cas03" || getarg(0) == "gefg_cas04" || getarg(0) == "gefg_cas05" || getarg(0) == "nguild_gef") goto L_GefgCas;
  36. if(getarg(0) == "payg_cas01" || getarg(0) == "payg_cas02" || getarg(0) == "payg_cas03" || getarg(0) == "payg_cas04" || getarg(0) == "payg_cas05" || getarg(0) == "nguild_pay") goto L_PaygCas;
  37. if(getarg(0) == "prtg_cas01" || getarg(0) == "prtg_cas02" || getarg(0) == "prtg_cas03" || getarg(0) == "prtg_cas04" || getarg(0) == "prtg_cas05" || getarg(0) == "nguild_prt") goto L_PrtgCas;
  38. L_AldegCas:
  39. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1117,10;
  40. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1132,4;
  41. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1219,2;
  42. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1205,1;
  43. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1216,10;
  44. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1193,17;
  45. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1269,9;
  46. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1276,7;
  47. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1208,3;
  48. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1275,1;
  49. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1268,1;
  50. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1272,1;
  51. monster getarg(0)+".gat",(getarg(2)+1),getarg(3),"--ja--",1272,1;
  52. monster getarg(0)+".gat",(getarg(2)-1),getarg(3),"--ja--",1270,4;
  53. monster getarg(0)+".gat",getarg(2),(getarg(3)+1),"--ja--",1268,1;
  54. monster getarg(0)+".gat",getarg(2),(getarg(3)-1),"--ja--",1219,1;
  55. monster getarg(0)+".gat",getarg(2),getarg(3),"--ja--",1276,5;
  56. return;
  57. L_GefgCas:
  58. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1117,10;
  59. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1263,11;
  60. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1102,10;
  61. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1130,10;
  62. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1140,20;
  63. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1163,9;
  64. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1275,1;
  65. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1219,1;
  66. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1150,1;
  67. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1159,1;
  68. monster getarg(0)+".gat",(getarg(2)+1),getarg(3),"--ja--",1203,1;
  69. monster getarg(0)+".gat",(getarg(2)-1),getarg(3),"--ja--",1087,1;
  70. monster getarg(0)+".gat",getarg(2),(getarg(3)+1),"--ja--",1213,7;
  71. monster getarg(0)+".gat",getarg(2),(getarg(3)-1),"--ja--",1189,7;
  72. return;
  73. L_PaygCas:
  74. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1277,10;
  75. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1208,10;
  76. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1262,5;
  77. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1102,5;
  78. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1150,1;
  79. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1115,1;
  80. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1129,11;
  81. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1276,5;
  82. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1282,4;
  83. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1253,5;
  84. monster getarg(0)+".gat",getarg(2),getarg(3),"--ja--",1150,1;
  85. monster getarg(0)+".gat",getarg(2),getarg(3),"--ja--",1115,1;
  86. monster getarg(0)+".gat",getarg(2),(getarg(3)+1),"--ja--",1208,6;
  87. monster getarg(0)+".gat",getarg(2),(getarg(3)-1),"--ja--",1276,5;
  88. return;
  89. L_PrtgCas:
  90. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1163,15;
  91. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1132,10;
  92. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1219,5;
  93. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1268,5;
  94. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1251,1;
  95. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1252,1;
  96. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1276,5;
  97. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1259,1;
  98. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1283,1;
  99. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1275,1;
  100. areamonster getarg(0)+".gat",0,0,300,300,"--ja--",1200,1;
  101. monster getarg(0)+".gat",(getarg(2)+1),getarg(3),"--ja--",1268,1;
  102. monster getarg(0)+".gat",(getarg(2)-1),getarg(3),"--ja--",1251,1;
  103. monster getarg(0)+".gat",getarg(2),(getarg(3)+1),"--ja--",1252,1;
  104. monster getarg(0)+".gat",getarg(2),(getarg(3)-1),"--ja--",1219,2;
  105. monster getarg(0)+".gat",getarg(2),getarg(3),"--ja--",1276,5;
  106. return;
  107. }
  108. // Function for OnAgitBreak ======================================
  109. function script F_AgitBreak {
  110. //killmonsterall getarg(0)+".gat";
  111. set @GID,getcharid(2);
  112. if (@GID <= 0) return;
  113. set @Economy,GetCastleData(getarg(0)+".gat",2);
  114. SetCastleData getarg(0)+".gat",2, @Economy-5;
  115. if (GetCastleData(getarg(0)+".gat",2) < 0) SetCastleData getarg(0)+".gat",2,0;
  116. set @Defence,GetCastleData(getarg(0)+".gat",3);
  117. SetCastleData getarg(0)+".gat",3, @Defence-5;
  118. if (GetCastleData(getarg(0)+".gat",3) < 0) SetCastleData getarg(0)+".gat",3,0;
  119. SetCastleData getarg(0)+".gat",1, @GID;
  120. MapAnnounce getarg(0)+".gat","The emperium has been destroyed.",17;
  121. Announce "Guild Base [" + GetCastleName(getarg(0)+".gat") + "] has been taken by the [" + GetGuildName(@GID) + "] guild.",0;
  122. GetCastleData getarg(0)+".gat",0,"::OnRecvCastle"+getarg(1);
  123. disablenpc "Kafra Service#"+getarg(1);
  124. set @i, 3;
  125. L_Loop:
  126. set @i, @i + 1;
  127. SetCastleData getarg(0)+".gat",@i,0;
  128. if(@i < 25) goto L_Loop;
  129. return;
  130. }
  131. // Function for OnAgitEnd ======================================
  132. function script F_AgitEnd {
  133. GvgOff getarg(0)+".gat";
  134. // if (GetCastleData(getarg(0)+".gat",1) == 0) return; //enable this line to allow take over of non captured castles after woe ends
  135. MapRespawnGuildID getarg(0)+".gat",GetCastleData(getarg(0)+".gat",1),4;
  136. KillMonster getarg(0)+".gat","Agit_"+getarg(1)+"::OnAgitBreak";
  137. end;
  138. }