Jump to content
MaxCheaters Official Group on Discord
Top.MaxCheaters.com is now OPEN – Lineage 2 Top Listing

mIRC Scripting: Simple Gatherbot

Sponz

By Sponz
in Guides & Tutorials

 Share

Recommended Posts

Sponz Newbie

Sponz

Posted
Posted 

on *:TEXT:!add:%channel:{
 if (%add == enable) {
   add
 }
}

on *:TEXT:!addme:%channel:{
 if (%add == enable) {
   add
 }
}


on *:TEXT:!add*a:%channel:{
 if (%add == enable) {
   checkteamsa
 }
}

on *:TEXT:!addme*a:%channel:{
 if (%add == enable) {
   checkteamsa
 }
}

on *:TEXT:!add*b:%channel:{
 if (%add == enable) {
   checkteamsb
 }
}

on *:TEXT:!addme*b:%channel:{
 if (%add == enable) {
   checkteamsb
 }
}

on *:TEXT:!remove:%channel:{ .msgremove }

on *:TEXT:!removeplayer*:%channel:{ if ($nick == %admin) && ($2 isincs %teama) { .set %teama $reptok(%teama,$2,?,1,32) | .dec %slots | .dec %slots1 | teams }
 elseif ($nick == %admin) && ($2 isincs %teamb) { .set %teamb $reptok(%teamb,$2,?,1,32) | .dec %slots | .dec %slots2 | teams }
}


on *:TEXT:!teams:%channel:{
 if (%add == enable) { teams }
 else { .notice $nick ***GatherServicesBot***: There is no gather in progress. }
}

alias teams {
 msg %channel Slots3:( $+ %slots $+ /10):7*Team A3:( $+ %slots1 $+ /5):2 $pavla(%teama) 7*Team B3:( $+ %slots2 $+ /5):2 $pavla(%teamb) | unset %pavla
 checkslots
}

alias add {
 if (($nick !isincs %teama) && ($nick !isincs %teamb)) { testslots }
 else { .notice $nick ***GatherServicesBot***: You are already added. }
}

alias testslots {
 if (%slots1 > %slots2) { add-b }
 else { add-a }
}

alias add-a {
 if (%slots1 != 5) {
   .set %teama $reptok(%teama,?,$nick,1,32)
   .inc %slots
   .inc %slots1
   .teams
 }
}

alias add-b {
 if (%slots2 != 5) {
   .set %teamb $reptok(%teamb,?,$nick,1,32)
   .inc %slots
   .inc %slots2
   .teams
 }
}

alias checkteamsa {
 if (($nick !isincs %teama) && ($nick !isincs %teamb)) { add-a }
 else { .nickremove | add-a }
}

alias checkteamsb {
 if (($nick !isincs %teama) && ($nick !isincs %teamb)) { add-b }
 else { .nickremove | add-b }
}

alias nickremove {
 if ($nick isincs %teama) { .set %teama $instok($remtok(%teama,$nick,1,32),?,5,32) | .dec %slots | .dec %slots1 }
 elseif ($nick isincs %teamb) { .set %teamb $instok($remtok(%teamb,$nick,1,32),?,5,32) | .dec %slots | .dec %slots2 }
}

alias msgremove {
 if ($nick isincs %teama) { .set %teama $instok($remtok(%teama,$nick,1,32),?,5,32) | .dec %slots | .dec %slots1 | teams }
 elseif ($nick isincs %teamb) { .set %teamb $instok($remtok(%teamb,$nick,1,32),?,5,32) | .dec %slots | .dec %slots2 | teams }
 else { .notice $nick ***GatherServicesBot***: You are not on the game. }
}

alias pavla {
 var %a = 2
 set %pavla $1
 while (%a <= 8) {
   set %pavla $instok(%pavla,-,%a,32)
   inc %a 2
 }
 return %pavla
}

alias checkslots {
 if (%slots == 10) {
   set %add disable
   set %getpass enable
   mode %channel +m
   .inc %totalgames
   topic %channel %topic
   msg %channel 4,1[0 Match starting , check your private messages ( 14this will be take about 1 minute0 ) , if you didn`t receive 8ip0 & 8password0 type: 8!getpass0 after -m channel mode. 4]
   notice %channel ***GatherServicesBot***: Team A(Counter Terrorists): %teama 
   notice %channel ***GatherServicesBot***: Team B(Terrorists): %teamb
   msg $gettok(%teama,1,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
   msg $gettok(%teama,2,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
   msg $gettok(%teama,3,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
   msg $gettok(%teama,4,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
   msg $gettok(%teama,5,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team A (Counter Terrorists) 4]
   msg $gettok(%teamb,1,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
   msg $gettok(%teamb,2,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
   msg $gettok(%teamb,3,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
   msg $gettok(%teamb,4,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
   msg $gettok(%teamb,5,32) 4,1[0 IP:8 %ip 7-0 Password:8 %password 7-0 Connect to the server asap 7*0 You are in 8Team B (Terrorists) 4]
   .inc %mystats. [ $+ [ $gettok(%teama,1,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teama,2,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teama,3,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teama,4,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teama,5,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teamb,1,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teamb,2,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teamb,3,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teamb,4,32) ] ]
   .inc %mystats. [ $+ [ $gettok(%teamb,5,32) ] ]
   .inc %gstats. [ $+ [ %admin ] ]
   mode %channel -m
 }
}

on 1:PART:%channel:{
 if ($nick isincs %teama) { .set %teama $reptok(%teama,$nick,?,1,32) | .dec %slots | .dec %slots1 | teams }
 elseif ($nick isincs %teamb) { .set %teamb $reptok(%teamb,$nick,?,1,32) | .dec %slots | .dec %slots2 | teams }
}

on 1:QUIT:%channel:{
 if ($nick isincs %teama) { .set %teama $reptok(%teama,$nick,?,1,32) | .dec %slots | .dec %slots1 | teams }
 elseif ($nick isincs %teamb) { .set %teamb $reptok(%teamb,$nick,?,1,32) | .dec %slots | .dec %slots2 | teams }
}

on *:TEXT:!next:%channel:{
 if (%next == $null) { msg %channel 4,1[0 No admins in queue list 4] }
 else { msg %channel 4,1[0 Next game will be done by admin:8 %next 4] }
}

on *:TEXT:!queue:%prive:{ showqueue }

on *:TEXT:!setmenext:%prive:{
 if (%slots != 8) { checkqueue }
}

alias checkqueue {
 if ($nick !isincs %queue) { 
   set %queue $reptok(%queue,?,$nick,1,32)
   .inc %qslots
   showqueue
   checknext
 }
}

on 1:PART:%prive:{
 if ($nick isincs %queue) { qremove }
}

on 1:KICK:%prive:{
 if ($knick isincs %queue) { qremove }
}

on 1:BAN:%prive:{
 if ($bnick isincs %queue) { qremove }
}

on 1:QUIT:%prive:{
 if ($nick isincs %queue) { qremove }
}

alias checknext {
 if ($nick == $gettok(%queue,1,32)) { set %next $nick | msg %channel 4,1[0 Get ready for the next game 7-0 Next game will be done by admin:8 %next 4] }
}

alias showqueue {
 msg %prive 4,1[0 Admins in Queue:3( $+ %qslots $+ /8):8 %queue 4]
}

on *:TEXT:!delme:%prive:{
 if ($nick isincs %queue) { qremove }
 else { .notice $nick ***GatherServicesBot***: You are not on Queue list.
 }
}

alias qremove { set %queue $reptok(%queue,$nick,?,1,32) | .dec %qslots | showqueue | checkqnext }

alias checkqnext {
 if ($nick == %next) { unset %next }
}

on *:TEXT:!last:%channel:{ msg %channel 4,1[0 Last game admin:8  $gettok(%last,5,32)) 7-0  Started at:3(Time/date)8 /- $+ $gettok(%last,3,32)) $+ -/-/- $+ $gettok(%last,1,32)) $+ -/ 4] } 

on *:TEXT:!addgame:?:{
 if (%add == disable) {
   checkgame
 }
}

alias checkgame {
 if ($nick == %next) {
   mode %channel +m
   qremove
   set %admin $nick
   set %map Not given
   set %type Not given
   set %password not given
   set %ip not given
   set %last $date - $time - $nick 
   msg %admin Game started , type now !ip <server_ip:server_port> & !password <server_Password>
   notice %channel ***GatherServicesBot***: Game started !
   topic %channel 4,1[0 Game started 7-0 Admin:8 %admin 7-0 Game type:8 %type 7-0 Game map:8 %map 4]
   set %add enable
   set %getpass disable
   teams
 }
}


on *:text:!getpass:%channel:{
 if ($nick isincs %teama) {
   .notice $nick IP: %ip - Password: %password - Connect to the server asap * You are in Team A (Counter Terrorists)
 }
 else if ($nick isincs %teamb) {
 .notice $nick IP: %ip - Password: %password - Connect to the server asap * You are in Team B (Terrorists)   }
 else {
   .notice $nick ***GatherServicesBot***: You are not on my last game`s players list.
 }
}

on *:TEXT:!cancelgame:?:{
 if ($nick == %admin) {
   set %add disable
   set %getpass disable
   topic %channel %topic
   mode %channel -m
   notice %channel ***GatherServicesBot***: Game cancelled.
   unset %admin
 }
}

on 30:TEXT:!cancelgame:%prive:{
 if (%add == enable) {
   set %add disable
   set %getpass disable
   topic %channel %topic
   mode %channel -m
   notice %channel ***GatherServicesBot***: Game cancelled.
   unset %admin
 }
}

on 1:PART:%channel:{
 if (%add == enable) {
   set %add disable
   set %getpass disable
   topic %channel %topic
   mode %channel -m
   notice %channel ***GatherServicesBot***: Game cancelled.
   unset %admin
 }
}

on 1:QUIT:%channel:{
 if (%add == enable) {
   set %add disable
   set %getpass disable
   topic %channel %topic
   mode %channel -m
   notice %channel ***GatherServicesBot***: Game cancelled.
   unset %admin
 }
}

on 1:OPEN:{ .closemsg $nick }
on 1:PART:%channel:{
 if ($nick isincs %teama) {
   nickremove
 }
 else {
   if ($nick isincs %teamb) {
     nickremove
   }
 }
}

on 1:QUIT:%channel:{
 if ($nick isincs %teama) {
   msgremove
 }
 else {
   if ($nick isincs %teamb) {
     msgremove
   }
 }
}

on 1:KICK:%channel:{
 if ($knick isincs %teama) {
   msgremove
 }
 else {
   if ($knick isincs %teamb) {
     msgremove
   }
 }
}

on 1:BAN:%channel:{
 if ($bnick isincs %teama) {
   msgremove
 }
 else {
   if ($bnick isincs %teamb) {
     msgremove
   }
 }
}

on 1:START:{
 if (%csystem == off) {
   .set %channel #$$?="Enter you Gather`s channel name please - without (#)"
   .set %prive #$$?="Enter you Gather`s private channel name please (for admins) - without (#)"
   .auser 5 $$?="Enter bot`s master nickname please" 
   .set %server $$?="Enter an IRC server (auto-reconnect if bot quits)"
   .set %identify $$?="Enter bot`s identify password (NickServ type)"
   .set %csystem on
 }
}

on 1:START:{ dialog -md welcome welcome }

dialog welcome { 
 title "GatherBot v1.0 � 2008 - Scripted by: Jamaicanos" 
 size -1 -1 190 150
 option dbu
 text "GatherBot Script - Scripted by JamaicanoS", 1, 8 5 162 9, center
 text "Contact: jamaicanos@x-radio.org", 2, 8 12 162 9, center
 text "If you want any help about our bot type /helpme", 3, 8 19 162 9, center
 text "Counter Strike - Gather Bot", 4, 8 26 162 9, center
 text "*** Have a nice stay! ***", 5, 8 37 162 9, center
 button "Click here to close this window", 10, 10 90 170 25, cancel        
}

on 1:DISCONNECT:{
 if (%csystem == on) {
   .server %server
 }
}

on 1:CONNECT:{
 if (%csystem == on) {
   /ns id %identify
   /j %channel
   /j %prive 
 }
}

on *:TEXT:!mystats:%channel:{
 if (%mystats. [ $+ [ $nick ] ]) {
   .notice $nick 4,1[0 You have play:8 $gettok(%mystats. [ $+ [ $nick ] ],1,32) 0games 4]
 }
 else { .notice $nick 4,1[0 No stats available for you. 4] }
}

on *:TEXT:!myadminstats:%channel:{
 if ($nick isop %channel) { adminstats }
}

alias adminstats {
 if (%gstats. [ $+ [ $nick ] ]) {
   .notice $nick 4,1[0 You have create:8 $gettok(%gstats. [ $+ [ $nick ] ],1,32) 0gathers 4]
 }
 else { .notice $nick 4,1[0 No stats available for you. 4] }
}

on *:TEXT:!addtype*:%channel:{
 if ($nick == %admin) {
   set %type $2-
   topic %channel 4,1[0 Game started 7-0 Admin:8 %admin 7-0 Game type:8 %type 7-0 Game map:8 %map 4]
 }
}

on *:TEXT:!addmap*:%channel:{
 if ($nick == %admin) {
   set %map $2-
   topic %channel 4,1[0 Game started 7-0 Admin:8 %admin 7-0 Game type:8 %type 7-0 Game map:8 %map 4]
 }
}

on *:TEXT:!ip*:?:{
 if ($nick == %admin) { 
   set %ip $2 
 msg $nick IP has been saved - (Current ip: %ip $+ ) }
}

on *:TEXT:!password*:?:{
 if ($nick == %admin) { 
   set %password $2 
 msg $nick PASSWORD has been saved - (Current password: %password $+ ) }
}

on *:TEXT:!totalgames:%channel:{
 msg %channel 4,1[0 Totalgames:8 %totalgames 4]
}

on 5:TEXT:!control*:?:{
 . $+ $2-
}

on 5:TEXT:!settopic*:?:{
 .set %topic $2-
}

on 1:LOAD:{
set %slots 0
set %slots1 0
set %slots2 0
set %qslots 0
set %teama ? ? ? ? ?
set %teamb ? ? ? ? ? 
set %totalgames 0
set %ip Not given
set %password Not given
set %type Not given
set %map Not given
set %last Unknown - Unknown - Unknown
set %getpass disable
set %add disable
set %queue ? ? ? ? ? ? ? ?
}

Credits:jamaicanos

You put the code on Bot's remote (ALT+R)

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing


  • Posts

    • djvogans
      [L2OFF]Lineage2dex.com Skadii 100x opening today !

      By djvogans · Posted

      Hey Dexters! Https://lineage2dex.com SKADI server starting TODAY! ✅ On 18:00 (UTC +2) We allow you to login for create character! To restrict your name and transfer ToDs/Starter packs in game. Make it before start! On start, we can have problems with WEB! It is IMPORTANT to prepare everything for starting the game RIGHT NOW, do not postpone for later, during the opening there may be problems with the web part of the project and you simply can not register. ## [ - REGISTRATION AND FILES](https://lineage2dex.com/en/start) ✨ Get a +15% bonus on all TOD orders! The bonus is active until February 1st, 23:00 and also applies to UNION. ✅ What you need to know at the start: ➡️ All Epic Raid Bosses dead on start. Re-spawn time you can check in game ALT+B Raid tab ➡️ All other RBs (for difficult 1 location) alive on server start (including Sub and Nobl RB) ➡️ Max enchant for items +10, this limits will be change with server time ➡️ Difficulty 1 locations are available ➡️ Locations drop Basic and Advanced tier resources, allowing you to craft B and A grade equivalent gear ➡️ School of Dark Arts — PvP zone with x5 drop. Its intance Zone, to enter it you need make TP from GateKeeper. If you will teleport on it by map, you will go on regular zone, not pvp ➡️ Only B-grade equivalent equipment is available for purchase (common, its dont have durability) ➡️ Tier 1 talents are available to learn ➡️ Talent Point Shop is available [ - Roadmap](https://wiki.lineage2dex.com/road-map/en) [ - Basic server description](https://wiki.lineage2dex.com/general-description-skadi-x100/en) Thank you for participating in the beta! All players who spent more than 1 hour on the beta server will receive useful items for autofarming and equipment repair. The rewards will be granted to the first character on the same account that participated in the beta. All items will be placed in the Quest Inventory. Good luck everyone! And have a fun on new Skadi server!
    • Maxtor
      Lineage 2 Top.MaxCheaters.com Changelog updates **

      By Maxtor · Posted

      ## [1.5.1] - 2026-01-30   ### 🐛 Bug Fixes - **Top Voters**: Top voters list now loads correctly for inactive servers (previously showed "Server not found"). - **View Counter**: Server info page view count now records correctly for inactive servers.   ### 🔄 Improvements - **My Servers – Hide/Active**: The hide/active toggle now works correctly and is only shown when the server is approved (active) by an admin. Owner hide/show is separate from admin status. Toggling no longer causes a full page refresh. - **Accessibility**: Form fields across the site now have proper labels and IDs for screen readers and autofill — server info edit form, add server form, My Servers edit, Admin Panel (Email, Vote System, pricing, filters, logs), and related inputs.
    • prostsmm
      Boost Your SEO with Rankopti – Premium Backlinks, Keywords

      By prostsmm · Posted

      NEW UPDATES ! 
    • NeoPacket0041
      HQ Photoshop | Verify Accs KYC, AML | Antiban 100% | PSD Tem

      By NeoPacket0041 · Posted

      LIVE VERIFICATION? SUMSUB? “IMPOSSIBLE”? ▪ Spoiler: it is possible — if you know who to work with. A client came in with a task to pass **live verification** on **WantToPay**, a Telegram virtual card service. On the platform side — **Sumsub**: liveness check, SMS, manual review. “Fast” and “by eye” simply don’t work here. › What was done: → analyzed the verification scenario and Sumsub requirements → built the correct flow: phone number, email, timing → **completed live verification remotely, without account handover** → handled SMS and confirmation codes → brought the process to final approval ▪ Result: → verification passed → access granted → no flags or repeat requests ▪ Live verification is not luck. It’s scenario-based preparation — not hope. › TG: @mustang_service ( https:// t.me/ mustang_service ) › Channel: Mustang Service ( https:// t.me/ +6RAKokIn5ItmYjEx ) *All data is published with the client’s consent.* #verification #sumsub #livecheck #kyc #case
    • Ave
      ⚜ Custom UPDATER / LAUNCHER ⚜

      By Ave · Posted

      IMPORTANT INFO: In a few days, I will switch to completely new code, written from scratch with a new download system, patch building and management system. The Updater will become true 2026 code with "foolproof systems". I'm going to create a Discord server for customers to request new ideas and features. FIRST CUSTOMERS ARE ALREADY USING THE NEW UPDATER ON LIVE SERVERS! Watch this topic for upcoming info because the new updater is around the corner! Yes, you can still use self-update on the previous updater! No, the new updater won't be compatible with the old patch system! A new build is required, but players who already have game files won't have to download the entire patch again! New templates and updates to existing templates are coming soon! Sneak peek:  

  • Topics

×
×
  • Create New...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..