Alias SupportChannel return #iKick Alias AdminChannel return #iKick.staff Alias BotChannel return #Stats Alias WebSite return www.iKick.bot.nu Alias MainBot return iKick Alias AllTag return [All] Alias MaxChans return 30 Alias MinUsers return 5 Alias MaxBots return 2 Alias SpamParams return 5:7 Alias OpInvite return $true Alias OpPart return $true Alias BlacklistTime return 1 Alias IgnoreTime return 1 Alias AutoModes return +xipB Alias SwiftIRCPass return leet9656statsbot Alias HydroIRCPass return 141414 Alias MysticIRCIRCPass return 141414 Alias MySetName return $MainBot $MyTag Alias Logo Return $+($chr(40),$c1($1),$chr(41)) Alias X return $chr(124) Alias Web return $+($chr(40),$C1($1),$chr(41)) Alias Web2 return $+([,$C1($1),]) Alias SVersion return Beta V5.0.0 Alias MyTag return $iif($me == $MainBot,$remove($anick,$MainBot),$remove($me,$MainBot)) Alias NoGlobalChans return #Stats #iKick #iKick.Staff #iKick.Test #Bot #Bots Alias SCount return $calc($count($1,$2) $iif($count($1,$2) == 0,+ 1)) Alias RivalBots { return Terror:[*]Terror RuneScript:[*]RuneScript Genie:[*]Genie ProScript:[*]ProScript Darwin:Darwin? $& iKick:[*]iKick ZetaScript:[*]ZetaScript Electrik:[*]Electrik Ice-Warrior:[*]Ice-Warrior Vectra:Vectra[*] $& InsaneBot:[*]InsaneBot } Alias ischan { $iif($isid,return,msg $chan) $iif($me ison $1,Yes I am on $C1($1),No I am not on $C1($1)) } Alias HL { return $replace($1,$gettok($readini(AntiHL.ini,$network,$1),1,45),$gettok($readini(AntiHL.ini,$network,$1),2,45)) } Alias AMSG { var %i 1 while ($comchan($me,%i)) { if ($comchan($me,%i) !isin $NoGlobalChans || $me == $MainBot) { .timer 1 2 msg $comchan($me,%i) $logo(Global) $1- } inc %i } } Alias URLEncode { return $replace($1-,$chr(32),$+(%,20)) } Alias Global AMSG $1- Alias CCount { var %x 1, %Chan $chan, %Chans 0, %Users 0 while ($comchan($me,%x)) { inc %Chans if ($comchan($me,%x) !isin $BotChannels $SupportChannel $AdminChannel) inc %Users $nick($comchan($me,%x),0) inc %x } msg %Chan I am in %Chans channels with %Users users. } Alias uCheck { var %x 1 while ($comchan($me,%x)) { if ($nick != $me && !$Readini(Exempts.ini,$Network,$+($comchan($me,%x),:,users))) { if ($comchan($me,%x) !isin $BotChannels $SupportChannel $AdminChannel) { if ($RealUsers($comchan($me,%x)) < $MinUsers) { part $comchan($me,%x) This channel does not reach the min. user req of $MinUsers users msg $AdminChannel $logo(Part) I've parted $C1($$comchan($me,%x)) ( $+ $RealUsers($comchan($me,%x)) users) writeini Blacklist.ini $network $comchan($me,%x) Temp Blacklist; User Count .timer 1 $calc($BlacklistTime * 60) remini Blacklist.ini $network $comchan($me,%x) } } } inc %x } } Alias Exempt { tokenize 32 $1- if ($1 == See) { if (b isin $2) { var %2 $2 $iif($nick,notice $nick,echo -at) $logo(Exempts) Bot Count: $& $left($regsubex(str(~,$ini(Exempts.ini,$Network,0)),/(.)/g,$iif($gettok($ini(Exempts.ini,$Network,\n),2,58) == $& bots,$gettok($ini(Exempts.ini,$Network,\n),1,58) $+ $c1($chr(44)))),-2) } if (i isin $2) { var %2 $2 $iif($nick,notice $nick,echo -at) $logo(Exempts) Invites: $& $left($regsubex(str(~,$ini(Exempts.ini,$Network,0)),/(.)/g,$iif($gettok($ini(Exempts.ini,$Network,\n),2,58) == $& opinvite,$gettok($ini(Exempts.ini,$Network,\n),1,58) $+ $c1($chr(44)))),-2) } if (u isin $2) { var %2 $2 $iif($nick,notice $nick,echo -at) $logo(Exempts) User Count: $& $left($regsubex(str(~,$ini(Exempts.ini,$Network,0)),/(.)/g,$iif($gettok($ini(Exempts.ini,$Network,\n),2,58) == $& users,$gettok($ini(Exempts.ini,$Network,\n),1,58) $+ $c1($chr(44)))),-2) } } if ($1 == del) { if (!$3) { $iif($nick,notice $nick,echo -at) Syntax Error: !Exempt (del) [-biu] #Chan } if (b isin $2) { remini Exempts.ini $Network $+($3,:,bots) $iif($nick,notice $nick,echo -at) $logo(Exempt) $c1($3) has been removed from the Except listz for bot count } if (i isin $2) { remini Exempts.ini $Network $+($3,:,opinvite) $iif($nick,notice $nick,echo -at) $logo(Exempt) $c1($3) has been removed from the Except list to avoid the op invite rule } if (u isin $2) { remini Exempts.ini $Network $+($3,:,users) $iif($nick,notice $nick,echo -at) $logo(Exempt) $c1($3) has been removed from the Except list for user count } } else { if (!$2) { $iif($nick,notice $nick,echo -at) Syntax Error: !Exempt (del) [-biu] #Chan } if (b isin $1) { writeini Exempts.ini $Network $+($2,:,bots) $true $iif($nick,notice $nick,echo -at) $logo(Exempt) $c1($2) has been added to the Except list for bot count } if (i isin $1) { writeini Exempts.ini $Network $+($2,:,opinvite) $true $iif($nick,notice $nick,echo -at) $logo(Exempt) $c1($2) has been added to the Except list to avoid the op invite rule } if (u isin $1) { writeini Exempts.ini $Network $+($2,:,users) $true $iif($nick,notice $nick,echo -at) $logo(Exempt) $c1($2) has been added to the Except list for user count } } } Alias Staff { if ($1 == add) { if (!$address($2,1)) { $iif($nick,notice $nick,echo -at) $Logo(Staff) I don't know who $c1($2) is } else { auser $3 $address($2,1) $iif($nick,notice $nick,echo -at) $Logo(Staff) $c1($2) $+ 's rank has been changed to $c1($3) } } if ($1 == del) { if (!$address($2,1)) { $iif($nick,notice $nick,echo -at) $Logo(Staff) I don't know who $c1($2) is } else { ruser $3 $address($2,1) $iif($nick,notice $nick,echo -at) $Logo(Staff) $c1($2) $+ 's staff has been revoked } } } Alias CountBots { var %Chan $1, %i 0, %x 0 set $+(%,Bots.,$1) 0 tokenize 32 $RivalBots while (%x < $nick(%Chan,0)) { inc %x var %i 0 while (%i < $0) { inc %i if ($nick(%Chan,%x) == $gettok($($+($,%i),2),1,58) || $gettok($($+($,%i),2),2,58) iswm $nick(%Chan,%x)) { inc $+(%,Bots.,%Chan) } } } var %Count $($+(%,Bots.,%Chan),2) unset %Bots. [ $+ [ %Chan ] ] return %Count } Alias C1 { tokenize 32 $replace($1-,",",&,&) if ($readini(MyColor.ini,$network,$iif($sockname,$gettok($sockname,3,46),$nick))) { return $+($chr(3),$readini(MyColor.ini,$network,$iif($sockname,$gettok($sockname,3,46),$nick)),$iif($1,$1-,N/a),$chr(3)) } else { return $+($chr(3),02,$iif($1,$1-,N/a),$chr(3)) } } Alias HTMLFree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) return $remove(%x,$chr(9)) } Alias RealUsers { return $calc($nick($1,0) - $CountBots($1)) } Alias GetEX { var %x = 1, %level = $calc($1 -1), %xp = 0 while (%x <= %level) { var %tempxp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4) inc %xp %tempxp inc %x } return $int(%xp) } Alias TranASC { return $left($regsubex($1-,/(.)/g,$!chr( $+ $asc(\1) $+ ) $+ $& $chr(44)),$calc($len($regsubex($1-,/(.)/g,$!chr( $+ $asc(\1) $+ ) $+ $chr(44))) - 1)) } Alias ColorFull { return $regsubex($1-,/(.)/g,$+($chr(3),$r(1,15),\1)) } Alias Reverse { var %y 0 while (%y < $len($1-)) { var %x $left($1-,$calc($len($1-) - %y)) var %z $+(%z,$iif($right(%x,1) != +,$+,$chr(32)),$right(%x,1)) inc %y 1 } return %z } Alias RsNewsChecker { sockopen $+(RsNewsChecker.,$ticks,.,$me) runescape.com 80 } Alias RsNewsGlobal { var %i 1 while ($comchan($me,%i)) { if ($comchan($me,%i) !isin $NoGlobalChans || $me == $MainBot) { .timer 1 2 msg $comchan($me,%i) $logo(RuneScape News Update) $QT($1-) } inc %i } } Alias ChangeTag { mnick $MainBot anick $1 $+ $MainBot nick $1 $+ $MainBot } Alias FairyRing { if ($1 == AKQ) return Woodlands Hunting area if ($1 == AJS) return Penguin Island if ($1 == CIP) return Miscellania if ($1 == DKS) return Keldagrim and Snow Hunting if ($1 == AJR) return Slayer Cave if ($1 == CJR) return Sinclair Mansion if ($1 == DJR) return Sinclair Mansion if ($1 == ALS) return McGrubor's Wood if ($1 == BLR) return Legends Guild Gate if ($1 == BIS) return Unicorn Pen Ardougne Zoo if ($1 == DJP) return Necromancer if ($1 == CIQ) return South of Tree Gnome Maze if ($1 == CLS) return Hazelmere and Jungle Spiders if ($1 == BKP) return Chompy Frog Pond West if ($1 == AKS) return Chompy Area Southeast if ($1 == ALR) return Abyss area if ($1 == DKR) return Edgeville Canoe Station if ($1 == DIS) return Wizard Tower if ($1 == DIR) return Gorak Lair if ($1 == BKQ) return Enchanted Valley if ($1 == CKP) return Starflower Plane if ($1 == AIQ) return Mudskipper Point if ($1 == BJR) return Grail Castle if ($1 == BLP) return TzHaar if ($1 == DKP) return Karamja southern continent, Karambwan fishing area if ($1 == CKR) return Cairn Isle if ($1 == DLS) return Canifis Pub Myreque secret passage if ($1 == CKS) return Canifis mushroom patch if ($1 == BKR) return Mort Myre Swamp if ($1 == BIQ) return Kharidian Desert Northwest if ($1 == DLQ) return Kharidian Desert Southeast } Alias SkillName { if ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall elseif ($regex($1,/^at(t|k|tack)$/Si)) return Attack elseif ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence elseif ($regex($1,/^str(ength)?$/Si)) return Strength elseif ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints elseif ($regex($1,/^r(ng|ange|anged|angeing|anger)?$/Si)) return Ranged elseif ($regex($1,/^Pray(er)?$$/Si)) return Prayer elseif ($regex($1,/^mag(e|ic)$$/Si)) return Magic elseif ($regex($1,/^cook(ing)?$/Si)) return Cooking elseif ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting elseif ($regex($1,/^fletch(ing)?$/Si)) return Fletching elseif ($regex($1,/^fish(ing)?$/Si)) return Fishing elseif ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking elseif ($regex($1,/^craft(ing)?$/Si)) return Crafting elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing elseif ($regex($1,/^min(e)?(ing)?$/Si)) return Mining elseif ($regex($1,/^herb(law|lore)?$/Si)) return Herblore elseif ($regex($1,/^agil(ity)?$/Si)) return Agility elseif ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving elseif ($regex($1,/^slay(er|ing)?$/Si)) return Slayer elseif ($regex($1,/^farm(er|ing)?$/Si)) return Farming elseif ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft elseif ($regex($1,/^(con)(struct)?(ion|ing)?$/Si)) return Construction elseif ($regex($1,/^(hunt)(er|ing)?$/Si)) return Hunter elseif ($regex($1,/^([!@])?summon(ing|er)?/Si)) return Summoning elseif ($regex($1,/^([!@])Duel(ing)?/Si)) return Dueling elseif ($regex($1,/^([!@])Bounty/Si)) return Bounty elseif ($regex($1,/^([!@])Bounty-?Rouge/Si)) return Bounty-Rouge } Alias GetSet { if ($regex($1,/^(Bot|Terror)$/i)) return Bot if ($regex($1,/^(Public|Global)$/i)) return Public elseif ($regex($1,/^(R(une)?S(cape)?)?Players?$/i)) return RsPlayers elseif ($regex($1,/^(R(une)?S(cape)?)?News?$/i)) return RsNews elseif ($regex($1,/^Urban(Dictionary)?$/i)) return Urban elseif ($regex($1,/^Goog(le)?$/i)) return Google elseif ($regex($1,/^Wiki(Pedida)?$/i)) return Wiki elseif ($regex($1,/^(Yo)?uTube$/i)) return YouTube elseif ($regex($1,/^Define$/i)) return Define elseif ($regex($1,/^Halo3$/i)) return Halo3 elseif ($regex($1,/^Kbase$/i)) return Kbase elseif ($regex($1,/^Weather$/i)) return Weather elseif ($regex($1,/^Idle(RPG)?$/i)) return Idle elseif ($regex($1,/^Slang$/i)) return Slang elseif ($regex($1,/^IP$/i)) return IP elseif ($regex($1,/^WhatPulse$/i)) return WhatPulse elseif ($regex($1,/^Q(uick)?F(ind)?$/i)) return QuickFind elseif ($regex($1,/^RsPoll$/i)) return RsPoll elseif ($regex($1,/^RSN$/i)) return RSN elseif ($regex($1,/^Meter$/i)) return Meter elseif ($regex($1,/^Quest(Name)?$/i)) return QuestName elseif ($regex($1,/^Spell(Name)?$/i)) return SpellName elseif ($regex($1,/^Clan$/i)) return Clan elseif ($regex($1,/^ClanInfo$/i)) return ClanInfo elseif ($regex($1,/^SingleSkills/i)) return SingleSkills elseif ($regex($1,/^Stats?$/i)) return Stats elseif ($regex($1,/^Co?mb(at)$/i)) return Combat elseif ($regex($1,/^Co?mb(at)-?Est$/i)) return Combat-Est elseif ($regex($1,/^Price$/i)) return Price elseif ($regex($1,/^Spelling(Check)?$/i)) return SpellingCheck elseif ($regex($1,/^Chuck(Norris)?$/i)) return ChuckNorris elseif ($regex($1,/^asc(ii)?$/i)) return ASCii elseif ($regex($1,/^Reverse$/i)) return Reverse elseif ($regex($1,/^Colorfull?$/i)) return Colorfull elseif ($regex($1,/^FairyRing$/i)) return FairyRing elseif ($regex($1,/^(Show)?(yo)?utubeURL$/i)) return YouTubeURL elseif ($regex($1,/^(Show)?SiteURL$/i)) return SiteURL } Alias CJoin { if ($RealUsers($1) < $MinUsers && !$Readini(Exempts.ini,$Network,$+($1,:,users))) { part $1 You need $MinUsers to keep my in this channel. You have $RealUsers($1) halt } if ($OpInvite && $2 !isop $1 && !$Readini(Exempts.ini,$Network,$+($1,:,opinvite))) { part $1 Only a channel operator can invite me halt } elseif ($CountBots($1) > $MaxBots && !$Readini(Exempts.ini,$Network,$+($1,:,bots))) { part $1 You can only have $MaxBots bots in your channel. You have $CountBots($1) } else { var %i 0 while (%i < $nick($1,0)) { inc %i if ($MainBot isin $nick($1,%i) && $nick($1,%i) ison $AdminChannel && $nick($1,%i) != $me) { part $1 You can't have multible bots in the same channel ( $+ $nick($1,%i) $+ ) break halt } } msg $1 $logo(Invite) Thanks for the invite $C1($2) :: My Tag ( $+ $c1($MyTag) $+ ) Site: $C1($WebSite) :: Chan: $C1($SupportChannel) msg $AdminChannel $logo(Join) I've joined $C1($1) } } Dialog OnStart { title "OnStart" size -1 -1 139 39 option dbu box "Choose the Bot's Tag", 1, 2 2 131 33 edit "[##]iKick", 2, 13 14 50 10, center button "Set Name", 3, 77 13 37 12 } ON *:CONNECT:{ if (!$timer(RsNews)) timerRsNews 0 1200 RsNewsChecker setname $MySetName mode $me $AutoModes if ($network == SwiftIRC) { ns id $SwiftIRCPass .timer 1 2 join $+($BotChannel,$chr(44),$SupportChannel,$chr(44),$AdminChannel) } else { if ($($+($,$network,Pass),2)) { join $+($SupportChannel,$chr(44),$AdminChannel) ns id $($+($,$network,Pass),2) } } } ON *:NOTICE:*registered and protected*:?:{ if ($nick === NickServ) { if ($network == SwiftIRC) { ns id $SwiftIRCPass .timer 1 2 join $+($BotChannel,$chr(44),$SupportChannel,$chr(44),$AdminChannel) } } } ON *:NICK:{ if ($nick == $me) { setname $MySetName } } ON *:ERROR:*:{ msg $AdminChannel $logo(Error) There has been an Error: $QT($C1($1-)) } ON *:KICK:#:{ if ($knick == $me) { writeini Blacklist.ini $network $chan Temp Blacklist; Kicked from Chan .timer 1 $calc($BlacklistTime * 60) remini Blacklist.ini $network $chan part $chan Kicked msg $AdminChannel $logo(Kick) I've been kicked from $c1($chan) by $c1($nick) $qt($1-) } if ($nick != $me && !$Readini(Exempts.ini,$Network,$+($chan,:,users)) && $chan !isin $BotChannels $SupportChannel $AdminChannel) { if ($RealUsers($chan) < $MinUsers) { part $chan This channel does not reach the min. user req of $MinUsers users msg $AdminChannel $logo(Part) I've parted $C1($chan) ( $+ $RealUsers($chan) users) writeini Blacklist.ini $network $chan Temp Blacklist; User Count .timer 1 $calc($BlacklistTime * 60) remini Blacklist.ini $network $chan } } } ON *:INVITE:#:{ if ($readini(Blacklist.ini,$network,$chan)) { notice $nick $logo(Blacklist) $readini(Blacklist.ini,$network,$chan) msg $AdminChannel $logo(Invite) $c1($nick) tryed inviting me to blacklisted channel ( $+ $c1($chan) $+ ) } else { if (($ialchan(* $+ $MainBot $+ *!*@*,$AdminChannel,0) == 1) || ($rand(1,5) == 3 && $chan(0) < $MaxChans ) && ($me !ison $chan)) { join $chan .timer 1 2 CJoin $chan $nick } else { set -u300 $+(%,Invite.,$chan,.,$me) $nick msg $AdminChannel -INVITE $chan } } } ON *:TEXT:*:*:{ if ($nick !ison $AdminChannel && $left($1,1) isin !@.) { if ($ isin $1-) { msg $AdminChannel $logo(Exploit) Possible exploit --> $C1($nick) --> $C1($chan) --> $QT($C1($1-)) - No action taken } if (!$($+(%,Spam.,$nick),2)) { set -u $+ $gettok($SpamParams,2,58) $+(%,Spam.,$nick) 1 } else { inc $+(%,Spam.,$nick) if ($($+(%,Spam.,$nick),2) >= $gettok($SpamParams,1,58)) { .ignore -u $+ $calc($IgnoreTime * 60) $nick 2 notice $nick $logo(Flood) Flooding! $gettok($SpamParams,1,58)) Commands in $gettok($SpamParams,2,58)) Seconds - I'm ignoring $& you for $c1($calc($IgnoreTime * 60)) seconds msg $AdminChannel $logo(Flood) $c1($nick) has flooded me in $c1($chan) $qt($1-) } } } var %1- $1-, %1 $1 var %ID $+($ticks,.,$nick) if (($remove($1,$chr(44)) == $me || $MyTag isin $remove($1,$chr(44),$MainBot)) || ($1 == $AllTag && $nick ison $AdminChannel)) { set -u60 $+(%,Display.,%ID) $me tokenize 32 $2- } if ($ialchan(* $+ $MainBot $+ *!*@*,$chan,0) >= 2) { if ($me == $iif($($+(%,Display.,%ID),2),$ifmatch,$gettok($ialchan(* $+ $MainBot $+ *!*@*,$chan,1),1,33))) { set -u60 $+(%,Display.,%ID) $& $iif($chan,$iif($left($1,1) == @,$iif($readini(Sets.ini,$+($network,:,$chan),Public), $& $iif($nick ison $AdminChannel,msg $chan,notice $nick),msg $chan),notice $nick),notice $nick) } else { set -u60 $+(%,Display.,%ID) .echo -q } } if ($ialchan(* $+ $MainBot $+ *!*@*,$chan,0) == 1) { set -u60 $+(%,Display.,%ID) $& $iif($chan,$iif($left($1,1) == @,$iif($readini(Sets.ini,$+($network,:,$chan),Public), $& $iif($nick ison $AdminChannel,msg $chan,notice $nick),msg $chan),notice $nick),notice $nick) } var %Display = $iif($($+(%,Display.,%ID),2),$($+(%,Display.,%ID),2),notice $nick) if ($regex($1,/^[!@`.]Com(mand)?/i) && $level($address($nick,1)) !isin 10) { if ((%1 != $1 && $MyTag isin %1) || (%1 == $AllTag)) { if ($regex($1-,/(run|shutdown|helpop|close|write|staff|serv|set)/i) && $level($address($nick,1)) != Owner) { notice $nick $logo(Abuse) Possible command Abuse } elseif (*What*s your tag* iswm $2-) { msg $chan $logo(MyTag) My tag is $C1($MyTag) } elseif (*are *u alive* iswm $2-) { msg $chan Yes I am } elseif (*are *u gay* iswm $2-) { msg $chan No sir, I am not, sir. } elseif ($2 == QUIT) { raw QUIT QUITALL by $nick ( $+ $3- $+ ) } else { if ($level($address($nick,1)) == Owner) $($2-,2) else $2- } } elseif (%1 == $1 && $Me == $MainBot) { if ($regex($1-,/(run|shutdown|helpop|close|write|staff|serv|set)/i) && $level($address($nick,1)) != Owner) { notice $nick $logo(Abuse) Possible command Abuse } elseif (*What*s your tag* iswm $2-) { msg $chan $logo(MyTag) My tag is $C1($MyTag) } elseif (*are *u alive* iswm $2-) { msg $chan Yes I am } elseif (*are *u gay* iswm $2-) { msg $chan No sir, I am not, sir. } elseif ($2 == QUIT) { raw QUIT QUIT by $nick ( $+ $3- $+ ) } else { if ($level($address($nick,1)) == Owner) $($2-,2) else $2- } } } if ($regex($1,/^[!@.]Blacklist$/i) && $nick isop $AdminChannel) { if ($2) { writeini Blacklist.ini $network $2 $+([,$nick,]) $3- if ($me == $MainBot) msg $chan $logo(Blacklist) $C1($nick) has blacklisted $C1($2) with the reason: $QT($C1($3-)) } else { if ($me == $MainBot) notice $nick $logo(Syntax Error) [!@]Blacklist #Chan $+(<,$C1(Why),>) } } if ($regex($1,/^[!@.](Rem|Un|Del)Blacklist$/i) && $nick isop $AdminChannel) { if ($2) { remini Blacklist.ini $network $2 if ($me == $MainBot) msg $chan $logo(Blacklist) $C1($nick) has un blacklisted $C1($2) } else { if ($me == $MainBot) notice $nick $logo(Syntax Error) [!@]UnBlacklist #Chan } } if ($regex($1,/^[!@.]Reason$/i) && $me == $MainBot && $nick isop $AdminChannel) { msg $chan $logo(Blacklist) $iif($readini(Blacklist.ini,$network,$2),$C1($2) is blacklisted: $ifmatch,$C1($2) is NOT blacklisted) } if ($1 == -INVITE && $MainBot isin $nick) { msg $nick -REPLY $2 $chan(0) } if ($1 == -REPLY && $MainBot isin $nick) { if ($($+(%,Invite.,$2,.,$me),2) && $3 < $MaxChans) { msg $nick -JOIN $nick $2 $($+(%,Invite.,$2,.,$me),2) unset %Invite. [ $+ [ $2 ] ] $+ * } } if ($1 == -JOIN && $MainBot isin $nick) { if ($2 == $me) { join $3 .timer 1 2 CJoin $3- } } if ($regex($1,/^[!@]BotStatu?s$/i)) { %Display $logo(Bot Statistics) My Tag: $c1($MyTag) $X Channels: $C1($Chan(0)) $X Networks: $C1($scon(0)) } if ($regex($1,/^[!@]Status$/i)) { if (!$2) { %Display $logo(Status) My Tag: $c1($MyTag) $X Status: $C1($iif($readini(Sets.ini,$+($network,:,$chan),Bot),OFF,ON)) $& $X Public: $C1($iif($readini(Sets.ini,$+($network,:,$chan),Public),OFF,ON)) $X Help Channel: $C1($SupportChannel) } else { if (!$GetSet($2)) { notice $nick $logo(Error) I don't have a $qt($c1($2)) command. } else { %Display $logo(Status) My Tag: $c1($MyTag) $X Status: $C1($iif($readini(Sets.ini,$+($network,:,$chan),Bot),OFF,ON)) $& $X Public: $C1($iif($readini(Sets.ini,$+($network,:,$chan),Public),OFF,ON)) $X $& $GetSet($2) Command: $C1($iif($readini(Sets.ini,$+($network,:,$chan),$GetSet($2)),OFF,ON)) $X $& Help Channel: $C1($SupportChannel) } } } if ($regex($1,/^[!@]Set$/i)) { if ($3 == $null) { notice $nick $Logo(Syntax Error) [!@]Set On/Off } elseif (!$GetSet($2)) { notice $nick $logo(Error) I don't have a $qt($c1($2)) command. } else { if ($3 == Off) { writeini Sets.ini $+($network,:,$chan) $GetSet($2) $true notice $nick $logo(Set) $GetSet($2) is now offline } elseif ($3 == On) { remini Sets.ini $+($network,:,$chan) $GetSet($2) notice $nick $logo(Set) $GetSet($2) is now online } else { notice $nick $logo(Set) The only parameters are On/Off } } } if ($regex($1,/^[!@.](Part|GTFO|Leave)$/i)) { if ($2 == $me || $2 == $MyTag) { if ($OpPart && $nick !isop $chan) { notice $nick $logo(Ops) You are not a channel op! You need to be to part me! } else { writeini Blacklist.ini $network $chan Temp Blacklist; Part Command .timer 1 $calc($BlacklistTime * 60) remini Blacklist.ini $network $chan part $chan $1 command by: $nick (Adding $calc($BlacklistTime * 60) second blacklist to avoid abuse) msg $AdminChannel $logo(Part) I've parted from $c1($chan) on request of $c1($nick) } } elseif ($2 != $me) { notice $nick $logo(Syntax Error) !Part $MyTag } } if ($readini(Sets.ini,$+($network,:,$chan),Bot)) { halt } unset %Display. [ $+ [ %ID ] ] $+ * if ($regex($1,/^[!@](R(une)?S(cape)?)?News$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),RsNews)) { halt } else { sockopen $+(RsNews.,$ticks,.,$nick) runescape.com 80 if ($2 isnum 1-4) { sockmark $+(RsNews.,$ticks,.,$nick) $+(%Display,*,$2) } else { sockmark $+(RsNews.,$ticks,.,$nick) $+(%Display,*1) } } } if ($regex($1,/^[!@]T(ime)?B(an)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),TimeBan)) { halt } else { if (($me isop $chan || $me ishop $chan) && ($nick isop $chan || $nick ishop $chan) && ($2 ison $chan) && ($3 isnum)) { ban -ku $+ $calc($3 * 60) $chan $2 2 TimeBanned: $+([,$nick,]) $iif($4,$4-,No Reason) } } } if ($regex($1,/^[!@](R(une)?S(cape)?)?Players?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),RsPlayers)) { halt } else { sockopen $+(RsPlayers.,$ticks,.,$nick) runescape.com 80 sockmark $+(RsPlayers.,$ticks,.,$nick) %Display } } if ($regex($1,/^[!@]Chuck(Norris)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),ChuckNorris)) { halt } else { sockopen $+(Chuck.,$ticks,.,$nick) 4Q.cc 80 sockmark $+(Chuck.,$ticks,.,$nick) %Display } } if ($regex($1,/^[!@]Calc(ulater)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Calc)) { halt } else { %Display $logo(Calculater) $2- = $C1($bytes($calc($replace($2-,K,*1000,M,*1000000,PI,$PI,B,*1000000000)),db)) } } if ($regex($1,/^[!@]asc(ii)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),ASCii)) { halt } else { %Display $logo(ASCii) $2- = $C1($!+ $+ $chr(40) $+ $TranASC($2-) $+ $chr(41)) } } if ($regex($1,/^[!@]Reverse$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Reverse)) { halt } else { %Display $logo(Reverse) $2- = $C1($Reverse($2-)) } } if ($regex($1,/^[!@]FairyRing$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),FairyRing)) { halt } else { %Display $logo(FairyRing) $iif($FairyRing($2-),$2- = $FairyRing($2-),Unknown Location) } } if ($regex($1,/^[!@]Colorful?l$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Colorfull)) { halt } else { %Display $logo(Colorful) $2- = $C1($Colorfull($2-)) } } if ($regex($1,/^[!@](.*)Meter$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Meter)) { halt } else { %Display $logo(Meter) $C1($iif($2,$2-,$nick)) is $C1($rand(0,100) $+ %) $regml(1) } } if ($regex($1,/^[!@]Quest(Name)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),QuestName)) { halt } else { if (!$2) { notice $nick $logo(Syntax Error) [!@]!Quest $+(<,$c1(Quest),>) } elseif ($read(quests.txt, w, $+(*,$2-,*))) { %Display $& $logo(Quest) Name: $+([,$c1($iif($gettok($read(quests.txt, w, $+(*,$2-,*)),5,124) == members,M,F)),]) $& $c1($gettok($read(quests.txt, w, $+(*,$2-,*)),1,124)) $X Difficulty: $& $c1($gettok($read(quests.txt, w, $+(*,$2-,*)),2,124)) $X Length: $c1($gettok($read(quests.txt, w, $+(*,$2-,*)),3,124)) $X $& QPs: $c1($gettok($read(quests.txt, w, $+(*,$2-,*)),4,124)) } else { %Display $logo(Quest) No matches found for $c1($remove($2-,*)) } } } if ($regex($1,/^[!@]Spell(Name)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),SpellName)) { halt } else { if (!$2) { notice $nick $logo(Syntax Error) [!@]!Spell $+(<,$c1(SpellName),>) } elseif ($read(Spells.txt, w, $+(*,$2-,*))) { %Display $logo(SpellName) $($replace($read(Spells.txt, w, $+(*,$2-,*)),$chr(124),$X),2) } else { %Display $logo(SpellName) No matches found for $c1($remove($2-,*)) } } } if ($regex($1,/^[!@]Urban(Dictionary(.Com)?)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Urban)) { halt } elseif (($2 == $null) || ($3 == $null && #* iswm $2)) { notice $nick $logo(Syntax Error) [!@]Urban (#ID) Word } else { sockopen $+(Urban.,$ticks,.,$nick) www.urbandictionary.com 80 if (#* iswm $2) { if ($remove($2,$chr(35)) !isnum) { notice $nick $logo(Error) $c1($remove($2,$chr(35))) is not a number } else { sockmark $+(Urban.,$ticks,.,$nick) $+(%Display,*,$replace($3-,$chr(32),_,+,_),*,$remove($2,$chr(35))) } } else { sockmark $+(Urban.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_),*,1)) } } } if ($regex($1,/^[!@]Goog(le(.Com)?)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Google)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]Google $+(<,$c1(LookUp),>) } else { sockopen $+(Google.,$ticks,.,$nick) google.com 80 sockmark $+(Google.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_))) } } if ($regex($1,/^[!@]Wiki(Pedia)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Wiki)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]Wiki $+(<,$c1(LookUp),>) } else { sockopen $+(Wiki.,$ticks,.,$nick) google.com 80 sockmark $+(Wiki.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_))) } } if ($regex($1,/^[!@]Define$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Define)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]Define $+(<,$c1(Word),>) } else { sockopen $+(Define.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(Define.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_))) } } if ($regex($1,/^[!@]Halo3$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Halo3)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]Halo3 $+(<,$c1(GamerTag),>) } else { sockopen $+(Halo3.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(Halo3.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),+,_,+))) } } if ($regex($1,/^[!@]KBase$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),KBase)) { halt } elseif (($2 == $null) || ($3 == $null && #* iswm $2)) { notice $nick $logo(Syntax Error) [!@]Kbase (#ID) Word } else { sockopen $+(KBase.,$ticks,.,$nick) runescape.com 80 if (#* iswm $2) { if ($remove($2,$chr(35)) !isnum) { notice $nick $logo(Error) $c1($remove($2,$chr(35))) is not a number } else { sockmark $+(KBase.,$ticks,.,$nick) $+(%Display,*,$replace($3-,$chr(32),_,+,_),*,$remove($2,$chr(35))) } } else { sockmark $+(KBase.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_),*,1)) } } } if ($regex($1,/^[!@]Weather$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Weather)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]Weather $+(<,$c1(Zip Code),>) } else { sockopen $+(Weather.,$ticks,.,$nick) rs.facepwn.com 80 sockmark $+(Weather.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_))) } } if ($regex($1,/^[!@]Idle(RPG)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Idle)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]Idle $+(<,$c1(User),>) } else { sockopen $+(Idle.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(Idle.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_))) } } if ($regex($1,/^[!@]IP$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),IP)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]IP $+(<,$c1(IP Address),>) } else { if ($remove($2,.) !isnum) { set $+(%,DNS.,$2) %display .dns $2 } else { sockopen $+(IP.,$ticks,.,$nick) www.melissadata.com 80 sockmark $+(IP.,$ticks,.,$nick) $+(%Display,*,$replace($2,$chr(32),_,+,_))) } } } if ($regex($1,/^[!@]Slang$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Slang)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]Slang $+(<,$c1(Slang Term),>) } else { sockopen $+(Slang.,$ticks,.,$nick) www.noslang.com 80 sockmark $+(Slang.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_))) } } if ($regex($1,/^[!@]Price$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Price)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]Price $+(<,$c1(Item),>) } else { sockopen $+(Price.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(Price.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_))) } } if ($regex($1,/^[!@]Spelling(Check)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),SpellingCheck)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]SpellingCheck$+(<,$c1(Word),>) } else { sockopen $+(SpellCheck.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(SpellCheck.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_))) } } if ($regex($1,/^[!@]Name$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),RSN)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]RSN $+(<,$c1(RSN),>) } else { sockopen $+(RSN.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(RSN.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_))) } } if ($regex($1,/^[!@]W(hat)?P(ulse)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),WhatPulse)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]WhatPulse $+(<,$c1(User),>) } else { sockopen $+(WhatPulse.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(WhatPulse.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_))) } } if ($regex($1,/^[!@]RsPoll$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),RsPoll)) { halt } else { sockopen $+(RsPoll.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(RsPoll.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_))) } } if ($regex($1,/^[!@]Q(uick)?F(ind)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),QuickFind)) { halt } elseif ($2 == $null) { notice $nick $logo(Syntax Error) [!@]QuickFind $+(<,$c1(Topic),>) } else { sockopen $+(RsForums.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(RsForums.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),$chr(44),+,$chr(44)))) } } if ($regex($1,/^[!@]Whois$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Whois)) { halt } elseif (!$2) { notice $nick $logo(Syntax Error) [!@]Whois $+(<,$c1(Nick),>) } else { set $+(%,Whois.,$2) $chan whois $2 } } if ($regex($1,/^[!@]Clan$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Clan)) { halt } else { sockopen $+(Clan.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(Clan.,$ticks,.,$nick) $+(%Display,*,$replace($iif($2-,$2-,$iif($readini(Defname.ini,$network,$nick), $& $+(~DEF~,$NICK,~) $+ $readini(Defname.ini,$network,$nick),$nick)),$chr(32),-,+,-))) } } if ($regex($1,/^[!@]ClanInfo$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),ClanInfo)) { halt } elseif (!$2) { notice $nick $logo(Syntax Error) [!@]ClanInfo $+(<,$C1(ClanName),>) } else { sockopen $+(ClanInfo.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(ClanInfo.,$ticks,.,$nick) $+(%Display,*,$2-) } } if ($regex($1,/^[!@]Stats?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Stats)) { halt } else { sockopen $+(Stats.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(Stats.,$ticks,.,$nick) $+(%Display,*,$replace($iif($2-,$2-,$iif($readini(Defname.ini,$network,$nick), $& $+(~DEF~,$NICK,~) $+ $readini(Defname.ini,$network,$nick),$nick)),$chr(32),-,+,-))) } } if ($SkillName($right($1,-1)) && $left($1,1) isin !@) { if ($readini(Sets.ini,$+($network,:,$chan),SingleSkills)) { halt } else { var %Skill = $SkillName($right($1,-1)) var %Goal = $iif($matchtok($1-,$chr(35),1,32),$v1,None) var %Npcs = $iif($iif($matchtok($1-,@,$iif($matchtok($1-,@,0,32) > 1,2,1),32),$v1,None) != $1,$v1,None) var %Lookup = $iif($remove($replace($2-,$chr(32),&),%Goal,%Npcs),$v1,$iif($readini(Defname.ini,$network,$nick), $+ $& $+(~DEF~,$NICK,~) $+ $v1,$nick)) if (!$remove(%Lookup,&)) var %Lookup $iif($readini(Defname.ini,$network,$nick),$+(~DEF~,$NICK,~) $+ $v1,$nick) var %Lookup = $replace(%Lookup,&,$chr(32)) sockopen $+(Skill.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(Skill.,$ticks,.,$nick) $+(%Display,*,%Lookup,*,%Goal,*,%Npcs,*,%Skill) } } if ($regex($1,/^[!@]Co?mb(at)?$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Combat)) { halt } else { sockopen $+(Combat.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(Combat.,$ticks,.,$nick) $+(%Display,*,$replace($iif($2-,$2-,$iif($readini(Defname.ini,$network,$nick), $& $+(~DEF~,$NICK,~) $+ $readini(Defname.ini,$network,$nick),$nick)),$chr(32),-,+,-))) } } if ($regex($1,/^[!@]Co?mb(at)?-?est$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),Combat-Est)) { halt } elseif ($8 == $null) { notice $nick $logo(Syntax Error) [!@]Combat-Est ASDHRPM(SU) } else { sockopen $+(CombatEST.,$ticks,.,$nick) ikick.bot.nu 80 sockmark $+(CombatEST.,$ticks,.,$nick) $+(%Display,*,?a=,$2,&s=,$3,&d=,$4,&h=,$5,&m=,$6,&r=,$7,&p=,$8,&sm=,$iif($9,$9,1)) } } if ($regex($1,/^[!@](Yo)?utube$/i)) { if ($readini(Sets.ini,$+($network,:,$chan),YouTube)) { halt } elseif (($2 == $null) || ($3 == $null && #* iswm $2)) { notice $nick $logo(Syntax Error) [!@]YouTube (#ID) Video } else { sockopen $+(YouTube.,$ticks,.,$nick) YouTube.com 80 if (#* iswm $2) { if ($remove($2,$chr(35)) !isnum) { notice $nick $logo(Error) $c1($remove($2,$chr(35))) is not a number } else { sockmark $+(YouTube.,$ticks,.,$nick) $+(%Display,*,$replace($3-,$chr(32),_,+,_),*,$calc($remove($2,$chr(35))+1)) } } else { sockmark $+(YouTube.,$ticks,.,$nick) $+(%Display,*,$replace($2-,$chr(32),_,+,_),*,1)) } } } if ($regex($1-,/(?:http:\/\/)?(?:www.)?youtube\.(?:com|co.uk|net|org)\/watch\?v=(.*)/Si)) { var %YTID = $gettok($strip($regml(1)),1,32) if ($readini(Sets.ini,$+($network,:,$chan),YouTubeURL)) { halt } else { sockopen $+(YouTube.,$ticks,.,$nick) YouTube.com 80 sockmark $+(YouTube.,$ticks,.,$nick) $+(msg $chan,*,%YTID,*,1) } } if ($regex($1,/^[!@]MyColors?$/i)) { if (!$2) { remini MyColor.ini $network $nick notice $nick $logo(My color) Your colors have been reset } else { if ($2 isnum 1-15) { writeini MyColor.ini $network $nick $iif($len($2) == 1,0) $+ $2 if ($chan !isin $BotChannels $AdminChannel $SupportChannel) msg $AdminChannel [MYCOLOR] $nick --> $2- notice $nick $logo(My Color) Your color has changed to $c1(this) } else { notice $nick $logo(My Color) Your color must be a number between $c1(1) and $c1(15) } } } if ($1 === [MYCOLOR] && $MainBot isin $nick) { writeini MyColor.ini $network $2 $4- } if ($regex($1,/^[!@](set|del)?event$/i)) { if ($regml(1) == set) { writeini Event.ini $network $chan $2- notice $nick $logo(Event Set) The event has been set msg $chan $logo(Event Set) $C1($NICK) has set an event. Type $C1(!Event) to see it } elseif ($regml(1) == del) { remini Event.ini $network $chan notice $nick $logo(Event Deleted) The event has been unset } else { notice $nick $logo(Event) Event for $C1($chan) $+ : $iif($readini(Event.ini,$network,$chan),$v1,No event set) } } if ($regex($1,/^[!@](set|del)?(.*)w(?:orld)?$/i)) { if ($regml(1) == set) { if ($nick isop $chan || $nick ishop $chan) { writeini Event.ini $network $+($chan,:,$regml($regml(0))) $2- notice $nick $logo(World Set) The $regml($regml(0)) word has been set msg $chan $logo(World Set) $C1($NICK) has set the $regml($regml(0)) world. $& Type $C1($+(!,$regml($regml(0)),world)) to see it } else { notice $nick Access Denied. } } elseif ($regml(1) == del) { if ($nick isop $chan || $nick ishop $chan) { remini Event.ini $network $+($chan,:,$regml($regml(0))) notice $nick $logo(World Deleted) The World has been unset } else { notice $nick Access Denied. } } else { notice $nick $logo(World) $regml($regml(0)) world for $C1($chan) $+ : $& $iif($readini(Event.ini,$network,$+($chan,:,$regml($regml(0)))),$v1, $+ $& No world set) } } if ($regex($1,/^[!@](Def|Set)Name$/i)) { if (!$2) { remini Defname.ini $network $nick notice $nick $logo(Defname) Your defname has been deleted } else { writeini Defname.ini $network $nick $replace($2-,$chr(32),_,+,_,$,ISuck) if ($chan !isin $BotChannel $AdminChannel $SupportChannel) msg $AdminChannel [DEFNAME] $nick --> $2- notice $nick $logo(Defname) Your defname has changed to $c1($2-) } } if ($regex($1,/^[!@]Anti-?H(igh)?l(ight)?$/i)) { if (!$3) { remini AntiHL.ini $network $nick notice $nick $logo(Anti HL) Name will be displayed normal } else { writeini AntiHL.ini $network $nick $2 $+ - $+ $3 notice $nick $logo(Anti HL) Your name will now be filtered } } if ($1 === [DEFNAME] && $MainBot isin $nick) { writeini Defname.ini $network $2 $replace($4-,$chr(32),_,+,_,$,ISuck) } if ($regex($1,/^[!@]Priva?c(a|e)?y$/i)) { if ($2 == Off) { remini DefPriv.ini $network $nick notice $nick $logo(Privacy) Privacy has been turned off } elseif ($2 == On) { writeini DefPriv.ini $network $nick On if ($chan !isin $BotChannel $AdminChannel $SupportChannel) msg $AdminChannel [DEVPRIV] $nick notice $nick $logo(Privacy) Privacy has been turned on } else { notice $nick $logo(Syntax Error) [!@]Privacy (On|Off) } } if ($1 === [DEFPRIV] && $MainBot isin $nick) { writeini DefPriv.ini $network $2 On } if ($regex($1,/^[!@]R(une)?S(cape)?N(ame)?$/i)) { if ($2 == $null) { notice $nick $logo(Syntax Error) [!@]RSN $+(<,$c1(RSN),>) } else { %Display $logo(RSN) $iif($readini(Defname.ini,$network,$2),$c1($+($2,'s)) RSN is $c1($readini(Defname.ini,$network,$2)),$c1($2) $& does not have a stored defname with us) } } } ON *:SOCKOPEN:*:{ var %POST tokenize 42 $sock($sockname).mark if (RsNews* iswm $sockname || RsPlayers.* iswm $sockname) { sockwrite -nt $sockname GET /title.ws HTTP/1.1 sockwrite -nt $sockname Host: runescape.com } if (Urban.* iswm $sockname) { sockwrite -nt $sockname GET $+(/define.php?term=,$2) HTTP/1.1 sockwrite -nt $sockname Host: www.urbandictionary.com } if (IP.* iswm $sockname) { sockwrite -nt $sockname GET $+(/lookups/iplocation.asp?ipaddress=,$2) HTTP/1.1 sockwrite -nt $sockname Host: www.melissadata.com } if (Chuck.* iswm $sockname) { sockwrite -nt $sockname GET /index.php?pid=fact&person=chuck HTTP/1.1 sockwrite -nt $sockname Host: 4q.cc } if (YouTube.* iswm $sockname) { sockwrite -nt $sockname GET $+(/results?search_query=,$2,&search_type=&search=Search) HTTP/1.1 sockwrite -nt $sockname Host: youtube.com } if (Google.* iswm $sockname) { sockwrite -nt $sockname GET $+(/search?hl=en&q=,$2,&btnI=I%27m+Feeling+Lucky) HTTP/1.1 sockwrite -nt $sockname Host: www.google.com } if (Wiki.* iswm $sockname) { sockwrite -nt $sockname GET $+(/search?hl=en&q=,Wiki+,$2,&btnI=I%27m+Feeling+Lucky) HTTP/1.1 sockwrite -nt $sockname Host: www.google.com } if (Define.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/define.php?word=,$2) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (Halo3.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/halo3.php?gamertag=,$2) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (KBase.* iswm $sockname) { sockwrite -nt $sockname GET $+(/kbase/search.ws?search_query=,$2,&category=null&subcat=null&title_chk=1& $+ $& keywords_chk=1&description_chk=1&body_chk=1&and_rad=1&submit=Search+Again) HTTP/1.1 sockwrite -nt $sockname Host: runescape.com } if (Weather.* iswm $sockname) { sockwrite -nt $sockname GET $+(/Parsers/weather.php?zip=,$2,&c1=&c2=,$remove($C1(LoL),$chr(3),LoL)) HTTP/1.1 sockwrite -nt $sockname Host: rs.facepwn.com } if (Idle.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/idle.php?user=,$2) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (WhatPulse.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/whatpulse.php?id=,$2) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (RsForums.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/qf.php?qf=,$2) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (RsPoll.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/rspoll.php) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (RSN.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/rsn.php?rsn=,$2) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (Price.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/price.php?price=,$2) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (SpellCheck.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/spell.php?word=,$2) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (Clan.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/clan.php?rsn=,$iif(~ isin $2,$gettok($2,3,126),$2)) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (ClanInfo.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/claninfo.php?clan=,$2) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (Stats.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/stats.php?rsn=,$iif(~ isin $2,$gettok($2,3,126),$2)) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (Skill.* iswm $sockname) { sockwrite -nt $sockname GET $URLENCODE($+(/parsers/skill.php?rsn=,$iif(~ isin $2,$gettok($2,3,126),$2),&goal= $+ $& ,$remove($3,$chr(35)),&npc=,$remove($4,@),&skill=,$5)) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (Combat.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/combat.php?rsn=,$iif(~ isin $2,$gettok($2,3,126),$2)) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (CombatEST.* iswm $sockname) { sockwrite -nt $sockname GET $+(/parsers/combat-est.php?rsn=,$2) HTTP/1.1 sockwrite -nt $sockname Host: ikick.bot.nu } if (Slang.* iswm $sockname) { sockwrite -nt $sockname GET $+(/search.php?st=,$2,&submit=GO) HTTP/1.1 sockwrite -nt $sockname Host: www.noslang.com } sockwrite -nt $sockname $crlf } ON *:SOCKREAD:*:{ tokenize 42 $sock($sockname).mark var %ID $gettok($sockname,2,46), %Display $iif($1,$1,notice $gettok($sockname,3,46)), %Socket sockread %Socket if (RsNews.* iswm $sockname) { if ($regex(%Socket,/
(.*)<\/span>(.*)<\/dt>/)) { inc $+(%,RsNews.,%ID,.INC) %Display $Logo(RsNews) Title: $C1($regml(2)) $X Date: $C1($regml(1)) $Web(RuneScape.com) if ($($+(%,RsNews.,%ID,.INC),2) == $2) { unset %RsNews. [ $+ [ %ID ] ] $+ * sockclose $sockname } } } if (RsNewsChecker.* iswm $sockname) { if ($regex(%Socket,/
(.*)<\/span>(.*)<\/dt>/)) { if ($regml(2) != $readini(RsNews.ini,TheNews,Recent)) { RsNewsGlobal $regml(2) writeini RsNews.ini TheNews Recent $regml(2) } sockclose $sockname } } if (KBase.* iswm $sockname) { if ($regex(%Socket,/Your search for "(.*)"<\/i>/)) { %Display $Logo(KBase) No matches found for $QT($c1($2)) $Web(RuneScape.com) unset %KBase. [ $+ [ %ID ] ] $+ * sockclose $sockname } if ($regex(%Socket,/

(.*)<\/b>/)) { set $+(%,KBase.,%ID,.Info) Results: $C1($regml(1)) $X } if ($regex(%Socket,/(.*)<\/a>/)) { inc $+(%,KBase.,%ID,.INC2) if ($($+(%,KBase.,%ID,.INC2),2) == $3) { set $+(%,KBase.,%ID,.Info) $($+(%,KBase.,%ID,.Info),2) $QT($C1($regml(2))) $X $& $remove($regml(1),/p=pawYZ6Ill12N6D3mDdihco3oPeYN2KFyD*I0GDTU5oc) $X } } if ($regex(%Socket,/(.*)/)) { if (  !isin $regml(1)) { inc $+(%,KBase.,%ID,.INC) if ($($+(%,KBase.,%ID,.INC),2) == $3) { %Display $Logo(KBase) $($+(%,KBase.,%ID,.Info),2) Desc: $C1($HTMLFree($regml(1))) $Web(RuneScape.com) unset %KBase. [ $+ [ %ID ] ] $+ * sockclose $sockname } } } } if (RsPlayers.* iswm $sockname) { if ($regex(%Socket,/There are currently (.*) people playing!/)) { %Display $Logo(RsPlayers) Players: $C1($bytes($regml(1),b)) $X Total Servers: $c1(150) $X $& Average players per server: $C1($round($calc($regml(1) / 150),2)) $X Percentage Full: $& $C1($round($calc(($regml(1) / 300000) * 100),2) $+ %) $Web(RuneScape.com) sockclose $sockname } } if (Slang.* iswm $sockname) { if ($regex(%Socket,/

Search Results for: .*(.*)

<\/div>/)) { %Display $logo(Slang) Term Found: $C1($HTMLFree($regml(1))) $Web(NoSlang.com) sockclose $sockname } elseif ($regex(%Socket,/

We didn't find any matches for .*<\/h2>/)) { %Display $logo(Slang) No match found for $QT($C1($2)) $Web(NoSlang.com) sockclose $sockname } } if (Chuck.* iswm $sockname) { if (
isin %Socket) { sockread %Socket %Display $Logo(Chuck Norris) $remove(%Socket,
,$chr(9)) $Web(4Q.cc) sockclose $sockname } } if (Define.* iswm $sockname) { if (DONE isin %Socket) { %Display $Logo($2) $remove(%Socket,DONE) $Web(Dictionary.com) sockclose $sockname } elseif (END isin %Socket) { %Display $logo(Define) $C1($2) has triggered no definition $Web(Dictionary.com) sockclose $sockname } } if (Halo3.* iswm $sockname) { if (DONE isin %Socket) { %Display $Logo(Halo3) $replace($($replace($remove(%Socket,DONE),$chr(44),^),2),^,$chr(44)) $Web(Bungie.net) sockclose $sockname } elseif (END isin %Socket) { %Display $logo(Halo3) $C1($2) is not ranked in Halo 3 $Web(Bungie.net) sockclose $sockname } } if (Weather.* iswm $sockname) { if (END isin %Socket) { if (NOT THERE isin %Socket) { %Display $logo(Weather) No weather found for $QT($C1($2)) $Web(Weather.com) sockclose $sockname } else { %Display $Logo(Weather) $remove(%Socket,END) $Web(Weather.com) sockclose $sockname } } } if (Idle.* iswm $sockname) { if (DONE isin %Socket) { %Display $Logo(IdleRPG) $left($replace($($replace($remove(%Socket,DONE),$chr(44),^),2),^,$chr(44)),-2) $Web(Idle.jerrcs.com) sockclose $sockname } elseif (END isin %Socket) { %Display $logo(Idle) $C1($2) is not ranked in IdleRPG $Web(Idle.jerrcs.com) sockclose $sockname } } if (Price.* iswm $sockname) { if (DONE isin %Socket) { %Display $Logo(Price) $replace($($replace($remove(%Socket,DONE),$chr(44),^),2),^,$chr(44)) $Web(Zybez.net) sockclose $sockname } elseif (END isin %Socket) { %Display $logo(Price) No matches found for $QT($C1($2)) $Web(Zybez.net) sockclose $sockname } } if (IP.* iswm $sockname) { if ($regex(%Socket,/The IP address (.*)<\/b> is not valid./)) { %Display $Logo(IP) Invalid IP! unset %IP. [ $+ [ %ID ] ] sockclose $sockname } if ($regex(%Socket,/(.*)<\/td>(.*)<\/b><\/td><\/tr>/)) { if ($regml(1) != ISP) set $+(%,IP.,%ID) $($+(%,IP.,%ID),2) $remove($Regml(1) $+ : $C1($Regml(2)), ) $X else { %Display $Logo(IP) $($+(%,IP.,%ID),2) $remove($Regml(1) $+ : $C1($Regml(2)), ) $Web(Melissadata.com) unset %IP. [ $+ [ %ID ] ] sockclose $sockname } } } if (WhatPulse.* iswm $sockname) { if (DONE isin %Socket) { %Display $Logo(WhatPulse) $($remove(%Socket,DONE),2) $Web(WhatPulse.com) sockclose $sockname } elseif (END isin %Socket) { %Display $logo(WhatPulse) No records of $C1($2) on whatpulse $Web(WhatPulse.com) sockclose $sockname } } if (RsForums.* iswm $sockname) { if (DONE isin %Socket) { %Display $Logo(Forums) $($remove(%Socket,DONE),2) $Web(RuneScape.Com) sockclose $sockname } elseif (END isin %Socket) { %Display $logo(Forums) No matches found for $C1($2) $Web(RuneScape.Com) sockclose $sockname } } if (SpellCheck.* iswm $sockname) { if (DONE isin %Socket) { %Display $Logo(Spelling Check) $($remove(%Socket,DONE),2) $Web(SpellCheck.net) sockclose $sockname } elseif (END isin %Socket) { %Display $logo(Spelling Check) No matches found for $C1($2) $Web(SpellCheck.net) sockclose $sockname } } if (Stats.* iswm $sockname) { if (DONE isin %Socket) { %Display $Logo($iif(~DEF~ isin $2 && $readini(DefPriv.ini,$network,$gettok($2,2,126)),-Privacy-,$gettok($2,$SCount($2,~),126))) $& $left($($remove(%Socket,DONE),2),-1) $Web(RuneScape.com) sockclose $sockname } elseif (END isin %Socket) { %Display $logo($iif(~DEF~ isin $2 && $readini(DefPriv.ini,$network,$gettok($2,2,126)),-Privacy-,$gettok($2,$SCount($2,~),126))) $& Was not ranked in any skills $Web(RuneScape.com) sockclose $sockname } } if (Skill.* iswm $sockname) { var %RSN = $iif(~DEF~ isin $2 && $readini(DefPriv.ini,$network,$gettok($2,2,126)),-Privacy-,$gettok($2,$SCount($2,~),126)) if (NOT THERE isin %Socket) { %Display $logo($5) $C1(%RSN) is not an actual RSN $Web(RuneScape.com) sockclose $sockname unset %Skill. [ $+ [ %ID ] ] $+ * } if ($regex(%Socket,/Set (.*) (.*)/i)) { set $+(%,Skill.,%ID,.,$regml(1)) $regml(2) } if ($regex(%Socket,/INFO: (.*): (.*)/i)) { if ($gettok($regml(2),1,32)) { set $+(%,Skill.,%ID,.Info) $($+(%,Skill.,%ID,.Info),2) $regml(1) $+ : $C1($bytes($gettok($regml(2),1,32),db)) $& $iif($gettok($regml(2),2,32),$chr(40) $+ $c1($right($v1,-1)) $gettok($regml(2),3-,32)) $X } } if ($regex(%Socket,/INFO2: Exp to level (.*): (.*)/i)) { set $+(%,Skill.,%ID,.Info) $($+(%,Skill.,%ID,.Info),2) Exp to $C1($regml(1)) $+ : $C1($bytes($regml(2),db)) $X } if (END isin %Socket) { var %Level = $($+(%,Skill.,%ID,.,Level),2), %Goal = $($+(%,Skill.,%ID,.,Goal),2), %Exp = $($+(%,Skill.,%ID,.,Exp),2), %Skill $5 var %EXP2 = $($+(%,Skill.,%ID,.,EXP2),2), %NPC = $replace($remove($4,@),$chr(32),-,+,-,_,-) %Display $Logo($5) $iif($($+(%,Skill.,%ID,.Info),2) && -1 !isin $($+(%,Skill.,%ID,.Info),2),User: $& $C1(%RSN) $X $left($($+(%,Skill.,%ID,.Info),2),-2),$C1(%RSN) is not ranked in $c1($5)) if (%Level < 99 && $($+(%,Skill.,%ID,.Info),2) && -1 !isin $($+(%,Skill.,%ID,.Info),2)) { notice $gettok($sockname,3,46) $& $Logo(EXP gains for %Goal) $regsubex($str(~,7),/(.)/g,$chr(32) $replace($ini(Object.ini,%Skill,\n),-,$chr(32)) $+ : $& $C1($bytes($calc(%EXP2 / $readini(Object.ini,%Skill,$ini(Object.ini,%Skill,\n))),b)) $iif(\n != 7,$X) ) $& $iif(%NPC != None,$X $replace(%NPC,-,$chr(32)) $+ : $C1($bytes($calc(%EXP2 / $readini(Object.ini,%Skill,%NPC)),b))) } sockclose $sockname unset %Skill. [ $+ [ %ID ] ] $+ * } } if (Combat.* iswm $sockname) { if (DONE isin %Socket) { %Display $Logo($iif(~DEF~ isin $2 && $readini(DefPriv.ini,$network,$gettok($2,2,126)),-Privacy-,$gettok($2,$SCount($2,~),126))) $& $($remove(%Socket,DONE),2) $iif(Attack isin %Socket,$Web(RuneScape.com)) if (Attack isin %Socket) sockclose $sockname } elseif (END isin %Socket) { %Display $logo($iif(~DEF~ isin $2 && $readini(DefPriv.ini,$network,$gettok($2,2,126)),-Privacy-,$gettok($2,$SCount($2,~),126))) $& is not ranked in runescape $Web(RuneScape.com) sockclose $sockname } } if (CombatEst.* iswm $sockname) { if (DONE isin %Socket) { %Display $Logo(Combat Est) $($remove(%Socket,DONE),2) $Web(RuneScape.com) sockclose $sockname } elseif (END isin %Socket) { %Display $logo(Combat Est) Error in infromation given to us sockclose $sockname } } if (RsPoll.* iswm $sockname) { if (DONE isin %Socket) { tokenize 42 %Socket %Display $Logo(RsPoll) Topic: $C1($1) $X Details: $C1($remove($2,DONE)) $Web(RuneScape.Com) sockclose $sockname } } if (RSN.* iswm $sockname) { if (DONE isin %Socket) { %Display $Logo(RSN) The name $QT($C1($2)) is $C1($iif(1 isin %Socket,Open,Taken)) sockclose $sockname } } if (Urban.* iswm $sockname) { if (*

*

* iswm %Socket) { inc $+(%,Urban.,%ID,.INC) if ($($+(%,Urban.,%ID,.INC),2) == $3) { set $+(%,Urban.,%ID,.Def) $Logo(Urban) $+($C1($2),:) $& $HTMLFree($regsubex($replace($HTMLFree(%Socket),",",$2,$C1($2)),/&#(.*);/,$chr($regml(1)))) } } if ($regex(%Socket,/

(.*)<\/p>/i)) { inc $+(%,Urban.,%ID,.INC2) if ($($+(%,Urban.,%ID,.INC2),2) == $3) { %Display $($+(%,Urban.,%ID,.Def),2) $X $c1(Example:) $& $HTMLFree($regsubex($replace($HTMLFree($regml(1)),",",$2,$C1($2)),/&#(.*);/,$chr($regml(1)))) $Web(UrbanDictionary.com) unset %Urban. [ $+ [ %ID ] ] $+ * sockclose $sockname } } if ($regex(%Socket,//)) { %Display $logo(Urban) No matches found for $C1($2) $Web(UrbanDictionary.com) unset %Urban. [ $+ [ %ID ] ] $+ * sockclose $sockname } } if (YouTube.* iswm $sockname) { if ($regex(%Socket,/(.*)<\/a>/)) { inc $+(%,YouTube.,%ID,.INC) if ($($+(%,YouTube.,%ID,.INC),2) == $3) { var %URL www.youtube.com/watch?v= $+ $regml(1) %Display $Logo(YouTube) Title: $C1($HTMLFree($regml(2))) $X URL: $C1(%URL) $Web(YouTube.com) unset %YouTube. [ $+ [ %ID ] ] $+ * sockclose $sockname } } if ($regex(%Socket,/

No Videos found for(.*)<\/div>/) || $regex(%Socket,//)) { %Display $logo(YouTube) No matches found for $c1($2) $Web(YouTube.com) unset %YouTube. [ $+ [ %ID ] ] $+ * sockclose $sockname } } if (Google.* iswm $sockname) { if ($regex(%Socket,/^Location: (.*)/)) { %Display $Logo(Google) Keyword: $C1($2) $X URL: $C1($regml(1)) $Web(Google.com) sockclose $sockname } if (*did not match any documents* iswm %Socket) { %Display $logo(Google) No matches found for $c1($2) $Web(Google.com) sockclose $sockname } } if (Wiki.* iswm $sockname) { if ($regex(%Socket,/^Location: (.*)/) && Wiki isin %Socket) { %Display $Logo(Wiki) Keyword: $C1($2) $X URL: $C1($regml(1)) $Web(Wikipedia.org) sockclose $sockname } if (*did not match any documents* iswm %Socket) { %Display $logo(Wiki) No matches found for $c1($2) $Web(Wikipedia.org) sockclose $sockname } } if (Clan.* iswm $sockname) { if ($+(*,$chr(124),*) iswm %Socket) { set $+(%,Clan.,Info.,%ID) $($+(%,Clan.,Info.,%ID),2) Clan: $C1($gettok(%Socket,1,124)) $& $iif($count($($+(%,Clan.,Info.,%ID),2),$chr(124)) < 2,$Web($replace($replace($gettok(%Socket,2,124),http://,www.), $+ $& www.www.,www.))) $X } if (END isin %Socket) { %Display $logo(Clan) $& $C1($iif(~DEF~ isin $2 && $readini(DefPriv.ini,$network,$gettok($2,2,126)),-Privacy-,$gettok($2,$SCount($2,~),126))) $& is in: $iif($left($($+(%,Clan.,Info.,%ID),2),-1),$ifmatch,$C1(No Clans)) $Web2(RuneHead.com) unset %Clan.Info. [ $+ [ %ID ] ] sockclose $sockname } } if (ClanInfo.* iswm $sockname) { if ($+(*,$chr(124),*) iswm %Socket) { tokenize 124 %Socket %Display $Logo(Clan Info) Name: $C1($1) $X Initials: $c1($5) $X Members: $c1($6) $X Average Combat: $c1($7) $X Type: $& $c1($12) $X Time: $c1($13) $X Cape: $c1($14) $X World: $c1($15) sockclose $Sockname } if (not found isin %Socket) { %Display $logo(ClanInfo) No info in for $QT($C1($2)) sockclose $sockname } } } ON *:SOCKCLOSE:*:{ tokenize 42 $sock($sockname).mark var %ID $gettok($sockname,2,46), %Display $iif($1,$1,notice $gettok($sockname,3,46)), %Socket %Display $logo($gettok($sockname,1,46)) No matches found } ON *:JOIN:#:{ if ($readini(Status.ini,$network,$chan)) { halt } else { if ($level($address($nick,1)) !isin 10) { if ($ialchan(* $+ $MainBot $+ *!*@*,$chan,0) >= 2) { if ($me == $iif($($+(%,Display.,%ID),2),$ifmatch,$gettok($ialchan(* $+ $MainBot $+ *!*@*,$chan,1),1,33))) { msg $chan $Logo(Staff Member) $C1($iif($Readini(AntiHL.ini,$network,$nick),$HL($nick),$nick)) $& --> $MainBot $level($address($nick,1)) } } else { msg $chan $Logo(Staff Member) $C1($iif($Readini(AntiHL.ini,$network,$nick),$HL($nick),$nick)) $& --> $MainBot $level($address($nick,1)) } } } } ON *:OPEN:?:{ close -m $nick } ON *:PART:#:{ if ($nick != $me && !$Readini(Exempts.ini,$Network,$+($chan,:,users)) && $chan !isin $BotChannels $SupportChannel $AdminChannel) { if ($RealUsers($chan) < $MinUsers) { part $chan This channel does not reach the min. user req of $MinUsers users msg $AdminChannel $logo(Part) I've parted $C1($chan) ( $+ $RealUsers($chan) users) writeini Blacklist.ini $network $chan Temp Blacklist; User Count .timer 1 $calc($BlacklistTime * 60) remini Blacklist.ini $network $chan } } } ON *:START:{ .mnick $MainBot dialog -m OnStart OnStart } ON *:DIALOG:OnStart:SCLICK:3:{ .anick $did($dname,2) echo -at Your bot name as been changed to $did($dname,2) } ON *:DIALOG:OnStart:INIT:0:{ did -r $dname 2 did -a $dname 2 [##] $+ $MainBot } CTCP *:VERSION:*:{ ctcpreply $nick VERSION iKick $SVersion founded by Sara } ON *:LOAD:{ .mnick $MainBot dialog -m OnStart OnStart } Raw *:*:{ if ($numeric == 319 && $($+(%,Whois.,$2),2)) { msg $($+(%,Whois.,$2),2) $logo(Whois) $c1($2) is on: $c1($3-) unset %Whois. [ $+ [ $2 ] ] } if ($numeric == 318 && $($+(%,Whois.,$2),2)) { msg $($+(%,Whois.,$2),2) $logo(Whois) $c1($2) is not connected to $c1($network) unset %Whois. [ $+ [ $2 ] ] } } ON *:DNS:{ if ($($+(%,DNS.,$DNS(1)),2)) { sockopen $+(IP.,$ticks,.,$nick) www.melissadata.com 80 sockmark $+(IP.,$ticks,.,$nick) $+($($+(%,DNS.,$DNS(1)),2),*,$DNS(1).ip) unset %DNS. [ $+ [ $DNS(1) ] ] } }