API tools faq
paste
Advertisement
Guest User

bgtruta

a guest
Oct 31st, 2014
204
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.21 KB | None | 0 0
raw download clone embed print report
  1. - script sdkfksdfjsdfgdf -1,{
  2. OnInit:
  3. .eventlasting = 30 * 60; // how long would the event last or it auto-reset. 30 *60 = 30 mins
  4. .min2start = 2; // minimum player to start
  5. .startingscore = 50; // score at start
  6. setarray .rewardwin, 7773,30; // premiar a equipe vencedora
  7. setarray .rewardlose, 7773,15; // premiar a equipe vencedora
  8.  
  9. setarray .Map$, "florian", "bat_c01", "guild_vs3";
  10.  
  11. .rewardwinsize = getarraysize( .rewardwin );
  12. .rewardlosesize = getarraysize( .rewardlose );
  13. .totalmap = getarraysize( .Map$ );
  14. bindatcmd "bg", strnpcinfo(0)+"::OnJoin";
  15. bindatcmd "leavebg", strnpcinfo(0)+"::OnLeave";
  16.  
  17. for ( .@i = 0; .@i < .totalmap; .@i++ ) {
  18. setmapflag .Map$[.@i], mf_battleground, 2;
  19. setmapflag .Map$[.@i], mf_nosave;
  20. setmapflag .Map$[.@i], mf_nowarp;
  21. setmapflag .Map$[.@i], mf_nowarpto;
  22. setmapflag .Map$[.@i], mf_noreturn;
  23. setmapflag .Map$[.@i], mf_noteleport;
  24. setmapflag .Map$[.@i], mf_nomemo;
  25. setmapflag .Map$[.@i], mf_noexppenalty;
  26. setmapflag .Map$[.@i], mf_nobranch;
  27. setmapflag .Map$[.@i], mf_noicewall;
  28. setmapflag .Map$[.@i], mf_gvg;
  29. }
  30. end;
  31. OnLeave:
  32. while ( .signup_aid[.@i] != getcharid(3) && .@i < .signup_count )
  33. .@i++;
  34. if ( .@i == .signup_count ) {
  35. dispbottom "Você ainda não se inscreveu na BG.";
  36. end;
  37. }
  38. deletearray .signup_aid[.@i], 1;
  39. .signup_count--;
  40. dispbottom "Você tem deixar o registro desta BG.";
  41. end;
  42. OnJoin:
  43. if ( getmapflag( strcharinfo(3), mf_nowarp ) || getmapflag( strcharinfo(3), mf_nowarpto ) ) {
  44. dispbottom "Você não pode se inscrever para BG neste mapa.";
  45. end;
  46. }
  47. while ( .signup_aid[.@i] != getcharid(3) && .@i < .signup_count )
  48. .@i++;
  49. if ( .@i < .signup_count ) {
  50. dispbottom "Você ainda não se inscreveu na BG.";
  51. end;
  52. }
  53. .signup_aid[ .signup_count ] = getcharid(3);
  54. .signup_count++;
  55. dispbottom "Você se registrou na BG.";
  56. // .@i = 1; // DEBUG
  57. // .@signup_name$ = rid2name( .signup_aid[0] );
  58. // while ( .signup_aid[.@i] ) {
  59. // .@signup_name$ = .@signup_name$ +","+ rid2name( .signup_aid[.@i] );
  60. // .@i++;
  61. // }
  62. // dispbottom "[Debug] Atualmente tem "+ .signup_count +" e eles são "+ .@signup_name$;
  63. L_Start:
  64. for ( .@i = 0; .@i < .signup_count; .@i++ ) {
  65. if ( attachrid( .signup_aid[.@i] ) ) {
  66. if ( getmapflag( strcharinfo(3), mf_nowarp ) ) { // player has went into another event
  67. deletearray .signup_aid[.@i], 1;
  68. }
  69. }
  70. else {
  71. deletearray .signup_aid[.@i], 1;
  72. .signup_count--;
  73. .@i--;
  74. }
  75. }
  76. if ( .start || .signup_count < .min2start ) {
  77. announce "Batalha Campal -- [Field of Death] -- +"+ .signup_count +" jogadores para começar -- Digite @bg para participar!", bc_all, 0xFFA500;
  78. end;
  79. }
  80. announce "Batalha Campal -- [Field of Death] -- Começou!", bc_all, 0xFFA500;
  81. .start = 1;
  82. .@map$ = .Map$[ rand(3) ];
  83. .red = createbgid( .@map$, 0,0, strnpcinfo(0)+"::OnRedQuit", strnpcinfo(0)+"::OnRedDead" );
  84. .blue = createbgid( .@map$, 0,0, strnpcinfo(0)+"::OnBlueQuit", strnpcinfo(0)+"::OnBlueDead" );
  85. callfunc "shuffle__", 0, .min2start -1, .@r;
  86. .@modulus = rand(2);
  87. for ( .@i = 0; .@i < .signup_count; .@i++ )
  88. setbgid ( .@i %2 == .@modulus )? .red : .blue, .signup_aid[ .@r[.@i] ];
  89. deletearray .signup_aid, .min2start;
  90. .signup_count -= .min2start;
  91. bg_warp .red, .@map$, 0,0;
  92. bg_warp .blue, .@map$, 0,0;
  93. .score[1] = .score[2] = .startingscore;
  94. bg_updatescore .@map$, .score[1], .score[2];
  95. sleep .eventlasting * 1000;
  96. if ( .start == 1 ) {
  97. if ( .score[1] > .score[2] ) {
  98. mapannounce "guild_vs"+ .map, " Time Vermelho ganhou!", bc_all, 0xFFA500;
  99. callsub L_reward, .red, .rewardwin, .rewardwinsize;
  100. callsub L_reward, .blue, .rewardlose, .rewardlosesize;
  101. }
  102. else if ( .score[1] < .score[2] ) {
  103. mapannounce "guild_vs"+ .map, " Time Azul ganhou!", bc_all, 0xFFA500;
  104. callsub L_reward, .blue, .rewardwin, .rewardwinsize;
  105. callsub L_reward, .red, .rewardlose, .rewardlosesize;
  106. }
  107. else {
  108. mapannounce "guild_vs"+ .map, "Empate !", bc_all, 0xFFA500;
  109. callsub L_reward, .red, .rewardlose, .rewardlosesize;
  110. callsub L_reward, .blue, .rewardlose, .rewardlosesize;
  111. }
  112. }
  113. bg_warp .red, "prontera", 155,182;
  114. bg_warp .blue, "prontera", 158,182;
  115. bg_destroy .red;
  116. bg_destroy .blue;
  117. .start = 0;
  118. deletearray .score;
  119. goto L_Start;
  120. L_reward:
  121. getbgusers getarg(0);
  122. for ( .@i = 0; .@i < $@arenamembersnum; .@i++ )
  123. for ( .@j = 0; .@j < getarg(2); .@j += 2 )
  124. getitem getelementofarray( getarg(1), .@j ), getelementofarray( getarg(1), .@j +1 ), $@arenamembers[.@i];
  125. return;
  126. OnRedDead: callsub L_dead, 1;
  127. OnBlueDead: callsub L_dead, 2;
  128. L_dead:
  129. .score[ getarg(0) ]--;
  130. bg_updatescore strcharinfo(3), .score[1], .score[2];
  131. if ( !.score[ getarg(0) ] )
  132. awake strnpcinfo(0);
  133. while ( checkcell( strcharinfo(3), .@x = rand(200), .@y = rand(200), cell_chknopass ) );
  134. bg_team_setxy getcharid(4), .@x, .@y;
  135. sleep2 1250;
  136. percentheal 0,0;
  137. if ( getmapflag( strcharinfo(3), mf_battleground ) )
  138. warp strcharinfo(3), 0,0;
  139. end;
  140. OnRedQuit: callsub L_quit, 1, .red;
  141. OnBlueQuit: callsub L_quit, 2, .blue;
  142. L_quit:
  143. percentheal 100, 100;
  144. if ( bg_get_data( getarg(1), 0 ) ) end;
  145. mapannounce strcharinfo(3), "Todos "+ .teamname$[ getarg(0) ] +"membros da equipe saiu!", bc_all, 0xFF3333;
  146. .score[ getarg(0) ] = 0;
  147. awake strnpcinfo(0);
  148. end;
  149. }
  150.  
  151. florian mapflag battleground 2
  152. florian mapflag nosave SavePoint
  153. florian mapflag nowarp
  154. florian mapflag nowarpto
  155. florian mapflag noreturn
  156. florian mapflag noteleport
  157. florian mapflag nomemo
  158. florian mapflag nopenalty
  159. florian mapflag nobranch
  160. florian mapflag noicewall
  161.  
  162. bat_c01 mapflag battleground 2
  163. bat_c01 mapflag nosave SavePoint
  164. bat_c01 mapflag nowarp
  165. bat_c01 mapflag nowarpto
  166. bat_c01 mapflag noreturn
  167. bat_c01 mapflag noteleport
  168. bat_c01 mapflag nomemo
  169. bat_c01 mapflag nopenalty
  170. bat_c01 mapflag nobranch
  171. bat_c01 mapflag noicewall
  172.  
  173. guild_vs3 mapflag battleground 2
  174. guild_vs3 mapflag nosave SavePoint
  175. guild_vs3 mapflag nowarp
  176. guild_vs3 mapflag nowarpto
  177. guild_vs3 mapflag noreturn
  178. guild_vs3 mapflag noteleport
  179. guild_vs3 mapflag nomemo
  180. guild_vs3 mapflag nopenalty
  181. guild_vs3 mapflag nobranch
  182. guild_vs3 mapflag noicewall
  183.  
  184.  
  185. //------------------------------ FUNÇÃO --------------------------------------------------
  186. //----------------------------------------------------------------------------------------
  187.  
  188. // callfunc "shuffle", <min num>, <max num>, <output array> {, <count> };
  189. function script shuffle__ {
  190. .@static = getarg(0);
  191. .@range = getarg(1) +1 - .@static;
  192. .@count = getarg(3, 0);
  193. if ( .@range <= 0 )
  194. return 0;
  195. if ( !.@count || .@count > .@range )
  196. .@count = .@range;
  197. while ( .@i < .@count ) {
  198. .@r = .@save = rand( .@i, .@range -1 ) ;
  199. if ( !.@tmp1[.@i] ) {
  200. .@r = .@tmp1[.@r] ? .@tmp2[.@r] : .@r;
  201. .@tmp2[.@i] = .@r;
  202. .@tmp2[.@save] = .@i;
  203. .@tmp1[.@save] = 1;
  204. set getelementofarray( getarg(2), .@i ), .@r + .@static;
  205. if ( .@save < .@count )
  206. set getelementofarray( getarg(2), .@save ), .@i + .@static;
  207. }
  208. .@i++;
  209. }
  210. return .@count;
  211. }
  212. /*
  213. prontera,156,184,5 script kjdshfksfjh 100,{
  214. // input .@min, -1000000000, 1000000000;
  215. // input .@max, -1000000000, 1000000000;
  216. .@min = 1;
  217. .@max = 5;
  218. callfunc "shuffle__", .@min, .@max, .@output$, 100;
  219. dispbottom implode( .@output$, "," );
  220. }
  221. */
  222.  
  223. //------------------------------ Quit AFK --------------------------------------------------
  224. //----------------------------------------------------------------------------------------
  225. - script afk_script -1,{
  226. // Config
  227. OnInit:
  228. .sleeploop = 2000; // every 1 second
  229. .afk = 4; // loop 180 times of 1 second = 3 minutes to execute
  230. setarray .@map$,
  231. "florian", "bat_c01", "guild_vs3"; // battlegrounds
  232.  
  233. .@size = getarraysize( .@map$ );
  234. for ( .@i = 0; .@i < .@size; .@i++ )
  235. setmapflag .@map$[.@i], mf_loadevent;
  236. .Map$ = ":"+ implode( .@map$, ":" ) +":";
  237. .idle = .sleeploop * .afk / 1000;
  238. end;
  239.  
  240. // what to do when triggered
  241. L_trigger:
  242. // dispbottom "Você está AFK"+ .idle +" segudos";
  243. if ( getcharid(4) )
  244. bg_leave;
  245. warp "SavePoint", 0,0;
  246. end;
  247.  
  248. // function
  249. OnPCLoadMapEvent:
  250. while ( true ) {
  251. if ( compare( .Map$, ":"+ strcharinfo(3) +":" ) ) {
  252. if ( checkidle() >= .idle )
  253. goto L_trigger;
  254. // dispbottom "Você está AFK "+ checkidle() +" segundos";
  255. sleep2 .sleeploop;
  256. }
  257. else
  258. break;
  259. }
  260. end;
  261. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!