This is Socket Bot mode
Just copy all of contains in the box to remote and save it
Rename all name X-Force with your bot nick
Right click on the channel
Choose X-Force menu and click start
Enjoy with revenge war on chanenel #war irc.allnetwork.org
#######################################################################
#-> BOT PROTECTION
#######################################################################
on *:DEOP:#war: { if (($opnick == X-Force) && ($me isop $chan)) cs op $chan $opnick }
#######################################################################
#-> BOT CONFIG
#######################################################################
alias -l sbot.xserver { return irc.plasa.com }
alias -l sbot.xport { return 6667 }
alias -l sbot.xpass { return passserv }
#######################################################################
#-> KICK WAR (SOCKET)
#######################################################################
alias sbot.db {
window -e @sBot
echo @sBot $time([HH:nn:ss]) $+(-sBot:,$1,-) $2-
}
on *:sockopen:sBotX:{
if ($sockerr > 0) {
sbot.db error sBotX could not connect to the server, aborting and closing socket...
sockclose sBotX
halt
}
sbot.db msg sBotX connected with nick X-Force - sending authentication commands...
sockwrite -nt sBotX PASS $sbot.xpass
sockwrite -nt sBotX $1- NICK X-Force
sockwrite -nt sBotX USER X-Force x x :4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12Bä4nt12èn 4«12B4» 1,1 4,4
sockwrite -nt sBotX JOIN %sbot.xchan
halt
}
on *:sockread:sBotX:{
var %xx
sockread -f %xx
tokenize 32 %xx
set %xnick $gettok($mid($1,2,$len($1)),1,33)
set %xhost $gettok($mid($1,2,$len($1)),2,33)
if (($1 == ping || $2 == ping)) { sockwrite -nt sBotX pong $2- }
elseif ($2 isnum) {
if ($2 == 451) {
sbot.db error sBotX didn't register with nick X-Force - if this error keeps coming, please check the server.
sockwrite -nt sBotX PASS $sbot.xpass
sockwrite -nt sBotX $1- NICK X-Force
sockwrite -nt sBotX USER X-Force x x :4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12Bä4nt12èn 4«12B4» 1,1 4,4
sockwrite -nt sBotX JOIN %sbot.xchan
}
}
elseif ($2 == join) {
var %z = 1
while ($hget(enemi,%z).item) {
if (%xhost == $hget(enemi,%z).data) { sockwrite -nt sBotX KICK %sbot.xchan %xnick :4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12Bä4nt12èn 4«12B4» 1,1 4,4
}
inc %z
}
}
elseif ($2 == kick) {
if ($4 == X-Force) {
if (!$hfind(enemy,%xnick,0,W)) { hadd -m enemy %xnick %xnick }
if (!$hfind(enemi,%xhost,0,W)) { hadd -m enemi %xhost %xhost }
inc %slow
if (%slow == 5) {
set %slow 0
sockclose sBotX
sbot.db 12 RECONNECTING....
if ($sock(sBotX) != $null) {
sbot.db error Cannot create socket: sBotX already in use.
}
else {
sockopen sBotX $sbot.xserver $sbot.xport
sbot.db msg sBotX started. The socket has been opened...
}
}
else {
sockwrite -nt sBotX JOIN %sbot.xchan
}
}
elseif (%xnick == X-Force) {
set %slow 0
}
}
elseif (($2 == mode) && (X-Force isin $5)) {
var %x = 1
var %target
while ($hget(enemy,%x).item) {
%target = $hget(enemy,%x).item
if (%target ison %sbot.xchan) {
sockwrite -nt sBotX KICK %sbot.xchan %target :4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12Bä4nt12èn 4«12B4» 1,1 4,4 }
inc %x
}
}
}
#######################################################################
#-> POPUP MENU
#######################################################################
menu menubar,status,channel,query {
X-FORCE
.SETCHAN:{
var %add = $?="CHAN:"
if ((%add == $null) || (%add == $me)) {
unset %add
halt
}
else {
if ($sock(sBotX) != $null) { sockwrite -nt sBotX PART %sbot.xchan }
set %sbot.xchan %add
sbot.db 4 WAR chan set to %add
if ($sock(sBotX) != $null) { sockwrite -nt sBotX JOIN %sbot.xchan }
unset %add
}
}
.START:{
.clear @sBot
set %slow 0
set %sbot.xchan #war
sockclose sBotX
if ($sock(sBotX) != $null) {
sbot.db error Cannot create socket: sBotX already in use.
}
else {
sockopen sBotX $sbot.xserver $sbot.xport
sbot.db msg sBotX started. The socket has been opened...
}
}
.STOP:{
if ($sock(sBotX) != $null) {
unsetall
if ($hget(enemy)) { hfree enemy }
if ($hget(enemi)) { hfree enemi }
sockclose sBotX
sbot.db msg sBotX stopped. The socket has been closed...
}
else {
sbot.db error sBotX isn't running.
}
}
.CYCLE:{
if ($sock(sBotX) != $null) {
sockwrite -nt sBotX PART %sbot.xchan
sockwrite -nt sBotX JOIN %sbot.xchan
}
else {
sbot.db error sBotX isn't running.
}
}
.-
.CLEAR:{
if ($hget(enemy)) {
hfree enemy
}
if ($hget(enemi)) {
hfree enemi
}
if ($sock(sBotX) != $null) { sockwrite -nt sBotX PRIVMSG %sbot.xchan : $+ 4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12c4L12èar 4«12B4» 1,1 4,4 }
}
.-
.ADDNICK:{
var %add = $?="NICK:"
if ((%add == $null) || (%add == $me)) {
unset %add
halt
}
else {
hadd -m enemy %add %add
if ($sock(sBotX) != $null) { sockwrite -nt sBotX KICK %sbot.xchan %add : $+ 4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12T4e12st 4«12B4» 1,1 4,4 }
unset %add
}
}
.ADDHOST:{
var %add = $?="HOST:"
if ((%add == $null) || (%add == $me)) {
unset %add
halt
}
else {
hadd -m enemi %add %add
unset %add
}
}
.DELNICK:{
if ($hget(enemy) != $null) {
var %remove = $?="NICK:"
if (%remove == $null) {
unset %remove
halt
}
else {
hdel enemy %remove
}
unset %remove
}
}
.DELHOST:{
if ($hget(enemi) != $null) {
var %remove = $?="HOST:"
if (%remove == $null) {
unset %remove
halt
}
else {
hdel enemi %remove
}
unset %remove
}
}
.-
.LIST:{
var %v = 1
while ($hget(enemy,%v).item) {
sbot.db 4 $hget(enemy,%v).data
inc %v
}
var %v = 1
sbot.db 12 ----------------------
while ($hget(enemi,%v).item) {
sbot.db 4 $hget(enemi,%v).data
inc %v
}
}
.-
.SPEAK:{
var %speak = $?="TEXT:"
if ($sock(sBotX) != $null) { sockwrite -nt sBotX PRIVMSG %sbot.xchan : $+ 4,4 1,1 4,15 «12G4»12 %speak 4«12B4» 1,1 4,4 }
}
.-
}
menu nicklist {
-
ADDNICK:{
var %add = $$1
if ((%add == $null) || (%add == $me)) {
unset %add
halt
}
else {
hadd -m enemy %add %add
if ($sock(sBotX) != $null) { sockwrite -nt sBotX KICK %sbot.xchan %add : $+ 4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12T4e12st 4«12B4» 1,1 4,4 }
unset %add
}
}
}