I am Not Master.. I am Newbe.. sorry if something goes wrong
;**************************************************************************************
;PremaNhybrid (April 29, 2010)
;mIRC Clone War Revenge Kick with Single and/or Shifting Socket
;
;Main features:
; + mIRC v6.21 or later is required
; + Double hash table, separate enemy list, auto-reopen on died socket, one clone join
; + Anti-deop, anti-ban, auto-revenge, fishing mode
; + Multi server, multi port, multi spoof (designed to run on AllNetwork IRC Servers)
;
;Notes:
; > Combo kick is activated while master nick is on war channel
; > Clone's anti-ban is activated while master nick is on base channel
; > Recommended to change shift/single.nick, iden, serv, port, pass, base, chan
;
;irc.allnetwork.org 6667, #war
;Right to copy by PremaN
;**************************************************************************************
alias -l shift.nick { return Pr3maNshift Prem4Nshift PremaN5hift PremaNsh1ft Pr3m4Nshift Pr3maN5hift Pr3maNsh1ft Prem4N5hift Prem4Nsh1ft PremaN5h1ft }
alias -l shift.iden { return 01 02 03 04 05 06 07 08 09 10 }
alias -l shift.serv { return irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id }
alias -l shift.port { return 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 }
alias -l shift.pass { return bignet9 bignet15 bignet18 bignet24 bignet39 bignet44 bignet49 bignet63 bignet64 bignet77 }
alias -l shift.base { return #shift }
alias -l shift.chan { return #war }
alias -l single.nick { return PremaNsingle }
alias -l single.iden { return lagi }
alias -l single.serv { return irc.indowebster.com }
alias -l single.port { return 6667 }
alias -l single.pass { return idws52 }
alias -l single.base { return #shift }
alias -l single.chan { return #war }
on *:start:{
.fullname 15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
hfree -w enemy.*
unset %shift.* %single.* %activemode
}
on *:connect:{ raw -q join $shift.base }
on *:exit:{
hfree -w enemy.*
unset %shift.* %single.* %activemode
}
ctcp *:version:*:{
ctcpreply $nick version 15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maNhybrid 14http://15www.hawkee.com14/snippet/4404/ 5,5 $+ $chr(32) $+ 15,14***
}
on !*:deop:#:{
if ($opnick == $me) {
ChanServ op $chan $opnick
if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
if (($chan == $shift.chan) && ($nick != ChanServ) && ($nick != $single.nick) && (!$findtok($shift.nick,$nick,32))) {
if ((!$sock(%single.a)) || ($shift.chan != $single.chan)) {
set %shift.r $nick
if (!$hfind(enemy.nick.shift,$nick,0,W)) { hadd -m enemy.nick.shift $nick }
if (!$sock($gettok($shift.nick,%shift.d,32))) {
var %shift.q = 1
while (%shift.q <= $numtok($shift.nick,32)) {
if ($sock($gettok($shift.nick,%shift.q,32))) {
sockwrite -nt $gettok($shift.nick,%shift.q,32) join $shift.chan
sockwrite -nt $gettok($shift.nick,%shift.q,32) mode $shift.chan +o $opnick
set %shift.d %shift.q
break
}
inc %shift.q
}
}
else { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
}
}
}
if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
if (($chan == $single.chan) && ($nick != ChanServ) && (!$findtok($shift.nick,$nick,32)) && ($nick != $single.nick)) {
if ((!$sock($gettok($shift.nick,%shift.d,32))) || ($single.chan != $shift.chan)) {
set %single.f $nick
if (!$hfind(enemy.nick.single,$nick,0,W)) { hadd -m enemy.nick.single $nick }
if (!$sock(%single.a)) {
sockwrite -nt $single.nick join $single.chan
sockwrite -nt $single.nick mode $single.chan +o $opnick
set %single.a $single.nick
}
else { sockwrite -nt $single.nick kick $single.chan $nick :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
}
}
}
}
}
on !*:ban:#:{
if ($banmask iswm $address($me,5)) {
if ($me !isop $chan) { ChanServ op $chan $me }
raw -q mode $chan -b $banmask
if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
if (($chan == $shift.chan) && ($nick != ChanServ) && ($nick != $single.nick) && (!$findtok($shift.nick,$nick,32))) {
if ((!$sock(%single.a)) || ($shift.chan != $single.chan)) {
set %shift.r $nick
if (!$hfind(enemy.nick.shift,$nick,0,W)) { hadd -m enemy.nick.shift $nick }
if (!$sock($gettok($shift.nick,%shift.d,32))) {
var %shift.p = 1
while (%shift.p <= $numtok($shift.nick,32)) {
if ($sock($gettok($shift.nick,%shift.p,32))) {
sockwrite -nt $gettok($shift.nick,%shift.p,32) join $shift.chan
sockwrite -nt $gettok($shift.nick,%shift.p,32) mode $shift.chan -b $banmask
set %shift.d %shift.p
break
}
inc %shift.p
}
}
else { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
}
}
}
if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
if (($chan == $single.chan) && ($nick != ChanServ) && (!$findtok($shift.nick,$nick,32)) && ($nick != $single.nick)) {
if ((!$sock($gettok($shift.nick,%shift.d,32))) || ($single.chan != $shift.chan)) {
set %single.f $nick
if (!$hfind(enemy.nick.single,$nick,0,W)) { hadd -m enemy.nick.single $nick }
if (!$sock(%single.a)) {
sockwrite -nt $single.nick join $single.chan
sockwrite -nt $single.nick mode $single.chan -b $banmask
set %single.a $single.nick
}
else { sockwrite -nt $single.nick kick $single.chan $nick :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
}
}
}
}
else {
if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
if (($findtok($shift.nick,$ial($banmask).nick,32))) {
if ($me !isop $chan) { ChanServ op $chan $me }
raw -q mode $chan -b $banmask
if (($chan == $shift.chan) && ($nick != ChanServ) && ($nick != $single.nick) && (!$findtok($shift.nick,$nick,32))) {
if ((!$sock(%single.a)) || ($shift.chan != $single.chan)) {
set %shift.r $nick
if (!$hfind(enemy.nick.shift,$nick,0,W)) { hadd -m enemy.nick.shift $nick }
if (!$sock($gettok($shift.nick,%shift.d,32))) {
var %shift.o = 1
while (%shift.o <= $numtok($shift.nick,32)) {
if ($sock($gettok($shift.nick,%shift.o,32))) {
sockwrite -nt $gettok($shift.nick,%shift.o,32) join $shift.chan
sockwrite -nt $gettok($shift.nick,%shift.o,32) mode $shift.chan -b $banmask
set %shift.d %shift.o
break
}
inc %shift.o
}
}
else { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
}
}
}
}
if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
if ($banmask iswm $address($single.nick,5)) {
if ($me !isop $chan) { ChanServ op $chan $me }
raw -q mode $chan -b $banmask
if (($chan == $single.chan) && ($nick != ChanServ) && (!$findtok($shift.nick,$nick,32)) && ($nick != $single.nick)) {
if ((!$sock($gettok($shift.nick,%shift.d,32))) || ($single.chan != $shift.chan)) {
set %single.f $nick
if (!$hfind(enemy.nick.single,$nick,0,W)) { hadd -m enemy.nick.single $nick }
if (!$sock(%single.a)) {
sockwrite -nt $single.nick join $single.chan
sockwrite -nt $single.nick mode $single.chan -b $banmask
set %single.a $single.nick
}
else { sockwrite -nt $single.nick kick $single.chan $nick :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
}
}
}
}
}
}
on !*:kick:#:{
if ($knick == $me) {
if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
if ($chan == $shift.chan) {
raw -q join $shift.chan
if (($nick != ChanServ) && ($nick != $single.nick) && (!$findtok($shift.nick,$nick,32))) {
if ((!$sock(%single.a)) || ($shift.chan != $single.chan)) {
set %shift.r $nick
if (!$hfind(enemy.nick.shift,$nick,0,W)) { hadd -m enemy.nick.shift $nick }
if (!$sock($gettok($shift.nick,%shift.d,32))) {
var %shift.n = 1
while (%shift.n <= $numtok($shift.nick,32)) {
if ($sock($gettok($shift.nick,%shift.n,32))) {
sockwrite -nt $gettok($shift.nick,%shift.n,32) join $shift.chan
set %shift.d %shift.n
break
}
inc %shift.n
}
}
else { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
}
}
}
}
if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
if ($chan == $single.chan) {
raw -q join $single.chan
if (($nick != ChanServ) && (!$findtok($shift.nick,$nick,32)) && ($nick != $single.nick)) {
if ((!$sock($gettok($shift.nick,%shift.d,32))) || ($single.chan != $shift.chan)) {
set %single.f $nick
if (!$hfind(enemy.nick.single,$nick,0,W)) { hadd -m enemy.nick.single $nick }
if (!$sock(%single.a)) {
sockwrite -nt $single.nick join $single.chan
set %single.a $single.nick
}
else { sockwrite -nt $single.nick kick $single.chan $nick :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
}
}
}
}
}
}
on *:quit:{
if (((%activemode == shift) || (%activemode == hybrid)) && ($var(%shift.m*,0))) {
if (($findtok($shift.nick,$nick,32)) && (timeout isin $1-)) {
sockclose $nick
unset %shift.m [ $+ [ $findtok($shift.nick,$nick,32) ] ]
echo -s $chr(35) $+ $findtok($shift.nick,$nick,32) disconnected
var %shift.k = $findtok($shift.nick,$nick,32)
.timershift $+ %shift.k 1 $calc(%shift.k * 5) sockopen $gettok($shift.nick,%shift.k,32) $gettok($shift.serv,%shift.k,32) $gettok($shift.port,%shift.k,32)
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
while (%shift.d <= $numtok($shift.nick,32)) {
if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
set %shift.d $calc(%shift.d + 1)
break
}
inc %shift.d
}
}
}
if (((%activemode == single) || (%activemode == hybrid)) && ($sock($single.nick))) {
if (($nick == $single.nick) && (timeout isin $1-)) {
sockclose $nick
echo -s socket disconnected
.timersingleopen 1 5 sockopen $single.nick $single.serv $single.port
}
}
}
on *:sockopen:*:{
if (((%activemode == shift) || (%activemode == hybrid)) && ($findtok($shift.nick,$sockname,32))) {
set %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ] $sockname
if ($sockerr > 0) {
sockclose $sockname
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
return
}
echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) connected: $sockname
sockwrite -nt $sockname $1- nick $sockname
sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
}
if (((%activemode == single) || (%activemode == hybrid)) && ($sockname == $single.nick)) {
if ($sockerr > 0) {
sockclose $sockname
return
}
echo -s socket connected: $sockname
sockwrite -nt $sockname $1- nick $sockname
sockwrite -nt $sockname user $single.iden x x :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
sockwrite -nt $sockname pass $single.pass
}
}
on *:sockclose:*:{
if (((%activemode == shift) || (%activemode == hybrid)) && ($findtok($shift.nick,$sockname,32))) {
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) disconnected
var %shift.l = $findtok($shift.nick,$sockname,32)
.timershift $+ %shift.l 1 $calc(%shift.l * 5) sockopen $gettok($shift.nick,%shift.l,32) $gettok($shift.serv,%shift.l,32) $gettok($shift.port,%shift.l,32)
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
while (%shift.d <= $numtok($shift.nick,32)) {
if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
set %shift.d $calc(%shift.d + 1)
break
}
inc %shift.d
}
}
if (((%activemode == single) || (%activemode == hybrid)) && ($sockname == $single.nick)) {
echo -s socket disconnected
.timersingleopen 1 5 sockopen $single.nick $single.serv $single.port
}
}
on *:sockread:*:{
if (((%activemode == shift) || (%activemode == hybrid)) && ($findtok($shift.nick,$sockname,32))) {
if ($sockerr > 0) {
sockclose $sockname
unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
return
}
:shift
sockread -f %shift.i
if ($sockbr == 0) { return }
tokenize 32 %shift.i
if (($2 == mode) && ($3 == $shift.chan)) {
if (+o isin $4) {
if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
if ($me ison $shift.chan) {
unset %shift.r
var %shift.j = $nick($shift.chan,0)
while %shift.j {
if ((!$findtok($shift.nick,$nick($shift.chan,%shift.j),32)) && ($nick($shift.chan,%shift.j) != $single.nick) && ($hfind(enemy.nick.shift,$nick($shift.chan,%shift.j),0,W))) { sockwrite -nt $sockname kick $shift.chan $nick($shift.chan,%shift.j) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
dec %shift.j
}
}
else {
if ((!$findtok($shift.nick,%shift.r,32)) && (%shift.r != $single.nick)) { sockwrite -nt $sockname kick $shift.chan %shift.r :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
unset %shift.r
}
}
}
elseif (-o isin $4) {
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $single.nick) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) {
if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
sockwrite -nt $sockname ChanServ op $shift.chan $sockname
if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
}
}
if (($5 == $me) || ($6 == $me) || ($7 == $me) || ($8 == $me)) {
sockwrite -nt $sockname ChanServ op $shift.chan $me
if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
}
}
}
}
elseif (+b isin $4) {
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $single.nick) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) {
if (($findtok($shift.nick,$ial($5).nick,32)) || ($findtok($shift.nick,$ial($6).nick,32)) || ($findtok($shift.nick,$ial($7).nick,32)) || ($findtok($shift.nick,$ial($8).nick,32))) {
if ($findtok($shift.nick,$ial($5).nick,32)) { sockwrite -nt $sockname mode $shift.chan -b $5 }
if ($findtok($shift.nick,$ial($6).nick,32)) { sockwrite -nt $sockname mode $shift.chan -b $6 }
if ($findtok($shift.nick,$ial($7).nick,32)) { sockwrite -nt $sockname mode $shift.chan -b $7 }
if ($findtok($shift.nick,$ial($8).nick,32)) { sockwrite -nt $sockname mode $shift.chan -b $8 }
if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
}
}
if (($5 iswm $address($me,5)) || ($6 iswm $address($me,5)) || ($7 iswm $address($me,5)) || ($8 iswm $address($me,5))) {
if ($5 iswm $address($me,5)) { sockwrite -nt $sockname mode $shift.chan -b $5 }
if ($6 iswm $address($me,5)) { sockwrite -nt $sockname mode $shift.chan -b $6 }
if ($7 iswm $address($me,5)) { sockwrite -nt $sockname mode $shift.chan -b $7 }
if ($8 iswm $address($me,5)) { sockwrite -nt $sockname mode $shift.chan -b $8 }
if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
}
}
}
}
}
elseif (($2 == join) && ($shift.chan isin $3)) {
if (($hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) || ($hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) {
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $single.nick) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
}
}
elseif (($2 == kick) && ($3 == $shift.chan)) {
if (($4 == $sockname) || ($4 == $me)) {
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $single.nick) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && ($gettok($mid($1,2,$len($1)),1,33) != ChanServ)) {
if ($me !ison $shift.chan) { set %shift.r $gettok($mid($1,2,$len($1)),1,33) }
if (!$hfind(enemy.nick.shift,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.shift $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($single.nick,5),2,$len($address($single.nick,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.shift,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.shift $gettok($mid($1,2,$len($1)),2,$asc(@)) }
if ($4 == $me) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
}
if ($4 == $sockname) {
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
while (%shift.d <= $numtok($shift.nick,32)) {
if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
set %shift.d $calc(%shift.d + 1)
break
}
inc %shift.d
}
}
}
}
elseif ($2 == 001) {
sockwrite -nt $sockname join $shift.base
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
while (%shift.d <= $numtok($shift.nick,32)) {
if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
set %shift.d $calc(%shift.d + 1)
break
}
inc %shift.d
}
}
elseif ($2 == 451) {
sockwrite -nt $sockname $1- nick $sockname
sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
}
elseif ($2 == 474) {
if ($sock($gettok($shift.nick,%shift.d,32))) {
sockwrite -nt $gettok($shift.nick,%shift.d,32) ChanServ unban $shift.chan
sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
}
while (%shift.d <= $numtok($shift.nick,32)) {
if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
set %shift.d $calc(%shift.d + 1)
break
}
inc %shift.d
}
}
if (version isin $1-) { sockwrite -nt $sockname notice $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maNhybrid 14http://15www.hawkee.com14/snippet/4404/ 5,5 $+ $chr(32) $+ 15,14*** }
if ($1 == PING) { sockwrite -nt $sockname PONG $2- }
goto shift
}
if (((%activemode == single) || (%activemode == hybrid)) && ($sockname == $single.nick)) {
if ($sockerr > 0) {
sockclose $sockname
return
}
:single
sockread -f %single.g
if ($sockbr == 0) { return }
tokenize 32 %single.g
if (($2 == mode) && ($3 == $single.chan)) {
if (+o isin $4) {
if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
if ($me ison $single.chan) {
unset %single.f
var %single.h = $nick($single.chan,0)
while %single.h {
if (($nick($single.chan,%single.h) != $single.nick) && (!$findtok($shift.nick,$nick($single.chan,%single.h),32)) && ($hfind(enemy.nick.single,$nick($single.chan,%single.h),0,W))) { sockwrite -nt $sockname kick $single.chan $nick($single.chan,%single.h) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
dec %single.h
}
}
else {
if ((%single.f != $single.nick) && (!$findtok($shift.nick,%single.f,32))) { sockwrite -nt $sockname kick $single.chan %single.f :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
unset %single.f
}
}
}
elseif (-o isin $4) {
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && (!$findtok($shift.nick,$gettok($mid($1,2,$len($1)),1,33),32)) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) {
if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
sockwrite -nt $sockname ChanServ op $single.chan $sockname
if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
}
}
if (($5 == $me) || ($6 == $me) || ($7 == $me) || ($8 == $me)) {
sockwrite -nt $sockname ChanServ op $single.chan $me
if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
}
}
}
}
elseif (+b isin $4) {
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && (!$findtok($shift.nick,$gettok($mid($1,2,$len($1)),1,33),32)) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) {
if (($findtok($single.nick,$ial($5).nick,32)) || ($findtok($single.nick,$ial($6).nick,32)) || ($findtok($single.nick,$ial($7).nick,32)) || ($findtok($single.nick,$ial($8).nick,32))) {
if ($findtok($single.nick,$ial($5).nick,32)) { sockwrite -nt $sockname mode $single.chan -b $5 }
if ($findtok($single.nick,$ial($6).nick,32)) { sockwrite -nt $sockname mode $single.chan -b $6 }
if ($findtok($single.nick,$ial($7).nick,32)) { sockwrite -nt $sockname mode $single.chan -b $7 }
if ($findtok($single.nick,$ial($8).nick,32)) { sockwrite -nt $sockname mode $single.chan -b $8 }
if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
}
}
if (($5 iswm $address($me,5)) || ($6 iswm $address($me,5)) || ($7 iswm $address($me,5)) || ($8 iswm $address($me,5))) {
if ($5 iswm $address($me,5)) { sockwrite -nt $sockname mode $single.chan -b $5 }
if ($6 iswm $address($me,5)) { sockwrite -nt $sockname mode $single.chan -b $6 }
if ($7 iswm $address($me,5)) { sockwrite -nt $sockname mode $single.chan -b $7 }
if ($8 iswm $address($me,5)) { sockwrite -nt $sockname mode $single.chan -b $8 }
if ($gettok($mid($1,2,$len($1)),1,33) != ChanServ) {
if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
}
}
}
}
}
elseif (($2 == join) && ($single.chan isin $3)) {
if (($hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) || ($hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) {
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && (!$findtok($shift.nick,$gettok($mid($1,2,$len($1)),1,33),32)) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) { sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
}
}
elseif (($2 == kick) && ($3 == $single.chan)) {
if (($4 == $sockname) || ($4 == $me)) {
if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && (!$findtok($shift.nick,$gettok($mid($1,2,$len($1)),1,33),32)) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && ($gettok($mid($1,2,$len($1)),1,33) != ChanServ)) {
if ($me !ison $single.chan) { set %single.f $gettok($mid($1,2,$len($1)),1,33) }
if (!$hfind(enemy.nick.single,$gettok($mid($1,2,$len($1)),1,33),0,W)) { hadd -m enemy.nick.single $gettok($mid($1,2,$len($1)),1,33) }
if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && (!$findtok($shift.nick,$ial($gettok($mid($1,2,$len($1)),2,$asc(@))).nick,32)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host.single,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host.single $gettok($mid($1,2,$len($1)),2,$asc(@)) }
if ($4 == $me) { sockwrite -nt $sockname kick $single.chan $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
}
if ($4 == $sockname) { .timersinglejoin 1 8 sockwrite -nt $sockname join $single.chan }
}
}
elseif ($2 == 001) {
sockwrite -nt $sockname join $single.base
if (%single.a) { sockwrite -nt $sockname join $single.chan }
}
elseif ($2 == 451) {
sockwrite -nt $sockname $1- nick $sockname
sockwrite -nt $sockname user $single.iden x x :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
sockwrite -nt $sockname pass $single.pass
}
elseif ($2 == 474) {
sockwrite -nt $sockname ChanServ unban $single.chan
sockwrite -nt $sockname join $single.chan
}
if (version isin $1-) { sockwrite -nt $sockname notice $gettok($mid($1,2,$len($1)),1,33) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maNhybrid 14http://15www.hawkee.com14/snippet/4404/ 5,5 $+ $chr(32) $+ 15,14*** }
if ($1 == PING) { sockwrite -nt $sockname PONG $2- }
goto single
}
}
raw 474:*:{
ChanServ unban $2
raw -q join $2
}
raw 403:*:{ haltdef }
raw 404:*:{ haltdef }
raw 441:*:{ haltdef }
raw 442:*:{ haltdef }
raw 482:*:{ haltdef }
menu status,channel,nicklist,query {
PremaNhybrid
.Shift
..Socket
...Open:{
var %shift.a = 1
while (%shift.a <= $numtok($shift.nick,32)) {
if (!$sock($gettok($shift.nick,%shift.a,32))) { .timershift $+ %shift.a 1 $calc(%shift.a * 5) sockopen $gettok($shift.nick,%shift.a,32) $gettok($shift.serv,%shift.a,32) $gettok($shift.port,%shift.a,32) }
inc %shift.a
}
if (%activemode == single) { set %activemode hybrid }
elseif (%activemode != hybrid) { set %activemode shift }
}
...Close:{
var %shift.b = 1
while (%shift.b <= $numtok($shift.nick,32)) {
if ($sock($gettok($shift.nick,%shift.b,32))) {
sockclose $gettok($shift.nick,%shift.b,32)
echo -s $chr(35) $+ %shift.b disconnected
}
inc %shift.b
}
if (%activemode == hybrid) { set %activemode single }
elseif (%activemode == shift) { unset %activemode }
.timershift* off
unset %shift.d %shift.r %shift.m*
}
..Robot
... $+ $iif(((!$var(%shift.m*,0)) || (%shift.d)),$style(2)) Join:{
var %shift.c = 1
while (%shift.c <= $numtok($shift.nick,32)) {
if ($sock($gettok($shift.nick,%shift.c,32))) {
sockwrite -nt $gettok($shift.nick,%shift.c,32) join $shift.chan
set %shift.d %shift.c
break
}
inc %shift.c
}
}
... $+ $iif((!%shift.d),$style(2)) Part:{
sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
unset %shift.d %shift.r
}
... $+ $iif((!%shift.d),$style(2)) Cycle:{
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
while (%shift.d <= $numtok($shift.nick,32)) {
if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
set %shift.d $calc(%shift.d + 1)
break
}
inc %shift.d
}
}
..Enemy
... $+ $iif(((!%shift.d) || ($me !ison $shift.chan)),$style(2)) Kick:{
if ($menu == nicklist) {
if (($$1 != $gettok($shift.nick,%shift.d,32)) && ($$1 != $single.nick) && ($$1 != $me)) {
if (!$hfind(enemy.nick.shift,$$1,0,W)) { hadd -m enemy.nick.shift $$1 }
if (($ial($$1).host) && (!$hfind(enemy.host.shift,$ial($$1).host,0,W))) { hadd -m enemy.host.shift $ial($$1).host }
sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $$1 :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
}
}
else {
var %shift.t = $?="Enter plain or wildcard nick:"
if ((%shift.t) && (%shift.t !iswm $gettok($shift.nick,%shift.d,32)) && (%shift.t !iswm $single.nick) && (%shift.t !iswm $me)) {
if (!$hfind(enemy.nick.shift,%shift.t,0,W)) { hadd -m enemy.nick.shift %shift.t }
if (($ial(%shift.t).host) && (!$hfind(enemy.host.shift,$ial(%shift.t).host,0,W))) { hadd -m enemy.host.shift $ial(%shift.t).host }
var %shift.e = $nick($shift.chan,0)
while %shift.e {
if ($hfind(enemy.nick.shift,$nick($shift.chan,%shift.e),0,W)) { sockwrite -nt $gettok($shift.nick,%shift.d,32) kick $shift.chan $nick($shift.chan,%shift.e) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
dec %shift.e
}
}
}
}
... $+ $iif(((!$hget(enemy.nick.shift)) && (!$hget(enemy.host.shift))),$style(2)) Clear:{
hfree -w *.shift
unset %shift.r
echo -s 15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared 5,5 $+ $chr(32) $+ 15,14***
if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) privmsg $shift.chan :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared 5,5 $+ $chr(32) $+ 15,14*** }
else {
var %shift.f = 1
while (%shift.f <= $numtok($shift.nick,32)) {
if ($sock($gettok($shift.nick,%shift.f,32))) {
sockwrite -nt $gettok($shift.nick,%shift.f,32) privmsg $shift.base :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared 5,5 $+ $chr(32) $+ 15,14***
break
}
inc %shift.f
}
}
}
... $+ $iif(((!$hget(enemy.nick.shift)) && (!$hget(enemy.host.shift))),$style(2)) List:{
if ($hget(enemy.nick.shift)) {
echo -s 15,14***5,5 $+ $chr(32) $+ 0,1 Shift Enemy Nick 5,5 $+ $chr(32) $+ 15,14***
var %shift.g = $hget(enemy.nick.shift,0).item
while (%shift.g) {
echo -s $hget(enemy.nick.shift,%shift.g).item
dec %shift.g
}
}
if ($hget(enemy.host.shift)) {
echo -s 15,14***5,5 $+ $chr(32) $+ 0,1 Shift Enemy Host 5,5 $+ $chr(32) $+ 15,14***
var %shift.h = $hget(enemy.host.shift,0).item
while (%shift.h) {
echo -s $hget(enemy.host.shift,%shift.h).item
dec %shift.h
}
}
}
.Single
..Socket
...Open:{
if (!$sock($single.nick)) { .timersingleopen 1 5 sockopen $single.nick $single.serv $single.port }
if (%activemode == shift) { set %activemode hybrid }
elseif (%activemode != hybrid) { set %activemode single }
}
...Close:{
if ($sock($single.nick)) {
sockclose $single.nick
echo -s socket disconnected
}
if (%activemode == hybrid) { set %activemode shift }
elseif (%activemode == single) { unset %activemode }
.timersingle* off
unset %single.a %single.f
}
..Robot
... $+ $iif(((!$sock($single.nick)) || (%single.a)),$style(2)) Join:{
if ($sock($single.nick)) {
sockwrite -nt $single.nick join $single.chan
set %single.a $single.nick
}
}
... $+ $iif((!%single.a),$style(2)) Part:{
.timersinglejoin off
sockwrite -nt $single.nick part $single.chan :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
unset %single.a %single.f
}
... $+ $iif((!%single.a),$style(2)) Cycle:{
if ($sock($single.nick)) {
sockwrite -nt $single.nick part $single.chan :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
sockwrite -nt $single.nick join $single.chan
}
}
..Enemy
... $+ $iif(((!%single.a) || ($me !ison $single.chan)),$style(2)) Kick:{
if ($menu == nicklist) {
if (($$1 != $single.nick) && ($$1 != $gettok($shift.nick,%shift.d,32)) && ($$1 != $me)) {
if (!$hfind(enemy.nick.single,$$1,0,W)) { hadd -m enemy.nick.single $$1 }
if (($ial($$1).host) && (!$hfind(enemy.host.single,$ial($$1).host,0,W))) { hadd -m enemy.host.single $ial($$1).host }
sockwrite -nt $single.nick kick $single.chan $$1 :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14***
}
}
else {
var %single.b = $?="Enter plain or wildcard nick:"
if ((%single.b) && (%single.b !iswm $single.nick) && (%single.b !iswm $gettok($shift.nick,%shift.d,32)) && (%single.b !iswm $me)) {
if (!$hfind(enemy.nick.single,%single.b,0,W)) { hadd -m enemy.nick.single %single.b }
if (($ial(%single.b).host) && (!$hfind(enemy.host.single,$ial(%single.b).host,0,W))) { hadd -m enemy.host.single $ial(%single.b).host }
var %single.c = $nick($single.chan,0)
while %single.c {
if ($hfind(enemy.nick.single,$nick($single.chan,%single.c),0,W)) { sockwrite -nt $single.nick kick $single.chan $nick($single.chan,%single.c) :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 5,5 $+ $chr(32) $+ 15,14*** }
dec %single.c
}
}
}
}
... $+ $iif(((!$hget(enemy.nick.single)) && (!$hget(enemy.host.single))),$style(2)) Clear:{
hfree -w *.single
unset %single.f
echo -s 15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared 5,5 $+ $chr(32) $+ 15,14***
if ($sock(%single.a)) { sockwrite -nt %single.a privmsg $single.chan :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared 5,5 $+ $chr(32) $+ 15,14*** }
elseif ($sock($single.nick)) { sockwrite -nt $single.nick privmsg $single.base :15,14***5,5 $+ $chr(32) $+ 0,1 Pr4e0maN 15Cleared 5,5 $+ $chr(32) $+ 15,14*** }
}
... $+ $iif(((!$hget(enemy.nick.single)) && (!$hget(enemy.host.single))),$style(2)) List:{
if ($hget(enemy.nick.single)) {
echo -s 15,14***5,5 $+ $chr(32) $+ 0,1 Single Enemy Nick 5,5 $+ $chr(32) $+ 15,14***
var %single.d = $hget(enemy.nick.single,0).item
while (%single.d) {
echo -s $hget(enemy.nick.single,%single.d).item
dec %single.d
}
}
if ($hget(enemy.host.single)) {
echo -s 15,14***5,5 $+ $chr(32) $+ 0,1 Single Enemy Host 5,5 $+ $chr(32) $+ 15,14***
var %single.e = $hget(enemy.host.single,0).item
while (%single.e) {
echo -s $hget(enemy.host.single,%single.e).item
dec %single.e
}
}
}
}