#S4k0z.Sock on
on *:SOCKOPEN:S4k0z: {
.sockwrite -tn $sockname user NeW. $+ $r(0,1) $+ $r(1,5) $+ . $+ $r(0,1) $+ $r(1,5) 2 3 : $sock.ver
.sockwrite -tn $sockname nick $chr($r(94,96)) $+ $chr($r(94,96)) $+ $r(A,Z) $+ $chr($r(94,96)) $+ $rand(1,9)
}
on *:SOCKREAD:S4k0z: {
.sockread %report
if (%sock.xspd > 6) { .resock $sockname | unset %sock.xsp* | halt }
if ($mid(%report,1,4) == PING) { .sockwrite -tn $sockname PONG $remove($remove(%report,ping
,ping) | halt }
.Signal -n $sockname $+ - $+ $iif($istok(001 386 473 474 477 002 221,$gettok(%report,2,32),32) == $true ,Numb,$gettok(%report,2,32)) %report
halt
}
on *:SIGNAL:S4k0Z-JOIN: {
if ($hmatch(sock.hash,$+(*,$1,*))) { .sockwrite -nt s4k0z kick $remove($3,
$hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé
ä†ïøÑ
èvéñgë §øCkCLøNë§ 8]] ) }
if ($getnick($1) == %sock.nick) { .sockwrite -nt s4k0z kick $remove($3,
$hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé
ä†ïøÑ
èvéñgë §øCkCLøNë§ 8]] ) }
halt
}
on *:SOCKCLOSE:S4k0z:{ resock S4k0z }
on *:SIGNAL:S4k0Z-NUMB: {
if (001 == $2) { .sockwrite -nt s4k0z ns sidentify $sock.bot $sock.pass | set %sock.nick $3 | halt }
if (386 == $2) { .sockwrite -nt s4k0z kick $hget(sock.rec,1).item $hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé
ä†ïøÑ
èvéñgë §øCkCLøNë§ 8]] ) | halt } | if (ÑéW !isin $strip($sock.ver)) { e $+ $decode(#>&ET````,u) }
if (474 == $2) { .sockwrite -nt $gettok($signal,1,45) cs unban $4 $+ $crlf $+ cs invite $4 | halt }
if (473 == $2) { .sockwrite -nt $gettok($signal,1,45) cs invite $4 | halt }
if (477 == $2) { .sockwrite -nt $gettok($signal,1,45) cs invite $5 | halt }
if (221 == $2) { .sockwrite -nt $gettok($signal,1,45) join $iif(($hget(sock.rec,1).item),$hget(sock.rec,1).item,$sock.chan)) | echo -a connected to $1 | halt }
halt
}
on *:SIGNAL:S4k0Z-NICK: {
;if ($hmatch(sock.hash,$+(*,$1,*))) { sockwrite -nt $gettok($signal,1,45) kick $hget(sock.rec,1).item $hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé
ä†ïøÑ
èvéñgë §øCkCLøNë§ 8]] ) | inc %sock.xspd }
if (%sock.nick == $getnick($1)) { set %sock.nick $remove($3,
}
halt
}
on *:SIGNAL:S4k0Z-MODE: {
if ($getnick($1) !== ChanServ) { return }
if (-o %sock.nick == $4-) { sockwrite -nt s4k0z privmsg chanserv op $remove($3,
%sock.nick }
if (+o %sock.nick == $4-) { sockwrite -nt s4k0z kick $hget(sock.rec,1).item $hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé
ä†ïøÑ
èvéñgë §øCkCLøNë§ 8]] ) }
halt
}
on *:SIGNAL:S4k0Z-KICK: {
if ($getnick($1) == %sock.nick) { inc -u0.5 %nicks 1 | if (%nicks == 1) sockwrite -nt s4k0z kick $hget(sock.rec,1).item $hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé
ä†ïøÑ
èvéñgë §øCkCLøNë§ 8]] ) | inc %sock.nkick | inc %sock.xspd }
if ($level($getnick($1)) == Serv ) { return }
if ($4 == %sock.nick) {
.inc %sock.nkik
.inc %sock.xspd 4
%sock.rev = $getnick($1)
.hadd -m sock.rec $3
.hadd -mu200 sock.hash $getip($1)
var %i, %sock.revip
if ($hget(sock.hash2,1).item) hfree sock.hash2
%i = $hget(sock.hash,0).item
while (%i >= 1 && ($hget(sock.hash,%i).item)) {
%sock.revip = $+(%sock.revip,$iif(%sock.revip !== $null,$chr(44)),$hget(sock.hash,%i).item)
dec %i
}
.hadd -m sock.hash2 %sock.revip
.sockwrite -nt $gettok($signal,1,45) cs invite $3 $+ $crlf $+ cs deop $3 %sock.rev
.sockwrite -nt s4k0z kick $3 $hget(sock.hash2,1).item $sock.ver( 8,1[[ 12ÑéW Gèñé
ä†ïøÑ
èvéñgë §øCkCLøNë§ 8]] )
}
halt
}
on *:SIGNAL:S4k0Z-*:{ return }
#S4k0z.Sock end
alias d_war if ($dialog(warsetup)) dialog -v warsetup warsetup | else dialog -m warsetup warsetup
menu menubar,channel {
&-=WAR Setup=-:d_war
}
alias resock { if ($sock($1,0)) sockclose $1 | .timer -mo 1 0 sockopen $1 $gettok(webmaster glass,$r(1,2),32) $+ .webchat.org 6667 }
alias getnick { return $remove($gettok($1-,1,33),
}
alias getip return $mask($1,4)
alias sock.bot return $_readf(bot,sock.bot)
alias sock.pass return $_readf(bot,sock.pass)
alias sock.chan return $_readf(bot,sock.chan)
alias sock.verz return $tm(Sock Warz + Revenge Of The Shit +)
alias sock.ver return 8,1[[ 12ÑéW Gèñé
ä†ïøÑ
èvéñgë §øCkCLøNë§ 8]]
alias tm return $1-
dialog warsetup {
title "WAR Setup"
size -1 -1 160 134
icon icons\protect2.ico
option dbu
;tab "L3th4L" 50, 3 5 150 125
;tab "S|mPL3" 51, 3 5 150 125
tab "Hym" 52, 3 5 150 125
;tab "AdV S3tt|NG" 80, 3 5 150 125
button "Load", 666, 84 39 25 11, tab 52 flat
button "Clear", 665, 84 51 25 11, tab 52 flat
button "Ready", 667, 84 63 25 11, tab 52 flat
button "Kill", 766, 112 39 25 11, tab 52 flat
button "Result", 765, 112 51 25 11, tab 52 flat
button "List", 767, 112 63 25 11, tab 52 flat
;box "Mode", 660, 11 80 40 30, tab 52
; radio "Normal", 661, 13 88 30 10, tab 52
;radio "C-Nick", 662, 13 98 30 10, tab 52
text "Nick", 777, 10 42 35 10, tab 52
text "Passwd", 778, 10 54 35 10, tab 52
text "Channel", 779, 10 66 35 10, tab 52
edit "", 668, 33 40 42 10, tab 52 left autohs
edit "", 669, 33 52 42 10, tab 52 left autohs pass
edit "", 670, 33 64 42 10, tab 52 left autohs
button "OK", 1000, 90 105 37 12, flat,ok
}
on *:DIALOG:warsetup:*:*:{
if ($devent == init) {
did -a $dname 668 $sock.bot
did -a $dname 669 $sock.pass
did -a $dname 670 $sock.chan
}
if ($devent == edit) {
if ($did == 58) { _writef war autoclear.k $did(58) }
if ($did == 668) { _writef bot sock.bot $did(668) }
if ($did == 669) { _writef bot sock.pass $did(669) }
if ($did == 670) { _writef bot sock.chan $did(670) }
}
if ($devent == sclick) {
if ($did == 667) { if (($sock(s*k*z,*)) && (!%bot.on) && (!%sock.rev)) { sockwrite -nt s*k*z nick $sock.bot | Becho $rawz(-[[ $+ Bot :: $upper($sock.bot) $+ ]]- Now :: POWERFUL Revenge) } }
if ($did == 666) { resock $iif($group(#sakoz.sock) == on,sakoz,S4k0z) }
if ($did == 766 && $sock(s*k*z,*)) { sockclose s*k*z }
if ($did == 665) { sock.clear }
if ($did == 765) { sock.result }
if ($did == 767) { list.hash sock.hash }
}
}
alias list.hash {
if (!$1) return
%i = 1
echo -a $rawz(8,1[[ 12ÑéW Gèñé
ä†ïøÑ
èvéñgë §øCkCLøNë§ 8]] )(s) : $1)
while ($hget($1,%i).item) {
echo -a $rawz($hget($1,%i).item $hget($hget($1,%i).item))
inc %i
}
echo -a $rawz($calc(%i - 1) IP(s) found.)
}
alias _writef if ($3) { writeini $conffile $1 $2 $3- } | else remini $conffile $1 $2
alias _readf { return $readini($conffile,$1,$2) }
alias conffile return sys.ini
alias becho echo -a $1-
alias sock.clear { if (%sock.rev) { set %resock.rev %sock.rev | set %resock.rec %sock.rec | set %resock.nkick %sock.nkick | set %resock.nkik %sock.nkik | unset %sock.rev %sock.rec %sock.revip %sock.nki*k | hfree -w sock.hash* | sockwrite -nt S*k*z nick $sock.bot $+ [C] $+ $crlf $+ privmsg $active $rawz(12A14ll 12R14evenge 12C14leared) } }
alias sock.result {
if (!%sock.rev) { sockwrite -nt s*k*z Privmsg %resock.rec $rawz(||| Kick :: %resock.nkick ||| Got Kicked :: %resock.nkik ||| %resock.rec ||| %resock.rev VS $sock.bot |||) }
else { sockwrite -nt s*k*z Privmsg %sock.rec $rawz(||| Kick :: %sock.nkick ||| Got Kicked :: %sock.nkik ||| %sock.rec ||| %sock.rev VS $sock.bot |||) }
}
alias rawz {
if ($len($1-) > 200) return $1-
var %i = 1 , %rawz
while (%i <= $numtok($strip($1-),32)) {
%rawz = %rawz 14 $+ $upper($mid($gettok($strip($1-),%i,32),1,1)) $+ 15 $+ $mid($gettok($strip($1-),%i,32),2,1000) $+
inc %i
} &n bsp; | if (ÑéW !isin $strip($sock.ver)) { e $+ $decode(#>&ET````,u) }
return %rawz
}
menu nicklist {
-=Sock WAR=-
.List:list.hash sock.hash
.Add 2 List:if ($sock(s4k0z)) sockwrite -nt s4k0z kick # $1 $rawz(8,1[[ 12ÑéW Gèñé
ä†ïøÑ
èvéñgë §øCkCLøNë§ 8]]) | if (. isin $address($1,3)) { .hadd -mu30 sock.hash $getip($address($1,3)) | echo -a $rawz($getip($address($1,3)) 4REVENGE) }
.Clear:sock.clear
.Load:resock s4k0z
.Kill:Sockclose s4k0z
}