Trainstation bot

(*
Trainstation bot by flum (modified by Tenebrae and Nukli)

flum contact info: Have problems or questions feel free to contact me on teamspeak 3 Address: flum.aionallstars.com:11807
I believe that flum is not working on this trainstation bot anymore so i changed it a little bit and started to develop it after him.
to contact me use my Email address: [Only registered and activated users can see links. Click Here To Register...]

-Functions
Send your trains out every 6/10/30/1h/2h/3h 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.
Collect trains from your neighbours
Send IT trains to your friends
Collect gifts from your friends
Send gifts to your friends

(MUST BE CONFIGURED TO WORK PROPERRLY)
Send IT trains to your friends
Send gifts to your friends

-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.

<< Changelog >>
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
1.4.1 Minor fix issue for Chrome (by Nukli)
-Adjusting setup for The Train Station portal page
-Changes clicks for new achievements
-Added small pause after starting macro
-Different pathe for exported files
1.4.2 minor fix on reconnect (By Tenebrae)
updated position of trains on mainscreen
restart chrome every 5 hours to fix lag
1.4.3 added automatical support for 350gem event bar(By Tenebrae)
1.4.4 passengers set to 3 hours (By Tenebrae)
1.5 added script for IT trains (By Tenebrae)
1.6 added neighbour check trains (By Tenebrae)
1.7 added gift send / recieve (By Tenebrae)
1.8 modified connect procedure, now automatically setup your browser
1.9 code clean up, still testin phase, modified some of scripts (main), now should be working with any theme

-Config notes
If you want to use IT trains you have to set up you friends in custom tab this bot will send it trains only to your friends on !!!CUSTOM!!! tab !
For GIFTS bot will send gifts only to your friends under !!!GOLDEN STAR!!!
for working trainstation bot propperly you need to have your browser pinned on your taskbar like this [Only registered and activated users can see links. Click Here To Register...]
it means double start bar, with first pinned aplication your browser
*)

constants
// change to set up your train bot
send = 30 // sending local trains |6=6min|10=10min|30=30min|100=1hod|200=2hod|300=3h od| others not scripted yet
it = 1 // set to 0 if u dont want to send IT trains
achievshare = 1 // set to 0 if u dont want to share achiev
lvlshare = 1 // set to 0 if u dont want to share lvl up
neighbours = 1 // set to 0 if u dont want recieve trains gifts from neighbours
setupgetgifts = 1 // set to 0 if u dont want to recieve gifts automatically
setupsendgifts = 1 // set to 0 if u dont want to send gifts automatically
gift = 4 // whitch gift u want send? 1/2/3/4 ? first is left
//---------------------------------------------------------------------------------------------------------------------------------------------------------
// ----------------------------------------------------DO NOT CHANGE ANYTHING BELOW THIS LINE--------------------------------------------------------------
//---------------------------------------------------------------------------------------------------------------------------------------------------------
sendgifts = 1
getgifts = 1
delflag = 0
train = 0
run = 0
dock = 0
date = 0
time = 0
timer = 0
reason = 0
trigger = 0
dockcolor = 0
loadeddockcolor = 0
main = 1
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
constructs
File1=File
File2=File
File3=File
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
delay 3 sec
call connect
call main
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure main //Clicks on all the trains on the main screen
call flag
while $main = 1

if $neighbours = 1
call CheckNeighbours // check your neighbours for trains
else
end

if $setupgetgifts = 1
if $getgifts = 1
call GetGifts // collect gifts
else
end
else
end

if $setupsendgifts = 1
if $sendgifts = 1
call SendGifts // send gifts to your friends
else
end
else
end

if $it = 1
call CheckIT
else
end

call dispatchtrains
MousePos 212, 69
Call click
delay 2 sec
compute time = $time + 3000
compute timer = $timer + 3000
LoadRGB 30, 715
If {RGBred} = 99
Call dock
else
end

delay 1 sec
compute time = $time + 1000
compute timer = $timer + 1000

call errorlog

if $timer > 3600000
call reconnect
SetConst timer = 0
end
if $time > 3600000 //every hour make a screenshot of your materials and exp bar
call screenexp
call screenmaterial
call log
Setconst sendgifts = 1
Setconst getgifts = 1
SetConst time = 0
SetConst train = 0
SetConst dock = 0
end
end
end

//---------------------------------------------------------------------------------------------------------------------------------------------------------

procedure dispatchtrains

compute trigger = $trigger + 1 //set trigger timer
compute run = $run + 1

MousePos 841, 413 // teamviewer sponsoring
call click

MousePos 1100, 650
call clickshort
MousePos 1100, 650
call cc
MousePos 1100, 639
call clickshort
MousePos 1100, 639
call cc
MousePos 1100, 630
call clickshort
MousePos 1100, 630
call cc
MousePos 1100, 619
call clickshort
MousePos 1100, 619
call cc
MousePos 1100, 605
call clickshort
MousePos 1100, 605
call cc
MousePos 1100, 590
call clickshort
MousePos 1100, 590
call cc
MousePos 1100, 580
call clickshort
MousePos 1100, 580
call cc
MousePos 1100, 570
call clickshort
MousePos 1100, 570
call cc
MousePos 1100, 550
call clickshort
MousePos 1100, 550
call cc
MousePos 1100, 530
call clickshort
MousePos 1100, 530
call cc


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

compute dock = $dock + 1
delay 500
compute time = $time + 500
compute timer = $timer + 500

MousePos 1250, 667
call clickshort
MousePos 1250, 656
call clickshort
MousePos 1250, 646
call clickshort
MousePos 1250, 636
call clickshort
MousePos 1250, 625
call clickshort
MousePos 1250, 616
call clickshort
MousePos 1250, 609
call clickshort
MousePos 1250, 600
call clickshort
MousePos 1250, 590
call clickshort
MousePos 1250, 575
call clickshort
MousePos 1250, 560
call clickshort
MousePos 1250, 545
call clickshort
MousePos 1250, 530
call clickshort
MousePos 1250, 515
call clickshort
MousePos 1250, 500
call clickshort

MousePos 30, 715
call click
delay 2 sec
compute time = $time + 2000
compute timer = $timer + 2000
//Timestamp DOK load screen not found Red {RGBRed} Blue {RGBblue} Green {RGBGreen}
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure getcolor //checks if the train clicked from main is a "dispatchable train" if yes dispatch it
delay 200
compute time = $time + 200
compute timer = $timer + 200
LoadRGB 339, 143
if {RGBGreen} = 247
compute train = $train + 1
CASE $send
when 6
LoadRGB 978, 530 //trains with passengers send to 3 hours automatically
if {RGBRed} = 85
MousePos 547, 419
else
MousePos 969, 594
end
when 10
LoadRGB 978, 530 //trains with passengers send to 3 hours automatically
if {RGBRed} = 85
MousePos 758, 419
else
MousePos 969, 594
end
when 30
MousePos 969, 419
when 100
MousePos 547, 594
when 200
MousePos 758, 594
when 300
MousePos 969, 594
if $trigger > 2
FormatDateTime date = {now}, m/d/yy h-n //If train is dispatched bot it still active
FileOpen File3, D:\train\a_active.txt
FileAppend File3
FileWrite File3, $date $train
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 D:\train\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
compute timer = $timer + 500
SaveScreen D:\train\screens\exp\$date .bmp
delay 500
compute time = $time + 500
compute timer = $timer + 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 216
setconst reason = normal
when 159
setconst reason = normal
when 28
setconst reason = normal
when 50
setconst reason = normal
when 254
setconst reason = disconnect
when 103
setconst reason = lvlup
when 233
setconst reason = achievment
else
setconst reason = normal
end

if $reason = normal

else
FileOpen File2, D:\train\a_errorlog.txt //Logs any error
FileAppend File2
FileWrite File2, $date $reason Red {RGBRed} Blue {RGBblue} Green {RGBGreen}
FileClose File2
end

if $reason = achievment
if $achievshare = 0
MousePos 967, 204 //cancel achiev
call click
else
MousePos 685, 585 //share achiev
call click
end
end

if $reason = disconnect
call reconnect
end

if $reason = lvlup
if $lvlshare = 0
MousePos 970, 192 // cancel lvl up
Call click
else
MousePos 685, 585 // share lvl up
call click
end
end

end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure reconnect //Reconnects
keys {esc}
delay 2 sec
compute time = $time + 2000
compute timer = $timer + 2000
MousePos 1363, 2 //chrome end
call click

delay 10 sec
compute time = $time + 10000
compute timer = $timer + 10000
call connect
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure connect
MousePos 77, 730 //chrome start
call click
delay 10 sec
compute time = $time + 10000
compute timer = $timer + 10000

MousePos 320, 43 // select bar where you type hyperlink address
Call Click

keys http:
keys {keypad /}
keys {keypad /}
keys portal.pixelfederation.com
keys {keypad /}
keys trainstation
keys {keypad /}
keys ?lang=SK
keys {RETURN}

delay 20 sec
compute time = $time + 20000
compute timer = $timer + 20000

LoadRGB 648, 469 // if not logged, log in via facebook
if {RGBblue} = 157
Mousepos 648, 469
call click
delay 20 sec
compute time = $time + 20000
compute timer = $timer + 20000
else
end

Mousepos 1357, 320
Dragto 1357,105

call setup
delay 5 sec
compute time = $time + 5000
compute timer = $timer + 5000
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure setup //Sets trainstation full screen and decide if there is 350gem (event) bar or not
delay 5 sec
compute time = $time + 5000
compute timer = $timer + 5000
LoadRGB 1266, 246
if {RGBblue} = 255
MousePos 1076, 468
call click
else
LoadRGB 1266, 277
if {RGBblue} = 255
MousePos 1076, 497
call click
else 191
MousePos 1076, 528
call click
end
end
delay 1 sec
compute time = $time + 1000
compute timer = $timer + 1000
MousePos 780, 203
call click
delay 2 sec
compute time = $time + 2000
compute timer = $timer + 2000
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure checkIT
MousePos 90,70 //choose train on left top
call click
delay 1000
compute time = $time + 1000
compute timer = $timer + 1000
MousePos 430, 210
Call click // change tab to IT trains
delay 1000
compute time = $time + 1000
compute timer = $timer + 1000
LoadRGB 370, 325
if {RGBblue} = 140 // check if first it train is free
delay 1000
compute time = $time + 1000
compute timer = $timer + 1000
call sendIT //if is then send
else
MousePos 465, 635 // if not, cancel
call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
end
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure sendIT
MousePos 841, 413 // teamviewer sponsoring
call click
MousePos 370, 325
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 371, 325
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 372, 325
Call click //select train
delay 1000
compute time = $time + 1000
compute timer = $timer + 1000
MousePos 815, 635
Call click // send to friend
delay 5000
compute time = $time + 5000
compute timer = $timer + 5000
MousePos 620, 350
Call click //custom tab
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 520, 375
Call click // choose first 8 friends from custom tab, and then send to them
delay 500
compute time = $time + 500
compute timer = $timer + 500
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 800, 635
Call click // confirm train
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 800, 585
Call click // confirm order / passenger or material
Delay 500
compute time = $time + 500
compute timer = $timer + 500
Call checkIT
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure checkNeighbours
LoadRGB 1289, 733
if {RGBblue} = 204 // check if MB bill have trains
MousePos 1346, 745 //move to beggining of your friendlist
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call getTrains //check trains of your friends
else
end
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure getTrains

LoadRGB 1289, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1289, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 1. neighbour
LoadRGB 1226, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check či má sused voľné vlaky
MousePos 1226, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 2. neighbour
LoadRGB 1226, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1226, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 3. neighbour
LoadRGB 1163, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1163, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 4. neighbour
LoadRGB 1100, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1100, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 5. neighbour
LoadRGB 1037, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1037, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 6. neighbour
LoadRGB 974, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 974, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 7. neighbour
LoadRGB 911, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 911, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 8. neighbour
LoadRGB 848, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 848, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 9. neighbour
LoadRGB 785, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 785, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 10. neighbour
LoadRGB 722, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 722, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 11. neighbour
LoadRGB 659, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 659, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 12. neighbour
LoadRGB 596, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 596, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 13. neighbour
LoadRGB 533, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 533, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 14. neighbour
LoadRGB 470, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 470, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 15. neighbour
LoadRGB 407, 733
if {RGBblue} = 91
MousePos 30, 725
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 407, 733
Call Click
delay 30000
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
MousePos 380, 713 //posuň sa o stranu naspať
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Call GetTrains
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure NeighbourTrainClick //clicks on your neighbour trains

MousePos 684, 545 // abbandoned station
Call Click

Mousepos 1240, 670
Call ClickShort
Mousepos 1240, 670
Call ClickShort
Mousepos 1240, 650
Call ClickShort
Mousepos 1240, 630
Call ClickShort
Mousepos 1240, 610
Call ClickShort
Mousepos 1240, 590
Call ClickShort
Mousepos 1240, 570
Call ClickShort
Mousepos 1240, 550
Call ClickShort
Mousepos 1240, 530
Call ClickShort
Mousepos 1240, 510
Call ClickShort
Mousepos 1240, 490
Call ClickShort
Mousepos 1240, 470
Call ClickShort
Mousepos 1240, 450
Call ClickShort
Mousepos 1240, 430
Call ClickShort
Mousepos 1240, 410
Call ClickShort
Mousepos 1240, 390
Call ClickShort
Mousepos 1240, 370
Call ClickShort
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure GetGifts
MousePos 70, 730 //open gift tab
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 480, 175 //Collect gifts tab
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 410, 210 //collect all
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 1055, 110 // Close gift box
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Setconst getgifts = 0
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
Procedure SendGifts
MousePos 70, 730 //open gift tab
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 860, 175 // Send gifts Tab
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500

CASE $gift
when 1
MousePos 415, 245
Call click
when 2
MousePos 593, 245
Call click
when 3
MousePos 771, 245
Call click
when 4
MousePos 949, 245
Call click
end

Mousepos 658, 418 //golden star friends
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Mousepos 410, 625 // select all
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Mousepos 850, 625 //send gifts
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Mousepos 1055, 110 //close giftbox
Call click
SetConst sendgifts = 0
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, D:\train\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 400
compute time = $time + 400
compute timer = $timer + 400
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure ClickShort
leftclick
delay 100
compute time = $time + 100
compute timer = $timer + 100
end

(*
Trainstation bot by flum (modified by Tenebrae and Nukli)

flum contact info: Have problems or questions feel free to contact me on teamspeak 3 Address: flum.aionallstars.com:11807
I believe that flum is not working on this trainstation bot anymore so i changed it a little bit and started to develop it after him.
to contact me use my Email address: [Only registered and activated users can see links. Click Here To Register...]

-Functions
Send your trains out every 6/10/30/1h/2h/3h minutes + goes to docking to click on the trains.
Keeps tracks of errors, able to reconnect if ur internet connection restarts.
Makes screenshots of ur materials + exp bar.
Collect trains from your neighbours
Send IT trains to your friends
Collect gifts from your friends
Send gifts to your friends
(MUST BE CONFIGURED TO WORK PROPERRLY)
Send IT trains to your friends
Send gifts to your friends

-Requirements
Screen resolution 1920 * 1080 (FULL HD !)
Chrome or Firefox.
The 1 click passenger and cargo upgrade for ur station.
Basic knowledge about AC tool scripting
Windows basic (win98 theme) not aero or aero similar theme !
Your browser pinned as first aplication on your windows bar (it should open as a fullscreen)
your initial setup should looks like this : [Only registered and activated users can see links. Click Here To Register...]
On your C disk create three folders C:\train\material and C:\train\exp

-Run notes
Start the script first, then within 5 sec open trainstation fullscreen.

<< Changelog >>
0.2 send trains every 10 min
0.3 minor bug fixes
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
1.4.1 Minor fix issue for Chrome (by Nukli)
-Adjusting setup for The Train Station portal page
-Changes clicks for new achievements
-Added small pause after starting macro
-Different pathe for exported files
1.4.2 minor fix on reconnect (By Tenebrae)
updated position of trains on mainscreen
restart chrome every 5 hours to fix lag
1.4.3 added automatical support for 350gem event bar(By Tenebrae)
1.4.4 passengers set to 3 hours (By Tenebrae)
1.5 added script for IT trains (By Tenebrae)
1.6 added neighbour check trains (By Tenebrae)
1.7 added gift send / recieve (By Tenebrae)
1.8 modified connect procedure, now automatically setup your browser
1.9 code clean up, still testin phase, modified some of scripts (main), now should be working with any theme
1.9.1 logs modified
2.0 bot resolution changed to full hd (hd ready not more supported, use older version for hd ready resolution)
2.1 redesigned check it function, now it doesnt care how many it trains u have, it will send all


-Config notes
If you want to use IT trains you have to set up you friends in custom tab this bot will send it trains only to your friends on !!!CUSTOM!!! tab !
For GIFTS bot will send gifts only to your friends under !!!GOLDEN STAR!!!
for working trainstation bot propperly you need to have your browser pinned on your taskbar like this [Only registered and activated users can see links. Click Here To Register...]
it means double start bar, with first pinned aplication your browser
*)

constants
// change to set up your train bot
send = 30 // sending local trains |6=6min|10=10min|30=30min|100=1hod|200=2hod|300=3h od| others not scripted yet
it = 1 // set to 0 if u dont want to send IT trains
achievshare = 1 // set to 0 if u dont want to share achiev
lvlshare = 1 // set to 0 if u dont want to share lvl up
neighbours = 1 // set to 0 if u dont want recieve trains gifts from neighbours
setupgetgifts = 1 // set to 0 if u dont want to recieve gifts automatically
setupsendgifts = 1 // set to 0 if u dont want to send gifts automatically
gift = 3 // whitch gift u want send? 1/2/3/4 ? first is left
//---------------------------------------------------------------------------------------------------------------------------------------------------------
// ----------------------------------------------------DO NOT CHANGE ANYTHING BELOW THIS LINE--------------------------------------------------------------
//---------------------------------------------------------------------------------------------------------------------------------------------------------
sendgifts = 1
getgifts = 1
train = 0
run = 0
dock = 0
date = 0
time = 0
timer = 0
reason = 0
trigger = 0
dockcolor = 0
loadeddockcolor = 0
ittrainsent = 0
main = 1
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
constructs
File1=File
File2=File
File3=File
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
delay 3 sec
call connect
call main
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure main //Clicks on all the trains on the main screen
while $main = 1

if $neighbours = 1
call CheckNeighbours // check your neighbours for trains
else
end

if $setupgetgifts = 1
if $getgifts = 1
call GetGifts // collect gifts
else
end
else
end

if $setupsendgifts = 1
if $sendgifts = 1
call SendGifts // send gifts to your friends
else
end
else
end

if $it = 1
call preCheckIT
else
end

call dispatchtrains
//MousePos 212, 69
MousePos 212, 69
Call click
delay 2 sec
compute time = $time + 3000
compute timer = $timer + 3000
LoadRGB 30, 1027
If {RGBred} = 99
Call dock
else
end

delay 1 sec
compute time = $time + 1000
compute timer = $timer + 1000

call errorlog

if $timer > 3600000
call reconnect
SetConst timer = 0
end
if $time > 3600000 //every hour make a screenshot of your materials and exp bar
call screenexp
call screenmaterial
call log
Setconst sendgifts = 1
Setconst getgifts = 1
SetConst time = 0
SetConst train = 0
SetConst dock = 0
SetConst ittrainsent = 0
end
end
end

//---------------------------------------------------------------------------------------------------------------------------------------------------------

procedure dispatchtrains

compute trigger = $trigger + 1 //set trigger timer

// ?? MousePos 841, 413 // teamviewer sponsoring
// call click

MousePos 1715, 980
call clickshort
MousePos 1715, 980
call cc
MousePos 1715, 960
call clickshort
MousePos 1715, 960
call cc
MousePos 1715, 940
call clickshort
MousePos 1715, 940
call cc
MousePos 1715, 920
call clickshort
MousePos 1715, 920
call cc
MousePos 1715, 900
call clickshort
MousePos 1715, 900
call cc
MousePos 1715, 880
call clickshort
MousePos 1715, 880
call cc
MousePos 1715, 860
call clickshort
MousePos 1715, 860
call cc
MousePos 1715, 840
call clickshort
MousePos 1715, 840
call cc
MousePos 1715, 820
call clickshort
MousePos 1715, 820
call cc
MousePos 1715, 800
call clickshort
MousePos 1715, 800
call cc
MousePos 1715, 780
call clickshort
MousePos 1715, 780
call cc
MousePos 1715, 760
call clickshort
MousePos 1715, 760
call cc
MousePos 1715, 740
call clickshort
MousePos 1715, 740
call cc
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure dock //If dock is avaiable go there and click on the trains

compute dock = $dock + 1
delay 500
compute time = $time + 500
compute timer = $timer + 500

MousePos 1835, 975
call clickshort
MousePos 1835, 960
call clickshort
MousePos 1835, 945
call clickshort
MousePos 1835, 930
call clickshort
MousePos 1835, 915
call clickshort
MousePos 1835, 900
call clickshort
MousePos 1835, 885
call clickshort
MousePos 1835, 870
call clickshort
MousePos 1835, 855
call clickshort
MousePos 1835, 840
call clickshort
MousePos 1835, 825
call clickshort
MousePos 1835, 810
call clickshort

MousePos 30, 1027
call click
delay 2 sec
compute time = $time + 2000
compute timer = $timer + 2000
//Timestamp DOK load screen not found Red {RGBRed} Blue {RGBblue} Green {RGBGreen}
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure getcolor //checks if the train clicked from main is a "dispatchable train" if yes dispatch it
delay 200
compute time = $time + 200
compute timer = $timer + 200
LoadRGB 615, 300
if {RGBGreen} = 247
compute train = $train + 1
CASE $send
when 6
MousePos 820, 575
when 10
MousePos 1040, 575
when 30
MousePos 1260, 575
when 100
MousePos 820, 740
when 200
MousePos 1040, 740
when 300
MousePos 1260, 740
if $trigger > 2
FormatDateTime date = {now}, m/d/yy h-n //If train is dispatched bot it still active
FileOpen File3, C:\train\a_active.txt
FileAppend File3
FileWrite File3, $date - train: - $train
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 1873, 70
call click
SaveScreen C:\train\screens\material\$date .bmp
MousePos 960, 790
call click
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure screenexp //Makes a screenshot of your exp bar
FormatDateTime date = {now}, m.d.yy h.n
MousePos 1040, 76
delay 500
compute time = $time + 500
compute timer = $timer + 500
SaveScreen C:\train\screens\exp\$date .bmp
delay 500
compute time = $time + 500
compute timer = $timer + 500
end

//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure errorlog //Checks if there is any errors going on + handling them.
LoadRGB 911, 506
FormatDateTime date = {now}, m/d/yy h:n
case {RGBGreen}
when 254
setconst reason = disconnect
when 103
setconst reason = lvlup
when 233
setconst reason = achievment
else
setconst reason = normal
end

if $reason = normal

else
FileOpen File2, C:\train\a_errorlog.txt //Logs any error
FileAppend File2
FileWrite File2, $date $reason Red {RGBRed} Blue {RGBblue} Green {RGBGreen}
FileClose File2
end

if $reason = achievment
if $achievshare = 0
MousePos 1244, 360 //cancel achiev
call click
else
MousePos 960, 730 //share achiev
call click
end
end

if $reason = disconnect
call reconnect
end

if $reason = lvlup
if $lvlshare = 0
MousePos 1247, 348 // cancel lvl up
Call click
else
MousePos 960, 740 // share lvl up
call click
end
end

end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure reconnect //Reconnects
keys {esc}
delay 2 sec
compute time = $time + 2000
compute timer = $timer + 2000
MousePos 1917, 2 //chrome end
call click

delay 10 sec
compute time = $time + 10000
compute timer = $timer + 10000
call connect
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure connect
MousePos 80, 1044 //chrome start
call click
delay 10 sec
compute time = $time + 10000
compute timer = $timer + 10000

MousePos 250, 43 // select bar where you type hyperlink address
Call Click

keys http:
keys {keypad /}
keys {keypad /}
keys portal.pixelfederation.com
keys {keypad /}
keys trainstation
keys {keypad /}
keys ?lang=SK
keys {RETURN}

delay 20 sec
compute time = $time + 20000
compute timer = $timer + 20000

LoadRGB 925, 506 // if not logged, log in via facebook
if {RGBblue} = 157
Mousepos 925, 506
call click
delay 20 sec
compute time = $time + 20000
compute timer = $timer + 20000
else
end

Mousepos 1912, 94
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort
call clickshort

call setup
delay 5 sec
compute time = $time + 5000
compute timer = $timer + 5000
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure setup //Sets trainstation full screen and decide if there is 350gem (event) bar or not
delay 5 sec
compute time = $time + 5000
compute timer = $timer + 5000
LoadRGB 1820, 246
if {RGBblue} = 255
MousePos 1632, 465 // 1 bar
call click
else
LoadRGB 1820, 277
if {RGBblue} = 255
MousePos 1632, 496 // 2 bary
call click
else 191
MousePos 1632, 527 // 3 bary
call click
end
end
delay 2 sec
compute time = $time + 2000
compute timer = $timer + 2000
MousePos 1055, 230 // potvrdiť fullscreen
call click
delay 2 sec
compute time = $time + 2000
compute timer = $timer + 2000
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure precheckIT
MousePos 90,70 //choose train on left top
call click
delay 1000
compute time = $time + 1000
compute timer = $timer + 1000
MousePos 710, 365
Call click // change tab to IT trains
delay 1000
compute time = $time + 1000
compute timer = $timer + 1000
MousePos 1300, 422
DragTo 1300, 755
call checkIT
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure checkIT
LoadRGB 640, 730
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 730
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 730
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 720
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 720
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 720
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 710
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 710
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 710
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 700
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 700
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 700
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 690
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 690
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 690
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 680
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 680
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 680
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 670
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 670
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 670
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 660
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 660
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 660
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 650
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 650
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 650
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 640
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 640
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 640
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 630
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 630
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 630
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 620
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 620
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 620
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 610
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 610
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 610
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 600
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 600
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 600
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 590
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 590
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 590
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 580
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 580
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 580
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 570
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 570
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 570
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 560
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 560
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 560
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 550
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 550
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 550
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 540
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 540
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 540
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 530
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 530
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 530
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 520
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 520
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 520
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 510
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 510
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 510
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 500
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 500
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 500
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 490
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 490
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 490
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 480
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 480
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 480
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 470
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 470
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 470
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 460
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 460
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 460
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 450
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 450
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 450
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 440
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 440
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 440
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 430
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 430
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 430
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 420
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 420
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 420
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 410
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 410
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 410
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 640, 400
if {RGBblue} = 140 // check if first it train is free
MousePos 640, 400
delay 100
compute time = $time + 100
compute timer = $timer + 100
MousePos 641, 400
delay 100
compute time = $time + 100
compute timer = $timer + 100
Call click
call sendIT //if is then send
else
end

LoadRGB 1300, 422
if {RGBred} = 244 // if ball on scroll bar is totally up
MousePos 670, 788 // cancel
call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
else
MousePos 1300, 400
Call clickshort
Call clickshort
Call clickshort
Call clickshort
Call clickshort
Call clickshort
Call clickshort
Call clickshort
call CheckIT
end
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure sendIT
// MousePos 841, 413 // teamviewer sponsoring
// call click
MousePos 1165, 790
Call click // send to friend
delay 5000
compute time = $time + 5000
compute timer = $timer + 5000
MousePos 900, 505
Call click //custom tab
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 810, 532
Call click // choose first 8 friends from custom tab, and then send to them
Call click
Call click
Call click
Call click
Call click
Call click
Call click
MousePos 1145, 785
Call click // confirm train
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 1070, 745
Call click // confirm order / passenger or material
Delay 500
compute time = $time + 500
compute timer = $timer + 500
compute ittrainsent = $ittrainsent + 1
Call precheckIT
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure checkNeighbours
LoadRGB 1843, 1045
if {RGBblue} = 204 // check if MB bill have trains
MousePos 1900, 1057 //move to beggining of your friendlist
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call ClickShort
call getTrains //check trains of your friends
else
end
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure getTrains

LoadRGB 1843, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1843, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 1. neighbour
LoadRGB 1780, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1780, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 2. neighbour

LoadRGB 1717, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1717, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 3. neighbour

LoadRGB 1654, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1654, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 4. neighbour

LoadRGB 1591, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1591, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 5. neighbour

LoadRGB 1528, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1528, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 6. neighbour

LoadRGB 1465, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1465, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 7. neighbour

LoadRGB 1402, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1402, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 8. neighbour

LoadRGB 1339, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1339, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 9. neighbour

LoadRGB 1276, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1276, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 10. neighbour

LoadRGB 1213, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1213, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 11. neighbour

LoadRGB 1150, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1150, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 12. neighbour

LoadRGB 1150, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1150, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 13. neighbour

LoadRGB 1087, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1087, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 14. neighbour

LoadRGB 1024, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 1024, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 15. neighbour

LoadRGB 961, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 961, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 16. neighbour

LoadRGB 898, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 898, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 17. neighbour

LoadRGB 835, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 835, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 18. neighbour

LoadRGB 772, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 772, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 19. neighbour

LoadRGB 709, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 709, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 20. neighbour

LoadRGB 646, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 646, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 21. neighbour

LoadRGB 583, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 583, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 22. neighbour

LoadRGB 520, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 520, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 23. neighbour

LoadRGB 457, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 457, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end
//-------------------------------------- check 24. neighbour

LoadRGB 394, 1045
if {RGBblue} = 91
MousePos 30, 1040
Call click
Call main
else
if {RGBblue} = 204 // check if neighbour has free trains
MousePos 394, 1045
Call Click
delay 30 sec
compute time = $time + 30000
compute timer = $timer + 30000
call NeighbourTrainClick
else
end
end



MousePos 365, 1025 //posuň sa o stranu naspať
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Call GetTrains
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure NeighbourTrainClick //clicks on your neighbour trains

//MousePos 684, 545 // abbandoned station
//Call Click

Mousepos 1800, 990
Call ClickShort
Mousepos 1800, 980
Call ClickShort
Mousepos 1800, 970
Call ClickShort
Mousepos 1800, 960
Call ClickShort
Mousepos 1800, 950
Call ClickShort
Mousepos 1800, 940
Call ClickShort
Mousepos 1800, 930
Call ClickShort
Mousepos 1800, 920
Call ClickShort
Mousepos 1800, 910
Call ClickShort
Mousepos 1800, 900
Call ClickShort
Mousepos 1800, 890
Call ClickShort
Mousepos 1800, 880
Call ClickShort
Mousepos 1800, 870
Call ClickShort
Mousepos 1800, 860
Call ClickShort
Mousepos 1800, 850
Call ClickShort
Mousepos 1800, 840
Call ClickShort
Mousepos 1800, 830
Call ClickShort
Mousepos 1800, 820
Call ClickShort
Mousepos 1800, 810
Call ClickShort
Mousepos 1800, 800
Call ClickShort
Mousepos 1800, 790
Call ClickShort
Mousepos 1800, 780
Call ClickShort
Mousepos 1800, 770
Call ClickShort
Mousepos 1800, 760
Call ClickShort
Mousepos 1800, 750
Call ClickShort
Mousepos 1800, 740
Call ClickShort
Mousepos 1800, 730
Call ClickShort
Mousepos 1800, 720
Call ClickShort
Mousepos 1800, 710
Call ClickShort
Mousepos 1800, 700
Call ClickShort
Mousepos 1800, 690
Call ClickShort


end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure GetGifts
MousePos 70, 1040 //open gift tab
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 800, 330 //Collect gifts tab
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 700, 370 //collect all
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 1332, 265 // Close gift box
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Setconst getgifts = 0
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
Procedure SendGifts
MousePos 70, 1040 //open gift tab
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500
MousePos 1140, 330 // Send gifts Tab
Call Click
delay 500
compute time = $time + 500
compute timer = $timer + 500

CASE $gift
when 1
MousePos 695, 410
Call click
when 2
MousePos 873, 410
Call click
when 3
MousePos 1051, 410
Call click
when 4
MousePos 1229, 410
Call click
end

Mousepos 935, 575 //golden star friends
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Mousepos 690, 780 // select all
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Mousepos 1135, 780 //send gifts
Call click
delay 500
compute time = $time + 500
compute timer = $timer + 500
Mousepos 1332, 265 //close giftbox
Call click
SetConst sendgifts = 0
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:\train\a_trainlog.txt
FileAppend File1
FileWrite File1, $date - train:$train - ITtrain:$ittrainsent
FileClose File1
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure cc
call click
call getcolor
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure click
leftclick
delay 400
compute time = $time + 400
compute timer = $timer + 400
end
//---------------------------------------------------------------------------------------------------------------------------------------------------------
procedure ClickShort
leftclick
delay 100
compute time = $time + 100
compute timer = $timer + 100
end