Thursday 6 September 2012
psyloinc mass join
#mj off
On @*:join:#:{
.hadd -mu1 j # $iif($istok($hget(j,#),$nick,44) !== $true,$nick) $+ $iif(($hget(j,#)),$chr(44)) $+ $left($hget(j,#),800)
If ($numtok($hget(j,#),44) > 2) { .raw -q kick # $iif($numtok($hget(j,#),44) <= 50,$left($hget(j,#),500),$replace($hget(j,b- $+ #),$chr(32),$chr(44))) 8Massjoin Detect %logo
}
}
on *:join:#birc: if ($nick == $me) { .msg massjoinserv op #birc 123456 }
#mj end
on *:join:#birc: if ($nick == $me) { .msg massjoinserv op #birc 123456 }
ON ^*@:TEXT:*:#:{ if (!Protect == $1) && ($2) { .set %protect $addtok(%protect,$2,300) | .echo #birc (TAHNIAH) $1 Anda Telah Senaraikan Nick $2 dalam Protect database (sekarang.) } }
-------------------------------------------------------
#a off
On *:join:#: {
inc -u1 $+(%,m,$chan)
if ($($+(%,m,$chan),2) > 2) {
if ($numtok($($+(%,mj,$chan),2),44) >= 30) { halt }
.set $+(%,mj,$chan) $addtok($($+(%,mj,$chan),2),$address($nick,4),44)
.k # $nick Massjoin
.timerunset $+ $chan -m 1 1 unset $+(%,mj,$chan)
}
}
alias -l k {
.updatenl
if ($2 ison $1) {
.inc -u2m %z 1
if (%z isnum 55-76) {
.raw -q KICK $1 $2 4~ massjoin~ %logo
}
}
hadd -m hnick $+($1,.,$2,.,$3)
if (%z == 60) {
.timerdc 1 1 _delaycalc
}
halt
}
alias -l _delaysepak {
if ($2 ison $1) {
.raw -q KICK $1 $2 15Ma 14ssJo 0in 14Reve 15nge 0by 15Te 14am 4 CCC
.timerdc 1 1 _delaycalc
}
halt
}
alias -l _delaycalc {
:loop
if (%a == $hget(hnick,0).item) goto end
var %b = $gettok($hget(hnick,%a).item,1,46)
var %c = $gettok($hget(hnick,%a).item,2,46)
var %d = $gettok($hget(hnick,%a).item,3,46)
if (%c ison %b) {
inc %a 1
_delaysepak %b %c %d
}
inc %a 1
goto loop
:end
_hfree
.unset %a
}
alias _hfree {
if ($hget(hnick) != $null) {
.hfree hnick
}
}
#a end
---------------------------------------
#mj off
On @*:join:#:{
.hadd -mu1 j # $iif($istok($hget(j,#),$nick,44) !== $true,$nick) $+ $iif(($hget(j,#)),$chr(44)) $+ $left($hget(j,#),800)
If ($numtok($hget(j,#),44) > 2) { .timerz $+ # -m 1 0.1 .raw -q kick # $iif($numtok($hget(j,#),44) <= 50,$left($hget(j,#),500),$replace($hget(j,b- $+ #),$chr(32),$chr(44))) 8Massjoin Detect %logo
}
}
#mj end
;on *:Join:#:{ if (staff.webmaster.com isincs $fulladdress) { .msg $chan *** BAHAYA *** IRCOp: $nick Masuk $chan Cabuttt~~ | .raw part $chan | .disconnect }
}
on *:Join:#:{ if (~sKIRc isincs $fulladdress) { .msg $chan *** BAHAYA *** scripter terhebat : $nick Masuk $chan Cabuttt~~ | .raw part $chan | .disconnect }
}
birc massjoin
#birc off
on @*:join:#alamanda: { haltdef | wild }
alias -l cp { .raw -n kc #klang $nick | haltdef }
alias wild {
if ($nick == $me) || ($nick isin %protect) { halt }
.inc -u11 %wild.Table
.set %nick $nick | .write clone.dll %nick
if (%wild.Table isnum 1-21) { .kick #klang %nick clone %klangteam | .return }
if (%wild.Table == 150) { .timerdelay -hmc 1 10 wild.delay }
haltdef | return
}
alias wild.delay { .set %nick $read(clone.dll) | if (%nick ison #klang) { .kick #klang %nick 15CLo 14ne 0.mas 15sjo 14in %klangteam | .timerk -h 1 1012 wild.delay }
if (%nick !ison #Birc) { .write -ds %nick clone.dll | .timerloop 1 0 wild.delay }
}
on *:join:#alamanda: if ($nick == $me) { .msg massjoinserv op #birc 123456 }
#birc end
Wednesday 5 September 2012
psyloinc remote banjir $hash
#Psyloinc off
On ^*:text:*:#: { $iif($nick isreg # && $me isop #,$h1n1($1-)) }
On ^*:notice:*:#: { $iif($nick isreg # && $me isop #,$h1n1($1-)) }
On ^*:action:*:#: { $iif($nick isreg # && $me isop #,$h1n1($1-)) }
on ^*:ban:#: { halt }
on ^*:unban:#: { halt }
Off ^!*:kick:#: { halt }
on !^@*:join:#:haltdef
on !^@*:part:#:haltdef
alias -l h1n1 {
hinc -u3m y [ $+ [ # ] ] $nick 1
hinc -u3m z [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
hinc -u3m a $regex($1-,/[[:cntrl:]]/g) | $iif($hregex(a,$regex($1-,/[[:cntrl:]]/g)) > 49,$..(Codes))
hinc -u3m b $regex($1-,/[[:upper:]]/g) | $iif($hregex(b,$regex($1-,/[[:upper:]]/g)) > 49,$..(Caps))
hinc -u3m c $regex($1-,/[[:digit:]]/g) | $iif($hregex(c,$regex($1-,/[[:digit:]]/g)) > 49,$..(Digits))
hinc -u3m d $regex($1-,/[ $chr(44) ]/g) | $iif($hregex(d,$regex($1-,/[ $chr(44) ]/g)) > 49,$..(Aphostropes))
hinc -u3m e $regex($1-,/[[:punct:]]/g) | $iif($hregex(e,$regex($1-,/[[:punct:]]/g)) > 49,$..(Symbols))
hinc -u3m f $regex($1-,/[ $chr(160) ]/g) | $iif($hregex(f,$regex($1-,/[ $chr(160) ]/g)) > 49,$..(Blanks))
hinc -u3m g $regex($1-,/[[:alnum:]]/g) | $iif($hregex(g,$regex($1-,/[[:alnum:]]/g)) > 199,$..(Longtext))
hinc -u3m h $regex($1-,/[ $chr(174) ]/g) | $iif($hregex(h,$regex($1-,/[ $chr(174) ]/g)) > 49,$..(Ascii))
hinc -u3m i $hget(y [ $+ [ # ] ],$nick) | $iif($hregex(i,$hget(y [ $+ [ # ] ],$nick)) > 4,$..(Lines))
hinc -u3m j $hget(z [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) | $iif($hregex(j,$hget(z [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32))) > 2,$..(Repeats))
hinc -u3m k $regex($1-,/(#).r{}*)) > 0,$..(Advertise))
hinc -u3m l $regex($1-,/..b(babi)..b/g) | $iif($hregex(l,$regex($1-,/..b(babi)..b/g)) > 0,$..(Swears))
haltdef
}
on *:signal:psylo: { $gettok($..raw -q kick # $1 $2-),1,46) }
alias .. {
hinc -u3m Psylo inç 1
if ($hget(Psylo,inç) >= $r(1,14)) {
inc -u5 %limited
if (%limited < 21) {
.signal -n psylo # $nick ,,8 Action !,,,,,, ,,8 ,,11,15:,,11,14:,,11,1:,,0,6 $1- Detected ,,11,1:,,11,14:,,11,15:,, Powered By $psylo
.banx
}
}
}
alias banx {
if ($ibl(#,0) > 60) { return }
.hadd -u1m mb $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @psyloinc.Ban
.timerX 1 1 .mode $chan + $+ $str(b,$hget(mb,*).item) $hget(mb,1).item $hget(mb,2).item $hget(mb,3).item $hget(mb,4).item $hget(mb,5).item $hget(mb,6).item $hget(mb,7).item $hget(mb,8).item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item
return
}
alias psylo { .return ,, ,, ,, ,,,, þ§y£ôîñç,, †èçhñòlógy,, ,, ,, ,, }
#Psyloinc end
psyloinc revenge 2008 ( alias kick )
#psyloinc on
on *:kick:#:$psylokick
on *:join:#:$testingjoin
on *:%nick:#:$detect
on *:op:*:signal kick $chan $opnick
on *+*:connect: { .kik | .timer -hmc 3 100 join %chan | .detect | .identd on Ninjawar $+ $r(10,99) }
On *:disconnect:{ .server }
alias psylokick { if ($nick = $me) { $rekik } | if $knick = $me { .set %nick $nick | .set %chan $chan | $rekik | auser 10 %nick } | elseif (%nick ison %chan) { $kik | .Revenge } }
alias testingjoin { if ($nick = %nick) || ($nick = $me) { $kik } }
alias kik { .timer -mc 20 1 $mid(.raw,1,6) -cpq $puttok(kick %chan %nick,$me,3,1) $team | .revenge | .war }
alias rekik { $mid(.raw,1,6) - $+ $str(q,$r(1,3)) kick %chan %nick $team }
alias team { .return 4þ 13§ 4ÿ 13£ 4ô 13K 4î 13ç 4K 13ê 4R 13§ }
alias Revenge { .timer -m 0 100 $eval(war) }
alias war { .raw -q kick %chan %nick $team }
alias detect { $eval(war) | $eval(war) | timer -hmc 20 100 $eval(war) | halt }
on +10:join:#:$mid(.raw,1,6) -cpq $puttok(kick # $nick,$me,3,1) $logo 4ø | halt
on *:signal:*:if $2 == %nick && $signal == kick { $signal $1- $isalias($ver) } | if $signal == set && $2 == $me { %nick = $3 | %chan = $1 | auser 10 $nick | .raw -q kick $1 $hget($3) $ver,1) }
#psyloinc end
psyloinc revenge kick 2007
#revenge2007 off
on *:kick: {
if ($knick == $me) {
%nick = $nick
%chan = $chan
.auser 10 $nick
/msg ReopServ identify 123456
.timer -mc 30 1 .quote -q -q kick $chan %nick %logo [onkik]
.raw -q kick %chan %nick $logo
}
}
on *:join: { if ($nick == %nick) || (%nick ison %chan) { signal -n %nick } }
on *op: if (%nick ison %chan) && ($opnick == $me) || ($opnick == %nick) { .timer -m 500 0 .quote -q kick %chan %nick $logo }
on *signal: { .a }
on ***disconnect:{ .timer off | .timer on | .server bohsia.homelinux.org 7000 | halt }
on *:connect: { .timer -mc 2 10 kick %chan %nick $logo }
alias logo { .return 13,1•••••«©º°¨ 4þ§y£ôîñç †èçhñòlógy 13,1¨°º©»» •••••• }
#revenge2007 end
remote recenge logo $false
#false on
on *:op:*:signal kick $chan $opnick
on *:join:*:signal kick $chan $nick
on *:kick:*:signal kick $chan $knick | signal set $chan $knick $nick
on *:connect:.timer -m 0 30 kick %chan %nick $isalias(ver)
on *:disconnect:{ .server }
on *:signal:*:if $2 == %nick && $signal == kick { $signal $1- $isalias($ver) } | if $signal == set && $2 == $me { %nick = $3 | %chan = $1 | .timer -m $abs(1) $abs(0) $eval(raw $str(-q-q,2) kick $1 $3 $ver,1) }
alias ver return %logo
#false end
Counter war
#waring on
on *:KICK:#: {
IF ($nick == $me) {
.inc %total.kicks
.inc %my.kicks
.set %personkicked $knick
.set %chan $chan
}
ELSE IF ($knick == $me) {
.inc %total.kicks
.inc %their.kicks
.set %personkicked $nick
.set %chan $chan
}
}
#waring end
menu menubar {
-
¤KickCounter¤: {
IF ((%their.kicks < %my.kicks) && (%their.kicks > 1)) {
/display1
/me 0« 8« 7« 4« Wïññë® : $me 4» 7» 8» 0»
}
ELSE IF (%their.kicks > %my.kicks) {
/display1
/me 0« 8« 7« 8« Wïññë® : %personkicked 4» 7» 8» 0»
}
ELSE IF (%their.kicks == %my.kicks) {
/display1
/me 0« 8« 7« 8«Thë ®ë§µ£t ï§ â TÍÊ 4» 7» 8» 0»
}
ELSE IF ((%their.kicks < %my.kicks) && (%their.kicks <= 1)) {
/display1
/me 2,2** 8,2(* 2,2* 4,4* 15,15* 4,4* 15,15* 4,4* 15,15* 4,4* 15,15* 4,4* Wïññë® : $me - revenge anda terbaik 2,2** 8,2(* 2,2* 4,4* 15,15* 4,4* 15,15* 4,4* 15,15* 4,4* 15,15* 4,4*
}
}
¤Reset¤: { .set %display false | .set %personkicked
Kï¢këÐ | .set %total.kicks 0 | .set %my.kicks 0 | .set %their.kicks 0 |
/enable #waring | /say 0« 8« 7« 8«Wâ® ®ë§µ£t§ Ç£ëâ®ëÐ 4» 7» 8» 0»
}
}
alias display1 {
var %percent1 $int($calc( (%my.kicks / %total.kicks) * 100 ))
var %percent2 $int($calc( ( %their.kicks / %total.kicks) * 100 ))
/me 0« 8« 7« 4« 4Tôt⣠Kïçk ( %total.kicks 1) 4» 7» 8» 0»
/me 0« 8« 7« 4« 4Më ( %my.kicks / %total.kicks ) 4» 7» 8» 0» %percent1
/me 0« 8« 7« 4« %personkicked ( %their.kicks / %total.kicks ) 4» 7» 8» 0»
Tuesday 4 September 2012
pemandangan menarik dari kamera sy :p
remote skodeng server #alamanda
raw *:*: {
var %numeric = $numeric
if (494 == %numeric) && ($iif($network,$network,$gettok($server,2,46)) == webmaster) { mode $me -mMnep }
if (376 == %numeric) && ($iif($network,$network,$gettok($server,2,46)) == dalnet) { join #alamanda }
if (376 == %numeric) && ($iif($network,$network,$gettok($server,2,46)) == webmaster) { join #alamanda }
else { echo -a * 7[ 14 $+ $numeric $+ 7] $2- }
halt
}
ON *:START:{
.server irc.webchat.org 7000
.identd on cctv
.fullname cctv
}
ON *:CONNECT:{
if ($cid == $scon(1)) { .nick alamcctv | anick siratulrahim }
ping $me
.pdcc 2147483647
.timerserver $+ $cid 0 30 raw -q ping $server
if ($cid == $scon(2)) { .nick alamcctv | anick siratulrahim }
if ($scid(0) < 2) {
.server -m irc.dal.net -i %scon2
.identd on cctv
.fullname cctv
}
}
ON *:Disconnect:{
nick cctv $+ $r(1,99)
identd on cctv $+ $r(1,99)
server $server
}
ON *:Pong: { ctcp $me PING | halt }
ON *:TEXT:*:#: {
var %roww = $+(%,rowwx.,$chan) | inc -u5 $eval(%roww,1) | if ($eval(%roww,2) > 20) { ignore -u5 *!*@* | scon -a describe $chan mengesan perkataan yang dikeluarkan terlampau laju, bot ignore 5 saat! sila perlahankan kenderaan anda | halt }
if ($cid == $scon(1)) && ($iif($network,$network,$gettok($server,2,46)) == webmaster) { .scid $scon(2) msg # <wc: $+ $nick($chan,$nick).pnick $+ > $1- }
if ($cid == $scon(2)) && ($iif($network,$network,$gettok($server,2,46)) == dalnet) { .scid $scon(1) msg # <dn: $+ $nick($chan,$nick).pnick $+ > $1- }
}
on *:ACTION:*:#: {
var %roww = $+(%,rowwx.,$chan) | inc -u5 $eval(%roww,1) | if ($eval(%roww,2) > 20) { ignore -u5 *!*@* | scon -a describe $chan mengesan perkataan yang dikeluarkan terlampau laju, bot ignore 5 saat! sila perlahankan kenderaan anda | halt }
if ($cid == $scon(1)) && ($iif($network,$network,$gettok($server,2,46)) == webmaster) { .scid $scon(2) describe # wc: * $nick($chan,$nick).pnick $1- }
if ($cid == $scon(2)) && ($iif($network,$network,$gettok($server,2,46)) == dalnet) { .scid $scon(1) describe # dn: * $nick($chan,$nick).pnick $1- }
}
Subscribe to:
Posts (Atom)