API tools faq
paste
Advertisement
Guest User

Untitled

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