I have a problem, I have made a custom user welcome message, but the problem is that I get an error ping pong in the status window. I am posting that here, please edit it and re post. Thanks.....
on *:text:!wc *:# {
if ($read(banwc.txt,w,* $+ $address($nick,1) $+ *)) {
msg $nick You have been banned from using this service!
halt
}
elseif ($len($2-) > 100) {
msg # Please cut short ur wc msg $nick . Its too long
halt
}
;var %caps.letters = $calc($len($2-) + 1 - $len($removecs(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
;var %caps = $calc($len($2-) - $len($removecs($2-,($2-),A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
;var %caps.percent = $round($calc(%caps / %caps.letters * 100),0)
;elseif ((%caps.percent > 30) {
;msg # Please don't use so many Capital letters in ur wc msn $nick
;halt
;}
else {
set %fnm $mid($address($nick,1),4,9)
/write %fnm $2-
msg # Yor welcome message has been added $nick
}
}
on *:text:!delwc:# {
set %delfile $mid($address($nick,1),4,9)
/remove -b %delfile
msg # Yor welcome messages have been deleted
}
on *:text:!replace *:# {
set %delfileL $mid($address($nick,1),4,9)
set %lastline $lines(%delfile)
/write -l $+ %lastline %delfileL $2-
msg # Yor last stored welcome msg has been replaced $nick
}
