rendered paste bodyAlias 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 <Command> 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,/<dt><span class="newsdate">(.*)<\/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,/<dt><span class="newsdate">(.*)<\/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>"(.*)"<\/i>/)) {
%Display $Logo(KBase) No matches found for $QT($c1($2)) $Web(RuneScape.com)
unset %KBase. [ $+ [ %ID ] ] $+ *
sockclose $sockname
}
if ($regex(%Socket,/<p><b>(.*)<\/b>/)) {
set $+(%,KBase.,%ID,.Info) Results: $C1($regml(1)) $X
}
if ($regex(%Socket,/<a style="margin-left: 6px" href="(.*)">(.*)<\/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,/<td colspan="2">(.*)/)) {
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,/<h2>Search Results for: <strong>.*<b>(.*)<br><br><\/div>/)) {
%Display $logo(Slang) Term Found: $C1($HTMLFree($regml(1))) $Web(NoSlang.com)
sockclose $sockname
}
elseif ($regex(%Socket,/<h2>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 (<div id="factbox"> isin %Socket) {
sockread %Socket
%Display $Logo(Chuck Norris) $remove(%Socket,</div>,$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>(.*)<\/b> is not valid./)) {
%Display $Logo(IP) Invalid IP!
unset %IP. [ $+ [ %ID ] ]
sockclose $sockname
}
if ($regex(%Socket,/<tr><td align="right">(.*)<\/td><td><b>(.*)<\/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 (*<p>*</p>* 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 style="font-style: italic">(.*)<\/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,/<!-- Start Quantcast tag -->/)) {
%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 href="\/watch\?v=(.*)" title=".*">(.*)<\/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,/<div class="marT10">No Videos found for(.*)<\/div>/) || $regex(%Socket,/<!-- End ad tag -->/)) {
%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) ] ]
}
}