API tools faq
paste
Advertisement
icabit

request

icabit
Jan 25th, 2013
208
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.52 KB | None | 0 0
raw download clone embed print report
  1. prontera,155,171,5 script GM Online Lists 436,{
  2.  
  3. set .activecount,0;
  4.  
  5. for( set .@i,0; .@i < 128 ; set .@i,.@i + 1 ){
  6. if ($GM_Name$[.@i]=="none"){}else{set .activecount,.activecount+1;}
  7. }
  8. sleep2 100;//anti infinity loop
  9. set .afkcount,0;
  10. for( set .@i,0; .@i < 128 ; set .@i,.@i + 1 ){
  11. if ($atmode$[.@i]=="none"){}else{set .afkcount,.afkcount+1;}
  12. }
  13. mes "Staffs Online Lists : ^FF0000"+.activecount+"^000000 Active Staffs";
  14. mes "Staffs Online Lists : ^FF0000"+.afkcount+"^000000 Afk/Vending Staffs";
  15. mes "^0000FF_____________________________^000000";
  16. for( set .@i,0; .@i < 128 ; set .@i,.@i + 1 ){
  17. if($GM_Name$[.@i]=="none"){}
  18. else{
  19. getmapxy( .Map$,.x,.y,0,$GM_Name$[.@i] );
  20. mes "[ Lv ^63D1F4"+$GM_Level$[.@i]+"^000000 ] ^FF0000@ ^0000FF"+$GM_Name$[.@i]+"^000000";
  21. mes "Location : ^0000FF"+.Map$+"^000000";
  22. mes "Status : ^0000FFActive^000000";
  23. mes "^0000FF_____________________________^000000";
  24. }
  25.  
  26. }
  27. for( set .@i,0; .@i < 128 ; set .@i,.@i + 1 ){
  28. if($atmode$[.@i]=="none")
  29. {
  30. }
  31. else
  32. {
  33. mes "[ Lv ^63D1F4"+$atmodelvl$[.@i]+"^000000 ] ^FF0000@ ^0000FF"+$atmode$[.@i]+"^000000";
  34. mes "Location : ^0000FF"+$atmodearea$[.@i]+"^000000";
  35. mes "Status : ^0000FFAFK/Vending^000000";
  36. mes "^0000FF_____________________________^000000";
  37. }
  38. }
  39. close;
  40.  
  41. OnInit:
  42. setarray $atmode$[0],"none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none";
  43. setarray $atmodearea$[0],"none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none";
  44. setarray $atmodelvl$[0],"none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none";
  45. setarray $GM_Name$[0],"none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none";
  46. setarray $GM_Level$[0],"none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none","none";
  47. for( set .@i,0; .@i < 128 ; set .@i,.@i + 1 ){
  48. set $atmode$[.@i],"none";
  49. set $atmodearea$[.@i],"none";
  50. set $atmodelvl$[.@i],"none";
  51. set $GM_Name$[.@i],"none";
  52. set $GM_Level$[.@i],"none";
  53. }
  54. set .MinGMLevel,60; // Min. GM Level to Show in Online Lists
  55. end;
  56.  
  57. OnPCLoginEvent:
  58. if( getgmlevel() < .MinGMLevel ) end;
  59. if (atmode==1)
  60. {
  61. for( set .@i,0; .@i < 128 ; set .@i,.@i + 1 ){
  62. if ($atmode$[.@i]==strcharinfo(0))
  63. {
  64. set $atmode$[.@i],"none";
  65. break;
  66. }
  67. }
  68. }
  69. sleep2 100;//anti infinity loop incase it will trigger the condition above
  70. for( set .@i,0; .@i < 128 ; set .@i,.@i + 1 ){
  71. if ($GM_Name$[.@i]=="none")
  72. {
  73. set $GM_Name$[.@i],strcharinfo(0);
  74. set $GM_Level$[.@i],getgmlevel();
  75. set atmode,0;
  76. break;
  77. }
  78. }
  79. end;
  80.  
  81. OnPCLogoutEvent:
  82. if (atmode==1) end;
  83. if( getgmlevel() < .MinGMLevel ) end;
  84. for( set .@i,0; .@i < 128 ; set .@i,.@i + 1 ){
  85. if( strcharinfo(0) == $GM_Name$[.@i] ) {
  86. set $GM_Name$[.@i],"none";
  87. set $GM_Level$[.@i],"none";
  88. break;
  89. }
  90. }
  91. end;
  92. }
  93.  
  94. - script atmode -1,{
  95. OnWhisperGlobal:
  96.  
  97. OnInit:
  98. if( getgmlevel() < .MinGMLevel ) end;
  99. mes "logout with autotrade and update Gm-status AFK-Vending";
  100. switch(select("No:Yes")){
  101. case 1: close;
  102. case 2:
  103. for( set .@i,0; .@i < 128 ; set .@i,.@i + 1 ){
  104. if( strcharinfo(0) == $GM_Name$[.@i] ) {
  105. set $GM_Name$[.@i],"none";
  106. set $GM_Level$[.@i],"none";
  107. break;
  108. }
  109. }
  110. sleep2 100;//anti infinity loop
  111. for( set .@i,0; .@i < 128 ; set .@i,.@i + 1 ){
  112. if ($atmode$[.@i]=="none"){
  113. set $atmode$[.@i],strcharinfo(0);
  114. set $atmodearea$[.@i],strcharinfo(3);
  115. set $atmodelvl$[.@i],getgmlevel();
  116. set atmode,1;
  117. atcommand "@at";
  118. break;
  119. }
  120. }
  121. }
  122. end;
  123. }
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!