API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 18th, 2017
95
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 183.18 KB | None | 0 0
raw download clone embed print report
  1. ;
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;;;;;;;;;; CS 1.6 Gatherbot By Ventox ;;;;;;;;;;
  4. ;;;;;;;;;;;;;; VERSION <8.3> ;;;;;;;;;;;;;;;;;;;;
  5. ;;;;;;;;;;;; Please keep the credit ;;;;;;;;;;;;;;;
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7. ;
  8.  
  9.  
  10. on *:TEXT:*:*: {
  11. if (!%Gather.Today) { Set %Gather.Today 0 }
  12. if ($gettok(%Gather.LastStarted,3,32) !== $date) && (%Gather.Status == OFF) && (%Gather.LastReset !== $date) { Reset-Today }
  13. if ($gettok(%Gather.Started,3,32) !== $date) && (%Gather.Status !== OFF) && (%Gather.LastReset !== $date) { Reset-Today }
  14. if ($target ischan) && (%Gather.Channel == $target) {
  15. if ( ($1- == %Gather.Sign $+ Admins) || ($1- == ?Admins) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Gather Show Admin }
  16. elseif ($1- == %Gather.Sign $+ Uptime) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | ShowUptime }
  17. elseif ( ($1- == %Gather.Sign $+ Masters) || ($1- == ?Masters) ) && ($read(Access.ini, w, * $+ $address)) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Gather Show Master }
  18. elseif ( ($1- == %Gather.Sign $+ Owners) || ($1- == ?Owners) ) && ($read(Access.ini, w, * $+ $address)) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Gather Show Owner }
  19. elseif ( ($1- == %Gather.Sign $+ Managers) || ($1- == ?Managers) ) && ($read(Access.ini, w, * $+ $address)) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Gather Show Manager }
  20. elseif ( ($1- == %Gather.Sign $+ Total) || ($1- == ?Total) || ($1- == %Gather.Sign $+ Users) || ($1- == ?Users) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Gather Total }
  21. elseif ($1- == %Gather.Sign $+ Weapons) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | ShowWeapons }
  22. elseif ($1- == %Gather.Sign $+ Vent) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | Vent }
  23. elseif ( ($1- == %Gather.Sign $+ Gathers) || ($1- == ?Gathers) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | TotalGathers }
  24. elseif ( ($1- == %Gather.Sign $+ Today) || ($1- == ?Today) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | TotalToday }
  25. elseif ($1- == %Gather.Sign $+ Last) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Last }
  26. elseif ($1- == %Gather.Sign $+ Map) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | Map }
  27. elseif ($1- == %Gather.Sign $+ Sub) {
  28. if (%Gather.Status == OFF) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | Gather Status-OFF }
  29. elseif (%Gather.Status == ON) {
  30. if (%Gather.Sub) && (!$istok(%Gather.Address,$address,32)) && (!$istok(%Gather.Players,$nick,32)) && (!$istok(%Gather.Team-A,$nick,32)) && (!$istok(%Gather.Team-B,$nick,32)) && (!$istok(%Gather.Subs,$nick,32)) { FoundSub $nick $address }
  31. elseif (!%Gather.Sub) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | SubNotNeed }
  32. }
  33. }
  34. elseif ( ($1- == %Gather.Sign $+ Commands) || ($1- == %Gather.Sign $+ Cmd) || ($1- == %Gather.Sign $+ Cmds) || ($1- == %Gather.Sign $+ Help) || ($1- == %Gather.Sign $+ Command) ) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | Commands }
  35. elseif ($1- == %Gather.Sign $+ Admin) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | Admin }
  36. elseif ($1- == %Gather.Sign $+ Score) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | ShowScore }
  37. elseif ( ($1 == %Gather.Sign $+ Reason) || ($1 == %Gather.Sign $+ Dban) || ($1 == %Gather.Sign $+ RBAN) || ($1 == %Gather.Sign $+ reason-ban) ) && (!%Gather.Flood) && ($2) { Set -u5 %Gather.Flood ON | ShowReason $2 }
  38. elseif ( ($1 == %Gather.Sign $+ Whois) || ($1 == %Gather.Sign $+ Who) || ($1 == %Gather.sign $+ Info) || ($1 == %Gather.Sign $+ W) ) && (!%Gather.Flood) && ($2) { Set -u8 %Gather.Flood ON | ShowWhois $2 }
  39. elseif ( ($1- == %Gather.Sign $+ Rank-Commands) || ($1- == %Gather.Sign $+ Rank-Command) || ($1- == %Gather.Sign $+ RankCommands) || ($1- == %Gather.Sign $+ Tops) || ($1- == %Gather.Sign $+ Ranks) || ($1- == %Gather.Sign $+ Rank-cmds) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | Rank-Commands }
  40. elseif ( ($1 == %Gather.Sign $+ Gathers) || ($1 == %Gather.Sign $+ Played) ) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | ShowGathers $2 }
  41. elseif ( ($1 == %Gather.Sign $+ Today) || ($1 == %Gather.Sign $+ GathersToday) ) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) { Set -u5 %Gather.Flood ON | ShowGathersToday $2 }
  42. elseif ($1 == %Gather.Sign $+ Rank) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) && ($2 !isnum) && ($gettok($2,1,35) !isnum) && ($chr(35) $+ * !iswm $2) { ShowRank $2 }
  43. elseif ( ($1 == %Gather.Sign $+ Mvp) || ($1 == %Gather.Sign $+ Mvps) ) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) { ShowMvps $2 }
  44. elseif ($1 == %Gather.Sign $+ Rank) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) && ($2 isnum) { Top Rank $2 }
  45. elseif ($1 == %Gather.Sign $+ Rank) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) && ($gettok($2,1,35) isnum) && ($chr(35) $+ * iswm $2) { Top Rank $gettok($2,1,35) }
  46. elseif ( ($1- == %Gather.Sign $+ Top-Players) || ($1- == %Gather.Sign $+ TopPlayers) || ($1- == %Gather.Sign $+ Toplayers) || ($1-2 == %Gather.Sign $+ Top Players) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Players }
  47. elseif ( ($1- == %Gather.Sign $+ Top-rank) || ($1- == %Gather.Sign $+ Toprank) || ($1- == %Gather.Sign $+ Torank) || ($1-2 == %Gather.Sign $+ Top rank) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Players }
  48. elseif ( ($1- == %Gather.Sign $+ Top-Admins) || ($1- == %Gather.Sign $+ TopAdmins) || ($1-2 == %Gather.Sign $+ Top Admins) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Admins }
  49. elseif ( ($1- == %Gather.Sign $+ Top-Runners) || ($1- == %Gather.Sign $+ TopRunners) || ($1-2 == %Gather.Sign $+ Top Runners) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Admins }
  50. elseif ( ($1- == %Gather.Sign $+ Top-Mvps) || ($1- == %Gather.Sign $+ TopMvps) || ($1-2 == %Gather.Sign $+ Top Mvps) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Mvps }
  51. elseif ( ($1- == %Gather.Sign $+ Top-Mvp) || ($1- == %Gather.Sign $+ TopMvp) || ($1-2 == %Gather.Sign $+ Top Mvp) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Mvps }
  52. elseif ( ($1- == %Gather.Sign $+ Top-Tks) || ($1- == %Gather.Sign $+ TopTks) || ($1-2 == %Gather.Sign $+ Top Tks) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Tks }
  53. elseif ( ($1- == %Gather.Sign $+ Top-Nabs) || ($1- == %Gather.Sign $+ TopNabs) || ($1-2 == %Gather.Sign $+ Top Nabs) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Nabs }
  54. elseif ( ($1- == %Gather.Sign $+ Top-Noobs) || ($1- == %Gather.Sign $+ TopNoobs) || ($1-2 == %Gather.Sign $+ Top Noobs) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Nabs }
  55. elseif ( ($1- == %Gather.Sign $+ Top-Nubs) || ($1- == %Gather.Sign $+ TopNubs) || ($1-2 == %Gather.Sign $+ Top Nubs) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Nabs }
  56. elseif ( ($1- == %Gather.Sign $+ Top-10) || ($1- == %Gather.Sign $+ Top10) || ($1-2 == %Gather.Sign $+ Top 10) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top 10 }
  57. elseif ( ($1- == %Gather.Sign $+ Top-Killers) || ($1- == %Gather.Sign $+ TopKillers) || ($1-2 == %Gather.Sign $+ Top Killers) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Killers }
  58. elseif ( ($1- == %Gather.Sign $+ Top-Mini) || ($1- == %Gather.Sign $+ TopMini) || ($1-2 == %Gather.Sign $+ Top Mini) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top MiniAces }
  59. elseif ( ($1- == %Gather.Sign $+ Top-MiniAce) || ($1- == %Gather.Sign $+ TopMiniAce) || ($1-2 == %Gather.Sign $+ Top MiniAce) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top MiniAces }
  60. elseif ( ($1- == %Gather.Sign $+ Top-MiniAces) || ($1- == %Gather.Sign $+ TopMiniAces) || ($1-2 == %Gather.Sign $+ Top MiniAces) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top MiniAces }
  61. elseif ( ($1- == %Gather.Sign $+ Top-Deaths) || ($1- == %Gather.Sign $+ TopDeaths) || ($1-2 == %Gather.Sign $+ Top Deaths) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Deaths }
  62. elseif ( ($1- == %Gather.Sign $+ Top-Played) || ($1- == %Gather.Sign $+ TopPlayed) || ($1-2 == %Gather.Sign $+ Top Played) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Played }
  63. elseif ( ($1- == %Gather.Sign $+ Top-Planters) || ($1- == %Gather.Sign $+ TopPlanters) || ($1-2 == %Gather.Sign $+ Top Planters) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Planters }
  64. elseif ( ($1- == %Gather.Sign $+ Top-Defusers) || ($1- == %Gather.Sign $+ TopDefusers) || ($1-2 == %Gather.Sign $+ Top Defusers) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Defusers }
  65. elseif ( ($1- == %Gather.Sign $+ Top-Today) || ($1- == %Gather.Sign $+ TopToday) || ($1-2 == %Gather.Sign $+ Top Today) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Today }
  66. elseif ( ($1- == %Gather.Sign $+ Top-Acers) || ($1- == %Gather.Sign $+ TopAcers) || ($1-2 == %Gather.Sign $+ Top Acers) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Acers }
  67. elseif ( ($1- == %Gather.Sign $+ Top-Aces) || ($1- == %Gather.Sign $+ TopAces) || ($1-2 == %Gather.Sign $+ Top Aces) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Acers }
  68. elseif ( ($1- == %Gather.Sign $+ Top-Ace) || ($1- == %Gather.Sign $+ TopAce) || ($1-2 == %Gather.Sign $+ Top Ace) ) && (!%Gather.Flood) && (%Gather.Status !== Adding) && (!%Gather.Sub) { Top Acers }
  69. elseif ($1 == %Gather.Sign $+ Top) && (!%Gather.Flood) && (%Gather.Status !== Adding) && ($istok($weapons,$2,32)) && (!%Gather.Sub) { Top Weapon $2 }
  70. elseif (%Gather.Sign $+ Top-* iswm $1) && (!%Gather.Flood) && (%Gather.Status !== Adding) && ($istok($weapons,$gettok($1,2,$asc(-)),32)) && (!%Gather.Sub) { Top Weapon $gettok($1,2,$asc(-)) }
  71. if (%Gather.Sign $+ Top* iswm $1) && (!%Gather.Flood) && (%Gather.Status !== Adding) && ($istok($weapons,$remove($1,%Gather.Sign $+ Top),32)) && (!%Gather.Sub) { Top Weapon $remove($1,%Gather.Sign $+ Top) } | getsub $1
  72. if ($1 == %Gather.Sign $+ Stats) && (!%Gather.Flood) && ($2) && (%Gather.Status !== Adding) && (!%Gather.Sub) { ShowStats $2 }
  73. if ( ($1- == %Gather.Sign $+ Banned) || ($1- == %Gather.Sign $+ Bans) || ($1- == %Gather.Sign $+ Banlist) ) && (!%Gather.Flood) && (!%Gather.Sub) { Set -u12 %Gather.Flood ON | ShowBans }
  74. if ( ($1- == %Gather.Sign $+ Ignored) || ($1- == %Gather.Sign $+ Ignores) || ($1- == %Gather.Sign $+ Ignorelist) ) && (!%Gather.Flood) && (!%Gather.Sub) { Set -u12 %Gather.Flood ON | ShowIgnores }
  75. if ( ($1- == %Gather.Sign $+ Server) || ($1- == %Gather.Sign $+ Ip) || ($1- == ?Server) || ($1- == ?Ip) ) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | unset %Gather.Players-list | unset %Number | rcmd users | hl %Gather.Server | ShowServer }
  76. if ($1- == %Gather.Sign $+ Teams) && (!%Gather.Flood) {
  77. Set -u5 %Gather.Flood ON
  78. if (%Gather.Status == ON) { Teams }
  79. elseif (%Gather.Status == Adding) && (%Gather.Mixing == OFF) { Players-NO-MIX }
  80. elseif (%Gather.Status == OFF) { Gather Status-OFF }
  81. }
  82. if ( ($1- == %Gather.Sign $+ Status) || ($1- == ?Status) ) && (!%Gather.Flood) {
  83. if (%Gather.Status == OFF) { Set -u5 %Gather.Flood ON | Gather Status-OFF }
  84. if (%Gather.Status == Adding) { Set -u5 %Gather.Flood ON | Gather Status-Adding }
  85. if (%Gather.Status == ON) { Set -u5 %Gather.Flood ON | Gather Status-ON }
  86. }
  87. if ($1- == %Gather.Sign $+ Players) && (!%Gather.Flood) {
  88. if (%Gather.Status == OFF) { Set -u5 %Gather.Flood ON | Gather Status-OFF }
  89. if (%Gather.Status == Adding) { Set -u5 %Gather.Flood ON | $iif(%Gather.Mixing !== OFF,Players,Players-no-mix) }
  90. if (%Gather.Status == ON) { Set -u5 %Gather.Flood ON | Teams }
  91. }
  92. if ($1 == %Gather.Sign $+ Add) || ($1 == %Gather.Sign $+ Addme) {
  93. if (%Gather.Status == OFF) && (!%Gather.Flood) && (!$2) { Set -u5 %Gather.Flood ON | Gather Status-OFF }
  94. elseif (!$2) && (%Gather.Status == ON) && (!%Gather.Flood) { Set -u4 %Gather.Flood ON | ShowAlready }
  95. elseif ($2) && ( ($2 == A) || ($2 == B) ) && (%Gather.Status == Adding) && (!$istok(%Gather.Address,$address,32)) && (!$istok(%Gather.Team-A,$nick,32)) && (!$istok(%Gather.Team-B,$nick,32)) && (%Gather.admin !== $nick) && (%Gather.Mixing == OFF) { Add $address $nick $2 }
  96. elseif (!$2) && (%Gather.Status == Adding) && (!$istok(%Gather.Address,$address,32)) && (!$istok(%Gather.Team-A,$nick,32)) && (!$istok(%Gather.Team-B,$nick,32)) && (%Gather.admin !== $nick) && (!$Istok(%Gather.Players,$nick,32)) { Add $address $nick }
  97. }
  98. if ( ($1- == %Gather.Sign $+ Move) || ($1- == %Gather.Sign $+ Moveme) ) && (%Gather.Status == Adding) && (%Gather.Mixing !== ON) && (!%Gather.Flood) && ($istok(%Gather.Address,$address,32)) {
  99. if ($istok(%Gather.Team-A,$nick,32)) { Set %Gather.Team-A $remtok(%Gather.Team-A,$nick,32) | Set %Gather.Team-B $addtok(%Gather.Team-B,$nick,32) | Set -u2 %Gather.Flood ON }
  100. elseif ($istok(%Gather.Team-B,$nick,32)) { Set %Gather.Team-B $remtok(%Gather.Team-B,$nick,32) | Set %Gather.Team-A $addtok(%Gather.Team-A,$nick,32) | Set -u2 %Gather.Flood ON }
  101. }
  102. if ($1- == %Gather.Sign $+ Remove) || ($1- == %Gather.Sign $+ Removeme) || ($1- == %Gather.Sign $+ del) {
  103. if (%Gather.Status == OFF) && (!%Gather.Flood) { Set -u5 %Gather.Flood ON | Gather Status-OFF }
  104. elseif (%Gather.Status == Adding) && ($nick !== %Gather.Admin) && ($Istok(%Gather.Address,$address,32)) {
  105. if ($Istok(%Gather.Players,$nick,32)) && (%Gather.Mixing !== OFF) { Remover $address $nick }
  106. elseif (%Gather.Mixing == OFF) && ( ($Istok(%Gather.Team-A,$nick,32)) || ($Istok(%Gather.Team-B,$nick,32)) ) { Remover $address $nick }
  107. }
  108. }
  109. if ($Users($address,Manager).logged?) || ($Users($address,Owner).logged?) || ($Users($address,Master).logged?) || ($Users($address,Admin).logged?) {
  110. var %o = $ifmatch
  111. if ($1 == %Gather.Sign $+ Start) && ($2) && (%Gather.VentStatus == On) && (!$3) { StartGather $address %o $nick $2 }
  112. if ($1 == %Gather.Sign $+ Map) && ($2) && (%Gather.Status !== OFF) { ChangeMap $2 $nick }
  113. elseif ($1 == %Gather.Sign $+ Logout) || ($1 == %Gather.Sign $+ Logoff) { msg $nick $stl(You have been disconnected from $+ %Gather.Color2 $readini(Access.ini,%o,ACC) %Gather.Color1 $+ account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 $remove($1,%Gather.Sign)) | .writeini -n Access.ini %o Status OFF | .remini -n Access.ini %o Logged }
  114. elseif ($1 == %Gather.Sign $+ Ban) && ($2) { AddBan $2 %o $iif($3-,$3-,no reason) }
  115. elseif ($1 == %Gather.Sign $+ Unban) && ($2) { Unban $2 %o }
  116. elseif ($1 == %Gather.Sign $+ Sub) && ($2) && ( ($2 == A) || ($2 == B) || ($2 == OFF) ) && (%Gather.Status == ON) { SubSearch $2 $nick }
  117. elseif ($1- == %Gather.Sign $+ Sub-A) && (%Gather.Status == ON) { SubSearch A }
  118. elseif ($1- == %Gather.Sign $+ Sub-B) && (%Gather.Status == ON) { SubSearch B }
  119. elseif ($1- == %Gather.Sign $+ Sub-OFF) && (%Gather.Status == ON) { SubSearch OFF $nick }
  120. elseif ($1- == %Gather.Sign $+ SubA) && (%Gather.Status == ON) { SubSearch A }
  121. elseif ($1- == %Gather.Sign $+ SubB) && (%Gather.Status == ON) { SubSearch B }
  122. elseif ($1- == %Gather.Sign $+ SubOFF) && (%Gather.Status == ON) { SubSearch OFF $nick }
  123. elseif ( ($1 == %Gather.Sign $+ Notice) || ($1 == %Gather.Sign $+ N) ) { Noticer $iif($2-,$2-) }
  124. elseif ($1 == %Gather.Sign $+ End) || ($1 == %Gather.Sign $+ Stop) {
  125. if (%Gather.Status == ON) { EndGather $nick }
  126. elseif (%Gather.Status == Adding) { StopGather $nick $2- }
  127. }
  128. elseif ($1 == %Gather.Sign $+ Ignore) && ($2) { .ignore $2 | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $2 %Gather.Color1 $+ Successfuly ignored by $+ %Gather.Color2 $nick) }
  129. elseif ($1 == %Gather.Sign $+ unIgnore) && ($2) { .ignore -r $2 | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $2 %Gather.Color1 $+ Successfuly removed from ignorelist by $+ %Gather.Color2 $nick) }
  130. elseif ( ($1- == %Gather.Sign $+ ClearIgnores) || ($1- == %Gather.Sign $+ ResetIgnores) ) && ($Users($address,Admin).logged?) { msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $nick %Gather.Color1 $+ You are not allowed to ClearIgnores ( $+ %Gather.color2 $+  $+ $1 $+ %Gather.Color1 $+ )) }
  131. if ($Users($address,Owner).logged?) || ($Users($address,Master).logged?) {
  132. if ($1- == %Gather.Sign $+ ClearIgnores) || ($1- == %Gather.Sign $+ ResetIgnores) { .ignore -r | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ Ignore list %Gather.Color1 $+ Successfuly cleared by $+ %Gather.Color2 $nick) }
  133. }
  134. if ($Users($Address,Owner).logged?) || ($Users($Address,Owner).logged?) || ($Users($address,Manager).logged?) {
  135. if ($1- == %Gather.Sign $+ Rates) { Rates }
  136. }
  137. if ($Users($Address,Owner).logged?) || ($Users($address,Manager).logged?) {
  138. if ($1 == %Gather.Sign $+ Refresh) && ( ($2 == gatherbot) || ($2 == gbot) || ($2 == bot) ) { msg %Gather.Channel $stl(Refreshing Gatherbot by $+ %Gather.color2 $nick %Gather.Color1 $+ Please wait ... (3 secs)) | RCONclose | .timer 1 2 RCONstart | unset %Gather.Flood | unset %Gather.FloodStart | .timer 1 3 msg %Gather.Channel $stl(Gatherbot successfully refreshed by $+ %Gather.Color2 $nick) }
  139. if ($1 == %Gather.Sign $+ Refresh) && ( ($2 == mirc) || (!$2) ) { Set %Gather.Reconnecting $nick | msg %Gather.Channel $stl(Reconnecting from the server ( $+ %Gather.Color2 $+ few seconds $+ %Gather.Color1 $+ ) Please wait ...) | quit | .timer -o 1 2 server }
  140. }
  141. if ($Users($address,Manager).logged?) {
  142. if ($1- == %Gather.Sign $+ Unbanall) { unbanall }
  143. }
  144. }
  145. }
  146. if ($target !ischan) {
  147. if ( ($1 == %Gather.Sign-PM $+ Login) || ($1 == %Gather.Sign-PM $+ Auth) ) && ($readini(Access.ini,$2,Pass) == $3) && (!$read(Access.ini, w, * $+ $address)) && ($3) {
  148. if (%Gather.TAG) && (%Gather.TAG !isin $nick) { msg $nick $stl(You must to be with the tag $+ %Gather.Color2 %Gather.TAG %Gather.Color1 $+ for login.) | halt }
  149. if ($nick !ison %Gather.Channel) { msg $nick $stl(You must be on the channel $+ %Gather.Color2 %Gather.Channel %Gather.Color1 $+ for login.) | halt }
  150. if (%Gather.logchannel) && ($nick !ison %Gather.logchannel) { msg $nick $stl(You must be on the channel $+ %Gather.Color2 %Gather.LogChannel %Gather.Color1 $+ for login.) | halt }
  151. .writeini -n Access.ini $2 Logged $address | whois $nick | Set -u3 %Gather.Flood ON
  152. .writeini -n Access.ini $2 Status ON
  153. .writeini -n Access.ini $2 LastLogin $date $+ - $+ $asctime(HH:nn)
  154. if (%Gather.logchannel) mode %Gather.logchannel +v $nick
  155. mode %Gather.channel +v $nick
  156. msg $nick $stl(You Have been Connected to $Upper($readini(Access.ini,$2,ACC)) Account. ( $+ %Gather.Color2 $+  $+ $2 $+ %Gather.Color1 $+ ))
  157. msg $iif(%Gather.Logchannel,$v1,%Gather.Channel) $stl(%Gather.Color2 $+  $+ $nick %Gather.Color1 $+ Has been Connected to $Upper($readini(Access.ini,$2,ACC)) Account. ( $+ %Gather.Color2 $+  $+ $2 $+ %Gather.Color1 $+ ))
  158. }
  159. if ($Users($address,Manager).logged?) || ($Users($address,Owner).logged?) || ($Users($address,Master).logged?) || ($Users($address,Admin).logged?) {
  160. var %o = $ifmatch
  161. if ($1- == %Gather.Sign-PM $+ Logout) || ($1- == %Gather.Sign $+ Logoff) { msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $nick %Gather.Color1 $+ Has been Disconnected from $+ %Gather.Color2 $readini(Access.ini,%o,ACC) %Gather.Color1 $+ account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 $remove($1,%Gather.Sign-PM)) | msg $nick $stl(You Have been disconnected from $+ %Gather.Color2 $readini(Access.ini,%o,ACC) %Gather.Color1 $+ account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 $remove($1,%Gather.Sign-PM)) | .writeini -n Access.ini %o Status OFF | .remini -n Access.ini %o Logged }
  162. if ($1 == %Gather.Sign-PM $+ Ban) && ($2) { AddBan $2 %o $iif($3-,$3-,no reason) }
  163. if ($1 == %Gather.Sign-PM $+ Unban) && ($2) { Unban $2 %o }
  164. if ($1 == %Gather.Sign-PM $+ Sub) && ($2) && ( ($2 == A) || ($2 == B) || ($2 == OFF) ) && (%Gather.Status == ON) { SubSearch $2 $nick }
  165. if ($1- == %Gather.Sign-PM $+ Sub-A) && (%Gather.Status == ON) { SubSearch A }
  166. if ($1- == %Gather.Sign-PM $+ Sub-B) && (%Gather.Status == ON) { SubSearch B }
  167. if ($1- == %Gather.Sign-PM $+ Sub-OFF) && (%Gather.Status == ON) { SubSearch OFF $nick }
  168. if ($1- == %Gather.Sign-PM $+ SubA) && (%Gather.Status == ON) { SubSearch A }
  169. if ($1- == %Gather.Sign-PM $+ SubB) && (%Gather.Status == ON) { SubSearch B }
  170. if ($1- == %Gather.Sign-PM $+ SubOFF) && (%Gather.Status == ON) { SubSearch OFF $nick }
  171. if ($1 == %Gather.Sign $+ Ignore) && ($2) { .ignore $2 | msg $nick $stl(%Gather.Color2 $+  $+ $2 %Gather.Color1 $+ Successfuly ignored by $+ %Gather.Color2 $nick) }
  172. if ($1 == %Gather.Sign $+ unIgnore) && ($2) { .ignore -r $2 | msg $nick $stl(%Gather.Color2 $+  $+ $2 %Gather.Color1 $+ Successfuly removed from ignorelist by $+ %Gather.Color2 $nick) }
  173. if ( ($1- == %Gather.Sign $+ ClearIgnores) || ($1- == %Gather.Sign $+ ResetIgnores) ) && ($Users($address,Admin).logged?) { msg $Nick $stl(%Gather.Color2 $+  $+ $nick %Gather.Color1 $+ You are not allowed to ClearIgnores ( $+ %Gather.color2 $+  $+ $1 $+ %Gather.Color1 $+ )) }
  174. if ($1 == %Gather.Sign-PM $+ Start) && ($2) {
  175. if (%Gather.VentStatus != On) && ($5) { StartGather $address %o $nick $2- }
  176. elseif (%Gather.VentStatus == On) { StartGather $address %o $nick $2- }
  177. }
  178. if ( ($1 == %Gather.Sign-PM $+ NewPass) || ($1 == %Gather.Sign-PM $+ EditPass) || ($1 == %Gather.Sign-PM $+ EditPassword) || ($1 == %Gather.Sign-PM $+ ChangePass) || ($1 == %Gather.Sign-PM $+ NewPassword) || ($1 == %Gather.Sign-PM $+ ChangePassword) ) && ($2) { msg $nick $stl(Your %Gather.Color2 $+ Login Password $+ %Gather.Color1 Has been Changed to $+ %Gather.Color2 $2 ( $+ %Gather.Color1 $+ Login command: %Gather.Sign-PM $+ Login %o %Gather.Color2 $+  $+ $2 $+ )) | .writeini -n Access.ini %o Pass $2 }
  179. if ( ($1 == %Gather.Sign-PM $+ NewSteam) || ($1 == %Gather.Sign-PM $+ EditSteam) || ($1 == %Gather.Sign-PM $+ EditSteamID) || ($1 == %Gather.Sign-PM $+ ChangeSteam) || ($1 == %Gather.Sign-PM $+ NewSteamID) || ($1 == %Gather.Sign-PM $+ ChangeSteamID) ) && ($2) && (STEAM_* iswm $2) { msg $nick $stl(Your %Gather.Color2 $+ Steam ID $+ %Gather.Color1 Has been Changed to $+ %Gather.Color2 $2 $+ ) | .writeini -n Access.ini %o SteamID $2 }
  180. if ( ($1- == %Gather.Sign-PM $+ Info) || ($1- == %Gather.Sign-PM $+ Whois) || ($1- == %Gather.Sign-PM $+ Who) || ($1- == %Gather.Sign-PM $+ Whoami) || ($1- == %Gather.Sign-PM $+ WhoIam) ) {
  181. msg $nick $stl(User Level: $+ %Gather.Color2 $ACC(%o).LVL %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Username: $+ %Gather.Color2 $ACC(%o).ACC %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Password: $+ %Gather.Color2 $ACC(%o).PASS %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 STEAM_ID: $+ %Gather.Color2 $ACC(%o).Steam %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Gathers: $+ %Gather.Color2 $ACC(%o).Gathers %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Added By: $+ %Gather.Color2 $ACC(%o).BY %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Since: $+ %Gather.Color2 $ACC(%o).Since %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 LastLogin: $+ %Gather.Color2 $ACC(%o).LastLogin )
  182. }
  183. if ( ($1 == %Gather.Sign-PM $+ Notice) || ($1 == %Gather.Sign-PM $+ N) ) { Noticer $iif($2-,$2-) }
  184. if ($1 == %Gather.Sign-PM $+ End) || ($1 == %Gather.Sign-PM $+ Stop) {
  185. if (%Gather.Status == ON) { EndGather $nick }
  186. elseif (%Gather.Status == Adding) { StopGather $nick $2- }
  187. }
  188. }
  189. if ($Users($address,Owner).logged?) || ($Users($address,Master).logged?) || ($Users($address,Manager).logged?) {
  190. var %o = $ifmatch
  191. if ($1- == %Gather.Sign $+ ClearIgnores) || ($1- == %Gather.Sign $+ ResetIgnores) { .ignore -r | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ Ignore list %Gather.Color1 $+ Successfuly cleared by $+ %Gather.Color2 $nick) }
  192. if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Admin) {
  193. if (!$5) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign-PM $+ Set Admin %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ pass $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ steam_id $+ %Gather.Color1 $+ >) }
  194. else { Adduser $3 $4 $5 $2 $nick %o }
  195. }
  196. if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Unadmin) {
  197. if (!$3) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign $+ Set unadmin %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ >) }
  198. else { Unuser $3 admin $nick }
  199. }
  200. if ($1- == %Gather.Sign-PM $+ Rates) { Rates | msg $nick $stl(Fixing Rates Server.) }
  201. if ($1 == %Gather.Sign-PM $+ ResetPlayer) || ($1 == %Gather.Sign-PM $+ Reset-Player) {
  202. if (!$2) { .msg $nick $stl(The syntax is: $1 < $+ %Gather.Color2 $+ NICK $+ %Gather.Color1 $+ / $+ %Gather.Color2 $+ STEAM:ID $+ %Gather.Color1 $+ >) }
  203. elseif ($Stats($2).exists) { var %STEAM = $Stats($2).STEAM | Var %NICK = $Stats($2).Nick | msg $nick $stl(%NICK ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) successfully restarted.) | .remini -n Stats.ini %STEAM | .writeini -n Stats.ini %STEAM Nick %NICK | .writeini -n Stats.ini %STEAM Points %Gather.Points }
  204. else { msg $nick $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ )) }
  205. }
  206. if ($1 == %Gather.Sign-PM $+ DelPlayer) || ($1 == %Gather.Sign-PM $+ DelPlayer) || ($1 == %Gather.Sign-PM $+ RemPlayer) || ($1 == %Gather.Sign-PM $+ RemPlayer) || ($1 == %Gather.Sign-PM $+ UnPlayer) || ($1 == %Gather.Sign-PM $+ UnPlayer) {
  207. if (!$2) { .msg $nick $stl(The syntax is: $1 < $+ %Gather.Color2 $+ NICK $+ %Gather.Color1 $+ / $+ %Gather.Color2 $+ STEAM:ID $+ %Gather.Color1 $+ >) }
  208. elseif ($Stats($2).exists) { var %STEAM = $Stats($2).STEAM | Var %NICK = $Stats($2).Nick | msg $nick $stl(%NICK ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) successfully deleted.) | .remini -n Stats.ini %STEAM }
  209. else { msg $nick $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ )) }
  210. }
  211. if ($1 == %Gather.Sign-PM $+ Del-A) || ($1 == %Gather.Sign-PM $+ Del-Admin) || ($1 == %Gather.Sign-PM $+ DelAdmin) || ($1 == %Gather.Sign-PM $+ DelA) || ($1 == %Gather.Sign-PM $+ Un-A) || ($1 == %Gather.Sign-PM $+ Un-Admin) || ($1 == %Gather.Sign-PM $+ UnAdmin) || ($1 == %Gather.Sign-PM $+ UnA) {
  212. if (!$2) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 $1 %Gather.Color1 $+ < $+ %Gather.Color2 $+ USER $+ %Gather.Color1 $+ >) }
  213. elseif ($2) {
  214. if (!$readini(Access.ini,$2,User)) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the username $+ %Gather.Color2 $2 %Gather.Color1 $+ wasn't found in the admins list.) }
  215. elseif ($readini(Access.ini,$2,User)) { msg $nick $stl(Admin successfully deleted. (User: $+ %Gather.Color2 $2 $+ %Gather.Color1 $+ )) | .remini -n Access.ini $2 }
  216. }
  217. }
  218. }
  219. if ($Users($address,Owner).logged?) || ($Users($address,Manager).logged?) {
  220. var %o = $ifmatch
  221. if ( ($1 == %Gather.Sign-PM $+ Info) || ($1 == %Gather.Sign-PM $+ Whois) || ($1 == %Gather.Sign-PM $+ Who) ) && ($2) && ($ACC($2).ACC) {
  222. msg $nick $stl(User Level: $+ %Gather.Color2 $ACC($2).LVL %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Username: $+ %Gather.Color2 $ACC($2).ACC %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Password: $+ %Gather.Color2 $iif($ACC(%o).LVL == Owner,******,$ACC($2).PASS) %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 STEAM_ID: $+ %Gather.Color2 $ACC($2).Steam %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Gathers: $+ %Gather.Color2 $ACC($2).Gathers %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Added By: $+ %Gather.Color2 $ACC($2).BY %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Since: $+ %Gather.Color2 $ACC($2).Since %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 LastLogin: $+ %Gather.Color2 $ACC($2).LastLogin)
  223. }
  224. if ( ($1 == %Gather.Sign-PM $+ Find) || ($1 == %Gather.Sign-PM $+ FindUser) ) && ($2) && ( ($users($gettok($address($2,5),2,$asc(!)),Owner).logged?) || ($users($gettok($address($2,5),2,$asc(!)),Master).logged?) || ($users($gettok($address($2,5),2,$asc(!)),Admin).logged?) ) {
  225. var %e = $ifmatch | msg $nick $stl(User Level: $+ %Gather.Color2 $ACC(%e).LVL %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Username: $+ %Gather.Color2 $ACC(%e).ACC %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Password: $+ %Gather.Color2 $iif($ACC(%o).LVL == Owner,******,$ACC(%e).PASS) %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 STEAM_ID: $+ %Gather.Color2 $ACC(%e).Steam %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Gathers: $+ %Gather.Color2 $ACC(%e).Gathers %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Added By: $+ %Gather.Color2 $ACC(%e).BY %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Since: $+ %Gather.Color2 $ACC(%e).Since %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 LastLogin: $+ %Gather.Color2 $ACC(%e).LastLogin)
  226. }
  227. if ($1 == %Gather.Sign-PM $+ SetRetryrcon) { msg $nick $stl(Retrying RCON...) | RCONstart }
  228. if ($1-2 == %Gather.Sign-PM $+ Set Retryrcon) { msg $nick $stl(Retrying RCON...) | RCONstart }
  229. if ($1- == %Gather.Sign-PM $+ RetryRcon) { RCONclose | msg $nick $stl(Retrying RCON...!) | .timer 1 1 RCONstart }
  230. if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Master) {
  231. if (!$5) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign-PM $+ Set master %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ pass $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ steam_id $+ %Gather.Color1 $+ >) }
  232. else { Adduser $3 $4 $5 $2 $nick %o }
  233. }
  234. if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Unmaster) {
  235. if (!$3) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign $+ Set unmaster %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ >) }
  236. else { Unuser $3 master $nick }
  237. }
  238. }
  239. ;;; End Of Pm Owner
  240.  
  241. if ($Users($address,Manager).logged?) {
  242.  
  243. if ( ($1 == %Gather.Sign-PM $+ ChangeLvl) || ($1 == %Gather.Sign-PM $+ Upgrade) || ($1 == %Gather.Sign-PM $+ ChangeLevel) || ($1 == %Gather.Sign-PM $+ NewLevel) || ($1 == %Gather.Sign-PM $+ NewLvl) ) && ($3) {
  244. if (!$readini(Access.ini,$2,User)) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the username $+ %Gather.Color2 $2 %Gather.Color1 $+ doesnt exist.) }
  245. elseif ($readini(Access.ini,$2,User)) && ( ($3 != Admin) && ($3 != Master) && ($3 != Owner) && ($3 != Manager) ) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the level $+ %Gather.Color2 $3 %Gather.Color1 $+ doesnt exist ( $+ %Gather.Color2 $+ Levels are: $+ %Gather.Color1 Admin,Master,Owner,Manager) ) }
  246. else { msg $nick $stl(%Gather.Color2 $+  $+ $2 $+ %Gather.Color1 $+ `s level successfully changed from $+ %Gather.Color2 $readini(Access.ini,$2,ACC) %Gather.Color1 $+ to $+ %Gather.Color2 $3 $+ %Gather.Color1 $+ ) | .writeini -n Access.ini $2 ACC $3 }
  247. }
  248. if ($1- == %Gather.Sign-PM $+ Unbanall) { msg $nick $stl(Remove bans, Please wait and look at $+ %Gather.Color2 %Gather.Channel) | .timer -m 1 500 unbanall }
  249. if ($1 == %Gather.Sign-PM $+ Status) && ($2) {
  250. if (!$readini(Access.ini,$2,User)) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the username $+ %Gather.Color2 $2 %Gather.Color1 $+ not found.) }
  251. else { UserUsers $2 $nick }
  252. }
  253. if ($- == %Gather.Sign-PM $+ ResetRanks) { if ($exists(Stats.ini)) .remove Stats.ini | msg $nick $stl(Ranks restarted!) }
  254. if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Manager) {
  255. if (!$5) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign-PM $+ Set manager %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ pass $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ steam_id $+ %Gather.Color1 $+ >) }
  256. else { Adduser $3 $4 $5 $2 $nick %o }
  257. }
  258. if ($1 == %Gather.Sign-PM $+ Set) && ( ($2 == unall) || ($2 == unmanager) ) {
  259. if (!$3) { msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign $+ Set $2 %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ >) }
  260. else { Unuser $3 Manager $nick }
  261. }
  262. if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Owner) {
  263. if (!$5) msg $nick $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the right command is: $+ %Gather.Color2 %Gather.Sign-PM $+ Set owner %Gather.Color1 $+ < $+ %Gather.Color2 $+ user $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ pass $+ %Gather.Color1 $+ > < $+ %Gather.Color2 $+ steam_id $+ %Gather.Color1 $+ >)
  264. else { Adduser $3 $4 $5 $2 $nick %o }
  265. }
  266. if ($1 == %Gather.Sign-PM $+ Set) && ($2 == Unowner) { Unuser $3 Owner $nick }
  267.  
  268. ;main commands
  269.  
  270. if ($1 == %Gather.Sign-PM $+ Nick) && ($2) { nick $2 | msg $nick $stl(Nick changed to $+ %Gather.Color2 $2) }
  271. if ( ($1 == %Gather.Sign-PM $+ Join) || ($1 == %Gather.Sign-PM $+ J) ) && ($2) { join $2- | msg $nick $stl(I am joining to $+ %Gather.Color2 $2) }
  272. if ( ($1 == %Gather.Sign-PM $+ Part) || ($1 == %Gather.Sign-PM $+ P) ) && ($2) { Part $2- | msg $nick $stl(I am parting from $+ %Gather.Color2 $2) }
  273.  
  274.  
  275. if ($1 == %Gather.Sign-PM $+ SetRcon) && ($2) { msg $nick $stl(Rcon Password Changed to $+ %Gather.Color2 $2 ( $+ %Gather.Color1 $+ For active it type %Gather.Sign $+ RetryRcon $+ %Gather.Color2 $+ )) | Set %Gather.RconPass $2 }
  276. if ($1-2 == %Gather.Sign-PM $+ Set Rcon) && ($3) { msg $nick $stl(Rcon Password Changed to $+ %Gather.Color2 $3 ( $+ %Gather.Color1 $+ For active it type %Gather.Sign $+ RetryRcon $+ %Gather.Color2 $+ )) | Set %Gather.RconPass $3 }
  277. if ($1 == %Gather.Sign-PM $+ SetVent) && ($2) { msg $nick $stl(Vent IP:PORT Changed to $+ %Gather.Color2 $2 ) | Set %Gather.Vent $2 }
  278. if ($1-2 == %Gather.Sign-PM $+ Set Vent) && ($3) { msg $nick $stl(Vent IP:PORT Changed to $+ %Gather.Color2 $3 ) | Set %Gather.Vent $3 }
  279. if ($1- == %Gather.Sign-PM $+ ResetBot) || ($1- == %Gather.Sign-PM $+ ResetALL) { msg $nick $stl(Restarting Gatherbot please wait ...) | msg %Gather.Channel $stl(Restarting Gatherbot by $+ %Gather.Color2 $nick) | ResetBot }
  280. if ($1 == %Gather.Sign-PM $+ SetServer) && ($2) { msg $nick $stl(Server IP:PORT Changed to $+ %Gather.Color2 $2 ( $+ %Gather.Color1 $+ For active it type %Gather.Sign $+ RetryRcon $+ %Gather.Color2 $+ )) | Set %Gather.Server $2 }
  281. if ($1-2 == %Gather.Sign-PM $+ Set Server) && ($3) { msg $nick $stl(Server IP:PORT Changed to $+ %Gather.Color2 $3 ( $+ %Gather.Color1 $+ For active it type %Gather.Sign $+ RetryRcon $+ %Gather.Color2 $+ )) | Set %Gather.Server $3 }
  282. if ($1 == %Gather.Sign-PM $+ SetChannel) && ($2) { if ($Me ison %Gather.channel) part %Gather.Channel | .timer 1 2 join $2 | msg $nick $stl(Channel Changed to $+ %Gather.Color2 $2) | Set %Gather.Channel $2 }
  283. if ($1-2 == %Gather.Sign-PM $+ Set Channel) && ($3) { if ($Me ison %Gather.channel) part %Gather.Channel | .timer 1 2 join $3 | msg $nick $stl(Channel Changed to $+ %Gather.Color2 $3) | Set %Gather.Channel $3 }
  284. if ($1 == %Gather.Sign-PM $+ SetSign) && ($2) { msg $nick $stl(Sign Changed to $+ %Gather.Color2 $2) | Set %Gather.Sign $2 }
  285. if ($1-2 == %Gather.Sign-PM $+ Set Sign) && ($3) { msg $nick $stl(Sign Changed to $+ %Gather.Color2 $3) | Set %Gather.Sign $3 }
  286. if ($1 == %Gather.Sign-PM $+ SetTAG-A) && ($2) { msg $nick $stl(TAG-A Changed to $+ %Gather.Color2 $2) | Set %Gather.TAG-A $2 }
  287. if ($1-2 == %Gather.Sign-PM $+ Set TAG-A) && ($3) { msg $nick $stl(TAG-A Changed to $+ %Gather.Color2 $3) | Set %Gather.TAG-A $3 }
  288. if ($1 == %Gather.Sign-PM $+ SetTAGA) && ($2) { msg $nick $stl(TAG-A Changed to $+ %Gather.Color2 $2) | Set %Gather.TAG-A $2 }
  289. if ($1-2 == %Gather.Sign-PM $+ Set TAGA) && ($3) { msg $nick $stl(TAG-A Changed to $+ %Gather.Color2 $3) | Set %Gather.TAG-A $3 }
  290. if ($1 == %Gather.Sign-PM $+ SetTAG-B) && ($2) { msg $nick $stl(TAG-B Changed to $+ %Gather.Color2 $2) | Set %Gather.TAG-B $2 }
  291. if ($1-2 == %Gather.Sign-PM $+ Set TAG-B) && ($3) { msg $nick $stl(TAG-B Changed to $+ %Gather.Color2 $3) | Set %Gather.TAG-B $3 }
  292. if ($1 == %Gather.Sign-PM $+ SetTAGB) && ($2) { msg $nick $stl(TAG-B Changed to $+ %Gather.Color2 $2) | Set %Gather.TAG-B $2 }
  293. if ($1-2 == %Gather.Sign-PM $+ Set TAGB) && ($3) { msg $nick $stl(TAG-B Changed to $+ %Gather.Color2 $3) | Set %Gather.TAG-B $3 }
  294. if ($1 == %Gather.Sign-PM $+ SetSign-PM) && ($2) { msg $nick $stl(Sign-PM Changed to $+ %Gather.Color2 $2) | Set %Gather.Sign-PM $2 }
  295. if ($1-2 == %Gather.Sign-PM $+ Set Sign-PM) && ($3) { msg $nick $stl(Sign-PM Changed to $+ %Gather.Color2 $3) | Set %Gather.Sign-PM $3 }
  296. if ($1 == %Gather.Sign-PM $+ SetSign-Server) && ($2) { msg $nick $stl(Sign-Server Changed to $+ %Gather.Color2 $2) | Set %Gather.Sign-Server $2 }
  297. if ($1-2 == %Gather.Sign-PM $+ Set Sign-Server) && ($3) { msg $nick $stl(Sign-Server Changed to $+ %Gather.Color2 $3) | Set %Gather.Sign-Server $3 }
  298. if ($1 == %Gather.Sign-PM $+ SetPort) && ($2) { msg $nick $stl(Port Changed to $+ %Gather.Color2 $2) | Set %Gather.Port $2 }
  299. if ($1-2 == %Gather.Sign-PM $+ Set Port) && ($3) { msg $nick $stl(Port Changed to $+ %Gather.Color2 $3) | Set %Gather.Port $3 }
  300. if ($1 == %Gather.Sign-PM $+ SetScorebot) && ($2) && ( ($2 == ON) || ($2 == OFF) ) { msg $nick $stl(Scorebot Changed to $+ %Gather.Color2 $2) | Set %Gather.ScoreBOT $2 }
  301. if ($1-2 == %Gather.Sign-PM $+ Set Scorebot) && ($3) && ( ($3 == ON) || ($3 == OFF) ) { msg $nick $stl(Scorebot Changed to $+ %Gather.Color2 $3) | Set %Gather.ScoreBOT $3 }
  302. if ($1 == %Gather.Sign-PM $+ SetScoreChannel) && ($2) { msg $nick $stl(Score Channel Changed to $+ %Gather.Color2 $2) | Set %Gather.ScoreChannel $2 }
  303. if ($1-2 == %Gather.Sign-PM $+ Set ScoreChannel) && ($3) { msg $nick $stl(Score Channel Changed to $+ %Gather.Color2 $3) | Set %Gather.ScoreChannel $3 }
  304. if ($1 == %Gather.Sign-PM $+ SetTop) && ($2) && ($2 isnum) { msg $nick $stl(Top Number Changed to $+ %Gather.Color2 $2) | Set %Gather.TopNumber $2 }
  305. if ($1-2 == %Gather.Sign-PM $+ Set Top) && ($3) && ($3 isnum) { msg $nick $stl(Top Number Changed to $+ %Gather.Color2 $3) | Set %Gather.TopNumber $3 }
  306. if ($1 == %Gather.Sign-PM $+ SetMax) && ($2) && ($2 isnum) { msg $nick $stl(Max Changed to $+ %Gather.Color2 $2) | Set %Gather.Max $2 }
  307. if ($1-2 == %Gather.Sign-PM $+ Set Max) && ($3) && ($3 isnum) { msg $nick $stl(Max Changed to $+ %Gather.Color2 $3) | Set %Gather.Max $3 }
  308. if ($1 == %Gather.Sign-PM $+ SetAmsg) && ($2) && ( ($2 == OFF) || ($2 == ON) ) { msg $nick $stl(Amsg Changed to $+ %Gather.Color2 $2) | Set %Gather.Amsg $2 }
  309. if ($1-2 == %Gather.Sign-PM $+ Set Amsg) && ($3) && ( ($3 == OFF) || ($3 == ON) ) { msg $nick $stl(Amsg Changed to $+ %Gather.Color2 $3) | Set %Gather.Amsg $3 }
  310. if ($1 == %Gather.Sign-PM $+ SetPoints) && ($2) && ($2 isnum) { msg $nick $stl(Points Changed to $+ %Gather.Color2 $2) | Set %Gather.Points $2 }
  311. if ($1-2 == %Gather.Sign-PM $+ Set Points) && ($3) && ( ($3 isnum) { msg $nick $stl(Points Changed to $+ %Gather.Color2 $3) | Set %Gather.Points $3 }
  312. if ($1 == %Gather.Sign-PM $+ SetMaxTeam) && ($2) && ($2 isnum) { msg $nick $stl(MaxTeam Changed to $+ %Gather.Color2 $2) | Set %Gather.MaxTeam $2 }
  313. if ($1-2 == %Gather.Sign-PM $+ Set MaxTeam) && ($3) && ($3 isnum) { msg $nick $stl(MaxTeam Changed to $+ %Gather.Color2 $3) | Set %Gather.MaxTeam $3 }
  314. if ($1 == %Gather.Sign-PM $+ SetUsersSign) && ($2) { msg $nick $stl(Users Sign Changed to $+ %Gather.Color2 $2) | Set %Gather.UsersSign $2 }
  315. if ($1-2 == %Gather.Sign-PM $+ Set UsersSign) && ($3) { msg $nick $stl(Users Sign Changed to $+ %Gather.Color2 $3) | Set %Gather.UsersSign $3 }
  316. if ($1 == %Gather.Sign-PM $+ SetMix) && ($2) && ( ($2 == ON) || ($2 == OFF) ) { msg $nick $stl(Mix Changed to $+ %Gather.Color2 $2) | Set %Gather.Mixing $2 }
  317. if ($1-2 == %Gather.Sign-PM $+ Set Mix) && ($3) && ( ($3 == ON) || ($3 == OFF) ) { msg $nick $stl(Mix Changed to $+ %Gather.Color2 $3) | Set %Gather.Mixing $3 }
  318.  
  319.  
  320. ;end of main commands
  321.  
  322. }
  323. ;;; End Of Pm Manager.
  324. }
  325. }
  326.  
  327. alias UserUsers {
  328. if ($2) {
  329. var %x 1, %temp, %y 0, %a 0, %m 0, %o 0, %mr 0
  330. while ($ini(Access.ini,%x)) {
  331. var %u = $v1
  332. if ($readini(Access.ini,%u,By) == $1) {
  333. if ($numtok(%temp,32) > 7) { .timer 1 %y msg $2 $stl( $+ $iif(%y == 0, $+  $+ $1 $+  ( $+ %Gather.Color2 $+  $+ $ACC($1).lvl $+ %gather.Color1 $+ ) users: %temp,%temp)) | var %temp | inc %y }
  334. var %temp = %temp %Gather.Color2 $+  $+ %u $+  $+ %Gather.Color1 $+ ( $+ $replace($readini(Access.ini,%u,ACC),Admin,A,Master,M,Owner,O,Manager,MR) $+ ) $+ ( $+ $iif($readini(Access.ini,%u,Lastlogin) == never,Never logged,$duration2($duration($calc($ctime - $ctime($replace($readini(Access.ini,%u,Lastlogin),$chr(45),$chr(32)))),2))) $+ ) $+ %Gather.Color3 $+ %Gather.ColorChr
  335. inc $eval($+($chr(37),$replace($readini(Access.ini,%u,ACC),Admin,A,Master,M,Owner,O,Manager,MR)),1)
  336. }
  337. inc %x
  338. }
  339. if (%temp) .timer 1 %y msg $2 $stl( $+ $iif(%y == 0, $+  $+ $1 $+  ( $+ %Gather.Color2 $+  $+ $ACC($1).lvl $+ %gather.Color1 $+ ) users (A: $+ %Gather.Color2 $+  $+ %a $+ %Gather.Color1 M: $+ %Gather.Color2 $+  $+ %m $+ %Gather.Color1 O: $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 MR: $+ %Gather.Color2 $+  $+ %mr $+ %Gather.Color1 $+ ): %temp,%temp Users (A: $+ %Gather.Color2 $+  $+ %a $+ %Gather.Color1 M: $+ %Gather.Color2 $+  $+ %m $+ %Gather.Color1 O: $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 MR: $+ %Gather.Color2 $+  $+ %mr $+ %Gather.Color1 $+ )))
  340. elseif (!%temp) && (%y == 0) { msg $2 $stl( $+ %Gather.Color2 $+  $+ $1 $+  %Gather.Color1 $+ Has not added users yet.) }
  341. }
  342. }
  343. alias duration2 {
  344. var %x 1, %temp
  345. while ($gettok($1-,%x,32)) { if ( (day isin $gettok($1-,%x,32)) || (wk isin $gettok($1-,%x,32)) ) { var %temp = %temp $gettok($1-,%x,32) } | inc %x }
  346. return $iif(%temp,%temp,today)
  347. }
  348. ;/Adduser <User> <Pass> <SteamID> <Level> <Nick> <Byuser>
  349. alias Adduser {
  350. if ($6) {
  351. if ($readini(Access.ini,$1,User)) { msg $5 $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the username $+ %Gather.Color2 $1 %Gather.Color1 $+ has already in use.) }
  352. elseif (STEAM_* !iswm $3) { msg $5 $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the syntax of the $+ %Gather.Color2 STEAM_ID $+ %Gather.Color1 is: $+ %Gather.Color2 STEAM_*:*:*) }
  353. elseif (STEAM_* iswm $3) && (!$readini(Access.ini,$1,User)) { msg $5 $stl(%Gather.Color2 $+ $4 $+ %Gather.Color1 successfully added $+ %Gather.Color1 $+ $chr(44) %Gather.Color2 $+ for login $+ %Gather.Color1 /msg $me %Gather.Sign $+ login $1 $2) | .writeini -n Access.ini $1 User $1 | .writeini -n Access.ini $1 Pass $2 | .writeini -n Access.ini $1 Today 0 | .writeini -n Access.ini $1 Steamid $3 | .writeini -n Access.ini $1 Status OFF | .writeini -n Access.ini $1 Gathers 0 | .writeini -n Access.ini $1 ACC $4 | .writeini -n Access.ini $1 Since $date $+ - $+ $asctime(HH:nn) | .writeini -n Access.ini $1 By $6 | .writeini -n Access.ini $1 LastLogin never }
  354. }
  355. }
  356. ;/Unuser <User> <Level> <Nick>
  357.  
  358.  
  359. alias Unuser {
  360. if ($1) {
  361. if (!$readini(Access.ini,$1,User)) { msg $3 $stl(%Gather.Color2 $+ ERROR: $+ %Gather.Color1 the username $+ %Gather.Color2 $1 %Gather.Color1 $+ not found in the $3 $+ s list.) }
  362. elseif ($readini(Access.ini,$1,User)) { msg $3 $stl(%Gather.Color2 $+ $3 $+ %Gather.Color1 successfully deleted $+ %Gather.Color1 $+ $chr(44) user was $+ %Gather.Color2 $1) | .remini -n Access.ini $1 }
  363. }
  364. }
  365. alias Add {
  366. if (%Gather.Mixing !== OFF) {
  367. if (%Gather.Status == Adding) && (!$Istok(%Gather.Address,$1,32)) && (!$Istok(%Gather.Players,$2,32)) && ($numtok(%Gather.Players,32) !== %Gather.Max) && ($2 !== %Gather.Admin) {
  368. Set %Gather.Address $addtok(%Gather.Address,$1,32)
  369. Set %Gather.Players $addtok(%Gather.Players,$2,32)
  370. if ($numtok(%Gather.Players,32) !== %Gather.Max) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players }
  371. CheckMix
  372. }
  373. }
  374. elseif (%Gather.Mixing == OFF) {
  375. if (!$3) {
  376. if ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) {
  377. if (%Gather.Status == Adding) && (!$istok(%Gather.Address,$1,32)) && (!$istok(%Gather.Team-A,$2,32)) && (!$istok(%Gather.Team-B,$2,32)) {
  378. if ($numtok(%Gather.Team-A,32) !== %Gather.MaxTeam) {
  379. Set %Gather.Team-A $addtok(%Gather.Team-A,$2,32) | Set %Gather.Address $addtok(%Gather.Address,$1,32)
  380. if ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players-NO-MIX }
  381. elseif ($calc(%Gather.MaxTeam * 2) == $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) { CheckMax }
  382. }
  383. elseif ($numtok(%Gather.Team-B,32) !== %Gather.MaxTeam) {
  384. Set %Gather.Team-B $addtok(%Gather.Team-B,$2,32) | Set %Gather.Address $addtok(%Gather.Address,$1,32)
  385. if ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players-NO-MIX }
  386. elseif ($calc(%Gather.MaxTeam * 2) == $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) { CheckMax }
  387. }
  388. }
  389. }
  390. }
  391. elseif ($3) {
  392. if ( ($3 == A) || ($3 == B) ) && (%Gather.Status == Adding) && (!$istok(%Gather.Address,$1,32)) && (!$istok(%Gather.Team-A,$2,32)) && (!$istok(%Gather.Team-B,$2,32)) && ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) {
  393. if ($numtok(%Gather.Team-A,32) !== %Gather.MaxTeam) && ($3 == A) {
  394. Set %Gather.Team-A $addtok(%Gather.Team-A,$2,32) | Set %Gather.Address $addtok(%Gather.Address,$1,32)
  395. if ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players-NO-MIX }
  396. elseif ($calc(%Gather.MaxTeam * 2) == $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) { CheckMax }
  397. }
  398. elseif ($numtok(%Gather.Team-B,32) !== %Gather.MaxTeam) && ($3 == B) {
  399. Set %Gather.Team-B $addtok(%Gather.Team-B,$2,32) | Set %Gather.Address $addtok(%Gather.Address,$1,32)
  400. if ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players-NO-MIX }
  401. elseif ($calc(%Gather.MaxTeam * 2) == $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) { CheckMax }
  402. }
  403. }
  404. }
  405. }
  406. }
  407. alias Remover {
  408. if (%Gather.Mixing !== OFF) {
  409. if (%Gather.Status == Adding) && ($Istok(%Gather.Players,$2,32)) && ($2 !== %Gather.Admin) {
  410. Set %Gather.Players $remtok(%Gather.Players,$2,32)
  411. if ($numtok(%Gather.Players,32) !== %Gather.Max) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players }
  412. Set %Gather.Address $remtok(%Gather.Address,$1,32)
  413. }
  414. }
  415. elseif (%Gather.Mixing == OFF) {
  416. if (%Gather.Status == Adding) && ($Istok(%Gather.Address,$1,32)) && ($2 !== %Gather.Admin) { Set %Gather.Address $remtok(%Gather.Address,$1,32)
  417. if ($Istok(%Gather.Team-A,$2,32)) { Set %Gather.Team-A $remtok(%Gather.Team-A,$2,32) }
  418. if ($Istok(%Gather.Team-B,$2,32)) { Set %Gather.Team-B $remtok(%Gather.Team-B,$2,32) }
  419. if ($calc(%Gather.MaxTeam * 2) !== $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) && (!%Gather.Flood) { Set -u6 %Gather.Flood ON | Players-NO-MIX }
  420. }
  421. }
  422. }
  423. alias ShowWeapons { msg %Gather.Channel $stl( %Gather.Color2 $+ Weapons $+ %Gather.Color1 ( $+ %Gather.Color2 $+  $+ $numtok($Weapons,32) $+ %Gather.Color1 $+ ): $Weapons) }
  424. alias Teams {
  425. msg %Gather.Channel $stl( $+ %Gather.Color2 $+ Team-A $+ %Gather.Color1 $+ : $replace($replace(%Gather.Team-A,%Gather.Admin,« $+ %Gather.Color2 $+  $+ %Gather.Admin $+ %Gather.Color1 $+ »),$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32)))
  426. msg %Gather.Channel $stl( $+ %Gather.Color2 $+ Team-B $+ %Gather.Color1 $+ : $replace($replace(%Gather.Team-B,%Gather.Admin,« $+ %Gather.Color2 $+  $+ %Gather.Admin $+ %Gather.Color1 $+ »),$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32)))
  427. if (%Gather.Subs) msg %Gather.Channel $stl(( $+ %Gather.Color2 $+ Subs $+ %Gather.Color1 $+ ) ( $+ %Gather.Color2 $+  $+ $numtok(%Gather.Subs,32) $+ %Gather.Color1 $+ ): $replace($replace(%Gather.Subs,%Gather.Admin,%Gather.Color2 $+ %Gather.Admin $+ %Gather.Color1),$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32))))
  428. }
  429. alias Send-details { .msg $replace(%Gather.Team-A,$chr(32),$chr(44)) $details(a) | .timer 1 2 .msg $replace(%Gather.Team-B,$chr(32),$chr(44)) $details(b) }
  430. alias details {
  431. if ($1 == a) { return $stl(You are in $+ %Gather.Color2 Team A %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Server: $+ %Gather.Color2 %Gather.Server %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Pass: $+ %Gather.Color2 %Gather.pass %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Vent: $+ %Gather.Color2 %Gather.Vent %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Pass Room A: $+ %Gather.Color2 %Gather.PassA) }
  432. if ($1 == b) { return $stl(You are in $+ %Gather.Color2 Team B %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Server: $+ %Gather.Color2 %Gather.Server %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Pass: $+ %Gather.Color2 %Gather.pass %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Vent: $+ %Gather.Color2 %Gather.Vent %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Pass Room B: $+ %Gather.Color2 %Gather.PassB) }
  433. }
  434.  
  435. alias Players2 { msg %Gather.Channel $stl(%Gather.Color1 $+ Players %Gather.Color2 $+ ( $+ %Gather.Color1 $+  $+ $numtok(%Gather.Players,32) $+ / $+ %Gather.Max $+ %Gather.Color2 $+ ) $+ %Gather.Color1 $+ : $replace($replace(%Gather.Players,%Gather.Admin, $+ %Gather.Color2 $+ * $+  $+ %Gather.Admin $+  $+ * $+ %Gather.Color1),$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32)) $str(%Gather.Color2 $+ - $+ %Gather.Color1 %Gather.PlayersChr $chr(32),$calc(%Gather.max - $numtok(%Gather.Players,32)))) }
  436. alias Players { msg %Gather.Channel $stl(%Gather.Color1 $+ Players: %Gather.Color2 $+ ( $+ %Gather.Color1 $+  $+ $numtok(%Gather.Players,32) $+ / $+ %Gather.Max $+ %Gather.Color2 $+ ) %Gather.Admin $+ %Gather.Color1 $+  $+ $chr(44) $replace($gettok(%Gather.Players,2-,32),$chr(32),$chr(44) $chr(32),%Gather.Tag,%Gather.Color2 $+  $+ %Gather.TAG $+ %Gather.Color1)) }
  437. alias StartGather {
  438. if ($4) && (%Gather.Status == OFF) {
  439. if (%Gather.Connected == BadRcon) { msg %Gather.Channel $stl(Cannot run gather. Reason: $+ %Gather.Color2 Bad rcon password.) | Halt }
  440. if (%Gather.Connected == Banned) { msg %Gather.Channel $stl(Cannot run gather. Reason: $+ %Gather.Color2 Gatherbot is BANNED from the server.) | Halt }
  441. if (%Gather.Connected == OFF) || (!%Gather.Connected) { msg %Gather.Channel $stl(Cannot run gather. Reason: $+ %Gather.Color2 Gatherbot isn't connect to the server.) | Halt }
  442. if ($gettok(%Gather.LastStarted,3,32) !== $date) { Reset-Today }
  443. if ($exists(Mvps.ini)) { .remove Mvps.ini }
  444. .timerSub* off
  445. unset %Gather.Sub
  446. unset %Gather.Second*
  447. unset %Gather.MR3*
  448. unset %Gather.First*
  449. Set %Gather.Status Adding
  450. inc %Gather.num
  451. inc %Gather.Today
  452. .writeini -n Access.ini $2 Gathers $calc(1 + $Gathers($2))
  453. .writeini -n Access.ini $2 Today $calc(1 + $GathersToday($2))
  454. Set %Gather.AdminUser $2
  455. unset %Gather.Team*
  456. unset %Gather.Score-T
  457. unset %Gather.Score-CT
  458. unset %Gather.ScoreStatus
  459. unset %Gather.Banlast
  460. unset %Gather.Live
  461. unset %Gather.Ready*
  462. Set %Gather.Half notyet
  463. Set %Gather.ScoreStatus OFF
  464. Set %Gather.Map $4
  465. Set %Gather.Admin $3
  466. if (%Gather.Mixing !== OFF) { Set %Gather.Players $3 }
  467. if (%Gather.Mixing == OFF) { Set %Gather.Team- $+ $r(A,B) $3 }
  468. Set %Gather.Address $1
  469. Set %Gather.Started $time / $date
  470. Set %Gather.PassA $iif($6,$6,$r(1,9) $+ $r(1,9))
  471. Set %Gather.PassB $iif($7,$7,$r(1,9) $+ $r(1,9))
  472. Set %Gather.Pass $iif($5,$5,$r(1,9) $+ $r(1,9) $+ $r(1,9))
  473. msg $3 $stl(Gather is NOW starting on the map: $+ %Gather.Color2 $4 %Gather.Color1 $+ Passwords $+ %Gather.Color2 $+ ( $+ %Gather.Color1 $+ Server: $+ %Gather.Color2 %Gather.Pass %Gather.Color1 $+ Room-A: $+ %Gather.Color2 %Gather.PassA %Gather.Color1 $+ Room-B: $+ %Gather.Color2 %Gather.PassB $+ ))
  474. if (%Gather.VentStatus == On) { if ($exists(Vent.txt)) .remove Vent.txt | .timer 1 2 changepass }
  475. mode %Gather.Channel +m-N
  476. .timer 1 7.5 mode %Gather.Channel -m+N
  477. if (%Gather.Amsg == ON) { amsg $stl(Gather is NOW starting at $+ %Gather.Color2 %Gather.Channel %Gather.Color1 $+ on the map $+ %Gather.Color2 %Gather.Map %Gather.Color1 $+ by $+ %Gather.Color2 %Gather.Admin) }
  478. .timer 1 1 notice %Gather.Channel $stl(Gather is about to START Be ready for -m)
  479. .timer 1 2 msg %Gather.Channel $stl(Starting the $+ %Gather.Color2 $ord(%Gather.num) %Gather.Color1 $+ Gather since the $+ %Gather.Color2 $gettok(%Gather.Started,1,32) %Gather.Color1 $+ by $+ %Gather.Color2 %Gather.Admin)
  480. .timer 1 3 msg %Gather.Channel $stl(Current map $+ %Gather.Color2 %Gather.Map %Gather.Color1 $+  $+ $chr(44) $+ Commands are $cmd(Add) $cmd(Remove) $cmd(Players))
  481. if (%Gather.Startnotice) .timer 1 3 notice %Gather.Channel $stl(%Gather.Startnotice)
  482. if (%Gather.ScoreChannel) && (%Gather.ScoreBot == ON) { join %Gather.ScoreChannel }
  483. rcmd sv_password %Gather.Pass
  484. .timer 1 1 rcmd admin_command admin_map %Gather.Map
  485. .timer 1 3 rcmd sv_password %Gather.Pass
  486. .timer 1 3 rcmd admin_command admin_map %Gather.Map
  487. }
  488. }
  489. alias EndGather {
  490. if (%Gather.Status == ON) {
  491. if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *************** 3Game is OVER 1*************** }
  492. msg %Gather.Channel $stl(Gather number $+ %Gather.Color2 %Gather.num %Gather.Color1 $+ is over! $iif(%Gather.Live,( $+ $Score.Color(A) $+  $+ $Score(a) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 $+ )) $iif($1-,by $+ %Gather.Color2 $1-) %Gather.Color1 $+ $Chr(44) $+ Ready for the next match.)
  493. .timer 1 1 ssay Gather number %Gather.num is Over $iif(%Gather.Live,Score was: $score(a) $+ - $+ $score(b))
  494. .timer 1 1 tsay Gather number %Gather.num is Over $iif(%Gather.Live,Score was: $score(a) $+ - $+ $score(b))
  495. if (!%Gather.Live) || (%Gather.Half == notyet) { .writeini -n Access.ini %Gather.AdminUser Gathers $calc($Gathers(%Gather.AdminUser) -1) | .writeini -n Access.ini %Gather.AdminUser Today $calc($GathersToday(%Gather.AdminUser) -1) | if ($exists(Mvps.ini)) .remove Mvps.ini }
  496. else { SetMvps }
  497. .timerSub* off
  498. unset %Gather.Sub
  499. .timer 1 3 rcmd sv_password $r(1,9999)
  500. .timer 1 5 rcmd admin_command admin_execall disconnect
  501. if ($exists(Kills.ini)) { .remove Kills.ini }
  502. Set %Gather.Status OFF
  503. unset %Gather.Team*
  504. unset %Gather.Second*
  505. unset %Gather.MR3*
  506. unset %Gather.Players
  507. unset %Gather.Subs
  508. unset %Gather.Address
  509. unset %Gather.First*
  510. unset %Gather.Pass
  511. unset %Gather.Ready*
  512. unset %Gather.PassA
  513. unset %Gather.PassB
  514. unset %Gather.Banlast
  515. unset %Gather.Score-T
  516. unset %Gather.Score-CT
  517. unset %Gather.ScoreStatus
  518. unset %Gather.Half
  519. unset %Gather.AdminUser
  520. unset %Gather.Live
  521. unset %Gather.Pass
  522. Set %Gather.LastMap %Gather.Map
  523. Set %Gather.LastAdmin %Gather.Admin
  524. Set %Gather.LastStarted %Gather.Started
  525. unset %Gather.Map
  526. unset %Gather.Admin
  527. unset %Gather.Started
  528. if ($exists(VentStatus.txt)) .remove VentStatus.txt
  529. .timer 1 2 GatherOff-Vent
  530. }
  531. }
  532. ON *:JOIN:%Gather.Channel: {
  533. if ($nick == $me) { who %Gather.Channel | .timer 1 3 StatusCheck | if (%Gather.Reconnecting) { .timer 1 1 msg %Gather.Channel $stl(Gatherbot %Gather.color2 $+ mIRC $+ %Gather.Color1 was successfuly refreshed by $+ %Gather.Color2 $ifmatch) | unset %Gather.Reconnecting } }
  534. }
  535. alias StopGather {
  536. if (%Gather.Status == Adding) {
  537. msg %Gather.Channel $stl(Gather number $+ %Gather.Color2 %Gather.num %Gather.Color1 $+ Has been stopped $+ %Gather.Color1 by $+ %Gather.Color2 $iif($1,$1,no such user) $iif($2,%Gather.Color1 $+ Reason: $+ %Gather.Color2 $2-))
  538. .timerSub* off
  539. unset %Gather.Sub
  540. unset %Gather.First*
  541. .writeini -n Access.ini %Gather.AdminUser Gathers $calc($Gathers(%Gather.AdminUser) -1)
  542. .writeini -n Access.ini %Gather.AdminUser Today $calc($GathersToday(%Gather.AdminUser) -1)
  543. Set %Gather.Status OFF
  544. unset %Gather.Team*
  545. unset %Gather.Players
  546. unset %Gather.Subs
  547. unset %Gather.Address
  548. unset %Gather.Score-T
  549. unset %Gather.Score-CT
  550. unset %Gather.ScoreStatus
  551. unset %Gather.Second*
  552. unset %Gather.MR3*
  553. unset %Gather.Half
  554. unset %Gather.Live
  555. unset %Gather.Banlast
  556. unset %Gather.Ready*
  557. unset %Gather.Map
  558. dec %Gather.num
  559. dec %Gather.today
  560. unset %Gather.Pass
  561. unset %Gather.PassA
  562. unset %Gather.PassB
  563. unset %Gather.AdminUser
  564. unset %Gather.Admin
  565. unset %Gather.Started
  566. .timer 1 3 rcmd admin_command admin_execall disconnect
  567. .timer 1 3 rcmd admin_command admin_execall disconnect
  568. .timer 1 5 rcmd sv_password $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z)
  569. .timer 1 3 //rcmd admin_command admin_execall disconnect
  570. .timer 1 3 //rcmd admin_command admin_execall disconnect
  571. .timer 1 5 //rcmd sv_password $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) $+ $r(a,z)
  572. if ($exists(VentStatus.txt)) .remove VentStatus.txt
  573. .timer 1 2 GatherOff-Vent
  574. }
  575. }
  576. on !*:NICK: {
  577. if (%Gather.Status == Adding) && ($Istok(%Gather.Address,$address,32)) && ($Istok(%Gather.Players,$nick,32)) {
  578. Set %Gather.Players $reptok(%Gather.Players,$nick,$newnick,32)
  579. if (%Gather.Admin == $nick) { Set %Gather.Admin $newnick }
  580. }
  581. }
  582. alias SetMvps {
  583. if ($ini(Mvps.ini,0) == 0) { GOTO END }
  584. .close -@ @Mvps | .window -h @Mvps | var %x 1, %o 1
  585. while ($ini(Mvps.ini,%x)) { echo @Mvps $ini(Mvps.ini,%x) $calc($readini(Stats.ini,$ini(Mvps.ini,%x),Points) +0) $iif($readini(Stats.ini,$ini(Mvps.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  586. filter -cwwteu 2 32 @Mvps @Mvps
  587. var %1st = $gettok($line(@Mvps,1),1,32)
  588. var %2nd = $gettok($line(@Mvps,2),1,32)
  589. var %3rd = $gettok($line(@Mvps,3),1,32)
  590. if (%1st) { .writeini -n Stats.ini %1st Mvps $calc($readini(Stats.ini,%1st,Mvps) +3) | msg %Gather.Channel $stl(%Gather.Color2 $+ MVP`S $+ %Gather.Color1 of the Gather are: $+ %Gather.Color2 1st. $+ %Gather.Color1 $gettok($line(@Mvps,1),3-,32) $iif(%2nd, $+ %Gather.Color2 $+ 2nd. $+ %Gather.Color1 $gettok($line(@Mvps,2),3-,32)) $iif(%3rd, $+ %Gather.Color2 $+ 3rd. $+ %Gather.Color1 $gettok($line(@Mvps,3),3-,32)) ) }
  591. if (%2nd) { .writeini -n Stats.ini %2nd Mvps $calc($readini(Stats.ini,%2nd,Mvps) +2) }
  592. if (%3rd) { .writeini -n Stats.ini %3rd Mvps $calc($readini(Stats.ini,%3rd,Mvps) +1) }
  593. :END
  594. if ($exists(Mvps.ini)) { .timer 1 1 .remove Mvps.ini }
  595. }
  596. alias Last {
  597. if (%Gather.LastMap) { msg %Gather.Channel $stl(Last game was at $+ %Gather.Color2 $gettok(%Gather.LastStarted,1,32) %Gather.Color1 $+ by $+ %Gather.Color2 %Gather.LastAdmin %Gather.Color1 $+ on the map $+ %Gather.Color2 %Gather.LastMap) }
  598. else { msg %Gather.Channel $stl(No last gather yet.) }
  599. }
  600. alias Vent { msg %Gather.Channel $stl(%Gather.Color2 $+ Ventrilo $+ %Gather.Color1 $+ : %Gather.vent $chr(44) $+ %Gather.Color2 $+ Version $+ %Gather.Color1 $+ : %Gather.Vent-Version) }
  601. alias Noticer {
  602. if (!%Gather.FloodNotice) && ($1) { Set -u3 %Gather.FloodNotice ON | mode %Gather.Channel -N | notice %Gather.Channel $stl($1-) | .timer 1 2 mode %Gather.Channel +N }
  603. if (!%Gather.FloodNotice) && (!$1) && (%Gather.Status == Adding) {
  604. Set -u3 %Gather.FloodNotice ON
  605. mode %Gather.Channel -N
  606. .timer 1 1 notice %Gather.Channel $stl(Gather is ON $chr(44) %Gather.Color2 $+ Players: $+ %Gather.Color1 $now $+ / $+ $all , %Gather.Color2 $+ Type $+ %Gather.Color1 %Gather.Sign $+ add to Join)
  607. .timer 1 1 notice %Gather.Channel $stl(%Gather.Color2 $+ Admin: $+ %Gather.Color1 %Gather.Admin $chr(44) $+ %Gather.Color2 $+ Map: $+ %Gather.Color1 %Gather.Map $chr(44) $+ %Gather.Color2 $+ Commands: $+ %Gather.Color1 %Gather.Sign $+ Add $chr(44) $+ %Gather.Sign $+ Remove $chr(44) $+ %Gather.Sign $+ Status)
  608. .timer 1 2 mode %Gather.Channel +N
  609. }
  610. }
  611. alias Gathers {
  612. if ($readini(Access.ini,$1,Gathers)) { return $readini(Access.ini,$1,Gathers) }
  613. elseif (!$readini(Access.ini,$1,Gathers)) { return 0 }
  614. }
  615. alias GathersToday {
  616. if ($readini(Access.ini,$1,Today)) { return $readini(Access.ini,$1,Today) }
  617. elseif (!$readini(Access.ini,$1,Today)) { return 0 }
  618. }
  619. alias Gather {
  620. if ($1 == Show) {
  621. var %x 1, %temp, %y 1, %a $Users($2)
  622. while ($gettok(%a,%x,32)) {
  623. var %temp = %temp $gettok(%a,%x,32)
  624. if ($numtok(%temp,32) == 9) {
  625. if (%y == 1) { msg %Gather.Channel $stl(%Gather.Color2 $+ $2 $+ s are %Gather.Color2 $+ ( $+ %Gather.Color1 $+  $+ $Users($2,ON).num $+ %Gather.Color1 $+ / $+ $Users($2,ALL).num $+ %Gather.Color2 $+ ): %Temp) | var %temp | inc %y 1 }
  626. else { .timer 1 %y msg %Gather.Channel $stl(%Temp) | var %temp | inc %y }
  627. }
  628. inc %x
  629. }
  630. if (%y == 1) { msg %Gather.Channel $stl(%Gather.Color2 $+ $2 $+ s are %Gather.Color2 $+ ( $+ %Gather.Color1 $+  $+ $Users($2,ON).num $+ %Gather.Color1 $+ / $+ $Users($2,ALL).num $+ %Gather.Color2 $+ ): %Temp) }
  631. else { .timer 1 %y msg %Gather.Channel $stl(%Temp) }
  632. }
  633. if ($1 == Total) { msg %Gather.Channel $stl( $+ %Gather.Color2 $+ Total Users: ( $+ %Gather.Color1 $+  $+ $calc($Users(Admin,ON).num + $Users(Master,ON).num + $Users(Owner,ON).num + $Users(Manager,ON).num) $+ / $+ $ini(Access.ini,0) $+ %Gather.Color2 $+ )) }
  634. if ($1 == Status-OFF) { msg %Gather.Channel $stl(There is no gather for the moment) }
  635. if ($1 == Status-Adding) { msg %Gather.Channel $stl(Gather is $+ 3 ON %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color2 Use: $+ %Gather.Color1 %Gather.Sign $+ Add $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ %Gather.Sign $+ Remove %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Players: %Gather.Color2 $+ ( $+ %Gather.Color1 $+  $+ $now $+ / $+ $all $+ %Gather.Color2 $+ ) %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Map: $+ %Gather.Color2 %Gather.Map %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Admin: $+ %Gather.Color2 %Gather.Admin) }
  636. if ($1 == Status-ON) { msg %Gather.Channel $stl(Gather num $+ %Gather.Color2 %Gather.num %Gather.Color1 $+ started at $+ %Gather.Color2 $gettok(%Gather.Started,1,32) %Gather.Color1 $+ by $+ %Gather.Color2 %Gather.Admin %Gather.Color1 $+ map $+ %Gather.Color2 %Gather.Map $+ %Gather.Color1 $iif(%Gather.Live,( $+ $Score.Color(a) $+  $+ $Score(a) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 $+ ),%Gather.Color1 $+ ( $+ %Gather.Color2 $+ Not live $+ %Gather.Color1 $+ ))) }
  637. ;if ($1 == Status-ON) { msg %Gather.Channel $stl(The $+ %Gather.Color2 $ord(%Gather.num) %Gather.Color1 $+ Gather is on since $+ %Gather.Color2 $gettok(%Gather.Started,1,32) %Gather.Color1 $+ Admin: $+ %Gather.Color2 %Gather.Admin $+ %Gather.Color1 $+ $chr(44) Map: $+ %Gather.Color2 %Gather.Map $+ %Gather.Color1 $+ $chr(44) $iif(%Gather.Live,Team-A: $Score.Color(a) $+  $+ $Score(a) $+ %Gather.Color1 Team-B: $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 ( $+ %Gather.Color2 $+  $+ $score(Half) $+ %Gather.Color1 $+ ),%Gather.Color1 $+ Game isn't live yet.)) }
  638. }
  639. alias stl { return %Gather.Style1 %Gather.Color1 $+  $+ $1- %Gather.Style2 }
  640. alias nick? { if ($readini(Access.ini,$1,Logged)) { return $ialchan(* $+ $readini(Access.ini,$1,Logged),%Gather.Channel,1).nick } }
  641. alias MIX {
  642. var %NEWPlayers1 $1-,%NEW,%AFTER
  643. while ($numtok(%NEWPlayers1,32)) { %NEW = $gettok(%NEWPlayers1,$r(1,$v1),32) | %AFTER = %AFTER %NEW | %NEWPlayers1 = $remove(%NEWPlayers1,%NEW) }
  644. set %Gather.Team-A $gettok(%AFTER,1- $calc($numtok($1-,32) /2),32) | set %Gather.Team-B $gettok(%AFTER,$calc($calc($numtok($1-,32) /2) +1) -,32)
  645. }
  646. alias playing { return $iif(%Gather.Mixing !== OFF,$calc(%Gather.Max / 2) vs $calc(%Gather.Max / 2),%Gather.MaxTeam vs %Gather.MaxTeam) }
  647. on !*:PART:%Gather.Channel: {
  648. if (%Gather.Status == Adding) && ($nick !== %Gather.Admin) && ($Istok(%Gather.Address,$address,32)) {
  649. if ($Istok(%Gather.Players,$nick,32)) && (%Gather.Mixing !== OFF) { Remover $address $nick }
  650. elseif (%Gather.Mixing == OFF) && ( ($Istok(%Gather.Team-A,$nick,32)) || ($Istok(%Gather.Team-B,$nick,32)) ) { Remove $address $nick }
  651. }
  652. if ($Users($address,Owner).logged?) || ($Users($address,Master).logged?) || ($Users($address,Admin).logged?) || ($Users($address,Manager).logged?) {
  653. var %o = $ifmatch
  654. notice $nick $stl(You Have been Disconnected from $Upper($readini(Access.ini,%o,ACC)) Account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 Part)
  655. msg $iif(%Gather.Logchannel,$v1,%Gather.Channel) $stl(%Gather.Color2 $+  $+ $nick %Gather.Color1 $+ Has been Disconnected from $Upper($readini(Access.ini,%o,ACC)) Account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 Part)
  656. .writeini -n Access.ini %o Status OFF
  657. .remini -n Access.ini %o Logged
  658. }
  659. }
  660. on !*:QUIT: {
  661. if (%Gather.Status == Adding) && ($nick !== %Gather.Admin) && ($Istok(%Gather.Address,$address,32)) {
  662. if ($Istok(%Gather.Players,$nick,32)) && (%Gather.Mixing !== OFF) { Remover $address $nick }
  663. elseif (%Gather.Mixing == OFF) && ( ($Istok(%Gather.Team-A,$nick,32)) || ($Istok(%Gather.Team-B,$nick,32)) ) { Remove $address $nick }
  664. }
  665. if ($Users($address,Owner).logged?) || ($Users($address,Master).logged?) || ($Users($address,Admin).logged?) || ($Users($address,Manager).logged?) {
  666. var %o = $ifmatch
  667. msg $iif(%Gather.Logchannel,$v1,%Gather.Channel) $stl(%Gather.Color2 $+  $+ $nick %Gather.Color1 $+ Has been Disconnected from $Upper($readini(Access.ini,%o,ACC)) Account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 Quit)
  668. .writeini -n Access.ini %o Status OFF
  669. .remini -n Access.ini %o Logged
  670. }
  671. }
  672. on *:KICK:%Gather.Channel: {
  673. var %a = $gettok($address($knick,5),2,$asc(!))
  674. if (%Gather.Status == Adding) && ($knick !== %Gather.Admin) {
  675. if (%Gather.Mixing !== OFF) && ($Istok(%Gather.Players,$knick,32)) { Remover %a $knick }
  676. elseif (%Gather.Mixing == OFF) && ( ($Istok(%Gather.Team-A,$knick,32)) || ($Istok(%Gather.Team-B,$knick,32)) ) { Remover %a $knick }
  677. }
  678. if ($Users(%a,Owner).logged?) || ($Users(%a,Master).logged?) || ($Users(%a,Admin).logged?) || ($Users(%a,Manager).logged?) {
  679. var %o = $ifmatch
  680. notice $knick $stl(You Have been Disconnected from $Upper($readini(Access.ini,%o,ACC)) Account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 Kicked $+ %Gather.Color1 By $+ %Gather.Color2 $nick)
  681. msg $iif(%Gather.Logchannel,$v1,%Gather.Channel) $stl(%Gather.Color2 $+  $+ $knick %Gather.Color1 $+ Has been Disconnected from $Upper($readini(Access.ini,%o,ACC)) Account. ( $+ %Gather.Color2 $+  $+ %o $+ %Gather.Color1 $+ ) Reason: $+ %Gather.Color2 Kicked $+ %Gather.Color1 By $+ %Gather.Color2 $nick)
  682. .writeini -n Access.ini %o Status OFF
  683. .remini -n Access.ini %o Logged
  684. }
  685. }
  686. alias TotalGathers { if (!%Gather.Today) Set %Gather.Today 0 | msg %Gather.channel $stl(< $+ %Gather.Color2 $+  $+ %Gather.num $+ %Gather.Color1 $+ > Gathers so far. (Today: $+ %Gather.Color2 %Gather.Today $+ %Gather.Color1 $+ )) }
  687. alias TotalToday { if (!%Gather.Today) Set %Gather.Today 0 | msg %Gather.channel $stl(< $+ %Gather.Color2 $+  $+ %Gather.Today $+ %Gather.Color1 $+ > %Gather.Color1 $+ Gathers for today. ( $+ %Gather.Color2 $+  $+ $date $+ %Gather.Color1 $+ )) }
  688. alias HL {
  689. Set %Gather.HL-IP $1-
  690. bset -t &hl 1 $str($chr(255),4) $+ TSource Engine Query
  691. bset &hl $calc($bvar(&hl,0) + 1) 0
  692. sockudp -k HL $replace($1,$chr(58),$chr(32)) &hl
  693. .timer 1 2 unset %Gather.HL-*
  694. }
  695. alias HLB { return $bvar(&HL,1,$bvar(&HL,0)).text }
  696. on *:UDPREAD:HL: {
  697. sockread &HL
  698. breplace &HL 0 254
  699. var %Gather.HL-Type = $gettok($HLB,1,254)
  700. var %Gather.HL-Players $iif($asc($mid($gettok($HLB,6,254),2,1)),$asc($mid($gettok($HLB,6,254),1,1)) $+ / $+ $asc($mid($gettok($HLB,6,254),2,1)),0/ $+ $asc($mid($gettok($HLB,6,254),1,1)))
  701. var %Gather.HL-Name = $right($gettok($HLB,1,254),$calc($len($gettok($HLB,1,254)) -6))
  702. var %Gather.HL-Map = $gettok($HLB,2,254)
  703. if (%Gather.Connected == ON) { msg %Gather.Channel $stl(%Gather.Color2 $+ Hostname: $+ %Gather.Color1 %Gather.HL-Name %Gather.Color2 $+ Players: $+ %Gather.Color1 %Gather.HL-Players %Gather.Color2 $+ Map: $+ %Gather.Color1 %Gather.HL-Map %Gather.Color2 $+ IP: $+ %Gather.Color1 %Gather.HL-IP) }
  704. .timer 1 1 unset %ip
  705. }
  706. on *:CONNECT: {
  707. if (!%Gather.Today) { Set %Gather.Today 0 }
  708. if ($exists(Kills.ini)) { .remove Kills.ini }
  709. unset %number | unset %Gather.TK.* | .timer 1 4 RCONstart | .timer 1 4 join %Gather.Channel | unset %Gather.Flood | unset %Gather.Flood*
  710. }
  711. alias ShowGathers {
  712. if ($acc($1).exists) { var %U = $acc($1).acc | var %steam = $readini(Access.ini,%u,Steamid) | msg %Gather.Channel $stl($iif($Acc(%U).Status == ON,3,15) $+ %U %Gather.Color2 $+ ( $+ %Gather.Color1 $+ %steam $+ %Gather.Color2 $+ ) $+ %Gather.Color1 Has done $+ %Gather.Color2 $Gathers(%U) %Gather.Color1 $+ and played on $+ %Gather.Color2 $Stats(%steam).Gathers %Gather.Color1 $+ Gathers so far.) }
  713. elseif (!$acc($1).exists) && ($Stats($1).exists) {
  714. var %STEAM = $v1
  715. if (!$isacc?(%STEAM)) { msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $Stats(%STEAM).nick ( $+ %Gather.Color1 $+ %STEAM $+ %Gather.Color2 $+ ) $+ %Gather.Color1 Has played on $+ %Gather.Color2 $Stats(%STEAM).Gathers %Gather.Color1 $+ Gathers so far.) }
  716. elseif ($isacc?(%STEAM)) { var %U = $acc(%STEAM).acc | msg %Gather.Channel $stl($iif($Acc(%U).Status == ON,3,15) $+ %U %Gather.Color2 $+ ( $+ %Gather.Color1 $+ $acc(%U).steam $+ %Gather.Color2 $+ ) $+ %Gather.Color1 Has done $+ %Gather.Color2 $Gathers(%U) %Gather.Color1 $+ and played on $+ %Gather.Color2 $Stats(%STEAM).Gathers %Gather.Color1 $+ Gathers so far.) }
  717. }
  718. else { msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ gathers nickname' or ' $+ %Gather.Sign $+ gathers steamid') }
  719. }
  720. alias ShowWhois {
  721. if ($acc($1).exists) { var %STEAM = $ACC($1).STEAM | var %U = $acc($1).acc | msg %Gather.Channel $stl(Whois for $iif($Acc(%U).Status == ON,3 $+ %Gather.UsersSign $+ %Gather.Color2,4 $+ %Gather.UsersSign $+ %Gather.Color2) $+ %U ( $+ %Gather.Color1 $+ %STEAM $+ %Gather.Color2 $+ ) %Gather.Color1 $+ Level: $+ %Gather.Color2 $ACC(%STEAM).Level %Gather.Color1 $+ INgame nick: $+ %Gather.Color2 $Stats(%STEAM).nick) | msg %Gather.Channel $stl($iif($ACC(%STEAM).Status == ON,%Gather.Color1 $+ mIRC nick: $+ %Gather.Color2 $nick?($ACC(%STEAM).User)) %Gather.Color1 $+ Gathers: ( $+ %Gather.Color2 $+ Did: $+ %Gather.Color1 $Gathers(%U) %Gather.Color2 $+ Today: $+ %Gather.Color1 $ACC(%U).Today $+ ) ( $+ %Gather.Color2 $+ Played: $+ %Gather.Color1 $Stats(%STEAM).Gathers $+ )) }
  722. elseif (!$acc($1).exists) && ($Stats($1).exists) {
  723. var %STEAM = $Stats($1).steam
  724. if (!$isacc?(%STEAM)) { msg %Gather.Channel $stl(Whois for $+ %Gather.Color2 $Stats(%STEAM).nick ( $+ %Gather.Color1 $+ %STEAM $+ %Gather.Color2 $+ ) %Gather.Color1 $+ Level: $+ %Gather.Color2 Regular Player) | msg %Gather.Channel $stl(Ban Status: $+ %Gather.Color2 $iif($readini(Banned.ini,%STEAM,Steam),4BANNED by $readini(Banned.ini,%STEAM,By),3In good standing) %Gather.Color1 $+ Played on: $+ %Gather.Color2 $Stats(%STEAM).Gathers %Gather.Color1 $+ Gathers so far.) }
  725. elseif ($isacc?(%STEAM)) { var %U = $acc(%STEAM).acc | msg %Gather.Channel $stl(Whois for $iif($Acc(%U).Status == ON,3 $+ %Gather.UsersSign $+ %Gather.Color2,4 $+ %Gather.UsersSign $+ %Gather.Color2) $+ %U ( $+ %Gather.Color1 $+ $acc(%U).steam $+ %Gather.Color2 $+ ) %Gather.Color1 $+ Level: $+ %Gather.Color2 $ACC(%STEAM).Level %Gather.Color1 $+ INgame nick: $+ %Gather.Color2 $Stats(%STEAM).nick) | msg %Gather.Channel $stl($iif($ACC(%STEAM).Status == ON,%Gather.Color1 $+ mIRC nick: $+ %Gather.Color2 $nick?($ACC(%STEAM).User)) %Gather.Color1 $+ Gathers: ( $+ %Gather.Color2 $+ Did: $+ %Gather.Color1 $Gathers(%U) %Gather.Color2 $+ Today: $+ %Gather.Color1 $ACC(%U).Today $+ ) ( $+ %Gather.Color2 $+ Played: $+ %Gather.Color1 $Stats(%STEAM).Gathers $+ )) }
  726. }
  727. else { msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ whois nickname' or ' $+ %Gather.Sign $+ whois steamid') }
  728. }
  729. alias ShowGathersToday {
  730. if ($acc($1).exists) { var %U = $acc($1).acc | msg %Gather.Channel $stl($iif($Acc(%U).Status == ON,3,15) $+ %U %Gather.Color2 $+ ( $+ %Gather.Color1 $+ $acc(%U).steam $+ %Gather.Color2 $+ ) $+ %Gather.Color1 Has done $+ %Gather.Color2 $ACC(%U).Today %Gather.Color1 $+ Gathers for Today ( $+ %Gather.Color2 $+  $+ $date $+ %Gather.Color1 $+ ).) }
  731. else { msg %Gather.Channel $stl(This user is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ today nickname' or ' $+ %Gather.Sign $+ today steamid') }
  732. }
  733. alias isacc? { if ($1) && (STEAM_* iswm $1) {
  734. var %x = 1
  735. while ($ini(Access.ini,%x)) { if ($readini(Access.ini,$ini(Access.ini,%x),SteamID) == $1) { return $ini(Access.ini,%x) }
  736. inc %x
  737. } } }
  738. alias ACC {
  739. if ($1) && ($prop) {
  740. if ($readini(Access.ini,$1,ACC)) { var %USER $1 | GOTO SKIP }
  741. var %x = 1
  742. while ($ini(Access.ini,%x)) {
  743. if ($1 isin $ini(Access.ini,%x)) && (STEAM_* !iswm $1) { var %USER = $ini(Access.ini,%x) }
  744. if ($1 == $readini(Access.ini,$ini(Access.ini,%x),Steamid)) && (STEAM_* iswm $1) { var %USER = $ini(Access.ini,%x) }
  745. inc %x
  746. }
  747. :SKIP
  748. if ($prop == acc) || ($prop == user) || ($prop == exists) || ($prop == exist) { return %USER }
  749. if ($prop == pass) || ($prop == password) || ($prop == pw) { return $readini(Access.ini,%USER,Pass) }
  750. if ($prop == SteamID) || ($prop == Steam) || ($prop == ID) { return $readini(Access.ini,%USER,SteamID) }
  751. if ($prop == Status) || ($prop == Status?) { return $readini(Access.ini,%USER,Status) }
  752. if ($prop == Gathers) { return $iif($readini(Access.ini,%USER,Gathers),$readini(Access.ini,%USER,Gathers),0) }
  753. if ($prop == Today) { return $iif($readini(Access.ini,%USER,Today),$readini(Access.ini,%USER,Today),0) }
  754. if ($prop == Logged) || ($prop == Address) { return $readini(Access.ini,%USER,Logged) }
  755. if ($prop == Level) || ($prop == LVL) { return $readini(Access.ini,%USER,ACC) }
  756. if ($prop == Since) { return $readini(Access.ini,%USER,Since) }
  757. if ($prop == BY) { return $iif($readini(Access.ini,%USER,By) !== $null,$readini(Access.ini,%USER,By),None) }
  758. if ($prop == LastLogin) { return $iif($readini(Access.ini,%USER,LastLogin) !== $null,$readini(Access.ini,%USER,LastLogin),None) }
  759. }
  760. :END
  761. }
  762. alias Stats {
  763. if ($1) && ($prop) {
  764. if (STEAM_* !iswm $1) {
  765. var %x = 1
  766. while ($ini(Stats.ini,%x)) {
  767. if ($1- isin $readini(Stats.ini,$ini(Stats.ini,%x),Nick)) { var %STEAM = $ini(Stats.ini,%x) | break }
  768. inc %x
  769. }
  770. }
  771. elseif (STEAM_* iswm $1) {
  772. if ($readini(Stats.ini,$1,Points)) { var %STEAM = $1 }
  773. elseif (!$readini(Stats.ini,$1,Points)) && ($prop == steam) { return $1 }
  774. }
  775. if ($readini(Stats.ini,%STEAM,$prop)) { return $readini(Stats.ini,%STEAM,$prop) }
  776. elseif ($prop == STEAM) { return %STEAM }
  777. elseif ($prop == rank) {
  778. var %x = 1
  779. .close -@ @Rank
  780. .window -h @Rank
  781. while ($ini(Stats.ini,%x)) { echo @rank $v1 $readini(Stats.ini,$v1,Points) | inc %x }
  782. filter -cwwtue 2 32 @Rank @Rank *
  783. var %rank = $fline(@Rank,$+(*,%STEAM,*),1) | .close -@ @Rank | return %rank
  784. }
  785. elseif ($prop == exists) && (%STEAM !== $null) { return %STEAM }
  786. elseif ($prop == Played) && (%STEAM !== $null) { return $iif($readini(Stats.ini,%STEAM,Gathers) !== $null,$ifmatch,0) }
  787. elseif ($prop == Nick) { return $iif($reaini(Stats.ini,%STEAM,Nick),$ifmatch,No such nick) }
  788. elseif (!$readini(Stats.ini,%STEAM,$prop)) && ($prop !== nick) && ($prop !== exists) && ($prop !== steam) { return 0 }
  789. }
  790. }
  791. alias ShowRank {
  792. if ($Stats($1).exists) { Set -u10 %Gather.Flood ON | var %STEAM = $v1 | msg %Gather.Channel $stl($stats(%STEAM).nick ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) Rank: $+ %Gather.Color2 $stats(%STEAM).rank $+ / $+ $ini(Stats.ini,0) %Gather.Color1 $+ Points: $+ %Gather.Color2 $stats(%STEAM).points %Gather.Color1 $+ Kills: $+ %Gather.Color2 $stats(%STEAM).kills %Gather.Color1 $+ Deaths: $+ %Gather.Color2 $stats(%STEAM).deaths %Gather.Color1 $+ K/D: $+ %Gather.Color2 $left($calc($stats(%STEAM).kills / $stats(%STEAM).deaths),5)) }
  793. ;if ($Stats($1).exists) { Set -u10 %Gather.Flood ON | var %STEAM = $v1 | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $stats(%STEAM).nick %Gather.Color1 $+ ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) Rank is: $+ %Gather.Color2 $stats(%STEAM).rank $+ %Gather.Color1 $+ / $+ $ini(Stats.ini,0) %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Points: $+ %Gather.Color2 $stats(%STEAM).points %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Kills: $+ %Gather.Color2 $stats(%STEAM).kills %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Deaths: $+ %Gather.Color2 $stats(%STEAM).deaths) }
  794. else { Set -u5 %Gather.Flood ON | msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ rank nickname' or ' $+ %Gather.Sign $+ rank steamid') }
  795. }
  796. alias ShowMvps {
  797. if ($Stats($1).exists) { var %STEAM = $v1 | Set -u6 %Gather.Flood ON | msg %Gather.Channel $stl(%Gather.Color1 $+  $+ $stats(%STEAM).nick %Gather.Color1 $+ ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) Mvps: $+ %Gather.Color2 $stats(%STEAM).mvps) }
  798. else { Set -u4 %Gather.Flood ON | msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ mvp nickname' or ' $+ %Gather.Sign $+ mvp steamid') }
  799. }
  800. alias ShowStats {
  801. if ($Stats($1).exists) {
  802. var %STEAM = $v1
  803. Set -u13 %Gather.Flood ON
  804. msg %Gather.Channel $stl(Statistics for $+ %Gather.Color2 $stats(%STEAM).nick %Gather.Color1 $+ ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Rank: $+ %Gather.Color2 $stats(%STEAM).rank $+ %Gather.Color1 $+ / $+ $ini(Stats.ini,0) %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Points: $+ %Gather.Color2 $stats(%STEAM).points %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 K/D: $+ %Gather.Color2 $left($calc($stats(%STEAM).kills / $stats(%STEAM).deaths),5))
  805. .timer 1 1 msg %Gather.Channel $stl(Played on: $+ %Gather.Color2 $Stats(%STEAM).Gathers %Gather.Color1 $+ Gathers so far. (Last one was number $+ %Gather.Color2 $Stats(%STEAM).last $+ %Gather.Color1 $+ ))
  806. .timer 1 1 msg %Gather.Channel $stl(Kills: $+ %Gather.Color2 $stats(%STEAM).kills %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Deaths: $+ %Gather.Color2 $stats(%STEAM).deaths %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Accuracy: $+ %Gather.Color2 $calc($stats(%STEAM).kills / $stats(%STEAM).deaths) %Gather.Color3 $+ %Gather.ColorChr %Gather.Color1 $+ Plants: $+ %Gather.Color2 $stats(%STEAM).plants %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 M4A1: $+ %Gather.Color2 $stats(%STEAM).m4a1 %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 AK47: $+ %Gather.Color2 $stats(%STEAM).ak47 %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 AWP: $+ %Gather.Color2 $stats(%STEAM).awp $+ )
  807. .timer 1 1 msg %Gather.Channel $stl(Deagle: $+ %Gather.Color2 $stats(%STEAM).DEAGLE %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Usp: $+ %Gather.Color2 $stats(%STEAM).USP %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Famas: $+ %Gather.Color2 $stats(%STEAM).famas %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Galil: $+ %Gather.Color2 $Stats(%STEAM).galil %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Glock: $+ %Gather.Color2 $stats(%STEAM).glock18 %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Knife: $+ %Gather.Color2 $stats(%STEAM).Knife %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Tks: $+ %Gather.Color2 $stats(%STEAM).Tks %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 Aces: $+ %Gather.Color2 $Stats(%STEAM).aces %Gather.Color3 $+ %Gather.ColorChr $+ %Gather.Color1 MiniAces: $+ %Gather.Color2 $Stats(%STEAM).miniaces)
  808. }
  809. else { Set -u5 %Gather.Flood ON | msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ stats nickname' or ' $+ %Gather.Sign $+ stats steamid') }
  810. }
  811. alias ShowServer {
  812. if (%Gather.Server !== $Null) {
  813. if (%Gather.Connected == ON) { .timer 1 1 ShowPlayers }
  814. elseif (%Gather.Connected == BadRcon) { msg %Gather.Channel $stl(%Gather.Color2 $+ Bad rcon password $+ %Gather.Color1 check your server info again.) }
  815. elseif (%Gather.Connected == Banned) { msg %Gather.Channel $stl(Gatherbot is $+ %Gather.Color2 BANNED $+ %Gather.Color1 from this server.) }
  816. elseif (%Gather.Connected == OFF) { msg %Gather.Channel $stl(Gatherbot is not connected to server.) }
  817. }
  818. else { msg %Gather.Channel $stl(Server isn't set yet.) }
  819. }
  820. alias ShowPlayers {
  821. if (%Gather.Players-list) msg %Gather.Channel $stl(%Gather.Players-list)
  822. unset %Gather.Players-list
  823. unset %number
  824. }
  825. alias ShowBans {
  826. msg %Gather.Channel $stl(Banned ( $+ %Gather.Color2 $+  $+ $ini(Banned.ini,0) $+ %Gather.Color1 $+ ):) | var %x 1, %y 1, %temp
  827. while ($ini(Banned.ini,%x)) { var %temp = %temp $ini(Banned.ini,%x)
  828. if ($numtok(%temp,32) == 8) { .timer 1 %y msg %Gather.Channel $stl($replace(%temp,$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32))) | var %temp | inc %y }
  829. inc %x
  830. }
  831. if (%temp !== $null) { .timer 1 %y msg %Gather.Channel $stl($replace(%temp,$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32))) }
  832. }
  833. alias ShowIgnores {
  834. msg %Gather.Channel $stl(Ignored ( $+ %Gather.Color2 $+  $+ $ignore(0) $+ %Gather.Color1 $+ ):) | var %x 1, %y 1, %temp
  835. while ($ignore(%x)) {
  836. if ($len(%temp) < 200) var %temp = %temp $ignore(%x)
  837. else { .timer 1 %y msg %Gather.Channel $stl($replace(%temp,$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32))) | var %temp | inc %y }
  838. inc %x
  839. }
  840. if (%temp !== $null) { .timer 1 %y msg %Gather.Channel $stl($replace(%temp,$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32))) }
  841. }
  842.  
  843. alias Score {
  844. if ($1- == notlive) { return Match is not live yet. }
  845. if ($1- == a) {
  846. if (%Gather.Status == ON) {
  847. if (%Gather.Half == notyet) { return notset }
  848. if (%Gather.live == A-B) || (%Gather.live == B-A) {
  849. if (%Gather.live == A-B) && (%Gather.Half == First) { return %Gather.Score-CT }
  850. if (%Gather.live == B-A) && (%Gather.Half == First) { return %Gather.Score-T }
  851. if (%Gather.live == A-B) && (%Gather.Half == First-Second) { return %Gather.FirstA }
  852. if (%Gather.live == B-A) && (%Gather.Half == First-Second) { return %Gather.FirstA }
  853. if (%Gather.live == A-B) && (%Gather.Half == Second) { return $calc(%Gather.Score-T + %Gather.FirstA) }
  854. if (%Gather.live == B-A) && (%Gather.Half == Second) { return $calc(%Gather.Score-CT + %Gather.FirstA) }
  855. if (%Gather.live == A-B) && (%Gather.Half == Second-MR3) { return $calc(%Gather.FirstA + %Gather.SecondA) }
  856. if (%Gather.live == B-A) && (%Gather.Half == Second-MR3) { return $calc(%Gather.FirstA + %Gather.SecondA) }
  857. if (%Gather.live == B-A) && (%Gather.Half == MR3) { return $calc(%Gather.Score-T + %Gather.FirstA + %Gather.SecondA) }
  858. if (%Gather.live == A-B) && (%Gather.Half == MR3) { return $calc(%Gather.Score-CT + %Gather.FirstA + %Gather.SecondA) }
  859. if (%Gather.live == B-A) && (%Gather.Half == MR3-MR4) { return $calc(%Gather.Score-T + %Gather.FirstA + %Gather.SecondA) }
  860. if (%Gather.live == A-B) && (%Gather.Half == MR3-MR4) { return $calc(%Gather.Score-CT + %Gather.FirstA + %Gather.SecondA) }
  861. if (%Gather.live == B-A) && (%Gather.Half == MR4) { return $calc(%Gather.Score-CT + %Gather.FirstA + %Gather.SecondA + %Gather.MR3A) }
  862. if (%Gather.live == A-B) && (%Gather.Half == MR4) { return $calc(%Gather.Score-T + %Gather.FirstA + %Gather.SecondA + %Gather.MR3A) }
  863. }
  864. }
  865. else { return None }
  866. }
  867. if ($1- == anow) {
  868. if (%Gather.Status == ON) {
  869. if (%Gather.Half == notyet) { return notset }
  870. if (%Gather.live == A-B) || (%Gather.live == B-A) {
  871. if (%Gather.live == A-B) && (%Gather.Half == First) { return %Gather.Score-CT }
  872. if (%Gather.live == B-A) && (%Gather.Half == First) { return %Gather.Score-T }
  873. if (%Gather.live == A-B) && (%Gather.Half == First-Second) { return %Gather.FirstA }
  874. if (%Gather.live == B-A) && (%Gather.Half == First-Second) { return %Gather.FirstA }
  875. if (%Gather.live == A-B) && (%Gather.Half == Second) { return %Gather.Score-T }
  876. if (%Gather.live == B-A) && (%Gather.Half == Second) { return %Gather.Score-CT }
  877. if (%Gather.live == A-B) && (%Gather.Half == Second-MR3) { return %Gather.SecondA }
  878. if (%Gather.live == B-A) && (%Gather.Half == Second-MR3) { return %Gather.SecondA }
  879. if (%Gather.live == A-B) && (%Gather.Half == MR3) { return %Gather.Score-CT }
  880. if (%Gather.live == B-A) && (%Gather.Half == MR3) { return %Gather.Score-T }
  881. if (%Gather.live == A-B) && (%Gather.Half == MR4) { return %Gather.Score-T }
  882. if (%Gather.live == B-A) && (%Gather.Half == MR4) { return %Gather.Score-CT }
  883. }
  884. }
  885. else { return None }
  886. }
  887. if ($1- == b) {
  888. if (%Gather.Status == ON) {
  889. if (%Gather.Half == notyet) { return notset }
  890. if (%Gather.live == A-B) || (%Gather.live == B-A) {
  891. if (%Gather.live == A-B) && (%Gather.Half == First) { return %Gather.Score-T }
  892. if (%Gather.live == B-A) && (%Gather.Half == First) { return %Gather.Score-CT }
  893. if (%Gather.live == A-B) && (%Gather.Half == First-Second) { return %Gather.FirstB }
  894. if (%Gather.live == B-A) && (%Gather.Half == First-Second) { return %Gather.FirstB }
  895. if (%Gather.live == A-B) && (%Gather.Half == Second) { return $calc(%Gather.Score-CT + %Gather.FirstB) }
  896. if (%Gather.live == B-A) && (%Gather.Half == Second) { return $calc(%Gather.Score-T + %Gather.FirstB) }
  897. if (%Gather.live == A-B) && (%Gather.Half == Second-MR3) { return $calc(%Gather.FirstB + %Gather.SecondB) }
  898. if (%Gather.live == B-A) && (%Gather.Half == Second-MR3) { return $calc(%Gather.FirstB + %Gather.SecondB) }
  899. if (%Gather.live == B-A) && (%Gather.Half == MR3) { return $calc(%Gather.Score-CT + %Gather.FirstB + %Gather.SecondB) }
  900. if (%Gather.live == A-B) && (%Gather.Half == MR3) { return $calc(%Gather.Score-T + %Gather.FirstB + %Gather.SecondB) }
  901. if (%Gather.live == B-A) && (%Gather.Half == MR3-MR4) { return $calc(%Gather.Score-CT + %Gather.FirstB + %Gather.SecondB) }
  902. if (%Gather.live == A-B) && (%Gather.Half == MR3-MR4) { return $calc(%Gather.Score-T + %Gather.FirstB + %Gather.SecondB) }
  903. if (%Gather.live == B-A) && (%Gather.Half == MR4) { return $calc(%Gather.Score-T + %Gather.FirstB + %Gather.SecondB + %Gather.MR3B) }
  904. if (%Gather.live == A-B) && (%Gather.Half == MR4) { return $calc(%Gather.Score-CT + %Gather.FirstB + %Gather.SecondB + %Gather.MR3B) }
  905. }
  906. }
  907. else { return None }
  908. }
  909. if ($1- == bnow) {
  910. if (%Gather.Status == ON) {
  911. if (%Gather.Half == notyet) { return notset }
  912. if (%Gather.live == A-B) || (%Gather.live == B-A) {
  913. if (%Gather.live == A-B) && (%Gather.Half == First) { return %Gather.Score-T }
  914. if (%Gather.live == B-A) && (%Gather.Half == First) { return %Gather.Score-CT }
  915. if (%Gather.live == A-B) && (%Gather.Half == First-Second) { return %Gather.FirstB }
  916. if (%Gather.live == B-A) && (%Gather.Half == First-Second) { return %Gather.FirstB }
  917. if (%Gather.live == A-B) && (%Gather.Half == Second) { return %Gather.Score-CT }
  918. if (%Gather.live == B-A) && (%Gather.Half == Second) { return %Gather.Score-T }
  919. if (%Gather.live == A-B) && (%Gather.Half == Second-MR3) { return %Gather.SecondB }
  920. if (%Gather.live == B-A) && (%Gather.Half == Second-MR3) { return %Gather.SecondB }
  921. if (%Gather.live == A-B) && (%Gather.Half == MR3) { return %Gather.Score-T }
  922. if (%Gather.live == B-A) && (%Gather.Half == MR3) { return %Gather.Score-CT }
  923. if (%Gather.live == A-B) && (%Gather.Half == MR4) { return %Gather.Score-CT }
  924. if (%Gather.live == B-A) && (%Gather.Half == MR4) { return %Gather.Score-T }
  925. }
  926. }
  927. else { return None }
  928. }
  929. if ($1 == Half) {
  930. if (%Gather.Status == ON) {
  931. if (%Gather.Half == notyet) { return notyet }
  932. if (%Gather.live == A-B) || (%Gather.live == B-A) {
  933. if (%Gather.Half == First) && ($calc(%Gather.Score-CT + %Gather.Score-T) == 14) { return 1st Half }
  934. if (%Gather.Half == First) && ($calc(%Gather.Score-CT + %Gather.Score-T) !== 14) { return 1st Half }
  935. if (%Gather.Half == First-Second) { return 2nd Half }
  936. if (%Gather.Half == Second) { return 2nd Half }
  937. if (%Gather.Half == Second-MR3) { return MR3 1st.Half }
  938. if (%Gather.Half == MR3) { return MR3 1st.Half }
  939. if (%Gather.Half == MR3-MR4) { return MR3 2nd.Half }
  940. if (%Gather.Half == MR4) { return MR3 2nd.Half }
  941. }
  942. }
  943. else { return None }
  944. }
  945. }
  946. alias Score.color {
  947. if ($1- == a) {
  948. if (%Gather.live == A-B) && ( (%Gather.half !== notyet) || (%Gather.Half == first) ) { return 12 }
  949. if (%Gather.live == B-A) && ( (%Gather.half !== notyet) || (%Gather.Half == first) ) { return 4 }
  950. if (%Gather.live == A-B) && ( (%Gather.half !== First-Second) || (%Gather.Half == Second) ) { return 4 }
  951. if (%Gather.live == B-A) && ( (%Gather.half !== First-Second) || (%Gather.Half == Second) ) { return 12 }
  952. if (%Gather.live == A-B) && ( (%Gather.half !== Second-MR3) || (%Gather.Half == MR3) ) { return 12 }
  953. if (%Gather.live == B-A) && ( (%Gather.half !== Second-MR3) || (%Gather.Half == MR3) ) { return 4 }
  954. if (%Gather.live == A-B) && ( (%Gather.half !== MR3-MR4) || (%Gather.Half == MR4) ) { return 4 }
  955. if (%Gather.live == B-A) && ( (%Gather.half !== MR3-MR4) || (%Gather.Half == MR4) ) { return 12 }
  956. }
  957. if ($1- == b) {
  958. if (%Gather.live == A-B) && ( (%Gather.half !== notyet) || (%Gather.Half == first) ) { return 4 }
  959. if (%Gather.live == B-A) && ( (%Gather.half !== notyet) || (%Gather.Half == first) ) { return 12 }
  960. if (%Gather.live == A-B) && ( (%Gather.half !== First-Second) || (%Gather.Half == Second) ) { return 12 }
  961. if (%Gather.live == B-A) && ( (%Gather.half !== First-Second) || (%Gather.Half == Second) ) { return 4 }
  962. if (%Gather.live == A-B) && ( (%Gather.half !== Second-MR3) || (%Gather.Half == MR3) ) { return 4 }
  963. if (%Gather.live == B-A) && ( (%Gather.half !== Second-MR3) || (%Gather.Half == MR3) ) { return 12 }
  964. if (%Gather.live == A-B) && ( (%Gather.half !== MR3-MR4) || (%Gather.Half == MR4) ) { return 12 }
  965. if (%Gather.live == B-A) && ( (%Gather.half !== MR3-MR4) || (%Gather.Half == MR4) ) { return 4 }
  966. }
  967. }
  968. alias RCONstart { if ($ip) { RCON } | else { .timerRCONstart 1 5 RCONstart } }
  969. alias RCONclose { rcmd logaddress_del $ip %Gather.Port | unset %Gather.RCON-challenge | .timerRCON OFF | .timerECHO OFF | Set %Gather.Connected OFF | sockclose rcon* | echo -s (12RCON1) 1---4Sockets closed1--- }
  970. alias RconLOG {
  971. rcmd nochn logaddress_del $ip %gather.port
  972. rcmd nochn logaddress_del $ip %gather.port
  973. .timer -m 1 230 rcmd nochn mp_logfile 1
  974. .timer -m 1 260 rcmd nochn mp_logdetail 2
  975. .timer -m 1 290 rcmd nochn sv_rcon_banpenalty 1
  976. .timer -m 1 320 rcmd nochn sv_rcon_maxfailures 20
  977. .timer -m 1 350 rcmd nochn sv_rcon_minfailures 20
  978. .timer -m 1 380 rcmd nochn sv_rcon_minfailuretime 1
  979. .timer -m 1 420 rcmd nochn log on
  980. .timer -m 1 450 rcmd nochn admin_ignore_immunity 1
  981. .timer -m 1 480 rcmd nochn logaddress_add $ip %gather.port
  982. .timer -m 1 500 echo -s (12RCON1) 3* Open Socket Rcon LOG... *
  983. }
  984. alias RCON { if ($ip) echo -s (12RCON1) 4* Starting RCON * | echo -s (12RCON1) Server IPort:12 %Gather.Server | echo -s (12RCON1) Rcon password is:12 %Gather.RconPass | echo -s (12RCON1) Port is:12 %Gather.Port | echo -s (12RCON1) Your IP is:12 $ip | echo -s  | GETchallenge | sockudp -k rconLOG %Gather.Port $replace(%Gather.Server,$chr(58),$chr(32)) $str($chr(255),4) | .timerLOG -m 1 750 RconLOG }
  985. alias GETchallenge { sockclose rconChallenge | sockudp -k rconChallenge $replace(%Gather.Server,$chr(58),$chr(32)) $str($chr(255),4) $+ challenge rcon }
  986. on *:udpread:rconChallenge: { var %RCON-challenge | sockread %RCON-challenge | if ($gettok(%RCON-challenge,3,32) isnum) { Set %Gather.RCON-challenge $gettok(%RCON-challenge,3,32) } | elseif ($gettok(%RCON-challenge,3,32) !isnum) && (%Gather.Connected !== Banned) { Set %Gather.Connected Banned | RCONclose | echo -s 1(12RCON1)4 You are BANNED from the Server RCON Closed ! 2Check your Server details. } }
  987. alias rcmd { if ($1 != nochn) GETchallenge | sockudp -k rconCMD $replace(%Gather.Server,$chr(58),$chr(32)) $str($chr(255),4) $+ rcon %Gather.RCON-challenge " $+ %Gather.RconPass $+ " $iif($1 == nochn,$2-,$1-) }
  988. on *:udpread:rconLOG:{
  989. var %LOG
  990. sockread -f %LOG
  991. while ($sockbr) {
  992. if (%LOG) && (echo check !isin %LOG) RCON.DATA $gettok(%LOG,6-,32)
  993. sockread -f %LOG
  994. }
  995. }
  996. on *:udpread:rconCMD: {
  997. var %CMD
  998. sockread -f %CMD
  999. while ($sockbr) {
  1000. if ($mid(%CMD,1,5) == $+($str($chr(255),4),l)) tokenize 32 $mid(%CMD,6-)
  1001. else tokenize 32 %CMD
  1002. if (!$window(@Console)) && ($1- != $null) /window -e @Console
  1003. if ($1- != $null) && ($1- != check) && ($gettok($1-,6,32) !== check") && ($gettok($1-,5,32) !== echo) { echo @Console (12RCON1) $1- }
  1004. if (echo check !isin $1-) RCON.DATA $1-
  1005. sockread -f %CMD
  1006. }
  1007. }
  1008.  
  1009. alias RCON.DATA {
  1010. if (!$window(@Console)) .window -e @Console
  1011. var %rcon.dat = $1- , %rcon.said = $clr($1-).said , %rcon.nick = $replace($clr($1-).nick,$chr(124),$chr(124)) , %rcon.nick2 = $replace($clr($1-).nick2,$chr(124),$chr(124)) , %rcon.steam = $clr($1-).steam , %rcon.steam2 = $clr($1-).steam2 , %rcon.num = $clr($1-).num , %r = rcmd , %rcon.weapon = $clr($1-).weapon , %rcon.team = $clr($1-).team , %rcon.team2 = $clr($1-).team2
  1012. if (*Bad rcon_password.* iswm $1-) && (%Gather.Connected !== BadRcon) { Set %Gather.Connected BadRcon | echo -s (12RCON1) 4* BAD RCON PASSWORD - Closing RCON Socket... * }
  1013. if (Server shutdown isin $1-) { Set %Gather.Connected OFF | echo -s (12RCON1) 4* SERVER SHUTDOWN - Closing RCON Socket... * }
  1014. if ( (Rcon: isin $1-) || (Logging disabled isin $1-) || (logaddress_del isin $1-) ) && (Bad Rcon !isin $1-) && (%Gather.Connected !== ON) { Set %Gather.Connected ON | echo -s (12RCON1) 12Gatherbot connected to the SERVER !!! | .timerRCON 0 600 rcon | .timerECHO 0 30 rcmd echo Ventox Gatherbot keep the connection | echo -s (12RCON1) 12Gatherbot connected to the SERVER !!! | echo -s (12RCON1) 12Gatherbot connected to the SERVER !!! }
  1015. if (STEAM USERID validated == $clr($1-)) && (%Gather.Status == ON) { ssay %rcon.nick Has connected. | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel 3 $+ $replace(%rcon.nick,$Chr(124),-) connected } }
  1016. if (disconnected == $clr($1-)) && (%Gather.Status == ON) { Set %Gather.Banlast %Rcon.steam | ssay %rcon.nick Has disconnected ,Type %Gather.Sign-Server $+ Banlast | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel 3 $+ $replace(%rcon.nick,$Chr(124),-) disconnected } }
  1017. if (echo check !isin $1-) { echo @Console (12RCON1) $$1- }
  1018. if (Bad Rcon: "rcon* iswm %rcon.dat) { Set %Gather.Connected BadRcon }
  1019. if (You have been banned from this server. == %Rcon.dat) && (%Gather.Connected !== Banned) { Set %Gather.Connected Banned }
  1020. if (World triggered "Restart_Round isin %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3Restart Round: $remove($gettok(%rcon.dat,3,95),$chr(40)) $Iif($remove($gettok(%rcon.dat,3,95),$chr(40)) == 1,second,seconds) } }
  1021. if (*Team "TERRORIST" triggered "Terrorists_Win"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { set %Gather.Score-T $remove($gettok(%rcon.dat,2,41),T,",$chr(40)) | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 4Terrorists Win: Eliminated Opponents 12(CT %Gather.Score-CT $+ ) 4(T %Gather.Score-T $+ ) } }
  1022. if (*Team "CT" triggered "CTs_Win"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { set %Gather.Score-CT $remove($gettok(%rcon.dat,2,40),CT,",$chr(41)) | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 12Counter-Terrorists Win: Eliminated Opponents 12(CT %Gather.Score-CT $+ ) 4(T %Gather.Score-T $+ ) } }
  1023. if (*Team "CT" triggered "Target_Saved"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { set %Gather.Score-CT $remove($gettok(%rcon.dat,2,40),CT,",$chr(41)) | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 12Counter-Terrorists Win: Target Saved 12(CT %Gather.Score-CT $+ ) 4(T %Gather.Score-T $+ ) } }
  1024. if (*Team "TERRORIST" triggered "Target_Bombed"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { .writeini -n Mvps.ini $gettok(%Gather.BombPlanet,1,32) Points $calc($readini(Mvps.ini,$gettok(%Gather.BombPlanet,1,32),Points) +1) | .writeini -n Stats.ini $gettok(%Gather.BombPlanet,1,32) Points $calc($readini(Stats.ini,$gettok(%Gather.BombPlanet,1,32),Points) +1) | set %Gather.Score-T $remove($gettok(%rcon.dat,2,41),T,",$chr(40)) | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 4Terrorists Win: Target Bombed 12(CT %Gather.Score-CT $+ ) 4(T %Gather.Score-T $+ ) (+3 kills for 4 $+ $replace($gettok(%Gather.BombPlanet,2-,32),$Chr(124),-) $+ ) } }
  1025. if (*Team "CT" triggered "Bomb_Defused"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { set %Gather.Score-CT $remove($gettok(%rcon.dat,2,40),CT,",$chr(41)) | if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 12Counter-Terrorists Win: Bomb Defused 12(CT %Gather.Score-CT $+ ) 4(T %Gather.Score-T $+ ) } }
  1026. if (*World triggered "Round_End"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) {
  1027. if ($exists(Kills.ini)) {
  1028. var %x = 1
  1029. while ($ini(Kills.ini,%x)) {
  1030. if ($readini(Kills.ini,$ini(Kills.ini,%x),Kills) == 4) { .writeini -n Stats.ini $ini(Kills.ini,%x) MiniAces $calc($readini(Stats.ini,$ini(Kills.ini,%x),MiniAces) +1) | .writeini -n Mvps.ini $ini(Kills.ini,%x) Points $calc($readini(Mvps.ini,$ini(Kills.ini,%x),Points) +3.07) | .writeini -n Stats.ini $ini(Kills.ini,%x) Points $calc($readini(Stats.ini,$ini(Kills.ini,%x),Points) +3.07) | tsay $Stats($ini(Kills.ini,%x)).nick Just did an MINI ACE. | ssay $Stats($ini(Kills.ini,%x)).nick Just did an MINI ACE. | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ $Stats($ini(Kills.ini,%x)).nick %Gather.Color1 $+ Just did an MINI ACE.) }
  1031. inc %x
  1032. }
  1033. .remove Kills.ini
  1034. }
  1035. if ($calc($Score(a) + $Score(b)) == 15) && (!%Gather.FirstA) && (!%Gather.FirstB) { SWAP | End1stHalf }
  1036. if ($calc($Score(a) + $Score(b)) == 14) && (!%Gather.FirstA) && (!%Gather.FirstB) { .timer 1 6 ssay Last round has been started. | .timer 1 6 tsay Last round has been started. }
  1037. if ($Score(a) == 15) && (%Gather.Half == Second) { .timer 1 6 ssay Last round for (Team-A) has been started. | .timer 1 6 tsay Last round for (Team-A) has been started. }
  1038. if ($Score(b) == 15) && (%Gather.Half == Second) { .timer 1 6 ssay Last round for (Team-B) has been started. | .timer 1 6 tsay Last round for (Team-B) has been started. }
  1039. if ( ($Score(a) == 16) || ($Score(b) == 16) ) && (%Gather.Half == Second) { EndGather }
  1040. if ( ($Score(a) == 19) || ($Score(b) == 19) ) && (%Gather.Half == MR4) { EndGather }
  1041. if ( ($Score(a) == 18) && ($Score(b) == 18) ) && (%Gather.Half == MR4) { EndGather }
  1042. if (%Gather.Half == MR3) && ($calc(%Gather.Score-T + %Gather.Score-CT) == 3) { SWAP | EndMR3Half }
  1043. if ($Score(a) == 15) && ($Score(b) == 15) && (%Gather.Half == Second) { SWAP | End2ndHalf }
  1044. ShowServerScore
  1045. unset %Gather.BombPlanet
  1046. }
  1047. if (World triggered "Round_Start"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) { unset %Gather.BombPlanet | if ($exists(Kills.ini)) { .remove Kills.ini } }
  1048. if (World triggered "Round_Draw"* iswm %rcon.dat) && (%Gather.Scorestatus == on) && (%Gather.live) && (%Gather.status == on) {
  1049.  
  1050. ;;;; ScoreBOT ;;;;;
  1051.  
  1052. if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3Round Draw! 12(CT 0) 4(T 0) }
  1053.  
  1054. ;;;; End Of ScoreBOT ;;;;
  1055.  
  1056. unset %Gather.BombPlanet
  1057. if ($exists(Kills.ini)) { .remove Kills.ini }
  1058. }
  1059. if ($1 isnum) && ($2 == :) && ($remove($3,STEAM_,:) isnum) && ($4 == :) && ($5) { inc %number | set %Gather.Players-list %Gather.Players-list %Gather.Color2 $+ ( $+ %number $+ ) $+ %Gather.Color1 $iif($iif(%Gather.AdminUser,$ifmatch,NoGATHER) == $acc($3).user, $+ %Gather.Color2 $+  $+ $replace($5-,$chr(124),$chr(124)) $+  $+ %Gather.Color1 $+ ,$replace($5-,$chr(124),$chr(124))) }
  1060. if (attacked == $clr($1-)) && (!%Gather.TK. [ $+ [ %rcon.steam ] ]) && (%rcon.team == %rcon.team2) {
  1061. Set -u2 %Gather.TK. [ $+ [ %rcon.steam ] ] ON | rcmd admin_command admin_ssay ( $+ $iif(%RCON.team == TERRORIST,TS,CT) $+ ) ( $+ %rcon.nick $+ ) attacked ( $+ %rcon.nick2 $+ )
  1062. }
  1063. if (Killed == $clr($1-)) && (%Gather.Status == on) && (%Gather.Scorestatus == on) && (%Gather.Live) {
  1064. if (%rcon.team !== %rcon.team2) {
  1065.  
  1066. ;;;; ScoreBOT ;;;;;
  1067.  
  1068. if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel $iif(%rcon.team == CT,12,4) $+ $replace(%rcon.nick,$Chr(124),-) 3killed $iif(%rcon.team2 == CT,12,4) $+ $replace(%rcon.nick2,$Chr(124),-) 3with %rcon.weapon }
  1069.  
  1070. ;;;; End Of ScoreBOT ;;;;
  1071.  
  1072. if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points %Gather.Points }
  1073. if (!$readini(Stats.ini,%rcon.steam2,Points)) { .writeini -n Stats.ini %rcon.steam2 Points %Gather.Points }
  1074.  
  1075. if (!$readini(Mvps.ini,%rcon.steam,Points)) { .writeini -n Mvps.ini %rcon.steam Points %Gather.Points }
  1076. if (!$readini(Mvps.ini,%rcon.steam2,Points)) { .writeini -n Mvps.ini %rcon.steam2 Points %Gather.Points }
  1077.  
  1078. .writeini -n Stats.ini %rcon.steam nick %rcon.nick
  1079. .writeini -n Stats.ini %rcon.steam2 nick %rcon.nick2
  1080. .writeini -n Stats.ini %rcon.steam kills $calc($readini(Stats.ini,%rcon.steam,kills) +1)
  1081. .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) + $Guns(%rcon.weapon))
  1082. .writeini -n Stats.ini %rcon.steam2 Points $calc($readini(Stats.ini,%rcon.steam2,Points) -1)
  1083.  
  1084. .writeini -n Mvps.ini %rcon.steam Points $calc($readini(Mvps.ini,%rcon.steam,Points) + $Guns(%rcon.weapon))
  1085. .writeini -n Mvps.ini %rcon.steam2 Points $calc($readini(Mvps.ini,%rcon.steam2,Points) -1)
  1086.  
  1087. .writeini -n Stats.ini %rcon.steam $clr($1-).gun $calc($readini(Stats.ini,%rcon.steam,$clr($1-).gun) +1)
  1088. .writeini -n Stats.ini %rcon.steam2 deaths $calc($readini(Stats.ini,%rcon.steam2,deaths) +1)
  1089. if ($readini(Kills.ini,%rcon.steam,Kills)) { .writeini -n Kills.ini %rcon.steam Kills $calc($readini(Kills.ini,%rcon.steam,Kills) +1) }
  1090. elseif (!$readini(Kills.ini,%rcon.steam,Kills)) { .writeini -n Kills.ini %rcon.steam Kills 1 }
  1091. if ($readini(Kills.ini,%rcon.steam,Kills) == 5) { .writeini -n Stats.ini %rcon.steam Aces $calc($readini(Stats.ini,%rcon.steam,Aces) +1) | .writeini -n Mvps.ini %rcon.steam Points $calc($readini(Mvps.ini,%rcon.steam,Points) +4.51) | .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) +4.51) | tsay %rcon.nick Just did an ACE. | ssay %rcon.nick Just did an ACE. | msg %Gather.Channel $stl(%Gather.Color2 $+  $+ %rcon.nick %Gather.Color1 $+ Just did an ACE.) | .remove Kills.ini }
  1092.  
  1093. if (!$readini(Stats.ini,%rcon.steam,Last)) || ($readini(Stats.ini,%rcon.steam,Last) !== %Gather.num) {
  1094. .writeini -n Stats.ini %rcon.steam Last %Gather.num
  1095. if ($readini(Stats.ini,%rcon.steam,Gathers)) { .writeini -n Stats.ini %rcon.steam Gathers $calc($readini(Stats.ini,%rcon.steam,Gathers) +1) }
  1096. elseif (!$readini(Stats.ini,%rcon.steam,Gathers)) { .writeini -n Stats.ini %rcon.steam Gathers 1 }
  1097. }
  1098. if (!$readini(Stats.ini,%rcon.steam2,Last)) || ($readini(Stats.ini,%rcon.steam2,Last) !== %Gather.num) {
  1099. .writeini -n Stats.ini %rcon.steam2 Last %Gather.num
  1100. if ($readini(Stats.ini,%rcon.steam2,Gathers)) { .writeini -n Stats.ini %rcon.steam2 Gathers $calc($readini(Stats.ini,%rcon.steam2,Gathers) +1) }
  1101. elseif (!$readini(Stats.ini,%rcon.steam2,Gathers)) { .writeini -n Stats.ini %rcon.steam2 Gathers 1 }
  1102. }
  1103. }
  1104. elseif (%rcon.team == %rcon.team2) {
  1105.  
  1106. ;;;; ScoreBOT ;;;;;
  1107.  
  1108. if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel $iif(%rcon.team == CT,12,4) $+ $replace(%rcon.nick,$Chr(124),-) 3killed their teammate $iif(%rcon.team == CT,12,4) $+ $replace(%rcon.nick2,$Chr(124),-) 3with %rcon.weapon }
  1109.  
  1110. ;;;; End Of ScoreBOT ;;;;
  1111.  
  1112. if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points %Gather.Points }
  1113. if (!$readini(Stats.ini,%rcon.steam2,Points)) { .writeini -n Stats.ini %rcon.steam2 Points %Gather.Points }
  1114.  
  1115. if (!$readini(Mvps.ini,%rcon.steam,Points)) { .writeini -n Mvps.ini %rcon.steam Points %Gather.Points }
  1116. if (!$readini(Mvps.ini,%rcon.steam2,Points)) { .writeini -n Mvps.ini %rcon.steam2 Points %Gather.Points }
  1117.  
  1118. .writeini -n Stats.ini %rcon.steam nick %rcon.nick
  1119. .writeini -n Stats.ini %rcon.steam2 nick %rcon.nick2
  1120. .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) -1)
  1121.  
  1122. .writeini -n Mvps.ini %rcon.steam Points $calc($readini(Mvps.ini,%rcon.steam,Points) -1)
  1123. .writeini -n Stats.ini %rcon.steam Tks $calc($readini(Stats.ini,%rcon.steam,Tks) +1)
  1124.  
  1125. }
  1126. }
  1127. if (Triggered == $clr($1-)) {
  1128.  
  1129. if ($clr($1-).said == Planted_The_Bomb) && (%Gather.Status == on) && (%Gather.ScoreStatus == on) {
  1130. set %Gather.BombPlanet %rcon.steam %rcon.nick
  1131.  
  1132. ;;;; ScoreBOT ;;;;;
  1133.  
  1134. if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel 4 $+ $replace(%rcon.nick,$Chr(124),-) 3Planted The Bomb }
  1135.  
  1136. ;;;; End Of ScoreBOT ;;;;
  1137.  
  1138.  
  1139. if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points %Gather.Points }
  1140. if (!$readini(Mvps.ini,%rcon.steam,Points)) { .writeini -n Mvps.ini %rcon.steam Points %Gather.Points }
  1141. .writeini -n Stats.ini %rcon.steam nick %rcon.nick
  1142. .writeini -n Mvps.ini %rcon.steam Points $calc($readini(Mvps.ini,%rcon.steam,Points) +1.01) | .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) +1.01) | .writeini -n Stats.ini %rcon.steam plants $calc($readini(Stats.ini,%rcon.steam,plants) +1)
  1143. }
  1144. if ($clr($1-).said == Spawned_With_The_Bomb) && (%Gather.Status == on) && (%Gather.ScoreStatus == on) {
  1145.  
  1146. ;;;; ScoreBOT ;;;;;
  1147.  
  1148. if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel 4 $+ $replace(%rcon.nick,$chr(124),-) 3spawned with the bomb }
  1149.  
  1150. ;;;; End Of ScoreBOT ;;;;
  1151.  
  1152. }
  1153. if ($clr($1-).said == Defused_The_Bomb) && (%Gather.Status == on) && (%Gather.ScoreStatus == on) {
  1154.  
  1155. ;;;; ScoreBOT ;;;;;
  1156.  
  1157. if (%Gather.ScoreChannel) && (%Gather.ScoreBOT == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel 12 $+ $replace(%rcon.nick,$Chr(124),-) 3defused the bomb }
  1158.  
  1159. ;;;; End Of ScoreBOT ;;;;
  1160.  
  1161. if (!$readini(Stats.ini,%rcon.steam,Points)) { .writeini -n Stats.ini %rcon.steam Points %Gather.Points }
  1162. if (!$readini(Mvps.ini,%rcon.steam,Points)) { .writeini -n Mvps.ini %rcon.steam Points %Gather.Points }
  1163. .writeini -n Stats.ini %rcon.steam nick %rcon.nick
  1164. .writeini -n Mvps.ini %rcon.steam Points $calc($readini(Mvps.ini,%rcon.steam,Points) +1.01) | .writeini -n Stats.ini %rcon.steam Points $calc($readini(Stats.ini,%rcon.steam,Points) +1.01) | .writeini -n Stats.ini %rcon.steam defuses $calc($readini(Stats.ini,%rcon.steam,defuses) +1)
  1165. }
  1166. }
  1167. if ($clr($1-) == say) || ($clr($1-) == say_team) {
  1168. Tokenize 32 $clr($1-).said
  1169. if ($1- == %Gather.Sign-Server $+ Commands) && (!%Gather.FloodServer) { Set -u1 %Gather.FloodServer ON | ssay Commands are: %Gather.Sign-Server $+ Vent %Gather.Sign-Server $+ Score %Gather.Sign-Server $+ Stats %Gather.Sign-Server $+ Rank %Gather.Sign-Server $+ Admin }
  1170. elseif ($1- == %Gather.Sign-Server $+ Vent) && (!%Gather.FloodServer) { Set -u1 %Gather.FloodServer ON | ssay Vent is: %Gather.Vent ( $+ %Gather.Vent-Version $+ ) }
  1171. elseif ($1- == %Gather.Sign-Server $+ Time) && (!%Gather.FloodServer) { Set -u1 %Gather.FloodServer ON | ssay Time is now: $time }
  1172. elseif ($1- == %Gather.Sign-Server $+ $+($chr(99),$chr(114),$chr(101),$chr(100),$chr(105),$chr(116),$chr(115))) && (!%Gather.FloodServer) { Set -u1 %Gather.FloodServer ON | ssay $ServerPING }
  1173. elseif ($1- == %Gather.Sign-Server $+ Admin) && (!%Gather.FloodServer) && (%Gather.Status == on) { Set -u2 %Gather.FloodServer ON | ssay Admin is: %Gather.Admin ( $+ %Gather.Adminuser $+ ) }
  1174. elseif ($1- == %Gather.Sign-Server $+ Score) && (%Gather.Status == ON) && (!%Gather.FloodServer) {
  1175. if (%Gather.Live) { Set -u1 %Gather.FloodServer ON | ShowServerScore }
  1176. elseif (!%Gather.Live) { Set -u1 %Gather.FloodServer ON | ssay $score(notlive) }
  1177. }
  1178. elseif ($1 == %Gather.Sign-Server $+ Rank) && (%Gather.Status == ON) && (!%Gather.FloodServer) {
  1179. if ($stats(%rcon.steam).exists) && (!$2) { Set -u2 %Gather.FloodServer ON | psay %rcon.steam $stats(%rcon.steam).nick ( $+ %rcon.steam $+ ) Rank: $stats(%rcon.steam).rank $+ / $+ $ini(Stats.ini,0) ,Points: $stats(%rcon.steam).points ,Kills: $Stats(%rcon.steam).kills ,Deaths: $Stats(%rcon.steam).deaths }
  1180. if ($2) && ($stats($2).exists) { Set -u2 %Gather.FloodServer ON | psay %rcon.steam $stats($2).nick ( $+ $stats($2).steam $+ ) Rank: $stats($2).rank $+ / $+ $ini(Stats.ini,0) ,Points: $stats($2).points ,Kills: $stats($2).kills ,Deaths: $stats($2).deaths }
  1181. }
  1182. elseif ( ($1- == %Gather.Sign-Server $+ ready) || ($1- == %Gather.Sign-Server $+ rdy) ) && (%Gather.Ready == ON) && (!$Istok(%Gather.ReadySteams,%RCON.steam,32)) { AddReady %RCON.Steam %RCON.nick }
  1183. elseif ( ($1- == %Gather.Sign-Server $+ readys) || ($1- == %Gather.Sign-Server $+ rdys) ) && (%Gather.Ready == ON) { ssay (Team-A) ( $+ $numtok(%Gather.ReadyA,37) $+ / $+ $calc(%Gather.Max / 2) $+ ): $replace(%Gather.ReadyA,$chr(37),$chr(32)) | ssay (Team-B) ( $+ $numtok(%Gather.ReadyB,37) $+ / $+ $calc(%Gather.Max / 2) $+ ): $replace(%Gather.ReadyB,$chr(37),$chr(32)) }
  1184. elseif ($1 == %Gather.Sign-Server $+ Stats) && (%Gather.Status == ON) && (!%Gather.FloodServer) {
  1185. if ($stats(%rcon.steam).exists) && (!$2) {
  1186. Set -u2 %Gather.FloodServer ON
  1187. psay %rcon.steam Statistics for %rcon.nick Rank: $stats(%rcon.steam).rank $+ / $+ $ini(Stats.ini,0) ,Points: $stats(%rcon.steam).points
  1188. psay %rcon.steam Played on: $stats(%rcon.steam).Gathers Gathers
  1189. psay %rcon.steam Kills: $Stats(%rcon.steam).kills ,Deaths: $Stats(%rcon.steam).deaths ,Plants: $Stats(%rcon.steam).plants ,Defuses: $Stats(%rcon.steam).defuses
  1190. psay %rcon.steam M4A1: $Stats(%rcon.steam).M4A1 ,AK47: $Stats(%rcon.steam).AK47 ,AWP: $Stats(%rcon.steam).awp ,Deagle: $Stats(%rcon.steam).Deagle ,Tks: $Stats(%rcon.steam).tks ,Aces: $Stats(%rcon.steam).aces
  1191. }
  1192. if ($2) && ($stats($2).exists) {
  1193. var %TheSteam = $v1
  1194. Set -u3 %Gather.FloodServer ON
  1195. psay %TheSteam Statistics for %rcon.nick Rank: $stats(%TheSteam).rank $+ / $+ $ini(Stats.ini,0) ,Points: $stats(%TheSteam).points
  1196. psay %TheSteam Played on: $stats(%TheSteam).Gathers Gathers
  1197. psay %TheSteam Kills: $Stats(%TheSteam).kills ,Deaths: $Stats(%TheSteam).deaths ,Plants: $Stats(%TheSteam).plants ,Defuses: $Stats(%TheSteam).defuses
  1198. psay %TheSteam M4A1: $Stats(%TheSteam).M4A1 ,AK47: $Stats(%TheSteam).AK47 ,AWP: $Stats(%TheSteam).awp ,Deagle: $Stats(%TheSteam).Deagle ,Tks: $Stats(%TheSteam).tks ,Aces: $Stats(%TheSteam).aces
  1199. }
  1200. }
  1201. if ($Users(%rcon.steam,Owner).steam) || ($Users(%rcon.steam,Master).steam) || ($Users(%rcon.steam,Admin).steam) || ($Users(%rcon.steam,Manager).steam) {
  1202. var %o = $ifmatch
  1203. if ( ($1- == %Gather.Sign-Server $+ Teams) || ($1- == %Gather.Sign-Server $+ Players) ) && (%Gather.Status == ON) && (!%Gather.FloodServer) { ssay Team A: %Gather.Team-A | ssay Team B: %Gather.Team-B | $iif(%Gather.Subs,ssay Subs: %Gather.Subs) }
  1204. elseif ($1 == %Gather.Sign-Server $+ Freezetime) { ssay Freezetime is $2 now. | rcmd mp_freezetime $2 }
  1205. elseif ($1 == %Gather.Sign-Server $+ roundtime) && ($2 isnum) { ssay Roundtime is $2 now. | rcmd mp_roundtime $2 }
  1206. elseif ($1 == %Gather.Sign-Server $+ FF) {
  1207. if ($2 == ON) || ($2 == 1) { ssay Friendlyfire is $2 now. | rcmd mp_friendlyfire 1 }
  1208. if ($2 == OFF) || ($2 == $chr(48)) { ssay Friendlyfire is $2 now. | rcmd mp_friendlyfire 0 }
  1209. }
  1210. elseif ($1 == %Gather.Sign-Server $+ disconnect) || ($1 == %Gather.Sign-Server Quit) { rcmd admin_command admin_execall disconnect }
  1211. elseif ($1 == %Gather.Sign-Server $+ ss) { tsay Snapshot has just taken by the admin ( $+ %rcon.nick $+ ) | rcmd rcmd admin_quiet 1 | rcmd allow_client_exec 1 | rcmd admin_command admin_execall snapshot | rcmd admin_quiet 2 }
  1212. elseif ($1- == %Gather.Sign-Server $+ RR) { rcmd sv_restart 1 | ssay "Restart Round" (by %RCON.nick $+ ) }
  1213. elseif ($1- == %Gather.Sign-Server $+ PASS) && (%Gather.Status == ON) { psay %rcon.steam Server pass: %Gather.Pass Room-A: %Gather.PassA Room-B: %Gather.PassB }
  1214. elseif ( ($1- == %Gather.Sign-Server $+ SetReady) || ($1- == %Gather.Sign-Server $+ Setrdy) || ($1- == %Gather.Sign-Server $+ Startready) || ($1- == %Gather.Sign-Server $+ Startrdy) ) && (%Gather.Ready !== ON) && (%Gather.ScoreStatus !== ON) { Setready %RCON.nick }
  1215. elseif ( ($1- == %Gather.Sign-Server $+ Stoprdy) || ($1- == %Gather.Sign-Server $+ Stopready) ) && (%Gather.Ready == ON) && (%Gather.ScoreStatus !== ON) { Stopready %RCON.nick }
  1216. elseif ($1 == %Gather.Sign-Server $+ RR) && ($2) { rcmd sv_restart $2 | ssay Reastarting Game ( $+ $iif($2 < 61,$2,60) sec) by %RCON.nick }
  1217. elseif ($1 == %Gather.Sign-Server $+ Kick) && ($2) { rcmd admin_command admin_kick $2 | ssay $2 Kicked by %rcon.nick }
  1218. elseif ($1 == %Gather.Sign-Server $+ Ban) && ($2) { AddBan $2 %o $iif($3-,$3-,no reason) }
  1219. elseif ($1 == %Gather.Sign-Server $+ Bantk) && ($2) { AddBan $2 %o TK }
  1220. elseif ($1 == %Gather.Sign-Server $+ BanFlame) && ($2) { AddBan $2 %o Flame }
  1221. elseif ($1- == %Gather.Sign-Server $+ BanTK) && ($var(%Gather.TK.*,1)) { AddBan $remove($eval($var(%Gather.TK.*,1),1),$chr(37) $+ Gather.TK.) %o TK }
  1222. elseif ($1- == %Gather.Sign-Server $+ Banlast) && (%Gather.banlast) { AddBan %Gather.Banlast %o left in the middle. }
  1223. elseif ($1 == %Gather.Sign-Server $+ Unban) && ($2) { Unban $2 %o }
  1224. elseif ($1 == %%Gather.Sign-Server $+ Map) && ($2) && (%Gather.Status !== OFF) { ChangeMap $2 %rcon.nick }
  1225. elseif ($1- == %Gather.Sign-Server $+ ResetScore) { ssay The Score Has Been Restarted By %rcon.nick | ResetScore }
  1226. elseif ($1- == %Gather.Sign-Server $+ MR15) { ssay MR15 Settings loaded by %rcon.nick | MR15 }
  1227. elseif ($1- == %Gather.Sign-Server $+ PRAC) { ssay PRAC Settings loaded by %rcon.nick | PRAC }
  1228. elseif ($1- == %Gather.Sign-Server $+ Knife) { Knife }
  1229. elseif ($1 == %Gather.Sign-Server $+ T) && ($2) { MOVE-T $2- }
  1230. elseif ($1 == %Gather.Sign-Server $+ CT) && ($2) { MOVE-CT $2- }
  1231. elseif ($1 == %Gather.Sign-Server $+ hs) {
  1232. if ($2 == 1) || ($2 == on) { ssay Headshot mode is now enabled! | rcmd admin_command admin_rcon hs_mode 1 }
  1233. if ($2 == 0) || ($2 == off) { ssay Headshot mode is now disabled! | rcmd admin_command admin_rcon hs_mode 0 }
  1234. }
  1235. elseif ( ($1 == %Gather.Sign-Server $+ tsay) || ($1 == !) ) && ($2) { tsay $2- }
  1236. elseif ($1 == @) && ($2) { tsay-random $2- }
  1237. elseif ($1 == %Gather.Sign-Server $+ ssay) && ($2) { ssay $2- }
  1238. elseif ($1 == %Gather.Sign-Server $+ psay) && ($3) { psay $2 $3- }
  1239. elseif ($1 == %Gather.Sign-Server $+ say) && ($2) { rcmd say $2- }
  1240. elseif ($1- == %Gather.Sign-Server $+ Rates) { Rates }
  1241. elseif ( ($1- == %Gather.Sign-Server $+ nolive) || ($1- == %Gather.Sign-Server $+ notlive) || ($1- == %Gather.Sign-Server $+ resetlive) || ($1- == %Gather.Sign-Server $+ reset-live) ) && (%Gather.Status == ON) && (%Gather.ScoreStatus == ON) { ssay Match was stopped by %rcon.nick | tsay Match was stopped by %rcon.nick | NoLive }
  1242. elseif ($1 == %Gather.Sign-Server $+ Pass) && ($2) { rcmd sv_password $2 | ssay Password is $2 now.
  1243. if (%Gather.Status == ON) { Set %Gather.Pass $2 }
  1244. }
  1245. elseif ($1 == %Gather.Sign-Server $+ Map) && ($2) { .timer 1 1 rcmd admin_command admin_map $2 | ssay Map is $2 now.
  1246. if (%Gather.Status != OFF) { Set %Gather.Map $2 }
  1247. }
  1248. elseif ($1 == %Gather.Sign-Server $+ Sub) && ($2) && ( ($2 == A) || ($2 == B) || ($2 == OFF) ) && (%Gather.Status == ON) { SubSearch $2 %rcon.nick }
  1249. elseif ($1- == %Gather.Sign-Server $+ Sub-A) && (%Gather.Status == ON) { SubSearch A }
  1250. elseif ($1- == %Gather.Sign-Server $+ Sub-B) && (%Gather.Status == ON) { SubSearch B }
  1251. elseif ($1- == %Gather.Sign-Server $+ Sub-OFF) && (%Gather.Status == ON) { SubSearch OFF %rcon.nick }
  1252. elseif ($1- == %Gather.Sign-Server $+ SubA) && (%Gather.Status == ON) { SubSearch A }
  1253. elseif ($1- == %Gather.Sign-Server $+ SubB) && (%Gather.Status == ON) { SubSearch B }
  1254. elseif ($1- == %Gather.Sign-Server $+ SubOFF) && (%Gather.Status == ON) { SubSearch OFF %rcon.nick }
  1255. elseif ($1 == %Gather.Sign-Server $+ Notice) && ($2) { ssay Notice has been sent to channel. | Noticer $2- }
  1256. elseif ( ($1 == %Gather.Sign-Server $+ Msg) || ($1 == %Gather.Sign-Server $+ Message) ) && ($2) { ssay Message has been sent to channel. | msg %Gather.Channel $stl(Message from server by $+ %Gather.Color2 %rcon.nick $+ %Gather.Color1 $+ : $2-) }
  1257. elseif ($1 == %Gather.Sign-Server $+ Slay) && ($2) { rcmd admin_command admin_slay $2 | ssay $2 Slayed by %rcon.nick }
  1258. elseif ($1- == %Gather.Sign-Server $+ End) || ($1- == %Gather.Sign-Server $+ Finish) || ($1- == %Gather.Sign-Server $+ Stop) { EndGather %rcon.nick }
  1259. elseif ( ($1 == %Gather.Sign-Server $+ StartMoney) || ($1 == %Gather.Sign-Server $+ Money) ) && ($2) && ($2 isnum) { ssay Startmoney is $2 now. | rcmd mp_startmoney $2 }
  1260. elseif ( ($1 == %Gather.Sign-Server $+ Name) || ($1 == %Gather.Sign-Server $+ ChangeNick) || ($1 == %Gather.Sign-Server $+ ChangeName) || ($1 == %Gather.Sign-Server $+ Nick) ) && ($2) { rcmd admin_command admin_execclient $2 name " $+ $3- }
  1261. elseif ( ($1 == %Gather.Sign-Server $+ Start) || ($1 == %Gather.Sign-Server $+ Live) ) && (%Gather.Status == ON) && (!%Gather.FloodStart) {
  1262. if (%Gather.Half == First) || (%Gather.Half == notyet) {
  1263. if (A.* iswm %rcon.nick) || ($iif(%Gather.TAG-A,$ifmatch,A.) $+ * iswm %rcon.nick) || (Team A* iswm %rcon.nick) || (Team-A* iswm %rcon.nick) { set %Gather.Score-CT 0 | set %Gather.Score-T 0 | Start1stHalf
  1264. if (%rcon.team == CT) { set %Gather.live A-B | set %Gather.Scorestatus on | set %Gather.Half First }
  1265. elseif (%rcon.team == TERRORIST) { set %Gather.live B-A | set %Gather.Scorestatus on | set %Gather.Half First }
  1266. }
  1267. if (B.* iswm %rcon.nick) || ($iif(%Gather.TAG-B,$ifmatch,B.) $+ * iswm %rcon.nick) || (Team B* iswm %rcon.nick) || (Team-B* iswm %rcon.nick) { set %Gather.Score-CT 0 | set %Gather.Score-T 0 | set %Gather.Scorestatus on | set %Gather.Half First | Start1stHalf
  1268. if (%rcon.team == CT) { set %Gather.live B-A | set %Gather.Scorestatus on | set %Gather.Half First }
  1269. elseif (%rcon.team == TERRORIST) { set %Gather.live A-B | set %Gather.Scorestatus on | set %Gather.Half First }
  1270. }
  1271. }
  1272. elseif (%Gather.Half == First-Second) || (%Gather.Half == Second) { set %Gather.Half Second | set %Gather.ScoreStatus ON | set %Gather.Score-CT 0 | set %Gather.Score-T 0 | Start2ndHalf }
  1273. elseif (%Gather.Half == Second-MR3) || (%Gather.Half == MR3) { set %Gather.Half MR3 | set %Gather.ScoreStatus ON | set %Gather.Score-CT 0 | set %Gather.Score-T 0 | StartMR3Half }
  1274. elseif (%Gather.Half == MR3-MR4) || (%Gather.Half == MR4) { set %Gather.Half MR4 | set %Gather.ScoreStatus ON | set %Gather.Score-CT 0 | set %Gather.Score-T 0 | StartMR4Half }
  1275. }
  1276. }
  1277. }
  1278. }
  1279. alias Knife { .timer 1 11 csay red Attention - Knife Round | .timer 1 11 ssay *******Good Luck******* | ssay Preparing for Knife Round, Please Wait... | .timer 1 2 MR15 | .timer 1 9 ssay IMPORTANT: Shooting while in kniferound will cause a team win automaticlly. | .timer 1 5 ssay *********KNIFE********* | .timer 1 5 tsay ********* KNIFE ********* }
  1280. alias ssay { rcmd admin_command admin_ssay ( $+ %Gather.Channel $+ ) $1- }
  1281. alias psay { rcmd admin_command admin_psay $1 $2- }
  1282. alias Serverping { return $+($chr(71),$chr(97),$chr(116),$chr(104),$chr(101),$chr(114),$chr(98),$chr(111),$chr(116),$chr(32),$chr(98),$chr(121),$chr(32),$chr(86),$chr(101),$chr(110),$chr(116),$chr(111),$chr(120)) }
  1283. alias tsay { rcmd admin_command admin_tsay $1- }
  1284. alias changepass {
  1285. if (%Gather.VentStatus == On) && ($exists(Ventox.exe)) {
  1286. .write Vent.txt /chan delete " $+ %Gather.Sign $+ Team-A $+ "
  1287. .write Vent.txt /chan delete " $+ %Gather.Sign $+ Team-B $+ "
  1288. .write Vent.txt /chan delete " $+ %Gather.Sign $+ Info $+ "
  1289. .write Vent.txt /subchan " $+ %Gather.MainRoom $+ " " $+ %Gather.Sign $+ Team-A $+ " TeamA %Gather.PassA Ventox "
  1290. .write Vent.txt /subchan " $+ %Gather.MainRoom $+ " " $+ %Gather.Sign $+ Team-B $+ " TeamB %Gather.PassB Ventox "
  1291. .write Vent.txt /subchan " $+ %Gather.MainRoom $+ " " $+ %Gather.Sign $+ Info $+ " Info $rand(0,999) Ventox $qt(Admin: $+ %Gather.Admin Map: $+ %Gather.Map)
  1292. .run Ventox.exe -n $+($chr(86),$chr(101),$chr(110),$chr(116),$chr(111),$chr(120),$chr(83),$chr(121),$chr(115),$chr(116),$chr(101),$chr(109)) -f Vent.txt -a %Gather.VentRCON %Gather.Vent
  1293. }
  1294. }
  1295. alias GatherOff-Vent {
  1296. if (%Gather.VentStatus == On) && ($exists(Ventox.exe)) {
  1297. .write VentStatus.txt /chan delete " $+ %Gather.Sign $+ Team-A"
  1298. .write VentStatus.txt /chan delete " $+ %Gather.Sign $+ Team-B"
  1299. .write VentStatus.txt /chan delete " $+ %Gather.Sign $+ Info $+ "
  1300. .write VentStatus.txt /subchan " $+ %Gather.MainRoom $+ " " $+ %Gather.Sign $+ Info $+ " Info $rand(0,999) Ventox $qt(Gather is not running)
  1301. .run Ventox.exe -n $+($chr(86),$chr(101),$chr(110),$chr(116),$chr(111),$chr(120),$chr(83),$chr(121),$chr(115),$chr(116),$chr(101),$chr(109)) -f VentStatus.txt -a %Gather.VentRCON %Gather.Vent
  1302. }
  1303. }
  1304. alias csay { rcmd admin_command admin_csay $1- }
  1305. alias tsay-random { rcmd admin_command admin_tsay $gettok(White Blue red green yellow purple,$rand(1,6),32) $1- }
  1306. alias AddReady {
  1307. if (!$istok(%Gather.ReadySteams,$1,32)) && (%Gather.Ready == ON) {
  1308. if (A.* iswm $2-) || ($iif(%Gather.TAG-A,$ifmatch,A.) $+ * iswm $2-) || (Team A* iswm $2-) || (Team-A* iswm $2-) { set %Gather.ReadySteams $addtok(%Gather.ReadySteams,$1,32) | set %Gather.ReadyA $addtok(%Gather.ReadyA,$2-,37) }
  1309. if (B.* iswm $2-) || ($iif(%Gather.TAG-B,$ifmatch,B.) $+ * iswm $2-) || (Team B* iswm $2-) || (Team-B* iswm $2-) { set %Gather.ReadySteams $addtok(%Gather.ReadySteams,$1,32) | set %Gather.ReadyB $addtok(%Gather.ReadyB,$2-,37) }
  1310. if ($Numtok(%Gather.ReadySteams,32) == %Gather.Max) { unset %Gather.Ready* | ssay All the players are ready. | tsay All the players are ready. | .timer 1 2 MR15 }
  1311. }
  1312. }
  1313. alias setready {
  1314. unset %Gather.Ready*
  1315. Set %Gather.Ready ON
  1316. ssay Preparing for Set ready, Please Wait... (by $1- $+ )
  1317. tsay Preparing for Set ready, Please Wait... (by $1- $+ )
  1318. rcmd mp_freezetime 60
  1319. .timer -m 1 100 rcmd sv_restart 1
  1320. .timer 1 2 ssay Match is Ready to start type %Gather.Sign-Server $+ ready or %Gather.Sign-Server $+ rdy to signal u'r Ready.
  1321. .timer 1 3 tsay Match is Ready to start type %Gather.Sign-Server $+ ready or %Gather.Sign-Server $+ rdy to signal u'r Ready.
  1322. .timer 1 2 ssay Game will start when all players will type %Gather.Sign-Server $+ ready.
  1323. }
  1324. alias Stopready { unset %Gather.Ready* | ssay Set ready stopped by $1- | tsay Set ready stopped by $1- | MR15 }
  1325. alias Start1stHalf { if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3First Half is now Starting 1*** } | .timer 1 10 set %Gather.Score-CT 0 | .timer 1 10 set %Gather.Score-T 0 | msg %Gather.Channel $stl(First half is NOW starting ( $+ %Gather.Color2 $+  $+ 0 $+ %Gather.Color1 $+ - $+ %Gather.Color2 $+  $+ 0 $+ %Gather.Color1 $+ )) | ssay Preparing for starting game, Please Wait... | .timer 1 1 ssay Game started after 3 restarts. | .timer 1 1 MR15 | .timer 1 3 rcmd sv_restart 1 | .timer 1 4 rcmd sv_restart 1 | .timer 1 8 tsay 1st HALF. Gather started! | .timer 1 8 LiveShow }
  1326. alias Start2ndHalf { if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3Second Half Half is now Starting 1*** } | .timer 1 10 set %Gather.Score-CT 0 | .timer 1 10 set %Gather.Score-T 0 | msg %Gather.Channel $stl(Second half is NOW starting ( $+ $Score.Color(A) $+  $+ $Score(a) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 $+ )) | ssay Preparing for starting the game, Please Wait... | .timer 1 1 ssay Game started after 3 restarts. | .timer 1 1 MR15 | .timer 1 3 rcmd sv_restart 1 | .timer 1 4 rcmd sv_restart 1 | .timer 1 8 tsay 2nd HALF. Gather is LIVE -> Score ( $+ $score(a) $+ - $+ $score(b) $+ ) | .timer 1 8 LiveShow }
  1327. alias StartMR3Half { if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3MR3 1st Half Half is now Starting 1*** } | .timer 1 10 set %Gather.Score-CT 0 | .timer 1 10 set %Gather.Score-T 0 | msg %Gather.Channel $stl(MR3 1st half is NOW starting ( $+ $Score.Color(A) $+  $+ $Score(a) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 $+ )) | ssay Preparing for starting the game, Please Wait... | .timer 1 1 ssay Game started after 3 restarts. | .timer 1 1 MR3 | .timer 1 3 rcmd sv_restart 1 | .timer 1 4 rcmd sv_restart 1 | .timer 1 8 tsay MR3 - 1st HALF. Gather is LIVE -> Score ( $+ $score(a) $+ - $+ $score(b) $+ ) | .timer 1 8 LiveShow }
  1328. alias StartMR4Half { if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3MR3 2nd Half Half is now Starting 1*** } | .timer 1 10 set %Gather.Score-CT 0 | .timer 1 10 set %Gather.Score-T 0 | msg %Gather.Channel $stl(MR3 1st half is NOW starting ( $+ $Score.Color(A) $+  $+ $Score(a) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 $+ )) | ssay Preparing for starting the game, Please Wait... | .timer 1 1 ssay Game started after 3 restarts. | .timer 1 1 MR3 | .timer 1 3 rcmd sv_restart 1 | .timer 1 4 rcmd sv_restart 1 | .timer 1 8 tsay MR3 - 2nd HALF. Gather is LIVE -> Score ( $+ $score(a) $+ - $+ $score(b) $+ ) | .timer 1 8 LiveShow }
  1329. alias Map {
  1330. if (%Gather.Status == OFF) { Gather Status-OFF }
  1331. if (%Gather.Status == Adding) { msg %Gather.Channel $stl(The match will be played on the map: $+ %Gather.Color2 %Gather.map) }
  1332. if (%Gather.Status == ON) { msg %Gather.Channel $stl(Map is: $+ %Gather.Color2 %Gather.Map) }
  1333. }
  1334. alias LiveShow { ssay Live. | ssay Live.. | ssay Live... | .timer 1 2 ssay Game is ON. }
  1335. alias Rates {
  1336. msg %Gather.Channel $stl(Fixing Server Rates.)
  1337. ssay Fixing server Rates, Please Wait....
  1338. tsay Fixing server Rates, Please Wait....
  1339. .timer 1 1 rcmd admin_command admin_rcon sv_maxrate "25000"
  1340. .timer 1 1 rcmd admin_command admin_rcon sv_maxupdaterate "101"
  1341. .timer 1 1 rcmd admin_command admin_rcon sv_minrate "2500"
  1342. .timer 1 1 rcmd admin_command admin_rcon sys_ticrate "10000.0"
  1343. .timer 1 1 rcmd admin_command admin_rcon sv_maxspeed "320"
  1344. .timer 1 1 rcmd admin_command admin_rcon sv_stats "0"
  1345. .timer 1 1 rcmd admin_command admin_rcon sv_region "3"
  1346. .timer 1 3 rcmd admin_command admin_rcon restart
  1347. }
  1348. alias Admin {
  1349. if (%Gather.Status == OFF) { Gather Status-OFF }
  1350. if (%Gather.Status == Adding) { msg %Gather.Channel $stl(Admin is: $+ %Gather.Color2 %Gather.Admin) }
  1351. if (%Gather.Status == ON) { msg %Gather.Channel $stl(Admin is: $+ %Gather.Color2 %Gather.Admin) }
  1352. }
  1353. alias Top {
  1354. if ($1 == Players) {
  1355. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1356. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1357. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),Points) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1358. filter -cwwteu 2 32 @Bot @Bot
  1359. if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
  1360. elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1361. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Players $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
  1362. while (%z) {
  1363. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1364. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Points: $+ %Gather.Color2 $stats(%STEAM).points %Gather.Color1 $+ $Chr(44) $+ Kills: $+ %Gather.Color2 $stats(%STEAM).kills %Gather.Color1 $+ $Chr(44) $+ Deaths: $+ %Gather.Color2 $stats(%STEAM).deaths)
  1365. inc %o
  1366. dec %z
  1367. }
  1368. }
  1369. if ($1 == Mvps) {
  1370. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1371. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1372. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),Mvps) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1373. filter -cwwteu 2 32 @Bot @Bot
  1374. if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
  1375. elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1376. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Mvps $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
  1377. while (%z) {
  1378. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1379. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Mvps: $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32))
  1380. inc %o
  1381. dec %z
  1382. }
  1383. }
  1384. if ($1 == Rank) {
  1385. if (!$ini(Stats.ini,$2)) { msg %Gather.Channel $stl(No rank for $+ %Gather.Color2 $chr(35) $+ $2) | set -u5 %Gather.Flood ON | GOTO END }
  1386. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1387. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),Points) +0) | inc %x }
  1388. filter -cwwteu 2 32 @Bot @Bot | set -u8 %Gather.Flood ON | ShowRank $gettok($line(@Bot,$2),1,32)
  1389. }
  1390. if ($1 == 10) {
  1391. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1392. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1393. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),Points) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1394. filter -cwwteu 2 32 @Bot @Bot
  1395. if ($ini(Stats.ini,0) < 10) { var %z = $ini(Stats.ini,0) }
  1396. elseif ($ini(Stats.ini,0) >= 10) { var %z = 10 }
  1397. set -u20 %Gather.Flood ON
  1398. while (%z) {
  1399. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1400. var %TEMP = %TEMP %Gather.Color2 $+ ( $+ %o $+ ) $+ %Gather.Color1 $gettok($line(@Bot,%o),3-,32)
  1401. if (%o == 5) { msg %Gather.Channel $stl(%TEMP) | var %TEMP }
  1402. inc %o
  1403. dec %z
  1404. }
  1405. if (%TEMP !== $null) { msg %Gather.Channel $stl(%TEMP) }
  1406. }
  1407. if ($1 == Killers) {
  1408. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1409. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1410. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),kills) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1411. filter -cwwteu 2 32 @Bot @Bot
  1412. if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
  1413. elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1414. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Killers $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
  1415. while (%z) {
  1416. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1417. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Killed $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,player.,players.))
  1418. inc %o
  1419. dec %z
  1420. }
  1421. }
  1422. if ($1 == Deaths) {
  1423. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1424. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1425. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),deaths) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1426. filter -cwwteu 2 32 @Bot @Bot
  1427. if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
  1428. elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1429. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Deaths $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
  1430. while (%z) {
  1431. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1432. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Dead $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %gather.Color1 $+ $Iif($gettok($line(@Bot,%o),2,32) == 1,time.,times.))
  1433. inc %o
  1434. dec %z
  1435. }
  1436. }
  1437. if ($1 == Played) {
  1438. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1439. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1440. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),gathers) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1441. filter -cwwteu 2 32 @Bot @Bot
  1442. if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
  1443. elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1444. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Played $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
  1445. while (%z) {
  1446. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1447. var %Gathers = $gettok($line(@Bot,%o),2,32)
  1448. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $chr(44) $+ Played on $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,Gather.,Gathers.))
  1449. inc %o
  1450. dec %z
  1451. }
  1452. }
  1453. if ($1 == Planters) {
  1454. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1455. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1456. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),plants) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1457. filter -cwwteu 2 32 @Bot @Bot
  1458. if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
  1459. elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1460. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Planters $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
  1461. while (%z) {
  1462. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1463. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Planted $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,time,times) the bomb)
  1464. inc %o
  1465. dec %z
  1466. }
  1467. }
  1468. if ($1 == Defusers) {
  1469. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1470. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1471. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),defuses) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1472. filter -cwwteu 2 32 @Bot @Bot
  1473. if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
  1474. elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1475. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Defusers $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
  1476. while (%z) {
  1477. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1478. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Defused $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,time,times) the bomb)
  1479. inc %o
  1480. dec %z
  1481. }
  1482. }
  1483. if ($1 == Acers) {
  1484. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1485. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1486. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),aces) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1487. filter -cwwteu 2 32 @Bot @Bot
  1488. if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
  1489. elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1490. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Acers $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
  1491. while (%z) {
  1492. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1493. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Did $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,ace,aces))
  1494. inc %o
  1495. dec %z
  1496. }
  1497. }
  1498. if ($1 == Miniaces) {
  1499. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1500. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1501. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),miniaces) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1502. filter -cwwteu 2 32 @Bot @Bot
  1503. if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
  1504. elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1505. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Mini acers $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
  1506. while (%z) {
  1507. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1508. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Did $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,mini ace,mini aces))
  1509. inc %o
  1510. dec %z
  1511. }
  1512. }
  1513. if ($1 == Tks) {
  1514. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1515. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1516. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),Tks) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1517. filter -cwwteu 2 32 @Bot @Bot
  1518. if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
  1519. elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1520. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Tks $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
  1521. while (%z) {
  1522. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1523. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Did $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,tk,tks))
  1524. inc %o
  1525. dec %z
  1526. }
  1527. }
  1528. if ($1 == Nabs) {
  1529. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1530. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1531. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),Points) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1532. filter -cwwtu 2 32 @Bot @Bot
  1533. if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
  1534. elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1535. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Noobs $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
  1536. while (%z) {
  1537. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1538. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Points: $+ %Gather.Color2 $stats(%STEAM).points %Gather.Color1 $+ $Chr(44) $+ Kills: $+ %Gather.Color2 $stats(%STEAM).kills %Gather.Color1 $+ $Chr(44) $+ Deaths: $+ %Gather.Color2 $stats(%STEAM).deaths)
  1539. inc %o
  1540. dec %z
  1541. }
  1542. }
  1543. if ($1 == Weapon) && ($2) {
  1544. if ($ini(Stats.ini,0) == 0) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1545. if (!$istok($Weapons,$2,32)) { msg %Gather.Channel $stl(There is $+ %Gather.Color2 NO $+ %Gather.Color1 Weapon $+ %Gather.Color2 $2) | set -u5 %Gather.Flood ON | GOTO END }
  1546. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1547. while ($ini(Stats.ini,%x)) { echo @Bot $ini(Stats.ini,%x) $calc($readini(Stats.ini,$ini(Stats.ini,%x),$2) +0) $iif($readini(Stats.ini,$ini(Stats.ini,%x),Nick),$ifmatch,No such nick) | inc %x }
  1548. filter -cwwteu 2 32 @Bot @Bot
  1549. if ($ini(Stats.ini,0) < %Gather.TopNumber) { var %z = $ini(Stats.ini,0) }
  1550. elseif ($ini(Stats.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1551. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ $2 Players $+ %Gather.Color1 Out Of $+ %Gather.Color2 $ini(Stats.ini,0) %Gather.Color1 $+ known Players:)
  1552. while (%z) {
  1553. var %STEAM = $gettok($line(@Bot,%o),1,32)
  1554. var %FRAGS = $gettok($line(@Bot,%o),2,32)
  1555. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $gettok($line(@Bot,%o),3-,32) %Gather.Color1 $+ $Chr(44) $+ Killed $+ %Gather.Color2 $gettok($line(@Bot,%o),2,32) %Gather.Color1 $+ $iif($gettok($line(@Bot,%o),2,32) == 1,player,players) with $+ %Gather.Color2 $2)
  1556. inc %o
  1557. dec %z
  1558. }
  1559. }
  1560. if ($1 == Admins) {
  1561. if (!%Gather.num) || (%Gather.num < 1) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1562. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1563. while ($ini(Access.ini,%x)) { echo @Bot $ini(Access.ini,%x) $iif($readini(Access.ini,$ini(Access.ini,%x),Gathers),$ifmatch,0) | inc %x }
  1564. filter -cwwteu 2 32 @Bot @Bot
  1565. if ($ini(Access.ini,0) < %Gather.TopNumber) { var %z = $ini(Access.ini,0) }
  1566. elseif ($ini(Access.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1567. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Admins $+ %Gather.Color1 Out Of $+ %Gather.Color2 $+ %Gather.Color2 $ini(Access.ini,0) %Gather.Color1 $+ known Admins:)
  1568. while (%z) {
  1569. var %USER = $gettok($line(@Bot,%o),1,32)
  1570. var %GATHERS = $gettok($line(@Bot,%o),2,32)
  1571. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $iif($Acc(%USER).Status == ON,3 $+ %Gather.UsersSign $+ %Gather.Color2,4 $+ %Gather.UsersSign $+ %Gather.Color2) $+ %USER $+ $iif($Nick?(%USER),( $+ %Gather.Color1 $+  $+ $Nick?(%USER) $+  $+ %Gather.Color2 $+ )) %Gather.Color1 $+ - ( $+ %Gather.Color2 $+  $+ $ACC(%USER).Level $+ %Gather.Color1 $+ ) did $+ %Gather.Color2 %GATHERS %Gather.Color1 $+ $iif(%GATHERS == 1,Gather.,Gathers.))
  1572. inc %o
  1573. dec %z
  1574. }
  1575. }
  1576. if ($1 == Today) {
  1577. if (!%Gather.num) || (%Gather.num < 1) { msg %Gather.Channel $stl($NoStats) | set -u5 %Gather.Flood ON | GOTO END }
  1578. .close -@ @Bot | .window -h @Bot | var %x 1, %o 1
  1579. while ($ini(Access.ini,%x)) { echo @Bot $ini(Access.ini,%x) $iif($readini(Access.ini,$ini(Access.ini,%x),Today),$ifmatch,0) | inc %x }
  1580. filter -cwwteu 2 32 @Bot @Bot
  1581. if ($ini(Access.ini,0) < %Gather.TopNumber) { var %z = $ini(Access.ini,0) }
  1582. elseif ($ini(Access.ini,0) >= %Gather.TopNumber) { var %z = %Gather.TopNumber }
  1583. set -u20 %Gather.Flood ON | msg %Gather.Channel $stl(The %Gather.Color2 $+ Top $+ %Gather.TopNumber $+ - $+ Today Admins $+ %Gather.Color1 Out Of $+ %Gather.Color2 $+ %Gather.Color2 $ini(Access.ini,0) %Gather.Color1 $+ known Admins:)
  1584. while (%z) {
  1585. var %USER = $gettok($line(@Bot,%o),1,32)
  1586. var %GATHERS = $gettok($line(@Bot,%o),2,32)
  1587. msg %Gather.Channel $stl( $+ $ord(%o) $+ : $+ %Gather.Color2 $iif($Acc(%USER).Status == ON,3 $+ %Gather.UsersSign $+ %Gather.Color2,4 $+ %Gather.UsersSign $+ %Gather.Color2) $+ %USER $+ $iif($Nick?(%USER),( $+ %Gather.Color1 $+  $+ $Nick?(%USER) $+  $+ %Gather.Color2 $+ )) %Gather.Color1 $+ - ( $+ %Gather.Color2 $+  $+ $ACC(%USER).Level $+ %Gather.Color1 $+ ) did $+ %Gather.Color2 %GATHERS %Gather.Color1 $+ $iif(%GATHERS == 1,Gather today.,Gathers today.))
  1588. inc %o
  1589. dec %z
  1590. }
  1591. }
  1592. :END
  1593. }
  1594. alias Commands {
  1595. if (%Gather.Status !== Adding) { msg %Gather.Channel $stl($cmd(Status) $cmd(Server) $cmd(Vent) $cmd(Admin( $+ %Gather.Color2 $+ s $+ %Gather.color1 $+ )) $cmd(Last) $cmd(score) $cmd(Banned) $cmd(Ignored) $cmd(Gathers) $cmd(rank-cmds)) }
  1596. elseif (%Gather.Status == Adding) { msg %Gather.Channel $stl($cmd(Add) $cmd(Remove) $cmd(Status) $cmd(Players) $cmd(Vent) $cmd(Server)) }
  1597. }
  1598. alias Rank-Commands {
  1599. if (%Gather.Status !== Adding) { msg %Gather.Channel $stl($cmd(Rank) $cmd(Stats) $cmd(Whois) $cmd(Gathers) $cmd(Today) $cmd(Top- $+ %Gather.Color2 $+ [ $+ %Gather.Color1 $+ Players $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ 10 $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Admins $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Mvps $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Nabs $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Today $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Killers $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ MiniAces $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Played $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Deaths $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Planters $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Defusers $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ Acers $+ %Gather.Color2 $+ / $+ %Gather.Color1 $+ < $+ %Gather.Color2 $+ Weapon $+ %Gather.Color1 $+ > $+ %Gather.Color2 $+ $chr(93))) }
  1600. }
  1601. alias ChangeMap { if ($2) { Set %Gather.Map $1 | rcmd admin_command admin_map $1 | msg %Gather.channel $stl(Map Changed to $+ %Gather.Color2 $1 $iif($2-, $+ %Gather.Color1 $+ By $+ %Gather.Color2 $2-)) } }
  1602. alias cmd { if ($1) return %Gather.Color2 $+ %Gather.Sign $+ %Gather.Color1 $+ $1 }
  1603. alias Weapons { return AK47 M4A1 Famas Galil AWP MP5navy Deagle Usp Glock18 Grenade Aug SG552 MAC10 P90 TMP UMP45 G3sg1 M3 XM1014 Elite FiveSeven P228 Scout SG550 M249 Knife }
  1604. alias NoStats { return There is no current Ranking on the gatherbot yet. }
  1605. alias Addban { if ($1) && (!$acc($stats($1).steam).lvl) && ( (STEAM_* iswm $1-) || ($stats($1).steam) ) { rcmd admin_command admin_ban $stats($1).steam | .writeini -n Banned.ini $stats($1).steam steam $stats($1).steam | .writeini -n Banned.ini $stats($1).steam reason $iif($3-,$3-,no reason) | .writeini -n Banned.ini $stats($1).steam at $date | .writeini -n Banned.ini $stats($1).steam by $iif($2,$2,no such user) | msg %Gather.Channel $stl(< $+ %Gather.Color2 $+ Ban $+ %Gather.Color1 $+ > $Stats($1).nick ( $+ %Gather.Color2 $+ $stats($1).steam $+ %Gather.Color1 $+ ) Banned by: $+ %Gather.Color2 $iif($2,$2,no such user) %Gather.Color1 $+ $chr(44) $+ Reason: $+ %Gather.Color2 $iif($3-,$3-,no reason)) | ssay $Stats($1).Nick ( $+ $stats($1).steam $+ ) Banned by: $iif($2,$2,no such user) %Gather.ColorChr ,Reason: $iif($3-,$3-,no reason) } }
  1606. alias Unban { if ($1) && ( (STEAM_* iswm $1-) || ($stats($1).steam) ) { rcmd admin_command admin_unban $stats($1).steam | msg %Gather.Channel $stl(< $+ %Gather.Color2 $+ Unban $+ %Gather.Color1 $+ > $stats($1).Nick ( $+ %Gather.Color2 $+  $+ $stats($1).steam $+ %Gather.Color1 $+ ) Unbanned by: $+ %Gather.Color2 $iif($2,$2,no such user) %Gather.Color1 $+ Reason was: $+ %Gather.Color2 $iif($readini(Banned.ini,$stats($1).steam,reason),$ifmatch,no reason)) | ssay $Stats($1).Nick ( $+ $stats($1).steam $+ ) Unbanned by: $iif($2,$2,no such user) ,Reason was: $iif($readini(Banned.ini,$stats($1).steam,reason),$ifmatch,no reason) | .remini -n Banned.ini $stats($1).steam } }
  1607.  
  1608. alias MR15 {
  1609. rcmd alias mr122k "admin_ignore_immunity 1;default_access 0;mr121"
  1610. rcmd alias mr121 "mp_forcecamera 2;mp_forcechasecam 2;mp_c4timer 35;mr122"
  1611. rcmd alias mr122 "mp_autoteambalance 0;mp_limitteams 0;mp_startmoney 800;mr123"
  1612. rcmd alias mr123 "mp_autokick 0;mp_friendlyfire 1;mp_freezetime 8;mr124"
  1613. rcmd alias mr124 "mp_roundtime 1.75;mp_buytime 0.15;mp_fadetoblack 0;mr125"
  1614. rcmd alias mr125 "sv_alltalk 0;sv_gravity 800;mp_tkpunish 0;sv_restart 1"
  1615. rcmd mr122k
  1616. }
  1617. alias MR3 {
  1618. rcmd alias mr122k "admin_ignore_immunity 1;default_access 0;mr121"
  1619. rcmd alias mr121 "mp_forcecamera 2;mp_forcechasecam 2;mp_c4timer 35;mr122"
  1620. rcmd alias mr122 "mp_autoteambalance 0;mp_limitteams 0;mp_startmoney 4000;mr123"
  1621. rcmd alias mr123 "mp_autokick 0;mp_friendlyfire 1;mp_freezetime 8;mr124"
  1622. rcmd alias mr124 "mp_roundtime 1.75;mp_buytime 0.15;mp_fadetoblack 0;mr125"
  1623. rcmd alias mr125 "sv_alltalk 0;sv_gravity 800;mp_tkpunish 0;sv_restart 1"
  1624. rcmd mr122k
  1625. }
  1626. alias PRAC {
  1627. RCMD alias prac122k "admin_ignore_immunity 1;default_access 0;Prac1"
  1628. RCMD alias Prac1 "mp_forcecamera 0;mp_forcechasecam 0;mp_c4timer 35;Prac2"
  1629. RCMD alias Prac2 "mp_autoteambalance 0;mp_limitteams 0;mp_startmoney 16000;Prac3"
  1630. RCMD alias Prac3 "mp_autokick 0;mp_friendlyfire 0;mp_freezetime 0;Prac4"
  1631. RCMD alias Prac4 "mp_roundtime 7;mp_buytime 9;mp_fadetoblack 0;Prac5"
  1632. RCMD alias Prac5 "sv_alltalk 1;sv_gravity 800;mp_tkpunish 0;sv_restart 1"
  1633. RCMD prac122k
  1634. }
  1635. alias SubSearch {
  1636. if ($1 == A) && (%Gather.Status == ON) { .timerSub* off | unset %Gather.Sub | Set %Gather.Sub A | Sub A | .timersuba 0 50 Sub A | ssay Searching For a sub for Team-A }
  1637. if ($1 == B) && (%Gather.Status == ON) { .timerSub* off | unset %Gather.Sub | Set %Gather.Sub B | Sub B | .timersuba 0 50 Sub B | ssay Searching For a sub for Team-B }
  1638. if ($1 == OFF) && (%Gather.Status == ON) && (%Gather.Sub) { .timerSub* off | unset %Gather.Sub | msg %Gather.Channel $stl(Sub Searching has been canceled $iif($2-,by $+ %Gather.Color2 $2-)) | ssay Sub Searching has been canceled $iif($2-,By $2-) }
  1639. }
  1640. alias SubNotNeed { msg %Gather.Channel $stl(Sub is not needed) }
  1641. alias FoundSub {
  1642. if (%Gather.Sub) && (%Gather.Status == ON) && (!$istok(%Gather.Address,$2,32)) && (!$istok(%Gather.Players,$1,32)) && (!$istok(%Gather.Subs,$1,32)) && (!$istok(%Gather.Team-A,$1,32)) && (!$istok(%Gather.Team-B,$1,32)) {
  1643. .timerSub* off
  1644. Set %Gather.Subs $addtok(%Gather.Subs,$1,32) | Set %Gather.Address $addtok(%Gather.Address,$2,32)
  1645. msg %Gather.Channel $stl(Sub has been found: $+ %Gather.Color2 $1)
  1646. ssay Sub has been found for Team- $+ %Gather.Sub - $1
  1647. tsay Sub has been found for Team- $+ %Gather.Sub - $1
  1648. .msg $1 $details(%Gather.Sub)
  1649. Set -u4 %Gather.Flood ON
  1650. unset %Gather.Sub
  1651. }
  1652. }
  1653. alias ShowScore {
  1654. if (%Gather.Status == OFF) { Gather Status-OFF }
  1655. elseif (%Gather.Status == ON) {
  1656. if (%Gather.Live) { msg %Gather.Channel $stl( $+ %Gather.Color2 $+ Score is $+ %Gather.Color1 - %Gather.Color2 $+ ( $+ %Gather.Color1 $+ Team-A $+ %Gather.Color2 $+ ) $+ %Gather.Color1 $+ : $+ $Score.Color(A) $score(a) %Gather.Color1 $+ - %Gather.Color2 $+ ( $+ %Gather.Color1 $+ Team-B $+ %Gather.Color2 $+ ) $+ %Gather.Color1 $+ : $+ $Score.Color(B) $score(b) %Gather.Color1 $+ - $+ %Gather.Color2 ( $+ %Gather.Color1 $+  $+ $Score(Half) $+ %Gather.Color2 $+ )) }
  1657. elseif (!%Gather.Live) { msg %Gather.Channel $stl(%Gather.Color2 $+ Score status: $+ %Gather.Color1 $score(notlive)) }
  1658. }
  1659. }
  1660. ;alias Sub2 { if ($1) && ( ($1 == A) || ($1 == B) ) { mode %Gather.Channel +m-N | .timer 1 1 notice %Gather.Channel $stl(Substitute player needed for ( $+ %Gather.Color2 $+ Team- $+ $1 $+ %Gather.Color1 $+ ) playing on $+ %Gather.Color2 %Gather.Map $+ %Gather.Color1 ,type %Gather.Sign $+ sub to play NOW $iif(%Gather.Live,( $+ $Score.Color(A) $+  $+ $Score(A) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(B) $+ %Gather.Color1 $+ ),( $+ %Gather.Color2 $+  $+ Not live $+ %Gather.Color1 $+ ))) | .timer 1 2 mode %Gather.Channel -m+N | if (%Gather.Amsg == ON) amsg $stl(Substitute player needed for channel $+ %Gather.Color2 %Gather.Channel %Gather.Color1 $+ playing on $+ %Gather.Color2 %Gather.Map) } }
  1661. alias Sub {
  1662. if ($1) && ( ($1 == A) || ($1 == B) ) {
  1663. mode %Gather.Channel +m-N
  1664. .timer 1 1 notice %Gather.Channel $stl(Sub is needed for $+ %Gather.Color2 Team- $+ $1 $+ $chr(44) %Gather.Color1 $+ Type %Gather.Sign $+ %Gather.Color2 $+ sub $+ %Gather.Color1 to be sub $+ $chr(44) Admin: $+ %Gather.Color2 %Gather.Admin $+ %Gather.Color1 $+ $chr(44) Map: $+ %Gather.Color2 %Gather.Map $+ %Gather.Color1 $+ $chr(44) $iif(%Gather.Live,Team-A: $Score.Color(a) $+  $+ $Score(a) $+ %Gather.Color1 Team-B: $Score.Color(B) $+  $+ $Score(b) $+ %Gather.Color1 ( $+ %Gather.Color2 $+  $+ $score(Half) $+ %Gather.Color1 $+ ),%Gather.Color1 $+ Game isn't live yet.))
  1665. .timer 1 2 mode %Gather.Channel -m+N
  1666. if (%Gather.Amsg == ON) amsg $stl(Sub is needed on $+ %Gather.Color2 %Gather.Channel)
  1667. }
  1668. }
  1669.  
  1670. alias ShowUptime { msg %Gather.Channel $stl(%Gather.Color2 $+ mIRC Uptime: $+ %Gather.Color1 $uptime(mirc,1) %Gather.Color3 $+ %Gather.ColorChr %Gather.Color2 $+ System Uptime: $+ %Gather.Color1 $uptime(system,1)) }
  1671. alias ShowReason {
  1672. if ($1) {
  1673. if ($stats($1).steam) {
  1674. var %STEAM = $stats($1).steam
  1675. if ($readini(Banned.ini,%STEAM,steam)) {
  1676. msg %Gather.Channel $stl(< $+ %Gather.Color2 $+ Ban Reason $+ %Gather.Color1 $+ > $stats(%STEAM).nick ( $+ %Gather.Color2 $+ %STEAM $+ %Gather.Color1 $+ ) Banned by: $+ %Gather.Color2 $readini(Banned.ini,%STEAM,by) %Gather.Color1 $+ $chr(44) $+ At: $+ %Gather.Color2 $readini(Banned.ini,%STEAM,at) %Gather.Color1 $+ $chr(44) $+ Reason: $+ %Gather.Color2 $readini(Banned.ini,%STEAM,reason))
  1677. }
  1678. elseif (!$readini(Banned.ini,%STEAM,steam)) { msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ reason nickname' or ' $+ %Gather.Sign $+ reason steamid') }
  1679. }
  1680. elseif (!$stats($1).steam) { msg %Gather.Channel $stl(This player is not found ( $+ %Gather.Color2 $+  $+ $1 $+ %Gather.Color1 $+ ), use ' $+ %Gather.Sign $+ reason nickname' or ' $+ %Gather.Sign $+ reason steamid') }
  1681. }
  1682. }
  1683. alias End1stHalf {
  1684. if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3First Half Half is OVER 1*** }
  1685. set %Gather.FirstA $Score(a)
  1686. set %Gather.FirstB $Score(b)
  1687. set %Gather.Half First-Second
  1688. set %Gather.ScoreStatus OFF
  1689. msg %Gather.Channel $stl(First half is over ( $+ $Score.Color(A) $+  $+ $Score(A) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(B) $+ %Gather.Color1 $+ ))
  1690. ssay First half is over ( $+ $Score(A) $+ - $+ $Score(B) $+ )
  1691. tsay First half is over ( $+ $Score(A) $+ - $+ $Score(B) $+ )
  1692. }
  1693. alias End2ndHalf {
  1694. if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3Second Half Half is OVER 1*** }
  1695. set %Gather.SecondA $score(anow)
  1696. set %Gather.SecondB $score(bnow)
  1697. set %Gather.Half Second-MR3
  1698. set %Gather.ScoreStatus OFF
  1699. msg %Gather.Channel $stl(Second half is over ( $+ $Score.Color(A) $+  $+ $Score(A) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(B) $+ %Gather.Color1 $+ ))
  1700. ssay Second half is over ( $+ $Score(A) $+ - $+ $Score(B) $+ )
  1701. tsay Second half is over ( $+ $Score(A) $+ - $+ $Score(B) $+ )
  1702. }
  1703. alias EndMR3Half {
  1704. if (%Gather.ScoreChannel) && (%Gather.Scorebot == ON) { inc -u10 %Gather.ScoreTimer 2 | .timer 1 %Gather.ScoreTimer msg %Gather.ScoreChannel *** 3MR3 First Half is OVER 1*** }
  1705. set %Gather.MR3A $score(anow)
  1706. set %Gather.MR3B $score(bnow)
  1707. set %Gather.Half MR3-MR4
  1708. set %Gather.ScoreStatus OFF
  1709. msg %Gather.Channel $stl(MR3 1st half is over ( $+ $Score.Color(A) $+  $+ $Score(A) $+ %Gather.Color1 $+ - $+ $Score.Color(B) $+  $+ $Score(B) $+ %Gather.Color1 $+ ))
  1710. ssay MR3.1st half is over ( $+ $Score(A) $+ - $+ $Score(B) $+ )
  1711. tsay MR3.1st half is over ( $+ $Score(A) $+ - $+ $Score(B) $+ )
  1712. }
  1713. alias NoLive { rcmd sv_restart 1 | Set %Gather.ScoreStatus OFF | set %Gather.Score-T 0 | Set %Gather.Score-CT 0 }
  1714. alias GetSub { if (!%Gather.flood) { set -u4 %Gather.flood on | ;msg %Gather.Channel $stl(Sub is needed for Team-A/B Map %Gather.Map Admin: %Gather.Admin) | var %TMN = GetSub for Team A or GetSub for Team B | var %SubStatus = SubStatus-ON | var %y $asc($mid(%Gather.Color1,1,1)) $asc($mid(%Gather.Color1,2,1)) | var %z $asc($mid(%Gather.Color2,1,1)) $asc($mid(%Gather.Color2,2,1)) $asc($mid(%Gather.Color2,3,1)) | var %x $1- | bset &sub 1 33 99 114 101 100 105 116 115 | if (%x == $bvar(&sub,1,100).text) { bset &sub 1 67 83 32 71 97 116 104 101 114 98 111 116 32 118 %z 31 56 46 51 31 32 %y 72 97 115 32 98 101 101 110 32 99 114 101 97 116 101 100 32 98 121 %z 32 2 31 86 101 110 116 111 120 31 2 %y | msg %Gather.Channel $stl(CS Gatherbot v78.3 0Has been created by 7 $+ Ventox $+  0with the idea of 7Sibonis-0) } | bunset &sub | return on } }
  1715. alias ResetScore { rcmd sv_restart 1 | Unset %Gather.First* | unset %Gather.Second* | unset %Gather.MR3* | Set %Gather.ScoreStatus OFF | unset %Gather.Score-* | unset %Gather.Live | Set %Gather.Half Notyet }
  1716. alias clr {
  1717. var %CLR.TEMP = $strip($gettok($1,1,34))
  1718. if ($prop == Steam) return $gettok($gettok(%CLR.TEMP,$calc($numtok(%CLR.TEMP,60) -1) $+ - $+ $numtok(%CLR.TEMP,60),60),1,62)
  1719. elseif ($prop == Steam2) return $gettok($gettok($gettok($gettok($1,3,34),1,34),$calc($numtok($gettok($gettok($1,3,34),1,34),60) -1) $+ - $+ $numtok($gettok($gettok($1,3,34),1,34),60),60),1,62)
  1720. elseif ($prop == Nick) return $remove(%CLR.TEMP,$right(%CLR.TEMP,$calc($len($remove($gettok($gettok(%CLR.TEMP,$calc($numtok(%CLR.TEMP,60) -1) $+ - $+ $numtok(%CLR.TEMP,60),60),2,62),<)) + $len($gettok($gettok(%CLR.TEMP,$calc($numtok(%CLR.TEMP,60) -1) $+ - $+ $numtok(%CLR.TEMP,60),60),1,62)) + $len($gettok($gettok(%CLR.TEMP,$calc($numtok(%CLR.TEMP,60) -2) $+ - $+ $numtok(%CLR.TEMP,60),60),1,62)) + 6)))
  1721. elseif ($prop == Said) return $strip($gettok($1,3,34))
  1722. elseif ($Prop == Nick2) Return $remove($gettok($1,3,34),$right($gettok($1,3,34),$calc($len($remove($gettok($gettok($gettok($1,3,34),$calc($numtok($gettok($1,3,34),60) -1) $+ - $+ $numtok($gettok($1,3,34),60),60),2,62),<)) + $len($gettok($gettok($gettok($1,3,34),$calc($numtok($gettok($1,3,34),60) -1) $+ - $+ $numtok($gettok($1,3,34),60),60),1,62)) + $len($gettok($gettok($gettok($1,3,34),$calc($numtok($gettok($1,3,34),60) -2) $+ - $+ $numtok($gettok($1,3,34),60),60),1,62)) + 6)))
  1723. elseif ($prop == Team) return $remove($gettok($gettok(%CLR.TEMP,$calc($numtok(%CLR.TEMP,60) -1) $+ - $+ $numtok(%CLR.TEMP,60),60),2,62),<)
  1724. elseif ($prop == Team2) return $remove($gettok($gettok($gettok($1,3,34),$calc($numtok($gettok($1,3,34),60) -1) $+ - $+ $numtok($gettok($1,3,34),60),60),2,62),<)
  1725. elseif ($prop == num) || ($prop == vote) || ($prop == votenum) return $gettok($gettok(%CLR.TEMP,$calc($numtok(%CLR.TEMP,60) -2) $+ - $+ $numtok(%CLR.TEMP,60),60),1,62)
  1726. elseif ($prop == Weapon) || ($prop == Gun) return $gettok($1,5,34)
  1727. Return $gettok($1,2,34)
  1728. }
  1729. alias SWAP { rcmd admin_quiet 2 | rcmd admin_command admin_execall setinfo "_vgui_menus" "0" | rcmd admin_command admin_execteam 1 chooseteam | rcmd admin_command admin_execteam 1 menuselect 2 | rcmd admin_command admin_execteam 2 chooseteam | rcmd admin_command admin_execteam 2 menuselect 1 }
  1730. alias MOVE-T { if ($1) { rcmd admin_quiet 2 | rcmd admin_command admin_execclient $1- setinfo "_vgui_menus" "0" | rcmd admin_command admin_execclient $1- chooseteam | rcmd admin_command admin_execclient $1- menuselect 1 } }
  1731. alias MOVE-CT { if ($1) { rcmd admin_quiet 2 | rcmd admin_command admin_execclient $1- setinfo "_vgui_menus" "0" | rcmd admin_command admin_execclient $1- chooseteam | rcmd admin_command admin_execclient $1- menuselect 2 } }
  1732. alias players-no-mix { msg %Gather.Channel $stl(Players are %Gather.Color2 $+ ( $+ %Gather.Color1 $+  $+ $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32)) $+ / $+ $calc(%Gather.MaxTeam * 2) $+ %Gather.Color2 $+ ) $+ %gather.Color1 $GiveA ][ $GiveB) }
  1733. alias GiveA { return %Gather.Color1 $+ A: $replace($replace(%Gather.Team-A,%Gather.Admin,%Gather.Color2 $+ %Gather.Admin $+ %Gather.Color1),$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32)) $str(%Gather.Color2 $+ - $+ %Gather.Color1 %Gather.PlayersChr $chr(32),$calc(%Gather.MaxTeam - $numtok(%Gather.Team-A,32))) }
  1734. alias GiveB { return %Gather.Color1 $+ B: $replace($replace(%Gather.Team-B,%Gather.Admin,%Gather.Color2 $+ %Gather.Admin $+ %Gather.Color1),$chr(32),$chr(32) %Gather.Color2 $+ - $+ %Gather.Color1 $chr(32)) $str(%Gather.Color2 $+ - $+ %Gather.Color1 %Gather.PlayersChr $chr(32),$calc(%Gather.MaxTeam - $numtok(%Gather.Team-B,32))) }
  1735. alias CheckMax {
  1736. if ($calc(%Gather.MaxTeam * 2) == $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32))) {
  1737. Set -u25 %Gather.Flood ON
  1738. Set %Gather.Status ON
  1739. mode %Gather.Channel +m
  1740. .timer 1 11 mode %Gather.Channel -m
  1741. .timer 1 2 Teams
  1742. .timer 1 4 msg %Gather.Channel $stl(IPs and passwords has now been sent to every subscribed player.)
  1743. .timer 1 3 Send-details
  1744. }
  1745. }
  1746. alias CheckMix {
  1747. if ($numtok(%Gather.Players,32) == %Gather.Max) {
  1748. Set -u25 %Gather.Flood ON
  1749. Set %Gather.Status ON
  1750. mode %Gather.Channel +m
  1751. .timer 1 1 msg %Gather.Channel $stl(Teams are now randomly selected, Please wait...)
  1752. .timer 1 11 mode %Gather.Channel -m
  1753. MIX %Gather.Players
  1754. .timer 1 2 Teams
  1755. .timer 1 4 msg %Gather.Channel $stl(IPs and passwords has now been sent to every subscribed player.)
  1756. .timer 1 4 Send-details
  1757. }
  1758. }
  1759. alias ShowServerScore { if (%Gather.Status == ON) { ssay Score is - (Team A): $Score(a) - (Team B): $Score(b) - ( $+ $score(half) $+ ) } }
  1760. alias now {
  1761. if (%Gather.Mixing == OFF) { return $calc($numtok(%Gather.Team-A,32) + $numtok(%Gather.Team-B,32)) }
  1762. elseif (%Gather.Mixing !== OFF) { return $numtok(%Gather.Players,32) }
  1763. }
  1764. alias all {
  1765. if (%Gather.Mixing == OFF) { return $calc(%Gather.MaxTeam * 2) }
  1766. elseif (%Gather.Mixing !== OFF) { return %Gather.Max }
  1767. }
  1768. alias Unbanall {
  1769. Set -u60 %Gather.Flood ON
  1770. msg %Gather.Channel $stl(Delete all bans ( $+ %Gather.Color2 $+  $+ $ini(Banned.ini,0) $+  $+ %Gather.Color1 $+ ) $+ $chr(44) Please wait ...)
  1771. var %x 1, %y 1
  1772. while ($ini(Banned.ini,%x)) {
  1773. .timer 1 %y rcmd admin_command admin_unban $v1
  1774. inc %y 5 | inc %x
  1775. }
  1776. .timer 1 $calc(%y +10) msg %Gather.Channel $stl(Done delete bans.)
  1777. }
  1778.  
  1779.  
  1780.  
  1781. alias ResetBot {
  1782. if (%Gather.Channel) && ($me ison %Gather.Channel) { part %Gather.Channel | .timer 1 2 join %Gather.Channel | .timer 1 3 msg %Gather.Channel $stl(Gatherbot Has been restarted.) }
  1783. unset %Gather.TK.*
  1784. Set %Gather.Today 0
  1785. Set %Gather.TopNumber 5
  1786. Set %Gather.Status OFF
  1787. Set %Gather.ScoreBot Off
  1788. Set %Gather.UsersSign •
  1789. Set %Gather.Max 10
  1790. if (%Gather.Amsg !== ON) || (%Gather.Amsg !== OFF) Set %Gather.Amsg ON
  1791. Set %Gather.num 0
  1792. Set %Gather.Mixing ON
  1793. Set %Gather.MaxTeam 5
  1794. if (!%Gather.Vent) Set %Gather.Vent Not defined
  1795. if (!%Gather.Server) Set %Gather.Server Not defined
  1796. unset %Gather.Last*
  1797. if (!%Gather.Port) || (%Gather.Port !isnum) Set %Gather.Port 7141
  1798. Set %Gather.Connected OFF
  1799. Set %Gather.Points 1000
  1800. if (%Gather.UsersNick !== OFF) || (%Gather.UsersNick !== ON) { Set %Gather.UsersNick ON }
  1801. unset %Gather.Reconnecting
  1802. unset %Gather.Ready*
  1803. Set %Gather.PlayersChr ?
  1804. unset %Gather.Team*
  1805. unset %Gather.Started
  1806. unset %Gather.Map
  1807. unset %Gather.Admin
  1808. unset %Gather.Banlast
  1809. unset %Gather.Score-T
  1810. unset %Gather.Score-CT
  1811. unset %Gather.ScoreStatus
  1812. unset %Gather.Half
  1813. unset %Gather.Live
  1814. unset %Gather.Second*
  1815. unset %Gather.MR3*
  1816. .timerSub* off
  1817. unset %Gather.Sub
  1818. unset %Gather.Players
  1819. unset %Gather.Subs
  1820. unset %Gather.Address
  1821. unset %Gather.First*
  1822. unset %Gather.Pass
  1823. unset %Gather.PassA
  1824. unset %Gather.PassB
  1825. unset %Gather.AdminUser
  1826. var %x = 1
  1827. while ($ini(Access.ini,%x)) { .writeini -n Access.ini $ifmatch Gathers 0 | .writeini -n Access.ini $ifmatch Today 0 | inc %x }
  1828. if ($exists(Stats.ini)) .remove Stats.ini
  1829. if ($exists(Banned.ini)) .remove Banned.ini
  1830. if ($exists(Kills.ini)) .remove Kills.ini
  1831. .timer 1 1 RCONstart
  1832. }
  1833. alias ShowAlready { msg %Gather.Channel $stl(Gather Is Already Running. Use $+ %Gather.Color2 %Gather.Sign $+ Status $+ %Gather.Color1 To see the Gather Info) }
  1834. alias SetStyle {
  1835. if ($1 == 1) { Set %Gather.Color1 10 | Set %Gather.Color2 7 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  1836. if ($1 == 2) { Set %Gather.Color1 15 | Set %Gather.Color2 5 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  1837. if ($1 == 3) { Set %Gather.Color1 15 | Set %Gather.Color2 3 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  1838. if ($1 == 4) { Set %Gather.Color1 15 | Set %Gather.Color2 4 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  1839. if ($1 == 5) { Set %Gather.Color1 15 | Set %Gather.Color2 5 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  1840. if ($1 == 6) { Set %Gather.Color1 15 | Set %Gather.Color2 12 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  1841. if ($1 == 7) { Set %Gather.Color1 15 | Set %Gather.Color2 7 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  1842. if ($1 == 8) { Set %Gather.Color1 0,1 | Set %Gather.Color2 7 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  1843. if ($1 == 9) { Set %Gather.Color1 0,1 | Set %Gather.Color2 3 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  1844. if ($1 == 10) { Set %Gather.Color1 0,1 | Set %Gather.Color2 8 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  1845. if ($1 == 11) { Set %Gather.Color1 0,1 | Set %Gather.Color2 11 | Set %Gather.Color3 15 | unset %Gather.Style* | Set %Gather.ColorChr $chr(124) }
  1846. if ($1 == 12) { Set %Gather.Style1 7,1[15«0 | Set %Gather.Style2 15,1»7] | Set %Gather.Color1 0,1 | Set %Gather.Color2 7 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  1847. if ($1 == 13) { Set %Gather.Style1 15,0[10«10 | Set %Gather.Style2 15,010»1015] | Set %Gather.Color1 10 | Set %Gather.Color2 15 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  1848. if ($1 == 14) { Set %Gather.Style1 15,0[5«5 | Set %Gather.Style2 15,05»515] | Set %Gather.Color1 5 | Set %Gather.Color2 15 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  1849. if ($1 == 15) { Set %Gather.Style1 3,1[15«0 | Set %Gather.Style2 15,1»3] | Set %Gather.Color1 0,1 | Set %Gather.Color2 3 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  1850. if ($1 == 16) { Set %Gather.Style1 4,1[15«0 | Set %Gather.Style2 15,1»4] | Set %Gather.Color1 0,1 | Set %Gather.Color2 4 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  1851. if ($1 == 17) { Set %Gather.Style1 8,1[15«0 | Set %Gather.Style2 15,1»8] | Set %Gather.Color1 0,1 | Set %Gather.Color2 8 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  1852. if ($1 == 18) { Set %Gather.Style1 11,1[15«0 | Set %Gather.Style2 15,1»11] | Set %Gather.Color1 0,1 | Set %Gather.Color2 11 | Set %Gather.Color3 15 | Set %Gather.ColorChr , }
  1853. }
  1854.  
  1855. ;
  1856. ;;;;;;;;;;; Menu ;;;;;;;;;;;
  1857. ;
  1858.  
  1859. Menu * {
  1860. Help { ShowHelp }
  1861. .-
  1862. Tray { Showmirc -t }
  1863. Settings
  1864. .Refresh Gatherbot { RCONclose | .timer 1 2 RCONstart }
  1865. .-
  1866. .Set Channel { var %x = $input(Type Channel,e,Type Channel) | if (%x) && ($chr(35) $+ * iswm %x) { Set %Gather.Channel %x } }
  1867. .Set Sign { var %x = $input(Type Sign,e,Type Sign) | if (%x) { Set %Gather.Sign %x } }
  1868. .Set Sign PM { var %x = $input(Type Sign PM,e,Type Sign PM) | if (%x) { Set %Gather.Sign-PM %x } }
  1869. .Set Sign Server { var %x = $input(Type Sign Server,e,Type Sign Server) | if (%x) { Set %Gather.Sign-Server %x } }
  1870. .Set Server IPort { var %x = $input(Type Server IPort,e,Type Server IPort) | if (%x) { Set %Gather.Server %x } }
  1871. .Set Vent IPort { var %x = $input(Type Vent IPort,e,Type Vent IPort) | if (%x) { Set %Gather.Vent %x } }
  1872. .Set Vent Version { var %x = $input(Type Vent Version,e,Type Vent Version) | if (%x) { Set %Gather.Vent-Version %x } }
  1873. .Set RCON Password { var %x = $input(Type RCON Password,e,Type RCON Password) | if (%x) { Set %Gather.RCONpass %x } }
  1874. .Set Port { var %x = $input(Type Port,e,Type Port) | if (%x) && (%x isnum) { Set %Gather.Port %x } }
  1875. .Set Max Players { var %x = $input(Type Max Players,e,Type Max Players) | if (%x) && (%x isnum) { Set %Gather.Max %x } }
  1876. .Set Max Team Players { var %x = $input(Type Max Team Players,e,Type Max Team Players) | if (%x) && (%x isnum) { Set %Gather.MaxTeam %x } }
  1877. .Set Start Points { var %x = $input(Type Start Points,e,Type Start Points) | if (%x) && (%x isnum) { Set %Gather.Points %x } }
  1878. .Set Top Number { var %x = $input(Type Top Number,e,Type Top Number) | if (%x) && (%x isnum) { Set %Gather.TopNumber %x } }
  1879. .Set TAG-A { var %x = $input(Type TAG-A,e,Type TAG-A) | if (%x) { Set %Gather.TAG-A %x } }
  1880. .Set TAG-B { var %x = $input(Type TAG-B,e,Type TAG-B) | if (%x) { Set %Gather.TAG-B %x } }
  1881. .Set Amsg
  1882. ..Turn Amsg ON { Set %Gather.Amsg ON }
  1883. ..Turn Amsg OFF { Set %Gather.Amsg OFF }
  1884. .Set Nick On Users Status
  1885. ..Turn Nick Users ON { Set %Gather.UsersNick ON }
  1886. ..Turn Nick Users OFF { Set %Gather.UsersNick OFF }
  1887. .Set Mixing Teams
  1888. ..Turn Mixing ON { if (%Gather.Status !== Adding) Set %Gather.Mixing ON }
  1889. ..Turn Mixing OFF { if (%Gather.Status !== Adding) Set %Gather.Mixing OFF }
  1890. .Scorebot
  1891. ..Turn Scorebot ON { Set %Gather.Scorebot ON }
  1892. ..Turn Scorebot OFF { Set %Gather.Scorebot OFF }
  1893. ..Set Score Channel { var %x = $input(Type Score Channel,e,Type Score Channel) | if (%x) && ($chr(35) $+ * iswm %x) { Set %Gather.ScoreChannel %x } }
  1894. .Set Last Start notice { var %x = $input(Last start notice?,e,Last start notice?) | if (%x) { Set %Gather.Startnotice %x } }
  1895. .Set TAG
  1896. ..Turn ON { var %x = $input(TAG?,e,TAG?) | if (%x) { Set %Gather.TAG %x } }
  1897. ..Turn OFF { unset %Gather.TAG }
  1898. .Vent Changepass
  1899. ..Status ON/OFF
  1900. ...Turn ON { Set %Gather.VentStatus On }
  1901. ...Turn OFF { Set %Gather.VentStatus Off }
  1902. ..Set Main Room { var %x = $input(Type Main Room,e,Type Main Room) | if (%x) { Set %Gather.MainRoom %x } }
  1903. ..Set Vent RCON { var %x = $input(Type Vent RCON,e,Type Vent RCON) | if (%x) { Set %Gather.VentRCON %x } }
  1904. .-
  1905. .Reset Gatherbot { var %x = $input(Are you sure?,y,Are you sure?) | if (%x == $true) { ResetBot } }
  1906. Set Style
  1907. .Set Color 1 (Main Color) { var %x = $input(Type Color 1 (Main),e,Type Color 1 (Main)) | if (%x) { Set %Gather.Color1 %x } }
  1908. .Set Color 2 (Second Color) { var %x = $input(Type Color 2 (Second),e,Type Color 2 (Second)) | if (%x) { Set %Gather.Color2 %x } }
  1909. .Set Color 3 (Chr Color) { var %x = $input(Type Color 3 (Chr),e,Type Color 3 (Chr)) | if (%x) { Set %Gather.Color3 %x } }
  1910. .Set Style 1 (Style-Side 1) { var %x = $input(Type Style 1 (Style-Side 1),e,Type Style 1 (Style-Side 1)) | if (%x) { Set %Gather.Style1 %x } }
  1911. .Set Style 2 (Style-Side 2) { var %x = $input(Type Style 2 (Style-Side 2),e,Type Style 1 (Style-Side 2)) | if (%x) { Set %Gather.Style2 %x } }
  1912. .Set Players Sign (No color) { var %x = $input(Type Players Sign (No color),e,Type Players Sign (No color)) | if (%x) { Set %Gather.PlayersChr %x } }
  1913. .Set Sign Sign (No color) { var %x = $input(Type Users Sign (No color),e,Type Users Sign (No color)) | if (%x) { Set %Gather.UsersSign %x } }
  1914. .-
  1915. .Main(Orange) - (Blue) { SetStyle 1 }
  1916. .Main(Gray) - (Red) { SetStyle 2 }
  1917. .Main(Gray) - (Red2) { SetStyle 4 }
  1918. .Main(Gray) - (Green) { SetStyle 3 }
  1919. .Main(Gray) - (Blue) { SetStyle 6 }
  1920. .Main(Gray) - (Orange) { SetStyle 7 }
  1921. .Main(BackGround- Black , White) - (Orange) { SetStyle 8 }
  1922. .Main(BackGround- Black , White) - (Green) { SetStyle 9 }
  1923. .Main(BackGround- Black , White) - (Yellow) { SetStyle 10 }
  1924. .Main(BackGround- Black , White) - (Blue 2) { SetStyle 11 }
  1925. .Main(BackGround- Black , White) [« »] - (Orange) { SetStyle 12 }
  1926. .Main(BackGround- Black , White) [« »] - (Green) { SetStyle 15 }
  1927. .Main(BackGround- Black , White) [« »] - (Red) { SetStyle 16 }
  1928. .Main(BackGround- Black , White) [« »] - (Yellow) { SetStyle 17 }
  1929. .Main(BackGround- Black , White) [« »] - (Blue) { SetStyle 18 }
  1930. .Main(Blue2) [« »] - (Gray) { SetStyle 13 }
  1931. .Main(Red2) [« »] - (Gray) { SetStyle 14 }
  1932. Files
  1933. .Open Access File { if ($exists(Access.ini)) run Access.ini }
  1934. .Open Stats File { if ($exists(Stats.ini)) run Stats.ini }
  1935. .Open Banned File { if ($exists(Banned.ini)) run Banned.ini }
  1936. Access
  1937. .Add User {
  1938. :START
  1939. Var %User = $Input(Type Username,e,Type Username)
  1940. if (%User) {
  1941. if ($readini(Access.ini,%User,User)) { echo -a $stl(User %User already used.) | GOTO START }
  1942. else {
  1943. var %Pass = $Input(Type Password,e,Type Password)
  1944. if (%Pass) {
  1945. :STEAM
  1946. var %Steam = $input(Type SteamID,e,Type SteamID)
  1947. if (STEAM_* !iswm %Steam) { echo -a $stl(Wrong SteamID) | GOTO Steam }
  1948. else {
  1949. :Level
  1950. var %Level = $input(Type Level (Admin/Master/Owner/Manager),e,Type Level (Admin/Master/Owner))
  1951. if (%Level == Admin) || (%Level == Master) || (%Level == Owner) || (%Level == Manager) { echo -a $stl(%Level successfully added. (User: $+ %Gather.Color2 %User $+ %Gather.Color1 $+ ) (Pass: $+ %Gather.Color2 %Pass $+ %Gather.Color1 $+ ) (STEAM_ID: $+ %Gather.Color2 %Steam $+ %Gather.Color1 $+ )) | .writeini -n Access.ini %User User %User | .writeini -n Access.ini %User Pass %Pass | .writeini -n Access.ini %User Today 0 | .writeini -n Access.ini %User Steamid %Steam | .writeini -n Access.ini %User Status OFF | .writeini -n Access.ini %User Gathers 0 | .writeini -n Access.ini %User ACC %Level | .writeini -n Access.ini %User Since $date $+ - $+ $time | .writeini -n Access.ini %User By Gatherbot | .writeini -n Access.ini %User LastLogin never }
  1952. elseif (%Level) && (%Level !== Admin) && (%Level !== Master) && (%Level !== Owner) && (%Level !== Manager) { echo -a $stl(Wrong level) | GOTO Level }
  1953. }
  1954. }
  1955. }
  1956. }
  1957. }
  1958. .Remove User {
  1959. :START
  1960. Var %User = $Input(Type Username,e,Type Username)
  1961. if (%User) {
  1962. if (!$readini(Access.ini,%User,User)) { echo -a $stl(User %User Not found.) }
  1963. else { .remini -n Access.ini %User | echo -a $stl(%User successfully removed.) }
  1964. }
  1965. }
  1966. .Clear ALL Users { var %x = $input(Are you sure?,y,Are you sure?) | if (%x == $true) { echo -a $stl(Done) | .remove Access.ini } }
  1967. }
  1968.  
  1969.  
  1970. alias Reset-Today {
  1971. Set %Gather.LastReset $date
  1972. echo -ts (12Reset-Today1) Reset Today Gathers...
  1973. set %Gather.Today 0
  1974. var %x = 1
  1975. while ($ini(Access.ini,%x)) { .writeini -n Access.ini $ifmatch Today 0 | inc %x }
  1976. }
  1977. alias StatusCheck {
  1978. var %x = 1
  1979. while ($ini(Access.ini,%x)) {
  1980. if (!$ialchan(* $+ $readini(Access.ini,$ini(Access.ini,%x),Logged),%Gather.Channel,1).nick) { .writeini -n Access.ini $Ini(Access.ini,%x) Status OFF | .remini -n Access.ini $ini(Access.ini,%x) Logged }
  1981. inc %x
  1982. }
  1983. }
  1984.  
  1985. alias Users {
  1986. if ($prop == logged?) && ($2) {
  1987. var %x = 1
  1988. while ($ini(Access.ini,%x)) {
  1989. if ($readini(Access.ini,$ini(Access.ini,%x),logged) == $1) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $2) { return $ini(Access.ini,%x) }
  1990. inc %x
  1991. }
  1992. }
  1993. if ( ($prop == nick?) || ($prop == nick) ) && ($1) {
  1994. if ($readini(Access.ini,$1,Logged)) { return $ialchan(* $+ $readini(Access.ini,$1,Logged),%Gather.Channel,1).nick }
  1995. else { return No such nickName }
  1996. }
  1997. if ( ($prop == steamid) || ($prop == steam) ) && ($2) {
  1998. var %x = $ini(Access.ini,0)
  1999. while (%x) {
  2000. if ($1 == $readini(Access.ini,$ini(Access.ini,%x),Steamid)) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $2) { return $ini(Access.ini,%x) }
  2001. dec %x
  2002. }
  2003. }
  2004. if ($prop == NUM) && ($2 == ALL) && ($1) {
  2005. var %x 1, %temp
  2006. while ($ini(Access.ini,%x)) {
  2007. if ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $1) { var %temp = %temp $ini(Access.ini,%x) }
  2008. inc %x
  2009. }
  2010. return $numtok(%temp,32)
  2011. }
  2012. if ($prop == num) && ($2 == ON) && ($1) {
  2013. var %x = 1
  2014. while ($ini(Access.ini,%x)) {
  2015. if ($readini(Access.ini,$ini(Access.ini,%x),status) == ON) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $1) { var %temp = %temp $ini(Access.ini,%x) }
  2016. inc %x
  2017. }
  2018. return $numtok(%temp,32)
  2019. }
  2020. if (!$prop) && ($1) && (!$2) {
  2021. var %x 1, %tempa
  2022. while ($ini(Access.ini,%x)) {
  2023. ;if ($readini(Access.ini,$ini(Access.ini,%x),status) == ON) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $1) { var %ON = %ON 3 $+ %Gather.UsersSign $+ $+ %Gather.Color1 $+  $+ $ini(Access.ini,%x) $+ $iif(%Gather.UsersNick == ON,$iif($nick?($Ini(Access.ini,%x)),( $+ %Gather.Color2 $+  $+ $nick?($Ini(Access.ini,%x)) $+ %Gather.Color1 $+ ))) }
  2024. ;if ($readini(Access.ini,$ini(Access.ini,%x),status) == OFF) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $1) { var %OFF = %OFF 4 $+ %Gather.UsersSign $+ $+ %Gather.Color1 $+  $+ $ini(Access.ini,%x) }
  2025. if ($readini(Access.ini,$ini(Access.ini,%x),status) == ON) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $1) { var %temp = %temp 3 $+ $ini(Access.ini,%x) $+ %Gather.Color1 $+ $iif(%Gather.UsersNick == ON,$iif($nick?($Ini(Access.ini,%x)),( $+ %Gather.Color2 $+  $+ $nick?($Ini(Access.ini,%x)) $+ %Gather.Color1 $+ ))) }
  2026. if ($readini(Access.ini,$ini(Access.ini,%x),status) == OFF) && ($readini(Access.ini,$ini(Access.ini,%x),ACC) == $1) { var %temp = %temp 15 $+ $ini(Access.ini,%x) $+ %Gather.Color1 }
  2027.  
  2028. inc %x
  2029. }
  2030. return %temp
  2031. }
  2032. :END
  2033. }
  2034.  
  2035. alias Guns {
  2036. if ($1 == AK47) return 1.00
  2037. if ($1 == M4A1) return 1.00
  2038. if ($1 == Famas) return 1.00
  2039. if ($1 == Galil) return 1.00
  2040. if ($1 == AWP) return 1.05
  2041. if ($1 == MP5navy) return 1.25
  2042. if ($1 == Deagle) return 1.50
  2043. if ($1 == Usp) return 1.50
  2044. if ($1 == Glock18) return 1.50
  2045. if ($1 == Grenade) return 1.80
  2046. if ($1 == Aug) return 1.05
  2047. if ($1 == SG552) return 1.05
  2048. if ($1 == MAC10) return 1.25
  2049. if ($1 == P90) return 1.25
  2050. if ($1 == TMP) return 1.25
  2051. if ($1 == UMP45) return 1.25
  2052. if ($1 == G3sg1) return 1.40
  2053. if ($1 == M3) return 1.40
  2054. if ($1 == XM1014) return 1.40
  2055. if ($1 == Elite) return 1.50
  2056. if ($1 == FiveSeven) return 1.50
  2057. if ($1 == P228) return 1.50
  2058. if ($1 == Scout) return 1.60
  2059. if ($1 == SG550) return 1.70
  2060. if ($1 == M249) return 1.80
  2061. if ($1 == Knife) return 2.00
  2062. }
  2063.  
  2064. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2065. ;;;; End Of Ventox CS 1.6 Gatherbot ;;;;
  2066. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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!