Giving a random number

[Vindicator209]

Is it possible to have a script type 7 random numbers on note pad, or present them in a msg box?

if so, how?

please and thank you

[Kickassjoe]

yes... it is... here you go.

Hotkeyset("{insert}", "makemerandoms")

While 1
sleep(1000)
WEnd

Func makemerandoms()
$randomnumb1 = Random(0,9,1)
$randomnumb2 = Random(0,9,1)
$randomnumb3 = Random(0,9,1)
$randomnumb4 = Random(0,9,1)
$randomnumb5 = Random(0,9,1)
$randomnumb6 = Random(0,9,1)
$randomnumb7 = Random(0,9,1)
$randomnumb8 = Random(0,9,1)
$randomnumb9 = Random(0,9,1)

Msgbox(0, "Randomnumbmaker by kickassjoe", "Randomnumbs:  " & $randomnumb1 & $randomnumb2 & _
$randomnumb3 & $randomnumb4 & $randomnumb5 & $randomnumb6 & $randomnumb7 & $randomnumb8 & _
$randomnumb9)
EndFunc

I dont no if thats what you were looking for... but I tried..

P.S. I really should have told you to look in the help file... but im bored.

EDIT: lmao it made a smilie face and made error in expression lmao! fixed i think

EDIT2: oops nvm i just forgot an "&" in there somewhere... sorry

Edited August 22, 2006 by Kickassjoe

[Vindicator209]

oh thanks! i didnt know random was an actual function, when i typed R in scythe, nothing came up so i though maybe it wasnt a real commmane, although this script worked better without the funtion and the wile loop.. misplaced perhaps?

thanks so much!

[Kickassjoe]

making a while loop (idling) is the only way i know of to set a hotkey and then have it not exit the program right away... and this way if you need more than 1 random number all you have to do is press insert again...

[Paulie]

A shorter version of the above code

Hotkeyset("{insert}", "makemerandoms")

While 1
sleep(1000)
WEnd

Func makemerandoms()
For $Int = 1 to 9
$randomnum[$Int] = Random(0,9,1)

Msgbox(0, "Randomnumbmaker by kickassjoe", "Randomnumbs:  " & $randomnum[1] & $randomnum[2] & _
$randomnum[3] & $randomnum[4] & $randomnum[5] & $randomnum[6] & $randomnum[7] & $randomnum[8] & _
$randomnum[9])
EndFunc

[Xenobiologist]

Hi,

or

HotKeySet("{insert}", "makemerandoms")
Dim $out = ""
While 1
    Sleep(1000)
WEnd
Func makemerandoms()
    For $i = 1 To 9
        $out = $out & Random(0, 9, 1)
    Next
    MsgBox(0, "Randomnumbmaker :", "Randomnumbs:  " & $out)
EndFunc   ;==>makemerandoms

So long,

Mega