lotrol: locom.au3

File locom.au3, 4.2 KB (added by ew, 3 years ago)

locom script

Line 
1Local $names
2Local $command=0
3Global $status=0 ;
4Global $lobat
5Global $locip
6Global $locport
7; warte auf connection
8Local $loop=0;
9Global $statfile
10$statfile="c:\Public_html\status"
11$stat2 = FileOpen("c:\Public_html\status",2)
12FileWriteLine($stat2,"OK")
13FileWriteLine($stat2,'0')
14FileClose($stat2)
15
16
17$cfgfile=FileOpen("config.cfg",0)
18$lobat=FileReadLine($cfgfile,1)
19
20Func selmission($mission)
21; 2 misss
22MouseClick("left", 880, 568, 1)
23MouseClick("left", 880, 168, 1)
24Send("{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}{BS}")
25Send("{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}")
26Send($mission)
27Sleep(1000)
28Send("{ENTER}")
29MouseClick("left", 880, 168, 1)
30EndFunc
31
32Func sends()
33Send("s")
34Sleep(1000);ok
35EndFunc
36
37Func network()
38MouseClick("left", 36, 388, 1)
39Sleep(1000)
40;server
41MouseClick("left", 865, 250, 1)
42Sleep(1000);ok
43MouseClick("left", 960, 770, 1)
44Sleep(1000);ok
45EndFunc
46
47Func fly()
48MouseClick("left", 600, 90, 1)
49Sleep(2000)
50EndFunc
51
52
53Func exitit()
54Send("q")
55sleep(5000)
56#run("C:\Python25\python.exe D:\games\LockOn\scripts\autoit\postrun.py ","D:\games\LockOn\scripts\autoit\")
57EndFunc
58
59Func startserver()
60run("D:\games\LockOn\scripts\autoit\lockon.bat")
61Sleep(20000)
62AutoItSetOption("WinTitleMatchMode", 4)
63$handle = WinGetHandle("LOCK ON")
64EndFunc
65
66Func startsignal()
67;run("D:\games\LockOn\lockon.exe","D:\games\LockOn")
68AutoItSetOption("WinTitleMatchMode", 4)
69$handle = WinGetHandle("LOCK ON")
70Send("s")
71Sleep(1000)
72EndFunc
73
74
75Func endmission()
76AutoItSetOption("WinTitleMatchMode", 4)
77$handle = WinGetHandle("LOCK ON")
78;Sleep(1000)
79;Send("q")
80Sleep(1000)
81MouseClick("left", 100, 770, 2)
82Sleep(1000)
83EndFunc
84
85Func endnetlomac()
86;quit lomac
87MouseClick("left", 100, 770, 1)
88sleep(500)
89MouseMove(95, 60,24 )
90sleep(500)
91MouseDown("left")
92sleep(500)
93MouseMove(95,190,24)
94MouseUp("left")
95sleep(300)
96MouseDown("left")
97sleep(4000)
98run("C:\Python25\python.exe D:\games\LockOn\scripts\autoit\postrun.py ","D:\games\LockOn\scripts\autoit\")
99;Send("{ALTDOWN}x{ALTUP}")
100;MouseClick("left", 520, 350, 2)
101;run("D:\games\LockOn\backup.bat","D:\games\LockOn")
102EndFunc
103
104Func endlomac()
105Send("{ALTDOWN}")
106Sleep(1000)
107Send("x")
108Sleep(1000)
109Send("{ALTUP}")
110;quit lomac
111MouseClick("left", 420, 770, 2)
112MouseClick("left", 520, 350, 2)
113;run("D:\games\LockOn\backup.bat","D:\games\LockOn")
114EndFunc
115Func lockit()
116                $stat3 = FileOpen("c:\Public_html\status",2)
117                FileWriteLine($stat3,"Locked")
118                FileWriteLine($stat3,$status)
119                FileClose($stat3)
120EndFunc
121Func writestat()
122                $stat2 = FileOpen("c:\Public_html\status",2)
123                FileWriteLine($stat2,"OK")
124                FileWriteLine($stat2,$status)
125                FileClose($stat2)
126EndFunc
127
128
129while $loop == 0
130        AutoItSetOption("WinTitleMatchMode", 4)
131        $handle = WinGetHandle("LOCK ON")
132        $stat = FileOpen($statfile,0)
133        $recv=FileReadLine($stat,1)
134        FileClose($stat)
135        $cmd=StringLeft($recv,1) ; fuehrendes zeichen
136        if $cmd="s"  and $status = 0 Then
137                $status=1
138                lockit()
139                startserver()
140                Sleep(20000)
141                writestat()
142        EndIf
143        ; start network
144        if $cmd="n" Then
145                $status=2
146                network()
147                Sleep(2000)
148                writestat()
149        EndIf
150        if $cmd="m" Then
151                $status=3
152                $len=StringLen($recv)
153                $len=$len - 1
154                $fname=StringRight($recv,$len)
155                selmission($fname)
156                Sleep(2000)
157                writestat()
158        EndIf
159        if $cmd="f" Then
160                $status=4
161                fly()
162                Sleep(20000)
163                writestat()
164        EndIf
165        ;runall loese waiting for server
166        if $cmd="i" Then
167                $status=5
168                sends()
169                Sleep(2000)
170                writestat()
171        EndIf
172        ; quit running mission
173                if $cmd="q" Then
174                $status=6
175                exitit()
176                Sleep(2000)
177                writestat()
178        EndIf
179        if $cmd="z" Then
180        $status=1
181        endnetlomac()
182        Sleep(2000)
183        writestat()
184        EndIf
185        if $cmd="E" Then
186        $status=0
187        endlomac()
188        Sleep(2000)
189        writestat()
190        EndIf
191; select Mission
192        if $cmd="l" Then
193                $status=9
194                $loop= 1
195                $stat1 = FileOpen("c:\Public_html\status",2)
196                Sleep(2000)
197                writestat()
198                Exit
199        EndIf
200        if $cmd="e" Then
201                $status=8
202                endmission()
203                Sleep(2000)
204                writestat($status)
205        EndIf
206        sleep(2000)
207WEnd