| 1 |
simple Autoit script:
|
1 |
simple Autoit script:
|
| 2 |
\n
|
2 |
\n
|
| 3 |
#include [openingBracket]File.au3[closingBracket]
|
3 |
#include [openingBracket]File.au3[closingBracket]
|
| 4 |
\n
|
4 |
\n
|
| 5 |
Func _stop()
|
5 |
Func _stop()
|
| 6 |
Beep(440, 500)
|
6 |
Beep(440, 500)
|
| 7 |
Sleep(200)
|
7 |
Sleep(200)
|
| 8 |
Exit
|
8 |
Exit
|
| 9 |
EndFunc ;==>_stop
|
9 |
EndFunc ;==>_stop
|
| 10 |
HotKeySet("{ESC}", "_stop")
|
10 |
HotKeySet("{ESC}", "_stop")
|
| 11 |
\n
|
11 |
\n
|
| 12 |
$counter = 0
|
12 |
$counter = 0
|
| 13 |
\n
|
13 |
\n
|
| 14 |
Func _do()
|
14 |
Func _do()
|
| 15 |
Beep(440, 500)
|
15 |
Beep(440, 500)
|
| 16 |
$str = ClipGet()
|
16 |
$str = ClipGet()
|
| 17 |
$index = 0
|
17 |
$index = 0
|
| 18 |
$file = "words.txt"
|
18 |
$file = "words.txt"
|
| 19 |
FileOpen($file, 0)
|
19 |
FileOpen($file, 0)
|
| 20 |
$str = StringReplace($str," ","")
|
20 |
$str = StringReplace($str," ","")
|
| 21 |
$res = ""
|
21 |
$res = ""
|
| 22 |
$sent = false
|
22 |
$sent = false
|
| 23 |
For $ii = 1 to _FileCountLines($file)
|
23 |
For $ii = 1 to _FileCountLines($file)
|
| 24 |
$line = FileReadLine($file, $ii)
|
24 |
$line = FileReadLine($file, $ii)
|
| 25 |
if StringLeft($line,1) = $str Then
|
25 |
if StringLeft($line,1) = $str Then
|
| 26 |
$res = $line
|
26 |
$res = $line
|
| 27 |
if ($index = $counter) then
|
27 |
if ($index = $counter) then
|
| 28 |
Send($res & "{Enter}")
|
28 |
Send($res & "{Enter}")
|
| 29 |
$sent = true
|
29 |
$sent = true
|
| 30 |
endif
|
30 |
endif
|
| 31 |
$index = $index + 1
|
31 |
$index = $index + 1
|
| 32 |
endif
|
32 |
endif
|
| 33 |
\n
|
33 |
\n
|
| 34 |
Next
|
34 |
Next
|
| 35 |
if ($sent) Then
|
35 |
if ($sent) Then
|
| 36 |
$counter = $counter + 1
|
36 |
$counter = $counter + 1
|
| 37 |
Else
|
37 |
Else
|
| 38 |
$counter = 0
|
38 |
$counter = 0
|
| 39 |
EndIf
|
39 |
EndIf
|
| 40 |
FileClose($file)
|
40 |
FileClose($file)
|
| 41 |
\n
|
41 |
\n
|
| 42 |
EndFunc ;==>_stop
|
42 |
EndFunc ;==>_stop
|
| 43 |
HotKeySet("{F4}", "_do")
|
43 |
HotKeySet("{F4}", "_do")
|
| 44 |
\n
|
44 |
\n
|
| 45 |
Func _do2()
|
45 |
Func _do2()
|
| 46 |
Beep(440, 500)
|
46 |
Beep(440, 500)
|
| 47 |
$str = ClipGet()
|
47 |
$str = ClipGet()
|
| 48 |
$index = 0
|
48 |
$index = 0
|
| 49 |
$file = "words.txt"
|
49 |
$file = "words.txt"
|
| 50 |
FileOpen($file, 0)
|
50 |
FileOpen($file, 0)
|
| 51 |
$str = StringReplace($str," ","")
|
51 |
$str = StringReplace($str," ","")
|
| 52 |
$res = ""
|
52 |
$res = ""
|
| 53 |
$sent = false
|
53 |
$sent = false
|
| 54 |
For $ii = 1 to _FileCountLines($file)
|
54 |
For $ii = 1 to _FileCountLines($file)
|
| 55 |
$line = FileReadLine($file, $ii)
|
55 |
$line = FileReadLine($file, $ii)
|
| 56 |
if StringLeft($line,1) = $str Then
|
56 |
if StringLeft($line,1) = $str Then
|
| 57 |
$res = $line
|
57 |
$res = $line
|
| 58 |
Send($res & "{Enter}")
|
58 |
Send($res & "{Enter}")
|
| 59 |
$index = $index + 1
|
59 |
$index = $index + 1
|
| 60 |
endif
|
60 |
endif
|
| 61 |
\n
|
61 |
\n
|
| 62 |
Next
|
62 |
Next
|
| 63 |
if ($sent) Then
|
63 |
if ($sent) Then
|
| 64 |
$counter = $counter + 1
|
64 |
$counter = $counter + 1
|
| 65 |
Else
|
65 |
Else
|
| 66 |
$counter = 0
|
66 |
$counter = 0
|
| 67 |
EndIf
|
67 |
EndIf
|
| 68 |
FileClose($file)
|
68 |
FileClose($file)
|
| 69 |
\n
|
69 |
\n
|
| 70 |
EndFunc ;==>_stop
|
70 |
EndFunc ;==>_stop
|
| 71 |
HotKeySet("{F3}", "_do2")
|
71 |
HotKeySet("{F3}", "_do2")
|
| 72 |
Sleep(1000)
|
72 |
Sleep(1000)
|
| 73 |
$exit = False
|
73 |
$exit = False
|
| 74 |
$a = 0
|
74 |
$a = 0
|
| 75 |
$b = 1
|
75 |
$b = 1
|
| 76 |
\n
|
76 |
\n
|
| 77 |
for $i = 50000000 to 1 step -1
|
77 |
for $i = 50000000 to 1 step -1
|
| 78 |
;send($index & "{Enter}")
|
78 |
;send($index & "{Enter}")
|
| 79 |
\n
|
79 |
\n
|
| 80 |
Sleep(1000)
|
80 |
Sleep(1000)
|
| 81 |
next
|
81 |
next
|
| 82 |
\n
|
82 |
\n
|
| 83 |
this code is as dirty as possible..
|
83 |
this code is as dirty as possible..
|
| 84 |
words.txt contains all possible words
|
84 |
words.txt contains all possible words
|
| 85 |
here are some words: http://hastebin.com/oyefobanuk.pas
|
85 |
here are some words: http://hastebin.com/oyefobanuk.pas
|
| 86 |
select the starting char in zkl and then press f4 to try one name with that starting char or f3 to try all possible names with that starting char.
|
86 |
select the starting char in zkl and then press f4 to try one name with that starting char or f3 to try all possible names with that starting char.
|
| 87 |
\n
|
87 |
\n
|
| 88 |
Have fun beating Skasi
|
88 |
Have fun beating Skasi
|
| 89 |
\n
|
89 |
\n
|
| 90 |
And
@CarRepairer
-
it's
time
for
sth
new
like
hangman
|
90 |
And
@CarRepairer
-
looking
forward
to
sth
new
like
hangman
|
Lobby chat game ideas