Random Typing

[Jasio]

I was curious.. is it possible to give the program 5 different things to say .. IE: Hi, hey, hello, whats up

And have it pick one randomly, and type it..

Thanks,

Jasio

[cdkid]

sure...

dim $words[4]
$words[0] = "hi"
$words[1] = "hey"
$words[2] = "what's up"
$words[3] = "hello"

$var = Random(0, 3, 1)
send($words[$var])

when this is run it will send the keys "hi", "hey", "what's up", or "hello"

somethin like that?

~cdkid

-edit

type-o

Edited February 14, 2006 by cdkid

[Jasio]

That seems like it would work, question though, will it run forever?

Also, i dont want it to random when run, i want it to random every 30 seconds..

Edited February 14, 2006 by Jasio

[cdkid]

umm well

dim $words[4]
$words[0] = "hi"
$words[1] = "hey"
$words[2] = "what's up"
$words[3] = "hello"

While 1
sleep(30 * 1000)
$var = Random(0, 3, 1)
send($words[$var])
WEnd

that'll run for ever and every thirty seconds it will send a one of the messages

--i think

~cdkid

[Jasio]

Ok, one more question.

How do i have it do something after each message was said..

so ive said "hey hello hi whats up"

now i want to "do this" and repeat the hey whats up hello hi.. randomly

[cdkid]

umm let's see if i can take a stab at what ur tryin to do

dim $words[2]
$words[0] = "hi"
$words[1] = "hey"

While 1
$rnd = Random(0, 1, 1)
select
case $0s = 0 AND $rnd = 0
$0s = 1
send($words[0])
case $1s = 0 AND $rnd = 1
$1s = 1
send($words[1])
endselect
if $0s = 1 AND $1s = 1 then
;DO STUFF HERE
$0s = 0
$1s = 0
endif
sleep(100)
WEnd

hope this helps

~cdkid

WEnd

Edited February 15, 2006 by cdkid

[Jasio]

i really.. didnt understand that.. mind if i PM you the code and you set it up? =/

Thanks,

Jasio

[cdkid]

i spose.