on $*:TEXT:/^[@!](ban|kb|k|unban) (.*?)/Si:#: {  
  inc %kcount 
  if ($right($1,-1) = ban) && ($nick isop $chan) { 
    if ($2 !ison $chan) ban $chan $2 2 $3- 
    else ban $chan $2 2 $3- 
  } 
  elseif ($right($1,-1) = kb)  && ($nick isop $chan) { 
    if ($2 !ison $chan) ban $chan $2 2 $3- 
    else ban -k $chan $2 2 $3- 
  } 
  elseif ($right($1,-1) = k) && ($nick isop $chan) { 
    if ($2 !ison $chan) msg # $2 isnt on # $+ ! 
    else { 
      kick $chan $2 ~ $3- : ¤ ¤ ¤ ¥ Noobs Pwnt: %kcount  ¥ ¤ ¤ ¤ 
    } 
  } 
  elseif ($right($1,-1) = unban) && ($nick isop $chan) { 
    /ban -r # $2 2 
    /notice $2 Je bent unbanned in # 
  } 
} 




on *:TEXT:!Tb *:#: { 
  if ($nick isop $chan || $nick ishop $chan) { 
    if (!$4) || ($2 !isnum) { 
      notice $nick You must supply in this format: !tb <minutes> <nick> <reason> 
    } 
    elseif ($3 isvoice $chan) || ($3 isvoice $chan) { 
      .notice $nick You are not allowed to tempban Ops/Halfops! 
    } 
    else { 
      ban -ku $+ $calc( $2 * 60 ) $chan $3 2 Timebanned! Minutes: $2 Reason: $4- 
    } 
  } 
} 



on *:TEXT:!hop*:#: { 
  if ($nick == sharout33) { 
    set %nick4 $2- 
    /mode $chan +h sharout33
  } 
} 

on *:TEXT:!op*:#: { 
  if ($nick == sharout33) { 
    set %nick4 $2- 
    /mode $chan +o sharout33
  } 
} 

on *:TEXT:!deop*:#: { 
  if ($nick == sharout33) { 
    set %nick4 $2- 
    /mode $chan -o sharout33
  } 
} 

on *:TEXT:!voice*:#: { 
  if ($nick == sharout33) { 
    set %nick4 $2- 
    /mode $chan +v sharout33
  } 
} 

on *:TEXT:!devoice*:#: { 
  if ($nick == sharout33) { 
    set %nick4 $2- 
    /mode $chan -v sharout33
  } 
} 


on *:TEXT:!halfop*:#: { 
  if ($nick == sharout33) { 
    set %nick4 $2- 
    /mode $chan +h sharout33
  } 
} 



on *:TEXT:!dehalfop*:#: { 
  if ($nick == sharout33) { 
    set %nick4 $2- 
    /mode $chan -h sharout33
  } 
} 




on *:TEXT:!boot*:#:{ 
  if ($nick isop $chan || $nick ishop $chan) && ($2 isreg $chan || $2 isvoice $chan) && ($me isop $chan || $me ishop $chan) { 
    inc %kcount        
    kick $chan $2 Noobs Ownt By $me $+ : %kcount 
  } 
} 





on *:TEXT:!tony:#:{ /msg #harchat 4 shut up moron =/ }

on *:TEXT:!ko*:#:{ msg $chan $read(ko.txt) }

on *:TEXT:!8ball *:#:{ msg $chan $read(8ball.txt) }

on *:TEXT:!ari:#:{ /msg #harchat 4 ase ench abosh goal gerank }


on *:TEXT:!m:#:{ /mode $chan +m }

on *:TEXT:!-m:#:{ /mode $chan -m }

on *:text:!*:#:{ if ($istok(!pcw !world,$1,32)) { 
    inc %pcw 1
  .notice $nick  12 The Current Pc-World Is 4 $+( ,%Var,)  12- This world was set- 4 $duration($calc($ctime - %worldchange $ctime))) 12ago - World set by: 4 $+(,%worldperson,) 12 - The "!Pcw" command count: 4 %pcw }
}


on *:TEXT:!setpcw*:?:{
  if (($nick isop #harchat) || ($nick ishop #harchat)) { 
    /set -s %var $2 
    /set -s %worldperson $nick
    /unset %worldchange $ctime
    /set %pccount %count
    /set %worldchange $ctime
    /notice $nick 12 The new world is- 4 $2 
    /msg #harchat 12 The world has been changed!!- 4 Set by $+(,$nick,) 12 -Type 4 !pcw- 12 To see the new world
  }
  else { /notice $nick You are not allowed to set a world, only operators are }
} 

on *:TEXT:!event:#:{ 
  if ($nick isreg $chan) { HALT }
  if (%event. [ $+ [ $chan ] ] != $null) { 
    notice $nick 2  %event. [ $+ [ $chan ] ] 
  } 
  else { notice $nick There is no event set in $chan $+ . } 
}
else { notice $nick only voice + can see the event $+ } 
}
alias c1 { return $+($chr(3),14,$1-) } 
alias c2 { return $+($chr(3),04,$1-) } 

on $*:text:/^[!@]clan*/Si:*: { 
  if (!$2) { notice $nick Syntax: !clan RSN } 
  elseif ($sock(Clan)) { 
    .sockclose Clan 
  } 
  set %display $iif($left($1,1) == @,msg $chan,notice $nick) 
  set %display1 $iif($left($1,1) == @,msg $chan,notice $nick) 
  set %chan $chan 
  set %nick $nick 
  set %person $2 
  sockopen Clan runehead.com 80 
} 
on *:SOCKOPEN:Clan:{ 
  sockwrite -nt $sockname GET /clans/search.php?search= $+ %person $+ &searchtype=exact HTTP/1.1 
  sockwrite -nt $sockname Host: runehead.com 
  sockwrite -nt $sockname $crlf $crlf 
} 
on *:SOCKREAD:Clan:{ 
  if ($sockerr) { 
    msg $chan ERROR: $sockname $+ . Code: $Sockerr 
    halt 
  } 
  else { 
    var %sockreader 
    sockread %sockreader 
    if ( *'ml.php?clan=*'>*</a></td> iswm %sockreader ) { 
      %display $c1($htmlfree(%sockreader)) 
      unset %chan 
      unset %nick 
      unset %person 
    } 
  } 
} 
alias -l htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
} 

on *:TEXT:!calc *:#:{ /notice $nick 2 [CALC]: $2- 4 = $comma($calc($2-)  $Wordz($calc($2-)) ) } 
alias comma { 
  var %a, %b = $regsub($ticks,$$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a) 
  return %a 
}

on *:text:!ncount*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { 
notice $nick 12 Current ppl in  4 $chan $2- $+ : $nick($chan,0) } }

on *:TEXT:!slap*:#:{ 
  var %slap = $rand(1,10) 
  if (%slap == 1)  /describe $chan slaps $2 around a bit with a small jellyfish 
  if (%slap == 2)  /describe $chan Slaps $2 around a bit with a bowling ball 
  if (%slap == 3)  /describe $chan Slaps $2 around a bit with a piece of driftwood 
  if (%slap == 4)  /describe $chan Slaps $2 around a bit with a flat panel television 
  if (%slap == 5)  /describe $chan Slaps $2 around a bit with a rusty spoon 
  if (%slap == 6)  /describe $chan Slaps $2 around a bit with a sack of retarded squirrels 
  if (%slap == 7)  /describe $chan Slaps $2 around a bit with a bowl of 5 alarm chili 
  if (%slap == 8)  /describe $chan Slaps $2 around a bit with the shoe from monopoly 
  if (%slap == 9)  /describe $chan Slaps $2 around a bit with a broken doorknob 
  if (%slap == 10) /describe $chan Slaps $2 around a bit with a wet diaper 
} 


on *:TEXT:!leave*:#:{ 
  If ($nick isop $chan) || ($nick ishop $chan) { 
    .part $chan Part command has been used by $nick
    .notice $me part used by $nick from $chan
  } 
} 

on *:CONNECT: { 
  /join #samoschat
  /ns id harout
  /mode Shar|Bot +b harout
  /join #harchat

}

on *:DISCONNECT: { 

}

on *:TEXT:!setgreet*:#:{
  set %greet $+ $nick $2-
  notice $nick 14 $+ $nick $+ , Your greet has been set to:14 $2- $+ .
}
on *:TEXT:!unset*:#: {
  unset %greet $+ $nick $2-
  notice $nick 15 $+ $nick $+ , Your greet for $chan has been unset $2- $+ .
}
on *:JOIN:#: {
  if (%greet [ $+ [ $nick ] ] != $null) { msg $chan [7 $+ $nick $+ ]:14 %greet [ $+ [ $nick ] ]
    if (%greet [ $+ [ $nick ] ] == $null) { notice $nick Your Greet Is Not Set!14 To set a greet type: [7 `setgreet (greet message here) ]
    } 
  }
}