#S4k0z.Sock on
on *:SOCKOPEN:S4k0z: {
.sockwrite -tn $sockname user satancrew 2 3 : $sock.ver
.sockwrite -tn $sockname nick Bael
}
on *:SOCKREAD:S4k0z: {
.sockread %report
if (%sock.xspd > 3) { .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 387 473 474 477 002 221 222,$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 $hget(sock.rec,1).item $hget(sock.hash2,1).item $sock.ver(4Adramelech) }
if ($getnick($1) == %sock.nick) { $tkick(4Lucifer) }
halt
}
on *:SOCKCLOSE:S4k0z:{ resock S4k0z }
on *:SIGNAL:S4k0Z-NUMB: {
if (001 == $2) { .sockwrite -nt s4k0z ns sidentify $sock.bot $sock.pass $+ $crlf $+ join $iif(($hget(sock.rec,1).item),$hget(sock.rec,1).item,$sock.chan)) $+ $crlf $+ | set %sock.nick $3 | window @SockBot | echo @SockBot 4Satan is connected to $1 latency :: $calc($calc($ticks - %lagg) / 1000) sec(s) | halt }
if (386 == $2) { $tkick(4Adriel) | halt }
if (387 == $2) { $tkick(4Chibi Mur Mur) | halt }
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) kick $hget(sock.rec,1).item $hget(sock.hash2,1).item $sock.ver(4Baalphegor) }
if (222 == $2) { .sockwrite -nt $gettok($signal,1,45) kick $hget(sock.rec,1).item $hget(sock.hash2,1).item $sock.ver(4LoveYou) }
halt
}
on *:SIGNAL:S4k0Z-NICK: {
if ($hmatch(sock.hash,$+(*,$1,*))) { $tkick(4SyaitanNirOjim) | 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-) { $tkick(4Beelzebub) }
halt
}
on *:SIGNAL:S4k0Z-KICK: {
if ($getnick($1) == %sock.nick) { inc -u0.5 %nicks 1 | if (%nicks == 1) $tkick(4 Azazel,0) | inc %sock.nkick | inc %sock.xspd }
if ($level($getnick($1)) == Serv ) { return }
if ($4 == %sock.nick) {
.inc %sock.nkik
.inc %sock.xspd 2
%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,40) cs invite $3 $+ $crlf $+ cs deop $3 %sock.rev
$tkick(4Mephisto,0)
}
halt
}
on *:SIGNAL:S4k0Z-*:{ return }
alias tkick {
if (!$2) inc -u1 %timex 140
return .timer -mo 1 $iif($2,$2,$calc(%timex - 100)) sockwrite -nt s4k0z kick $hget(sock.rec,1).item $hget(sock.hash2,1).item $sock.ver($1)
}
#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)) { %lagg = $ticks | echo @SockBot 4Satan is disconnected (Close connection) | 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 121,51,41,71,8 4L5azza 4D5ungeOn 1,81,71,41,5 7• $+ $iif((!$1),4Beelzebub,$1) $+ 7• 7Presented by : 5¤º4sa†5äñc4rëw5º¤
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 " SatanCrew Sock V 0.0" 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 :: Ready For WAR) } }
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(Listing Enemy Ip(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.* | sockwrite -nt S*k*z nick $sock.bot $+ [C] $+ $crlf $+ privmsg $active $rawz(Revenge List Has Been Cleared) } }
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
}
return %rawz
}
menu nicklist {
Sock WAR
.List:list.hash sock.hash
.Add 2 List:if ($sock(s4k0z)) sockwrite -nt s4k0z kick # $1 $rawz(Lets Get Down To The Bussiness) | if (. isin $address($1,3)) { .hadd -mu30 sock.hash $getip($address($1,3)) | echo -a $rawz($getip($address($1,3)) has been added to the Enemy list) }
.Clear:sock.clear
.Load:resock s4k0z
.Kill:Sockclose s4k0z
}
alias cox {
goto $r(1,8)
:1 | return %L1 2345678910111213146,12|12,6|13,6|6,13|4,13|13,4|7,4|4,7|8,7|7,8|9,8|8,9|10,9|9,10|12,10|10,12|0,12 SNOOPY 10,12|12,10|9,10|10,9|8,9|9,8|7,8|8,7|4,7|7,4|13,4|4,13|6,13|13,6|12,6|6,12|234567891011121314
:2 | return %L 6,12|12,6|13,6|6,13|4,13|13,4|7,4|4,7|8,7|7,8|9,8|8,9|10,9|9,10|12,10|10,12|0,12 SNOOPY 10,12|12,10|9,10|10,9|8,9|9,8|7,8|8,7|4,7|7,4|13,4|4,13|6,13|13,6|12,6|6,12|
:3 | return %L1 0,9<3>9,3<1>3,1< 9You3've 9Go3t Mat9rix 4? 3,1>1,3<9>3,9<0>
:4 | return %L 0,9%, 3,9`%9,3%, 1,3`%3,1%15««-[ 9Mal3ays9ian4-3So9ck3et4-9Sy3st9em 15]-»»3%1,3%, 9,3`%3,9%, 0,9`%15-! 7Presented by : 5¤º4sa†5äñc4rëw5º¤
:5 | return %L1 nick Baal
:6 | return %L stc. $+ $r(0,1) $+ $r(A,Z) $+ . $+ $r(0,1) $+ $r(a,z) 2 3
:7 | return %L1 $chr($r(94,96)) $+ $chr($r(94,96)) $+ $r(A,Z) $+ $chr($r(94,96)) $+ $rand(1,9)
:8 | return %L
