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