on *:TEXT:!setgreet*:#: { 
  set %greet [ $+ [ $nick ] ] $2- 
  notice $nick Your greet message has been set to: $2- 
} 

on *:TEXT:!delgreet*:#: { 
  unset %greet [ $+ [ $nick ] ] 
  notice $nick Your greet has been deleted 
} 

on *:JOIN:#: { 
  if (%greet [ $+ [ $nick ] ]) msg $chan [ $+ 7 $nick  $+ ]: %greet [ $+ [ $nick ] ] 
  else notice $nick You dont have a greet type !setgreet -greet- to set one 
} 
-------------------------------------------------------------------
on *:TEXT:!sethop*:#: {
  if ($nick !isop #) && ($nick !ishop #) { notice $nick Only halfop's can set the hopping allowance for $chan $+ . }
  elseif ($nick isop #) || ($nick ishop #) && ($2 !isnum) { 
    notice $nick Please choose a number for the amount of timer a user can hop in 1 minute.
  }
  elseif ($nick isop #) || ($nick ishop #) && ($2 isnum) {
    if ($2 == 0) {
      set %hop.mode [ $+ [ $chan ] ] off
      msg $chan { Hop protection for $chan has been disabled. }
    }
    elseif ($2 > 0) {
      set %hop.mode [ $+ [ $chan ] ] on
      set %hop.allowance [ $+ [ $chan ] ] $2
      msg $chan { 7 The hopping allowance for $chan has been set to $2 hop/s per user. }
    }
  }
  else { 
    notice $nick Unknown error. Please make sure you have followed the syntax; !sethop <number>. Remember you need to be a halfop or an op to use !sethop.
  }
}

on *:TEXT:!setban*:#: {
  if (%hop.mode [ $+ [ $chan ] ] == off) { 
    notice $nick 7 Hop protection for $chan has been disabled. A ban length will not be set.
    halt
  }
  elseif (%hop.mode [ $+ [ $chan ] ] == on) && ($nick isop #) || ($nick ishop #) && ($2 !isnum) { 
    notice $nick Please chose a number (In seconds) to hold a ban on a banned user for hop protection.
  }
  elseif (%hop.mode [ $+ [ $chan ] ] == on) && ($nick isop #) || ($nick ishop #) && ($2 isnum) {
    set %ban.timer $2
    msg $chan 7The amount of time a user will remain banned on $chan for hopping is $2 seconds.
  }
}

on *:PART:#: {
  if (%hop.mode [ $+ [ $chan ] ] == off) { halt }
  elseif (%hop.mode [ $+ [ $chan ] ] == on) && (%hop.allowance [ $+ [ $chan ] ] == %hop.check [ $+ [ $nick ] ]) {
    ban $+(-,ku,$calc(%ban.timer * 1)) $chan $nick Hop protection for $chan is on. You are only allowed to hop %hop.allowance [ $+ [ $chan ] ] time/s per 60 seconds.
    halt
  }
  elseif (%hop.mode [ $+ [ $chan ] ] == on) && (%hop.check [ $+ [ $nick ] ] == $null) {
    set %hop.check [ $+ [ $nick ] ] 0
    inc %hop.check [ $+ [ $nick ] ]
    timerunset $+ $nick $+ $chan 1 60 unset %hop.check [ $+ [ $nick ] ]
  }
  elseif (%hop.mode [ $+ [ $chan ] ] == on) && (hop.check [ $+ [ $nick ] ] != %hop.mode [ $+ [ $chan ] ]) {
    inc %hop.check [ $+ [ $nick ] ]
  }
}
--------------------------------------


on $*:TEXT:/^[!@]calc */Si:#:{
  $iif($left($1-,1) == @,.msg $chan,.notice $nick) 4[7Calculator4]7 $2- 12= 4 $bytes($calc($remove($replace($2-,k,*1000,m,*1000000,b,*1000000000,x,*,pi,3.141592)$2-,$chr(44),$chr(32))) ,bd) 
}