I use this one:
alias hpbar {
if ($1 == 100) { return 09,09.........0110009,09....... | halt }
tokenize 32 $iif($len($1) == 1,0 $+ $1,$1)
var %green = $ceil($calc($1 / 100 * 20))
var %red = $calc(20 - %green)
var %x = 1
var %re = 09,09
while (%x <= 20) {
if (%x == $calc(%green + 1)) { var %re = %re $+ 04,04 }
if (%x == 10) { var %re = %re $+ 01 $+ $left($1,1) }
if (%x == 11) { var %re = %re $+ 01 $+ $right($1,1) }
if (%x == 11) { vaR %re = %re $+ $+ $iif($+(04,$chr(44),04) isin %re,04 $+ $chr(44) $+ 04,09 $+ $chr(44) $+ 09) }
if (%x != 10) && (%x != 11) var %re = %re $+ .
inc %x
}
return $regsubex(%re,(01)0(01\d04),\14.4\2) $+
}
Us this:
on *:text:*:#thedarkknight:{
if ($1- == !add) { msg $chan 2 add some1 2 your hop,aop, or sop type this /msg chanserv aop #roomname add username }
if ($1- == !pi) { msg $chan Your pissing off the ops I wouldn't do that if I was u becuz you will be kicked and/or banned }
if ($1- == !po) { msg $chan No politics is allowed in my room becuz it causes problems }
if ($1- == !gr) { msg $chan 2 set a greeting 4 your nick type this /ns set greet your greeting goes here }
if ($1- == !wa) { msg $chan No sharing files and/or movies is NOT ALLOWED }
} }
Hmm, Don't use only "on TEXT"
on *:text:*:#: {
if (1- == !xmas) {
msg $chan 4M3E4R3R4Y
msg $chan 3C4H3R4I3S4T3M4A3S4!3! }
}
else {
if ( 1- == !easter) {
msg $chan 5H6A13P9P4Y __()()
msg $chan ________(o.o)
msg $chan 3E4A12S10T9E7R13! (( . ))
}
else {
if (1- == !halleween) { msg $chan 7,1 HAPPY HALLOWEEN! Trick or Treat! }
}
else {
if (1- == !birthday) { msg $chan 12H3A4P5P7Y 13B6I9R8T14H2D11A10Y12 $2- 4! 9! 7! }
}
else {
if (1- == !newyear) { msg $chan 4,1*\o/* 13*\o/* 8HAPPY NEW YEAR! 7*\o/* 12*\o/* }
} }
U can add too: If u want that other players can see too why ur banded:
on *:TEXT:!infoban*:?:{
if !$hget($2) {
.msg $nick $2 is not banned! | halt
}
else {
msg $nick ----------Ban Information----------
msg $nick [User: $+($hget($2,user),])
msg $nick [Channel: $+($hget($2,channel),])
msg $nick [Bannedby: $+($hget($2,bannedby),])
msg $nick [Reason: $+($hget($2,reason),])
msg $nick [Issue: $+($hget($2,issue),])
msg $nick ----------Ban Information----------
halt
}
}