Jump to content

Recommended Posts

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


  • Posts

    • @Silvin Thanks    This will be very useful.
    • Hello, everyone. I am an American, looking to start my own server.... I am looking for a dev, to help me build & edit a pride-style server.  Basically, at this point: (being Lineage 2 is a dying game - with botters overtaking) I'm not looking to spend hundreds-thousands of dollars.... Even if it's a cheap not "pride-style" server, I'll be content with that, too. I have everything else as far as Name, Discord, website, and staff - I just need a dev, to help with the files.  Thanks! 🙂 
    • ## SuperPoint Editor   SuperPoint Editor is a practical visual editor for Lineage II PTS 'SuperPoint.bin' files. It is built for people who need to inspect, fix, rebuild, and draw server routes without digging through binary data by hand.   ### What You Can Do   - Open and edit 'SuperPoint.bin' files. - Export BIN data into a readable TXT format. - Save edited data back into a valid BIN file. - Validate routes before saving. - Work with SuperPoint routes, points, directed connections, and path records in tables. - Add, duplicate, delete, and reorder points. - Create direct and reverse connections between route points. - Automatically generate connections between neighboring points. - Edit raw point coordinates: 'X', 'Y', 'Z', 'Index', and 'Delay'. - Keep route names and internal route data organized. - Use either English or Ukrainian interface language.   ### C4 Server Support   Some C4 servers have 'SuperPoint.bin', but do not have 'superpointinfo.txt' in scripts. The editor supports this case directly. When 'superpointinfo.txt' is not found near the BIN file, the editor can open the BIN in C4 mode. In this mode, 'Fstring ID' is disabled because that value belongs to 'superpointinfo.txt', not to the BIN itself. The editor will not generate or modify 'superpointinfo.txt' while working in this mode. This keeps C4 data clean and avoids creating script files that the server does not actually use.   ### superpointinfo.txt Support   For chronicles that do use 'superpointinfo.txt', the editor can load and synchronize it together with the BIN data. When saving, the editor updates route nodes and coordinates while preserving existing metadata such as: - 'npc_name' - 'move_type' - 'fstring_index' - 'social_number' - 'delay' New nodes are generated with safe default values, so existing script metadata is not accidentally wiped.   ### Geodata Tools   The editor can also open converted geodata '.dat' files and display them as a map. This makes route editing much more visual. You can: - Load geodata and inspect the terrain by layer. - Zoom and pan around the map. - Create a new SuperPoint directly from a map cell. - Draw a route by clicking on the geodata. - Drag existing points to new positions. - Automatically snap 'X/Y' to the selected geo cell. - Use the selected geodata layer to fill the point 'Z'. - See all routes on the map or focus only on the selected one. This is especially useful when building new NPC movement paths or correcting bad route coordinates.   ### Connections and Paths   SuperPoint connections are directional. A connection from point '3' to point '2' is not the same as a connection from point '2' to point '3'. The editor makes this explicit by separating: - route points, - directed connections, - and the actual path records used by each connection. For simple cases, it can create direct path records automatically. For more complex movement, you can edit the path points manually. ### Built for Safe Editing The editor includes validation before saving, so common structural problems can be caught before a broken BIN is produced. It also verifies rebuilt BIN files through the converter engine. The goal is simple: edit quickly, but do not silently damage server data.   ### Unknown Field   This small 'Unknown' field is part of the original BIN structure. Most official-looking files keep it as '0', and for regular route editing there is usually no reason to change it. The editor exposes it so nothing from the BIN is hidden or lost. If you do not know exactly what your server uses it for, keep it at '0'. Download
    • NpcGrp não salva no interlúdio e da crítico quando coloca ele no cliente, já testei ele antes.
  • 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..