(*
Trainstation bot by flum
Have problems or questions feel free to contact me on teamspeak 3 Address: flum.aionallstars.com:11807
-Functions
Send your trains out every 10 minutes + goes to docking to click on the trains.
Delete flags for you. Keeps track and logs the amount of trains it dispatches.
Keeps tracks of errors, able to reconnect if ur internet connection restarts.
Makes screenshots of ur materials + exp bar.
-Requirements
Screen resolution 1366 768
Chrome or Firefox.
The 1 click passenger and cargo upgrade for ur station.
Basic knowledge about AC tool scripting
-Run notes
Start the script first, then within 5 sec open trainstation fullscreen.
-Config notes
If u set constants delflag 0 to anything else it will start to delete the amount of flags from the giftbox.
Change internation 0 if u dont want to send int trains.
0.2 send trains every 10 min
0.3 minor bug fixes
0.4 added del flag function
0.5 changed flag function for easy use
0.6 send int function added
0.7 click dockin station implemented
0.8 color check implemented for better check
0.9 changed mouse cord. for int trains
1.0 code clean up
1.1 error logger
1.2 train send tracker
1.3 screenshot material/exp
1.4 reconnecter
*)
constants
send = 10
bar = 1
delflag = 0
train = 0
run = 0
dock = 0
date = 0
time = 0
reason = 0
trigger = 0
main = 1
end
constructs
File1=File
File2=File
File3=File
end
call setup
call main
procedure main //Clicks on all the trains on the main screen
call flag
while $main = 1
compute trigger = $trigger + 1 //set trigger timer
compute run = $run + 1
MousePos 1251, 650
call cc
MousePos 1250, 639
call cc
MousePos 1250, 630
call cc
MousePos 1250, 619
call cc
MousePos 1250, 605
call cc
MousePos 1251, 592
call cc
MousePos 1251, 592
call cc
call errorlog
call dock
if $time > 3600000 //every hour make a screenshot of your materials and exp bar
call screenexp
call screenmaterial
call log
SetConst time = 0
SetConst train = 0
SetConst dock = 0
end
end
end
procedure flag //If deflag set, delete $deflag number
if $delflag > 0
set main = 0
MousePos 71, 717
call click
MousePos 807, 238
call click
loop $delflag
MousePos 387, 420
call click
MousePos 734, 492
call click
end
else
end
end
procedure dock //If dock is avaiable go there and click on the trains
LoadRGB 212, 69
if {RGBGreen} > 129
compute dock = $dock + 1
MousePos 212, 69
call click
delay 2 sec
compute time = $time + 2000
MousePos 1252, 667
call click
MousePos 1250, 656
call click
MousePos 1250, 646
call click
MousePos 1249, 636
call click
MousePos 1249, 625
call click
MousePos 1249, 616
call click
MousePos 1250, 609
call click
MousePos 30, 715
call click
delay 2 sec
compute time = $time + 2000
else
//Timestamp DOK load screen not found Red {RGBRed} Blue {RGBblue} Green {RGBGreen}
end
end
procedure getcolor //checks if the train clicked from main is a "dispatchable train" if yes dispatch it
delay 1 sec
compute time = $time + 1000
LoadRGB 339, 143
if {RGBGreen} = 247
compute train = $train + 1
CASE $send
when 6
MousePos 547, 421
when 10
MousePos 758, 419
if $trigger > 2
FormatDateTime date = {now}, m/d/yy h-n //If train is dispatched bot it still active
FileOpen File3, C: rain\a_active.txt
FileAppend File3
FileWrite File3, A
FileClose File3
setconst trigger = 0
end
else
end
call click
else
end
end
procedure screenmaterial //Makes a screenshot of your material
FormatDateTime date = {now}, m.d.yy h.n
MousePos 1319, 70
call click
SaveScreen C: rain\screens\material\$date .bmp
MousePos 590, 641
call click
end
procedure screenexp //Makes a screenshot of your exp bar
FormatDateTime date = {now}, m.d.yy h.n
MousePos 774, 76
delay 500
compute time = $time + 500
SaveScreen C: rain\screens\exp\$date .bmp
delay 500
compute time = $time + 500
end
procedure errorlog //Checks if there is any errors going on + handling them.
LoadRGB 634, 350
FormatDateTime date = {now}, m/d/yy h:n
case {RGBGreen}
when 173
setconst reason = normal
when 160
setconst reason = normal
when 28
setconst reason = normal
when 254
setconst reason = disconnect
when 236
setconst reason = lvlup
when 8
setconst reason = achievment
else
setconst reason = undefined
end
if $reason = normal
else
FileOpen File2, C: rain\a_errorlog.txt //Logs any error
FileAppend File2
FileWrite File2, $date $reason Red {RGBRed} Blue {RGBblue} Green {RGBGreen}
FileClose File2
end
if $reason = achievment
MousePos 568, 582
call click
end
if $reason = disconnect
call reconnect
end
if $reason = lvlup
MousePos 568, 639
call click
end
end
procedure reconnect //Reconnects
keys {esc}
delay 2 sec
compute time = $time + 2000
if $bar = 1
MousePos 537, 621
call click
else
MousePos 551, 663
call click
end
delay 10 sec
compute time = $time + 10000
call setup
delay 5 sec
compute time = $time + 5000
end
procedure setup //Sets trainstation full screen
if $bar = 1
MousePos 1079, 331
call click
else
MousePos 1081, 373
call click
end
MousePos 780, 363
call click
MousePos 244, 717
call click
MousePos 541, 398
call click
delay 2 sec
compute time = $time + 2000
MousePos 31, 735
call click
delay 2 sec
compute time = $time + 2000
end
procedure log //Keeps track on every train u dispatch, + amount of times it went to docks
FormatDateTime date = {now}, m/d/yy h:n
FileOpen File1, C: rain\a_trainlog.txt
FileAppend File1
FileWrite File1, $date - train: $train - dock: $dock - run: $run
FileClose File1
end
procedure cc
call click
call getcolor
end
procedure click
leftclick
delay 500
compute time = $time + 500
end
