mIRC Home    About    Download    Register    News    Help

Print Thread
Page 2 of 2 1 2
#86738 13/06/04 06:46 PM
Joined: Jun 2004
Posts: 33
X
Xidus Offline OP
Ameglian cow
OP Offline
Ameglian cow
X
Joined: Jun 2004
Posts: 33
wow people here are so nice laugh

#86739 13/06/04 06:56 PM
Joined: Jun 2004
Posts: 33
X
Xidus Offline OP
Ameglian cow
OP Offline
Ameglian cow
X
Joined: Jun 2004
Posts: 33
Code:
on *:text:*:#:{ write words.txt $* } 
alias randword { 
  tokenize 32 $read($1,n,$r(1,$lines($1))) 
  return $eval($ $+ $r(1,$0),2)
}
on *:TEXT:*:#: { 
  write words.txt $*
  if $me isin $1- {
    var %i = 1, %result 
    while %i <= 5 { 
      %result = %result $randword(words.txt) 
      inc %i 
    } 
    msg $chan %result
  }
}
  

not working :P when i say b0rk2 ( the guys name ) he doesn't do anyhting

#86740 13/06/04 06:58 PM
Joined: Nov 2003
Posts: 2,327
T
Hoopy frood
Offline
Hoopy frood
T
Joined: Nov 2003
Posts: 2,327
You do not need this line: on *:text:*:#:{ write words.txt $* }, that line also breaks the script, you only need alias randword { and everything below it.


New username: hixxy
#86741 13/06/04 07:04 PM
Joined: Jun 2004
Posts: 33
X
Xidus Offline OP
Ameglian cow
OP Offline
Ameglian cow
X
Joined: Jun 2004
Posts: 33
wahoo its all working now laugh is there a way to make him ignore certain things? ? ?

Last edited by Xidus; 13/06/04 07:15 PM.
#86742 13/06/04 07:25 PM
Joined: Jun 2004
Posts: 33
X
Xidus Offline OP
Ameglian cow
OP Offline
Ameglian cow
X
Joined: Jun 2004
Posts: 33
any ideas?

#86743 13/06/04 07:32 PM
Joined: Nov 2003
Posts: 2,327
T
Hoopy frood
Offline
Hoopy frood
T
Joined: Nov 2003
Posts: 2,327
If you mean to ignore certain words in the file, then this should work:

alias randword {
tokenize 32 $read($1,n,$r(1,$lines($1)))
var %result = $eval($ $+ $r(1,$0),2)
if $0 > 1 {
while $istok(word1 word2 word3 word4 word5 word6 etc,%result,32) { %result = $eval($ $+ $r(1,$0),2) }
}
return %result
}


New username: hixxy
Page 2 of 2 1 2

Link Copied to Clipboard