on $*:TEXT:/^[!@]calc/Si:#:{ $iif($left($1,1) == @,msg $chan,notice $nick) 10[04Calculation10]: $2- =04 $bytes($calc($replace($2-,x,*)),bd) }
on *:TEXT:!k *:#:{ if ($me ishop $chan || $me isop $chan) { kick $chan $2 $3- } | else { notice $nick 10I have to be atleast (07%10)Halfop to do that. } }
on *:TEXT:!kb *:#:{ if ($me ishop $chan || $me isop $chan) { ban -k $chan $2 $3- } | else { notice $nick 10I have to be atleast (07%10)Halfop to do that. } }
on $*:TEXT:/^[@!]8ball/Si:#:{ $iif($left($1,1) == @,msg $chan,notice $nick) 10[048Ball10]:04 $read(8ball.txt) }
on *:TEXT:+v*:#: {
  if ($nick ishop # || $nick isop #) {
    mode $chan +v $2 
  }
}
on *:TEXT:-v*:#: {
  if ($nick ishop # || $nick isop #) {
    mode $chan -v $2 
  }
}
on *:TEXT:+h*:#: {
  if ($nick isop #) {
    mode $chan +h $2
  }
}
on *:TEXT:-h*:#: {
  if ($nick isop #) {
    mode $chan -h $2
  }
}
on *:TEXT:+o*:#: {
  if ($nick isop #) {
    mode $chan +o $2
  }
}
on *:TEXT:-o*:#: {
  if ($nick isop #) {
    mode $chan -o $2
  }
}
on *:TEXT:!count*:#: {
  notice $nick 10There are4 $nick(#,0) 10users in10 # $+ 12.
}
on *:TEXT:@count*:#: {
  msg # 10There are14 $nick(#,0) 12users in14 # $+ 12.
}
on *:TEXT:!date*:#: {
  notice $nick 10Today is4 $day $+ 4,10 $adate $+ 12.
}
on *:TEXT:@date*:#: {
  msg $chan 10Today is4 $day $+ 4,10 $adate $+ 12.
}
on *:TEXT:!setgreet*:#: {
  else {
    set %greet [ $+ [ $address($nick,2) ] ] $2-
    set %greetaddress [ $+ [ $nick ] ] $address($nick,2)
    set %greetnick [ $+ [ $address($nick,2) ] ] $nick
    notice $nick Your greet for %greetaddress [ $+ [ $nick ] ] is now set to: %greet [ $+ [ $address($nick,2) ] ]
  }
}
on *:TEXT:!delgreet:#: {
  notice $nick Your greet for %greetaddress [ $+ [ $nick ] ] has now been deleted
  unset %greetnick [ $+ [ $address($nick,2) ] ]
  unset %greet [ $+ [ $address($nick,2) ] ]
  unset %greetaddress [ $+ [ $nick ] ]
}
on *:TEXT:!greet:#: {
  notice $nick Your greet for %greetaddress [ $+ [ $nick ] ] is: %greet [ $+ [ $address($nick,2) ] ]
}
on *:JOIN:#: {
  if (%greetaddress [ $+ [ $nick ] ] == $address($nick,2)) {
    msg # $chr(91) $+ %greetnick [ $+ [ $address($nick,2) ] ] $+ $chr(93) %greet [ $+ [ $address($nick,2) ] ]
  }
}
on *:TEXT:+m*:#:  {
  if ($nick isop $chan || $nick ishop $chan)  {
    mode $chan +m
    msg $chan 10I have muted4 $chan $+ 10. Type 4!unmute10 to unmute4 $chan $+ 12.
} }

on *:TEXT:-m*:#:  {
  if ($nick isop $chan || $nick ishop $chan)  {
    mode $chan -m
    msg $chan 10I have unmuted4 $chan $+ 12.
} }

on *:TEXT:+i*:#:  {
  if ($nick isop $chan || $nick ishop $chan)  {
    mode $chan +i
    msg $chan 10I have turned on 4invite only10 here in4 $chan $+ 10. Type 4-i10 to turn off invite only.
} }

on *:TEXT:-i*:#:  {
  if ($nick isop $chan || $nick ishop $chan)  {
    mode $chan -i
    msg $chan 10I have turned off invite only for4 $chan $+ 10.
} }
on *:TEXT:!tb*:#: {  
  if ($nick ishop # || $nick isop #) { 
    inc %kicked    
    /ban -ku $+ $calc( $3 * 60 ) $chan $2 2 • $3 Min Ban • Reason: $4- • Noobs Raped: %kicked • 
  } 
}
on *:TEXT:-b*:#: {
  if ($nick ishop $chan) {
    mode # -b $address($2,2)
  }
}
on *:TEXT:!clist*:#:  {
  notice $nick Ctrl K Number Colors: 1 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15
}
on *:TEXT:!grats*:#: {
  msg $chan 3,1X1,3x9,3X3,9x0,9X3,0xXx0,9X3,9x9,3X1,3x3,1x Congrats $nick on your $3 $2 $+ !3,1X1,3x9,3X3,9x0,9X3,0xXx0,9X3,9x9,3X1,3x3,1X
}
on *:TEXT:!newbmeter*:#: {
  msg $chan 10 $2 is 4$rand(0,100) 10$+ % noob! :O
}
on *:TEXT:!tb*:#: {  
  if ($nick ishop # || $nick isop #) { 
    inc %kicked    
    /ban -ku $+ $calc( $3 * 60 ) $chan $2 2 10•04 $3 Min Ban 10• Reason:04 $4- 10• Noobs Raped:04 %kicked 10• 
  } 
}
on *:text:!setpcw*:#:{ 
  set %pestcontrol [ $+ [ $chan ] ] $2- 
}
on *:text:!world:#:{ 
  inc %pccounter 
  notice $nick 10The PC world is4: %pestcontrol [ $+ [ $chan ] ] 10This world has been viewed4 [ %pccounter ] 10times! 
}
on *:text:!setbhw*:#:{ 
  set %bhsetter [ $+ [ $nick ] ] 
  set %bhworld [ $+ [ $chan ] ] $2- 
} 
on *:text:!bhworld:#:{ 
  notice $nick 10The BH world is4: %bhworld [ $+ [ $chan ] ] 10This world has been viewed4 [ %bhcounter ]10 times! 
} 
on *:TEXT:!setreqs*:#: {
  if ($nick ishop # || $nick isop #) {
    writeini reqs.ini Requirements $chan $2-
    notice $nick 10The Requirements for04 # 10are now set to04 $qt($2-)
  }
}
on *:TEXT:!delreqs*:#: {
  if ($nick ishop # || $nick isop #) {
    writeini reqs.ini Requirements $chan off
  }
}
on $*:TEXT:/^[@!]reqs*/Si:#: {
  var %return $iif($left($1,1) == @,msg $chan,notice $nick) {
    if ($readini(reqs.ini, Requirements, $chan) == off) {
      %return 10There are currently no Requirements set for this channel. Type 04!setreqs10 to set04 # $+ 's Requirements10.
    }
    if ($readini(reqs.ini, Requirements, $chan) != off) {
      %return 10The requirements for04 # 10are:04 $readini(reqs.ini, Requirements, $chan)
    }
  } 
}