NC/Acros

[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)) $+  }

[ZAcK]

LooooooooooooooooooooooooooooooooooooooooooooooL
Serious! U forgot like 236549325 commands!
1st u need to use hmake, to create a hash table (with some switches to set size and so on, example: hmake acro 10) then hload a file (hload sys\htables\acro.htb)! The way you are using it, u r making a hash table for each individual acro! And no matter what is the excuse; using hash tables that way is a disgrace to scripting! Even if the user might be facing a problem creating a file and getting mirc to load it! This is why this section of the forum was created! You can get the script to create a file and load it! And when ever the script starts, it can check if the file exists or not! If not create again and if exist load! You can even make a simple alias to get the users to add to the list! And of course, you will have to use hsave on exit so the mirc saves the hash table, just in case the user added to it!

And by the way; it doesn’t work! I kept getting errors, even in a clean mirc.exe with no add-ons.

PHP Code:

[01:03] <ZAcK> take your time$ chr(%punc)
[01:03] <ZAcK> Malhereusement je ne parle pas Francais$ chr(%punc)


Kept on getting: $ chr(%punc), added to the end of each acro when ever I used any of them.

An advice: stop flaming everyone in this section!

[anmlhckr]

U r right zack, but Hash table is already existed !

[Cult]

anmlhckr looser

[Cult]

at least test u`r shit before posting it!

[ZAcK]

The main idea of hash tables is not to use INI files and TXT files, as they are slower and limited in size as the larger the file is the longer it takes to access and so on. Hash tables can hold all the files in any INI file or TXT file, so would I load 21476237468562 hash tables in the memory? Why should I load each line in a separate table, while I can load all the info I want in one hash table? I dont know about I wouldn’t be using hash tables this way.

If anyone is interested I have a good hash table tutorial, message me and I will be more than happy to share it.

[anmlhckr]

Cult, i aint loose idiot, i can send ya the same REMOTE and see that its working fine, but what zack is right, its giving an error when you paste it from here thats why i added another one with a link on WWW.NOMOREPASTING.com
For Zack, Helpdesk's helpers have all the tutorial, and am @'d in there so i have thanks anyone but its ok if you wanna send it to me, i aint got prbs dude, and the hash tables are fine, and as u said i load each line in one Htable..

[anmlhckr]

Check this : http://www.nomorepasting.com/paste....ums=1&Seen=TRUE

[ZAcK]

Originally Posted by mIRC help file

/hmake -s [name] [N]
Creates a new hash table with N slots.
A hash table can store an unlimited number of items regardless of the N you choose, however the bigger N is, the faster it will work, depending on the number of items stored.
eg. if you expect that you'll be storing 1000 items in the table, a table of N set to 100 is quite sufficient.

I would say if you are opped Helpdesk, while you dont know how to use hash tables, then you do NOT deserve to be oped there. BUT how would I know, I am just another new IRC user that likes to show off, you can ask around, everyone will tell you that.
This is the last post I'll be posting as a reply to any of your posts.

OVER AND OUT.

[anmlhckr]

Heh Zack, I don't care if you post for me or not, i know my scripts and my ADD-ONS so check that site i posted here days ago, and tell me if you see any Error ! And if u dont wanna Believe, dont ! Its not gonna make much sence if u do or not, get lost dude.

[Cult]

anmlhckr end the fight.. and let`s keep what we were doing before. posting files that can help users. and if there`s something wrong.. we can solve it in a polite way.. *I THINK*