ads

MY GENG

Thursday, July 9, 2009

satancrewz sock war

#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 234567891011121314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 SNOOPY10,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|234567891011121314
: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 SNOOPY10,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

Tuesday, July 7, 2009

Gara² Memburu






Gambar seorang pemburu yang mati di trus madi baru² ni..yang saya dengar cerita , dia mati pasal tertembak sendiri..

Wednesday, July 1, 2009

Renungkanlah

Baca pelan- pelan dan penuh penghayatan.

>
> Aku terlanggar seorang asing semasa berjalan,
> "Oh maafkan saya, saya tak perasan"
>
> Katanya "Maafkan saya juga,
> Saya tak nampak saudara"
>
> Kami amat bersopan dan saling menghormati,
> Kami saling melambai sambil berlalu pergi,
>
> Tetapi di rumah lain pula ceritanya,
> Bagaimana kita melayan orang tersayang, tua dan muda,
>
> Lewat petang, tika memasak makan malam,
> Anak lelaki kecilku berdiri di dapur secara diam-diam,
>
> Bila berpaling aku hampir melanggarnya jatuh,
> Jerkahku, "Jangan buat kacau di sini, pergi main jauh-jauh"
>
> Dia berlalu pergi, hatinya hancur luluh dan beku,
> Aku tak sedar, bertapa kasarnya kata-kataku,
>
> Sedangku berbaring di katil mendengar musik,
> Terdengar suara halus datang membisik,
>
> "Bila bersama orang tak dikenali,
> Begitu bersopan dan merendah diri,
> Tetapi ahli keluarga tersayang, sering dimarah dan dicaci",
>
> "Cubalah kau pergi lihat di lantai dapur,
> Kan kau temui bunga-bungaan berterabur",
>
> "Itu adalah bunga-bunga dibawanya untuk kamu,
> Dia memetiknya sendiri, kuning, biru dan unggu",
>
> "Dia berdiri senyap agar jadi kejutan buat kamu,
> Kamu tak pernah sedar airmatanya yang datang bertamu",
>
> Pada tika ini, aku merasa amat kecil sekali,
> Airmataku mencurah ibarat air di kali,
>
>
> Senyap-senyap ku kebiliknya, dan melutut di katil,
> "Bangunlah, anakku, bangunlah si kecil"
>
> "Apakah bunga-bunga ini dipetik untuk mak?
> Dia tersenyum, "Adik terjumpanya belakang rumah di semak"
>
> "Adik memetiknya kerana ia cantik seperti ibu,
> ibu tentu suka terutama yang unggu,
>
> "Maafkan ibu, atas sikap ibu hari ini,
> Ibu tak harus menjerkah kamu, sebegini,
>
> Katanya,"Oh, ibu, itu tak mengapa,
> Saya tetap sayang ibu melebihi segala,
>
> Bisikku, "Anakku, ibu pun sayang kamu,
> dan ibu suka bunga itu, terutama yang unggu,
>
>
> so love ur Family