Random text on key press Topic is solved

[fona]

Dear friends,
I would like to get some random text on key press but this code below doesn't work for some reason.

Code: Select all

Var1 := "Hello"
Var2 := "{Hi|hallo} i want to talk with you"
Var3 := "{Hallooo|Hey} I am availible"
Var4 := "Greetings"
Var5 := "Bla bla"

F1::
  Random, OutputVar , 1, 5
  Sendraw % Var%OutputVar%
Return

[Mod edit: Moved to AHK v1 help, based on posted code.]

[swagfag]

looks like valid v1 code
...and invalid v2 code

[Rohwedder]

Hallo,
try:

Code: Select all

Var1 := "Hello"
Var2 := "{Hi|hallo|hallo you} i want to {talk with|kill} you"
Var3 := "{Hallooo|Hey} I am availible {now|later|never}"
Var4 := "Greetings"
Var5 := "Bla bla"
F1::
Random, OutputVar, 1, 5
Text := Var%OutputVar%
While, RegExMatch(Text, "{([^}]+)}", EitherOr)
{
	EitherOr2 := StrSplit(EitherOr1, "|")
	Random, No, 1, EitherOr2.MaxIndex()
	Text := StrReplace(Text, EitherOr, EitherOr2[No])
}
Send % Text "`n"
Return

[fona]

Hallo,
try:

Code: Select all

Var1 := "Hello"
Var2 := "{Hi|hallo|hallo you} i want to {talk with|kill} you"
Var3 := "{Hallooo|Hey} I am availible {now|later|never}"
Var4 := "Greetings"
Var5 := "Bla bla"
F1::
Random, OutputVar, 1, 5
Text := Var%OutputVar%
While, RegExMatch(Text, "{([^}]+)}", EitherOr)
{
	EitherOr2 := StrSplit(EitherOr1, "|")
	Random, No, 1, EitherOr2.MaxIndex()
	Text := StrReplace(Text, EitherOr, EitherOr2[No])
}
Send % Text "`n"
Return

Doesn't work

[cat dog fox war]

Your original code, I tested in Notepad is no problem.
Do you expect to output to a special window?
Such as game/administrator privilege window/cmd, etc.

[Rohwedder]

Then perhaps slower?:

Code: Select all

#SingleInstance, Force
; If !A_IsAdmin
	; Try Run *RunAs "%A_ScriptFullPath%"
Var1 := "Hello"
Var2 := "{Hi|hallo|hallo you} i want to {talk with|kill} you"
Var3 := "{Hallooo|Hey} I am availible {now|later|never}"
Var4 := "Greetings"
Var5 := "Bla bla"
F1::
Random, OutputVar, 1, 5
Text := Var%OutputVar%
While, RegExMatch(Text, "{([^}]+)}", EitherOr)
{
	EitherOr2 := StrSplit(EitherOr1, "|")
	Random, No, 1, EitherOr2.MaxIndex()
	Text := StrReplace(Text, EitherOr, EitherOr2[No],, 1)
}
Loop, Parse, Text
	RandomSendInput(A_LoopField)
SendInput, `n
Return
RandomSendInput(Char, TMin:=30, TMax:=80)
{ ; Mainly by TheBeginner https://www.autohotkey.com/boards/viewtopic.php?f=13&t=90974
    val := DllCall("VkKeyScanA", "char", asc(Char)), low := val & 0xFF, high := val >> 8
	, shift := high & 1, ctrl := high & 2 != 0, alt := high & 4 != 0    
    SendInput,% (shift?"{LShift down}":"") (ctrl?"{LCtrl down}":"") (alt?"{RAlt down}":"")
    SendInput,% (vk:="{vk" Format("{:x}", low)) " Down}"
	Random, Sleep, TMin, TMax
	Sleep, Sleep
    SendInput,% vk " Up}" (shift?"{LShift up}":"") (ctrl?"{LCtrl up}":"") (alt?"{RAlt up}":"")
	Random, Sleep, TMin, TMax
	Sleep, Sleep
}

[fona]

Then perhaps slower?:

Code: Select all

#SingleInstance, Force
; If !A_IsAdmin
	; Try Run *RunAs "%A_ScriptFullPath%"
Var1 := "Hello"
Var2 := "{Hi|hallo|hallo you} i want to {talk with|kill} you"
Var3 := "{Hallooo|Hey} I am availible {now|later|never}"
Var4 := "Greetings"
Var5 := "Bla bla"
F1::
Random, OutputVar, 1, 5
Text := Var%OutputVar%
While, RegExMatch(Text, "{([^}]+)}", EitherOr)
{
	EitherOr2 := StrSplit(EitherOr1, "|")
	Random, No, 1, EitherOr2.MaxIndex()
	Text := StrReplace(Text, EitherOr, EitherOr2[No],, 1)
}
Loop, Parse, Text
	RandomSendInput(A_LoopField)
SendInput, `n
Return
RandomSendInput(Char, TMin:=30, TMax:=80)
{ ; Mainly by TheBeginner https://www.autohotkey.com/boards/viewtopic.php?f=13&t=90974
    val := DllCall("VkKeyScanA", "char", asc(Char)), low := val & 0xFF, high := val >> 8
	, shift := high & 1, ctrl := high & 2 != 0, alt := high & 4 != 0    
    SendInput,% (shift?"{LShift down}":"") (ctrl?"{LCtrl down}":"") (alt?"{RAlt down}":"")
    SendInput,% (vk:="{vk" Format("{:x}", low)) " Down}"
	Random, Sleep, TMin, TMax
	Sleep, Sleep
    SendInput,% vk " Up}" (shift?"{LShift up}":"") (ctrl?"{LCtrl up}":"") (alt?"{RAlt up}":"")
	Random, Sleep, TMin, TMax
	Sleep, Sleep
}

Thank you so much Rohwedder