ON *:JOIN:#:{ 
  if ($readini(greets.ini,$address($nick,2),GREET)) { /MSG $Chan $+([,$nick,]) : $readini(greets.ini,$address($nick,2),GREET) } 
} 

on $*:text:/^[!@.]setgreet*/Si:#: { 
  if (!$2) { .notice $nick Specify A Greet Message. | halt } 
  else { 
    if (privmsg isin $2-) { halt } 
    if (nickserv isin $2-) { halt } 
    if (ns isin $2-) { halt } 
    if (password isin $2-) { halt } 
    if (*lf isin $1-) { halt } 
    writeini greets.ini $address($nick,2) GREET $2- 
    notice $nick Your new greet has been set to: $2- $+ 
    Halt 
  } 
} 

alias col1 { return $+( $1-,12) } 
alias col2 { return $+( $1-,12) } 

on $*:TEXT:/^[!@.]clan */Si:#:{ 
  if (!$2) { 
    notice $nick *** [ $+ $col1(Clan)]: $col2(You must supply a name) 
    halt 
  } 
  elseif $2 == zezima || $2 == n0valyfe { 
    notice $nick *** [$+ $col1(Clan)]: $col2(You are not aloud to do that) 
  } 
  else { 
    set %clan.name $replace($2- ,$chr(32),+) 
    set %clan.style $iif($left($1,1) == @,msg $chan,.notice $nick) 
    sockopen clan.socket runehead.com 80 
  } 
} 
on *:SOCKOPEN:clan.socket:{ 
  sockwrite -n $sockname GET /clans/search.php?search= $+ %clan.name $+ &searchtype=exact 
  sockwrite -n $sockname Host: $+(www.runehead.com,$crlf,$crlf)    
} 
on *:SOCKREAD:clan.socket:{ 
  if ($sockerr) { 
    %clan.style *** [ $+ $col1(Clan)]: $col2(Error while connecting) 
    sockclose $sockname 
    halt 
  } 
  else { 
    var %tmp 
    sockread %tmp 

    if $regex(results,%tmp,/<p>No results were found for the <b>exact</b> search <b>(.*)</b/) { 
      %clan.style *** [ $+ $col1(Clan)]: $col2(%clan.name) $col1(is not in any clans on) $col2(RuneHead) 
      halt 
      sockclose $sockname 
    } 
    elseif $regex(results,%tmp,/<p>The <b>exact<\/b> search <b>(.*)<\/b> returned <b>(\d+)/) { 
      %clan.style *** [ $+ $col1(Clan)]: $col2($regml(results,2)) $col1(result(s) were found for) $col2(%clan.name) 
    } 
    if $regex(clan,%tmp,/<td style='width:90px; border-color:#404040;'><a href='(.*)'>(.*)</a></td>/) {  
      %clan.style *** [ $+ $col1(Clan)]: $col2(%clan.name) $col1(is in clan:) $col2($regml(clan,2)) $col1(() $+ $col2($+(http://runehead.com/clans/,$regml(clan,1))) $+ $col1()) 
    } 
    if </html> iswm %tmp { 
      sockclose $sockname 
    } 
  } 
} 
on *:SOCKCLOSE:clan.*:{ 
  unset %clan.* 
  halt 
}

on *:text:!runehq:#: { notice $nick http://www.runehq.com/index.php }

on *:text:!rsc:#: { notice $nick http://www.runescapecommunity.com/index.php?# }

on *:text:!runescape:#: { notice $nick http://www.runescape.com/ }

on *:text:!tipit:#: { notice $nick http://tip.it/runescape/ }

on *:text:!wiki:#: { notice $nick http://www.wikipedia.org/ }

on *:text:!dp:#: { notice $nick http://z14.invisionfree.com/destined_pures/index.php? }

on *:text:!zybez:#: { notice $nick http://www.zybez.net/ }

on *:text:!dpstats:#: { notice $nick http://www.runehead.com/clans/ml.php?clan=abiotic }

on *:text:!runehead:#: { notice $nick http://www.runehead.com/ }

on *:text:@runehq:#: { msg $chan http://www.runehq.com/index.php }

on *:text:@rsc:#: { msg $chan http://www.runescapecommunity.com/index.php?# }

on *:text:@runescape:#: { msg $chan http://www.runescape.com/ }

on *:text:@tipit:#: { msg $chan http://tip.it/runescape/ }

on *:text:@wiki:#: { msg $chan http://www.wikipedia.org/ }

on *:text:@dp:#: { msg $chan http://z14.invisionfree.com/destined_pures/index.php? }

on *:text:@zybez:#: { msg $chan http://www.zybez.net/ }

on *:text:@dpstats:#: { msg $chan http://www.runehead.com/clans/ml.php?clan=abiotic }

on *:text:@runehead:#: { msg $chan http://www.runehead.com/ }

on *:text:!web:#: { msg $chan http://www.pestybot.draynor.net }

on *:text:@web:#: { msg $chan The Last Pures - 12www.thelastpures.tk }

on *:text:!tlp:#: { notice $nick The Last Pures - 12www.thelastpures.tk }

;;Sara`'s script:
on *:TEXT:!ircstats*:#:{
  if (!$2) {
    var %nm = $nick
  }
  else {
    var %nm = $2
  }
  if (!$read(ircstats.txt,w,%nm *)) {
    notice $nick Sorry, $nick $+ , but I do not have any stats info for %nm $+ . Try another name, maybe?
  }
  else {
    var %line = $gettok($read(ircstats.txt,w,%nm *),2-,32)
    tokenize 32 %line
    msg $chan 14,1[3,1IRC Stats for  $+ %nm $+ 14,1] [3,1Lines of text: $iif($1,$1,0) $+ 14,1] [3,1Actions: $iif($2,$2,0) $+ 14,1] [3,1Total Words: $iif($7,$7,0) $+ 14,1] [3,1Users kicked: $iif($3,$3,0) $+ 14,1] [3,1Times kicked out: $iif($4,$4,0) $+ 14,1] [3,1Users Banned: $iif($5,$5,0) $+ 14,1] [3,1Times Banned: $iif($6,$6,0) $+ 14,1]
  }
}
on *:TEXT:*:#:{
  var %line = $gettok($read(ircstats.txt,w,$nick *),2-,32), %words = $numtok($1-,32)
  tokenize 32 %line
  if (!$read(ircstats.txt,w,$nick *)) {
    write ircstats.txt $nick 1 0 0 0 0 0 %words
  }
  else {
    write -dw" $+ $nick *" ircstats.txt
    write ircstats.txt $nick $calc($1 + 1) $2-6 $calc($7 + %words)
  }
}
on *:ACTION:*:#:{
  var %line = $gettok($read(ircstats.txt,w,$nick *),2-,32), %words = $numtok($1-,32)
  tokenize 32 %line
  if (!$read(ircstats.txt,w,$nick *)) {
    write ircstats.txt $nick 0 1 0 0 0 0 %words
  }
  else {
    write -dw" $+ $nick *" ircstats.txt
    write ircstats.txt $nick $1 $calc($2 + 1) $3-6 $calc($7 + %words)
  }
}
on *:KICK:#:{
  var %line = $gettok($read(ircstats.txt,w,$nick *),2-,32)
  tokenize 32 %line
  if (!$read(ircstats.txt,w,$nick *)) {
    write ircstats.txt $nick 0 0 1 0 0 0 0
  }
  else {
    write -dw" $+ $nick *" ircstats.txt
    write ircstats.txt $nick $1-2 $calc($3 + 1) $4-
  }
  %line = $gettok($read(ircstats.txt,w,$knick *),2-,32)
  tokenize 32 %line
  if (!$read(ircstats.txt,w,$knick *)) {
    write ircstats.txt $knick 0 0 0 1 0 0 0
  }
  else {
    write -dw" $+ $knick *" ircstats.txt
    write ircstats.txt $knick $1-3 $calc($4 + 1) $5-
  }
}
on *:BAN:#:{
  var %line = $gettok($read(ircstats.txt,w,$nick *),2-,32)
  tokenize 32 %line
  if (!$read(ircstats.txt,w,$nick *)) {
    write ircstats.txt $nick 0 0 0 0 1 0 0
  }
  else {
    write -dw" $+ $nick *" ircstats.txt
    write ircstats.txt $nick $1-4 $calc($5 + 1) $6-
  }
  var %i = 1
  while ($nick($chan,%i)) {
    if ($banmask iswm $address($nick($chan,%i),5)) {
      %line = $gettok($read(ircstats.txt,w,$nick($chan,%i) *),2-,32)
      tokenize 32 %line
      if (!$read(ircstats.txt,w,$nick($chan,%i) *)) {
        write ircstats.txt $nick($chan,%i) 0 0 0 0 0 1 0
      }
      else {
        write -dw" $+ $nick($chan,%i) *" ircstats.txt
        write ircstats.txt $nick($chan,%i) $1-5 $calc($6 + 1) $7-
      }
    }
    inc %i
  }
}
on *:NICK:{
  var %line = $gettok($read(ircstats.txt,w,$nick *),2-,32)
  tokenize 32 %line
  if (!$read(ircstats.txt,w,$nick *)) {
    write ircstats.txt $newnick 0 0 0 0 0 0 0
  }
  else {
    write -dw" $+ $nick *" ircstats.txt
    write ircstats.txt $newnick $1-
  }
}

on *:TEXT:!calc *:#:{
  /notice $nick  [Calc]  $2- = $calc($2-)
}
on *:TEXT:@calc *:#:{
  /msg $chan [Calc]  $2- = $calc($2-)
}