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, )
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) ]
}
}
}