NC/Acro ( Fixed )

[anmlhckr]

on *:start:{ setacros }
alias setacros {
hadd -m hacro mirc 2m4iR8C
hadd hacro tyt take your time
hadd hacro idsf Malhereusement je ne parle pas Francais
hadd hacro idsp Eu nمo falo Português porque sou um cromo
hadd hacro enuff enough
hadd hacro plz please
hadd hacro yw You're Welcome
hadd hacro shit crap
hadd hacro cunt cnut
hadd hacro idss lo siento, no hablo espaٌol
hadd hacro dasq Don't ask stupid questions
hadd hacro cba Can't Be Bothered
hadd hacro idsn Beklager, men jeg snakker ikke norsk
hadd hacro d/l download
hadd hacro d/ling downloading
hadd hacro gl Good Luck
hadd hacro wd Well Done
hadd hacro tbh to be honest
hadd hacro np No Problem
hadd hacro nm Never Mind
hadd hacro lol Laughing Out Loud
hadd hacro brb Be Right Back
hadd hacro wb Welcome Back
hadd hacro bbiab Be Back In a Bit
hadd hacro ty Thank You
hadd hacro bbs Be Back Soon
hadd hacro bbl Be Back Later
hadd hacro rtfm Read The F**k*ng Manual
hadd hacro otp On The Phone
hadd hacro gtg Got To Go
hadd hacro tnx thanks
hadd hacro lmao Laughing My Ass Off
hadd hacro rofl Rolling On The Floor Laughing
hadd hacro rotfl Rolling On The Floor Laughing
hadd hacro roflmao Rolling on the Floor Laughing My Ass Off
hadd hacro rotflma Rolling on the Floor Laughing My Ass Off
hadd hacro wtg Way To Go
hadd hacro nn Night Night
hadd hacro cya see ya
hadd hacro btw by the way
hadd hacro coz because
hadd hacro bcoz because
hadd hacro imo in my opinion
hadd hacro afaik as far as I know
hadd hacro afaic as far as I'm concerned
hadd hacro tho though
hadd hacro thru through
hadd hacro ppl people
hadd hacro b4 before
hadd hacro atm at the moment
hadd hacro w8 wait
Echo -a Acros Set
}

alias hacro {
if ($1 == 0) || ($1 > $hget(hacro,0).item) { return }
return $hget(hacro,$1).item - $hget(hacro,$1).data : echo -a m00 | echo -a $?="Change acro for $hget(hacro,$1).item to? REMOVE to delete" | $iif($1 === REMOVE,hdel hacro $hget(hacro,$1).item,$iif($!,hadd hacro $hget(hacro,$1).item $!))
}

;menu Channel {
; Acros
; .Modify
; .Remove
; ..$submenu($hacro($1))
; .Add
;}

on *:input:*:{
if (%splonoff == ON) && (!$ctrlenter) && ($1 != $null) {
if ($readini($mircini,text,commandchar) != $left($1,1)) {
set -u4 %z $replace($1-,$chr(42),$chr(1))
set -u4 %x 1
:loop
if (%x <= $numtok(%z,32)) {
set -u4 %y $gettok(%z,%x,32)
if ($right(%y,1) isin $+($chr(33),$chr(63),$chr(44),$chr(39),$chr(46))) {
set -u4 %y $left(%y,-1) | set -u1 %punc $asc($ifmatch) }
if ($right(%y,2) == 's) {
set -u4 %y $left(%y,-2) | set -u1 %punc $asc($ifmatch) }
if ($len(%y) < 2) { inc %x | goto loop }
if (%y ison $active) || ($active == %y) && ($isalias(colours)) {
;var %y = $nick(#,%y).pnick
; var %loop = $findtok(%z,%y,0,32)
; while (%loop) { set -u2 %z $reptok(%z,%y,$colours(%y),%loop,32) | dec %loop }a
set -u2 %z $replace(%z,%y,$iif(#,$iif(%y ison #,$colours($nick(#,%y).pnick),$colours(%y)),$colou rs(%y)))
set -u4 %z $reptok(%z,$+(%y,$chr(%punc)),$+($chr(2),%splcolni ck,$chr(2),$chr(%punc)),1,32) }
elseif ($hmatch(hacro,%y,1) != $null) {
set -u4 %z $reptok(%z,$+(%y,$chr(%punc)),$+($hget(hacro,%y),$ chr(%punc)),1,32) }
inc %x | var %punc = "" | goto loop }
if (($active ischan) && (c isin $chan(#).mode)) || (*.org iswm #) { set -u1 %z $strip(%z,c) }
msg $active $replace(%z,$chr(1),$chr(42),fuck,fk)
halt
}
}
}



menu menubar,channel {
Acro/NC
.%OnText1 On %Ontext2 : .set %OffText1 $null | .set %OffText2 $null | .set %OnText1 > | .set %OnText2 < | set %splonoff on | setacros
.%OffText1 Off %Offtext2 : .set %OnText1 $null | .set %OnText2 $null | .set %OffText1 > | .set %OffText2 < | set %splonoff off | hfree hacro
}
; Thanks `Zombie` :-)

alias colours {
set %ranlist 03.10.12.07.12
var %a1 = 2,%f1 = $replace($1-,$chr(32),$chr(160)),%b1 = $+($chr(3),$gettok(%ranlist,$r(1,5),46),$left(%f1, 1),$chr(15))
while (%a1 < $len(%f1)) { if ($mid(%f1,%a1,1) isin aeiou) {
var %b1 = %b1 $+ $chr(31) $+ $mid(%f1,%a1,1) $+ $chr(15) }
else { var %b1 = %b1 $+ $mid(%f1,%a1,1) }
inc %a1 }
var %b1 = $+(%b1,$chr(3),$gettok(%ranlist,$r(1,5),46),$right (%f1,1),$chr(15))
return $replace(%b1,$chr(160),$chr(32)) }

alias ru { var %a = 1, %b = $r(1,$len($1-)),%c | while (%a <= $len($1-)) { if (%a != %b) { %c = %c $+ $mid($1,%a,1) } | else { %c = %c $+ $chr(31) $+ $mid($1,%a,1) $+ $chr(31) } | inc %a } | return %c }

alias nc2 { var %x = $rand(1,$calc($len($1) -1)),%y = $rand($calc(%x +1),$len($1)) | var %z $len($1) | var %a $rand(1,$len($1)) | return 04 $+ $left($1,%a) $+ 07 $+ $right($1,$calc(0 - %a)) $+  }

[anmlhckr]

FUCK ! :s i just wrote it on mIRC and then i post it here didnt work check : http://www.nomorepasting.com/paste.p...ms=1&Seen=TRUE <-- i paste the remote there, and thanks zack for your comments.