SCRIPT PER TAMING

;===Aegis' Uber Tamer ============
;===Ver 2.0=======================
;===Author: Aegis=================
;===Modified by: Kiuzzo===========
set %­MyPetID HEHN

;===30/01/06======================
;================================
set %­killMode 3
set %­HealMethod 5
chooseskill anim
set %­TameBase #SKILL
set *501 N/A
set %­Tamed 0
set %­Ignored 0
gosub CreateMenu
set %­TempFollowers #FOLLOWERS
event property #CHARID
if [ notin #property
Display Ok Warning: Aegis'tamer might not work properly if you're not in a Guild.
gosub CommandRail start
event ExMsg #CHARID 3 50 Waitin' for the rail..
wait 7s
event ExMsg #CHARID 3 50 3..
wait 1s
event ExMsg #CHARID 3 50 2..
wait 1s
event ExMsg #CHARID 3 50 1..
wait 1s
event ExMsg #CHARID 3 50 ..go!
set %­tamTimer #SCNT
;============================================
;=====Loop Principale=========================
;============================================
MainTameLoop:
finditem *AegisTamerPlist G_ , %­MaxFindRange
if #FINDKIND <> -1
{
set %charX #CHARPOSX
set %charY #CHARPOSY
set %charZ #CHARPOSZ
gosub TameControl #FINDID
if %­pback = -1
{
set %­tamTimer #SCNT
while ( #SCNT < %­tamTimer + 20 ) && ( ( %charX <> #CHARPOSX ) || ( %charY <> #CHARPOSY ) )
{
event pathfind %charX %charY %charZ
;event ExMsg #CHARID 3 50 <pathfinding back to StandBy>
wait 2s
}
;event ExMsg #CHARID 3 50 <resuming...>
}
wait 1s
chooseskill anim
if %­TameBase <> #SKILL 2
menu delete gained
menu text gained 160 20 ( #SKILL - %­TameBase )

menu delete Rail
menu text Rail 160 80 Running
gosub CommandRail resume
}

if *500 = done
{
wait 3s
gosub CommandRail start
}

if %­HealMethod <> 6 && #HITS < #MAXHITS
gosub HealSelf %­HealMethod

wait 1
goto MainTameLoop

;************************************************
;==%%%%========###############============%%%%===
;===========&&&==#SUBROUTINES#==&&&==============
;==%%%%========###############============%%%%===
;************************************************
sub TameControl
set %­MobToTame %1
event property %­MobToTame
if tame in #PROPERTY
{
ignoreitem %­MobToTame
;event ExMsg #CHARID 3 50 <ignoring Target>
set %­Ignored %­Ignored + 1
menu delete Ignored
menu text Ignored 160 60 %­Ignored
return
}
finditem %­MobToTame G_
if #FINDCOL = 1281
{
;event ExMsg #CHARID 3 50 <paragon Found: Proceeding to kill>
gosub CommandRail pause
gosub KillMob %­MobToTame
gosub CommandRail resume
return
}

menu delete Rail
menu text Rail 160 80 Paused
gosub CommandRail pause
;event ExMsg %­MobToTame 3 50 Tame me! Tame me!
set %­TempFollowers #FOLLOWERS
set %­tamTimer #SCNT

tameloop:
finditem %­MobToTame G_
event property %­MobToTame
if ( tame in #PROPERTY ) && ( %­TempFollowers = #FOLLOWERS )
{
ignoreitem %­MobToTame
;event ExMsg #CHARID 3 50 <tamed by someone else: Ignoring Target>
set %­Ignored %­Ignored + 1
menu delete Ignored
menu text Ignored 160 60 %­Ignored
return
}


if ( get_there in #SYSMSG ) || ( #SCNT > %­tamTimer + 20 ) || ( #FINDKIND = -1 )
{
;event ExMsg #CHARID 3 50 <ignoring Target>
ignoreitem %­MobToTame
set %­Ignored %­Ignored + 1
menu delete Ignored
menu text Ignored 160 60 %­Ignored
return
}
if #FINDDIST > 2
{
event pathfind #FINDX #FINDY #FINDZ
wait 1s
goto tameloop
}

set %­tamTimer #SCNT
event macro 13 35
target 1s
set #lTargetID %­MobToTame
set #lTargetKind 1
event Macro 22

if %­TempFollowers <> #FOLLOWERS
{
gosub KillMob %­MobToTame
menu delete Tamed
set %­Tamed %­Tamed + 1
menu text Tamed 160 40 %­Tamed
return
}

goto tameloop
return
;==============%1 il Target Da Segare==============
sub KillMob
msg all guard me$
if %­killMode = 3 2
gosub KIllWMount %1
return

if %­killMode = 2 2
gosub SummonEarth %1
return

msg all follow me$
wait 1s
repeat
set #LTargetID %1
event macro 27
wait 1s
finditem %1
until #FINDKIND = -1

return
;===Sega con il mount==============================
;====%1 Il Target da segare=========================
sub KIllWMount
repeat
set #lObjectID #CHARID
event macro 17
wait 5
finditem %­MyPetID
until #FINDKIND <> -1

WaitDeathMo:
msg all kill $
target 3s
set #lTargetID %1
set #lTargetKind 1
event Macro 22
wait 5s
msg all guard me$
wait 3s
finditem %1 G_15
if #FINDKIND <> -1
goto WaitDeathMo

monta:
msg all follow me$
set #lObjectID %­MyPetID
event macro 17
wait 5
finditem %­MyPetID
if #FINDKIND <> -1
goto monta

return

;===========SummonEarth==========================
;====%1 Il Target da segare=========================
sub SummonEarth
set %­TempFollowers #FOLLOWERS
repeat
event macro 15 61
wait 5s
until %­TempFollowers <> #FOLLOWERS
msg all guard me$

repeat
msg all kill $
target 3s
set #lTargetID %1
set #lTargetKind 1
event Macro 22
wait 1s
finditem %1 G_15
until #FINDKIND = -1


;msg An Earth Elemental Release$
;msg An Earth Elemental Release$
return
;====================================================
;=%1 HealType
;==1: Heal 2: Gheal 3:CloseWounds 4:Bandages
sub HealSelf

while #HITS < #MAXHITS && %1 = 1
{
event macro 15 3
target 5s
event macro 23
wait 1s
}
while #HITS < #MAXHITS && %1 = 2
{
event macro 15 28
target 5s
event macro 23
wait 1s
}
while #HITS < #MAXHITS && %1 = 3
{
event macro 15 202
target 5s
event macro 23
wait 1s
}

while #HITS < #MAXHITS && %1 = 4
{
findItem ZLF C_ , #BACKPACKID
if #FINDKIND = -1 2
Display Ok No Bandages Found!!! $ Script Halted.
halt
set #lObjectID #FINDID
event Macro 17
target 5s
event macro 23
set %bandTime ( 220 - #DEX )
wait %bandTime
wait 1
}

while #HITS < #MAXHITS && %1 = 5
{
event macro 13 32
wait 2s
}


return
;=============================


sub CreateMenu
menu clear
set #MenuButton N/A
menu Font BGColor black
menu font color red
menu window color black
menu Window Title Aegis Uber Tamer Configuration
menu Window Size 260 260
menu Font Size 8

if *AegisTamerPlist = N/A 2
{
menu text hi 20 20 WELCOME To AEGIS' UBER TAMER $____ver 2.0____ $ $ - Checking peristent variables... $ - done$ 501 : *501 $ 502 : *502 $ 503 : *503 $ 504 : *504 $ AegisTamerPlist : *AegisTamerPlist $ $First run WARNING: $ This Script uses 5 persistent variables, $ which are stored permanently in your REGISTRY $under HKEY_CURRENT_USER\Software\EasyUO$ Used vars are listed over here $ THIS WINDOW WILL CLOSE IN 30sec
menu Show 500 40
wait 5s
}
if *AegisTamerPlist <> N/A
{
menu text hi 20 20 WELCOME BACK -|- #CHARNAME -|- $ To AEGIS' UBER TAMER $____ver 2.0____
menu Show 500 40
wait 1s
}
menu delete hi
menu Button AddTameButton 0 50 140 30 Add animal to ToTame list
menu Button ResetTameButton 0 80 140 20 Reset ToTame list
menu Button ConfirmButton 60 240 140 20 Submit And Start
menu text ListLabel 150 50 Current ToTame list:
menu text ListTypes 150 70 *AegisTamerPlist

menu text CheckKillMLabel 0 110 Select the Kill Mode:
menu combo create KillModeCombo 2 125 95
menu combo add KillModeCombo Weapon
menu combo add KillModeCombo Earth Elemental
menu combo add KillModeCombo Mounted Pet
menu combo SELECT KillModeCombo 3

menu Button FindMountButton 190 120 60 30 Get Pet ID

menu text EdtLabel 0 160 RailFile Name:
menu Edit RailNameEdit 0 175 220 RailSacrificeCorta.txt
menu Button UpdateRailButton 220 175 40 23 Submit
menu text Edt2Label 0 200 Current RailFile Name: *502


menu text HealModeLabel 0 5 Select the Heal Method:
menu combo create HealModeCombo 2 20 130
menu combo add HealModeCombo Magery: Heal
menu combo add HealModeCombo Magery: Greater Heal
menu combo add HealModeCombo Chivalry: Close Wounds
menu combo add HealModeCombo Skill Healing: Bandages
menu combo add HealModeCombo Skill Spirit Speak
menu combo add HealModeCombo -----No Healing-----
menu combo SELECT HealModeCombo 5

menu text FindDistLabel 105 110 Max Find range:
menu combo create FindDistCombo 105 125 70
for %­ind 1 25
menu combo add FindDistCombo %­ind , #spc , tiles
menu combo SELECT FindDistCombo 9

menu Check PBackCheck 150 10 90 40 #false PathFind back after tame




rloop:
if #MenuButton = ConfirmButton
{
menu get KillModeCombo
set %­killMode #menures
menu get HealModeCombo
set %­HealMethod #menures
menu get FindDistCombo
set %­MaxFindRange #menures
set %­MaxEnemyRange ( #menures / 2 )
menu get PBackCheck
set %­pback #menures
menu clear

menu Font BGColor black
menu font color red
menu window color black
menu text AlertRailLabel 20 20 If you wish to use an external rail $ script (like CEORailRunner),$ start it BEFORE clicking this $ button.
menu Button ConfirmButton 50 100 180 40 Start Aegis' Uber Tamer
set #MenuButton N/A

while #MenuButton = N/A
{
wait 1s
event ExMsg #CHARID 3 50 Waiting...
}
menu delete AlertRailLabel
menu delete ConfirmButton
menu text SkillLabel 20 20 Total Gained:
menu text KilledLabel 20 40 Total Tamed and Killed:
menu text IgnoredLabel 20 60 Total Ignored:
menu text RailLabel 20 80 Rail Status:
gosub CommandRail start


return

}

if #MenuButton = UpdateRailButton
{
menu get RailNameEdit
wait 1s
set %­RfileName #menures
set *502 #menures
menu delete Edt2Label
menu text Edt2Label 0 200 Current RailFile Name: *502
set #MenuButton N/A
}
if #MenuButton = FindMountButton
{
set #targcurs 1
while #targcurs = 1
{
event ExMsg #CHARID 3 50 Waiting...
wait 1s
}
set %­MyPetID #ltargetid
event ExMsg #CHARID 3 50 Ok
set #MenuButton N/A
}
if #MenuButton = ResetTameButton
{
set *AegisTamerPlist _
set #MenuButton N/A
menu delete ListTypes
menu text ListTypes 150 70 *AegisTamerPlist
}
if #MenuButton = AddTameButton
{
set #targcurs 1
while #targcurs = 1
{
event ExMsg #CHARID 3 50 Waiting...
wait 1s
}
Finditem #ltargetid
if #FINDTYPE in *AegisTamerPlist
event ExMsg #CHARID 3 50 That is already in your Tame List!!
if #FINDTYPE notin *AegisTamerPlist
{
set *AegisTamerPlist *AegisTamerPlist , _ , #FINDTYPE
event ExMsg #CHARID 3 50 Target added.
menu delete ListTypes
menu text ListTypes 150 70 *AegisTamerPlist
}
set #MenuButton N/A
}

goto rloop
return
;========Comanda la rail tramite il %1=====================
; *501 : User Control: Used to control rail movement through an external program.
; Values:
; start- Start the rail program
; pause - pause rail program
; resume - resume rail program
; stop - stop rail program

sub CommandRail
set *502 %­RfileName
set *503 -1
set *504 run
set *501 %1
return

;==================================
; Script Name: CEORailRunner
; Author: CEO
; Version: 1.0
; Client Tested with: 4.0.0.p
; EUO version tested with: 1.40 (0056)
; Shard OSI / FS:
; Revision Date:
; Public Release: 09/19/2003
; Purpose: Standalone RailRunner that allows you to easily incorporate rails into your scripts.
;==================================
;
; Uses the following Global Variables:
;
; *500 : Rail Status: (READONLY)
; Values:
; waiting - Waiting for a railfile and *501 = "start"
; initializing - Loading rail file
; moving - moving to a rail spot
; pathfinding - path finding to a rail spot (move failed)
; paused - rail script paused
; enemy - enemy spotted (from %enemytypes in railfile)
; done - rail movement completed x number of cycles according to *503
; halted - script halted
; *501 : User Control: Used to control rail movement through an external program.
; Values:
; start- Start the rail program
; pause - pause rail program
; resume - resume rail program
; stop - stop rail program
; *502 : Railfilename to use (In RoadKill's Railmaker format)
; *503 : Number of times to run rail. (Defaults to -1, loop forever)
;
; Linking Rail Files:
; By setting this to something other then -1 you can change *502 to a new railfilename
; after the rail starts and once the rail completes it'll chain to the next rail identified by *502
;.
; *504 : Pace Control : Tells how fast your character will move.
; Values:
; walk - Character walks
; run - Character runs (Default)
; *505 : Enemy Pace Control : Tells what to do when enemy spotted.
; Values:
; wait - Waits while enemys are around, automatically resumes when no more are found
; pause - pause execution of railrunner, requires *501 = RESUME to restart
; run - Switch character to always run (if it isn't) and then run on the rail until enemy is gone (Default)
initevents
set %­version 1.0
; Initialize the global variables
set *500 Waiting
set *501 stop
set *502 railspotsHealer2.txt
set *503 -1
set *504 run
set *505 run
set %­last504 *504
set %endspot N/A
set %count 0
gosub InitMenu
%endspot
set #menubutton N/A
gosub DisplayStatus yellow

WaitForStart:
wait 1s
if *502 = N/A || *501 <> START
goto WaitForStart
menu delete t1
menu text t1 10 5 Railfile: *502
set *500 Initializing
gosub DisplayStatus blue
set %endspot N/A
set %count 0
call *502
if %endspot = N/A
{
menu delete t1
menu delete t2
menu text t1 10 5 Railfile: *502 , #spc , (INVALID)
set *500 halt
menu font bgcolor red
gosub DisplayStatus black
halt
}
set %­last502 *502
if *504 = WALK
{
gosub WalkOn
goto MainLoop
}
gosub RunOn
MainLoop:
for %­i 1 %endspot
{
set %enemyfound #false
finditem %ENEMYTYPES G_ , %­SEARCHRANGE
if #findkind <> -1
gosub EnemyFound
if *501 = PAUSE || #menubutton = PAUSE
gosub RailPause
if *501 = STOP
halt
if %­last504 <> *504 && ! %enemyfound
gosub SetPace
set %­oldcharposx #charposx
set %­oldcharposy #charposy
set %­x %­x . %­i
set %­y %­y . %­i
set %­z %­z . %­i
menu delete d1
menu text d1 280 5 %­i
set *500 moving
gosub DisplayStatus green
move %­x %­y 0 4s
if #charposx <> %­x && #charposy <> %­y
{
set *500 pathfinding
gosub DisplayStatus yellow
event pathfind %­x %­y %­z
wait 4s
}
}
set %count %count + 1
if %count < *503 || *503 = -1
goto MainLoop
if %­last502 <> *502
goto WaitForStart
set *501 N/A
set *500 done
gosub DisplayStatus white
goto WaitForStart

sub EnemyFound
set %enemyfound #true
set *500 enemy
gosub DisplayStatus red
if *505 = WAIT
{
gosub EnemyWait
return
}
if *505 = PAUSE
{
gosub EnemyPause
return
}
if *504 = RUN || %­last504 = RUN
return
gosub RunOn
set %­last504 run
menu delete d2
menu font bgcolor red
menu font color white
menu font size 9
menu text d2 225 20 Running
menu font bgcolor black
menu font color red
menu font size 10
return

sub EnemyPause
menu font bgcolor red
gosub DisplayStatus black
menu font bgcolor black
menu delete pause
menu button resume 10 45 80 25 RESUME
set #menubutton N/A
enemy1:
wait 1s
if #menubutton = RESUME
goto resume1
if *501 <> RESUME
goto enemy1
resume1:
menu delete resume
menu button pause 10 45 80 25 PAUSE
set *501 N/A
set #menubutton N/A
return

sub EnemyWait
menu font bgcolor red
gosub DisplayStatus black
menu font bgcolor black
menu delete pause
menu button resume 10 45 80 25 RESUME
set #menubutton N/A
enemy2:
wait 1s
if #menubutton = RESUME
goto resume2
finditem %ENEMYTYPES G_ , %­SEARCHRANGE
if #findkind <> -1
goto enemy2
resume2:
menu delete resume
menu button pause 10 45 80 25 PAUSE
set #menubutton N/A
return

sub RailPause
set *500 paused
menu delete pause
menu button resume 10 45 80 25 RESUME
set #menubutton N/A
gosub DisplayStatus white
wait2:
wait 1s
if #menubutton = RESUME
goto resume3
if *501 <> RESUME
goto wait2
resume3:
menu delete resume
menu button pause 10 45 80 25 PAUSE
set *501 N/A
set #menubutton N/A
return

Sub RunON
;purpose: toggle always run on
event macro 32 0
wait 10 10
if now_on IN #SYSMSG
return
event macro 32 0
return

Sub WalkOn
;purpose: toggle always run off
event macro 32 0
wait 10 10
if now_off IN #SYSMSG
return
event macro 32 0
return

sub InitMenu
menu clear
menu window size 325 75
menu window title CEORailRunner %­version
menu window color black
menu font bgcolor BLACK
menu font color red
menu text t1 10 5 Railfile: None
menu text t2 225 5 Railspot:
menu text t3 10 25 Status:
menu button pause 10 45 80 25 PAUSE
menu show 10 10
menu hideeuo
return

sub DisplayStatus
menu font color %1
menu delete status
menu text status 55 25 *500
menu font color red
return

sub DisplayWalkRun
menu delete d2
menu font color blue
menu font size 9
if *504 = WALK
{
menu text d2 225 20 Walking
menu font color red
menu font size 10
return
}
menu text d2 225 20 Running
menu font color red
menu font size 10
return

sub SetPace
set %­last504 *504
if *504 = WALK
{
gosub WalkOn
Gosub DisplayWalkRun
return
}
gosub RunOn
Gosub DisplayWalkRun
return

;==================================
; Script Name: CEOAutoRailWriter
; Author: CEO
; Version: 1.3a
; Client Tested with: 4.0.1b
; EUO version tested with: 1.4 (005F)
; Shard OSI / FS:
; Revision Date: 12-22-03
; Public Release:12-22-03
; Purpose: Simple method for writing a rail file. Just hit Record and walk the path.
;============================================
initevents
;--------------------------- Change these to fit your needs
set %­ztolerance 3
set %dtolerance 4
set %­targetx_text ltargetx
set %­targety_text ltargety
set %­targetz_text ltargetz
set %filename railspots.txt
;might need to set this use "command" instead of "cmd" for your OS
set %cmd cmd
;----------------------------
set %­version 1.3a
set %debug #false
set %­totalspots 0
set %­totalltargets 0
set %­testrail #false
if EXEC notin #opts
{
display ok In order to save the rail file you must have $"Allow Execute" on.
+ Enable this option$from the Easyuo menu:$$Options>Configuration>Allow Execute$$Halting...
halt
}
gosub initmenu
set #menubutton N/A
Mainloop:
wait 5
if #menubutton <> N/A
gosub #menubutton
if *500 = waiting && ! %­testrail
{
menu font bgcolor silver
menu font color black
menu button TestRail 200 5 60 20 Test Rail
menu font bgcolor black
menu font color red
set %­testrail #true
}
gosub DisplayCords
goto Mainloop

sub TestRail
set *502 railspots.txt
set *503 1
set *504 run
set *501 start
set #menubutton N/A
return

sub Write
show menu
menu delete record
set #menubutton N/A
menu delete write
menu font bgcolor blue
menu font color white
menu text status 55 5 Writing File
menu font bgcolor black
menu font color red
str mid #date 3 2
set %date #strres
str right #date 2
set %date %date , / , #strres
str left #date 2
set %date %date , / , #strres
execute %cmd /c echo #smc , * Created with CEOAutoRailWriter on , #spc , %date , #spc , * > %filename
execute %cmd /c echo #smc , #spc >> %filename
execute %cmd /c echo set % , endspot , #spc , %­totalspots >> %filename
menu text hs 10 30 Saving Spot:
menu font color white
for %­i 1 %­totalspots
{
menu delete ss
menu text ss 85 30 %­i
wait 1
execute %cmd /c echo set % , X , %­i , #spc , %­railspotx . %­i >> %filename
execute %cmd /c echo set % , Y , %­i , #spc , %­railspoty . %­i >> %filename
execute %cmd /c echo set % , Z , %­i , #spc , %­railspotz . %­i >> %filename
if %­target . %­i = #true
{
execute %cmd /c echo set % , %­targetx_text , %­i , #spc , %­ltargetx . %­i >> %filename
execute %cmd /c echo set % , %­targety_text , %­i , #spc , %­ltargety . %­i >> %filename
execute %cmd /c echo set % , %­targetz_text , %­i , #spc , %­ltargetz . %­i >> %filename
execute %cmd /c echo set % , ltargetkind , %­i , #spc , %­ltargetkind . %­i >> %filename
execute %cmd /c echo set % , ltargettile , %­i , #spc , %­ltargettile . %­i >> %filename

}
}
menu font bgcolor silver
menu font color black
menu button Record 10 150 50 20 Record
menu font bgcolor black
menu font color red
set %­totalspots 0
menu delete rx
menu delete ry
menu delete rz
menu delete ss
menu delete hs
menu delete fh
gosub DisplayTotalSpots
menu delete status
return

sub Record
show menu
set %­lpc #lpc
set #lpc 1000
for %­i 1 %­totalspots
{
set %­ltargetx . %­i n/a
}
set #lpc %­lpc
set %­totalspots 1
set %­totalltargets 0
gosub WalkOn
gosub DisplayTotalSpots
gosub RecordSpot
menu delete Record
menu font bgcolor silver
menu font color black
menu button Stop 10 150 50 20 Stop
menu button LTARGET 110 150 50 20 Ltarget
menu font bgcolor black
menu delete recording
menu font bgcolor red
menu font color white
menu text status 55 5 Recording
menu font bgcolor black
menu font color red
menu text ath 10 30 Auto Timer:
set %­recording #true
set #menubutton N/A
Record1:
show menu
if #menubutton = ltarget
{
if %­lastpos <> %­lastrailspot
{
set %­totalspots %­totalspots + 1
gosub DisplayTotalSpots
gosub RecordSpot
gosub DisplayCords
}
gosub record_ltarget
gosub DisplayTotalSpots
}
if #menubutton <> N/A
{
gosub #menubutton
if ! %­recording
{
menu delete ltarget
return
}
}
wait 5
if %­lastpos <> %­lastrailspot
{
set %­timetowrite %­lastmoved - #scnt
menu delete ttw
if %­timetowrite <= 5
{
menu font color yellow
menu text ttw 75 30 %­timetowrite
menu font color red
if %­timetowrite <= 0
{
set %­totalspots %­totalspots + 1
gosub DisplayTotalSpots
gosub RecordSpot
}
}
}
gosub DisplayCords
if %­record_spot
{
set %­totalspots %­totalspots + 1
gosub DisplayTotalSpots
gosub RecordSpot
}
goto Record1

return

sub RecordSpot
set %­lastspotx #charposx
set %­lastspoty #charposy
set %­lastspotz #charposz
set %­railspotx . %­totalspots %­lastspotx
set %­railspoty . %­totalspots %­lastspoty
set %­railspotz . %­totalspots %­lastspotz
gosub DisplayRecordedSpot
set %­lastrailspot %­lastspotx , _ , %­lastspoty , _ , %­lastspotz
set %­lastpos %­lastrailspot
set %­lastmoved #scnt + 5
menu delete ttw
return

sub DisplayRecordedSpot
menu font align right
menu font color white
menu delete rx
menu text rx 135 70 %­lastspotx
menu delete ry
menu text ry 175 70 %­lastspoty
menu delete rz
menu text rz 215 70 %­lastspotz
menu font color red
menu font align left
return

sub stop
menu delete Stop
menu font bgcolor silver
menu font color black
menu button Record 10 150 50 20 Record
set #menubutton N/A
menu delete status
menu delete ath
menu delete ttw
set %­recording #false
if %­totalspots > 1
menu button Write 60 150 50 20 Write
menu font bgcolor black
menu font color lime
gosub RunON
return

sub InitMenu
menu clear
menu font alight left
menu window size 270 200
menu window title CEOAutoRailWriter %­version
menu window color black
menu font bgcolor BLACK
menu font color red
menu show
menu font size 9
menu text s 10 5 Status:
menu text fnameheader 5 180 Filename:
menu font size 8
menu font color white
menu edit fname 70 175 130 %filename
menu font size 9
menu font color red
menu text h1x 130 35 X
menu text h1y 170 35 Y
menu text h1z 210 35 Z
menu text h1 10 50 Current Position:
menu text h5 10 70 Last Recorded:
menu text h4 10 85 Total Railspots:
menu text h4 145 85 Total # , LTargets:
gosub DisplayTotalSpots
menu font align left
menu font style b
menu font color yellow
menu text hh 5 100 Rail Parameters :
menu font style n
menu font color red
menu text h2 10 115 Max distance between spots:
menu text h3 10 130 Z tolerance:
menu font color yellow
menu text t2 175 115 %dtolerance
menu text t3 80 130 %­ztolerance
menu font color red
gosub displayCords
menu font bgcolor silver
menu font color black
menu button Record 10 150 50 20 Record
menu button getfname 201 178 30 20 upd
if *500 = waiting
{
menu button TestRail 200 5 60 20 Test Rail
set %­testrail #true
}
menu font bgcolor black
menu font color red
set #menubutton N/A
menu delete total
menu font color lime
if ! %debug
menu hideeuo
return


sub DisplayTotalSpots
menu font align right
menu font color white
menu delete tspots
menu delete tltargets
menu text tspots 120 85 %­totalspots
menu text tltargets 255 84 %­totalltargets
menu font align left
menu font color red
return

sub DisplayCords
set %­record_spot #false
if #charposx , _ , #charposy , _ , #charposz = %­lastpos
return
menu font align right
menu font color lime
X:
if %­lastposx = #charposx
goto Y
menu delete x
menu text x 135 50 #charposx
set %dif abs ( %­lastspotx - #charposx )
if %dif > %dtolerance
set %­record_spot #true
set %­lastposx #charposx
Y:
if %­lastposy = #charposy
goto Z
set %dif abs ( %­lastspoty - #charposy )
if %dif > %dtolerance
set %­record_spot #true
menu delete y
menu text y 175 50 #charposy
set %­lastposy #charposy
Z:
if #lastposz = #charposz
goto DC_End
set %dif abs ( %­lastspotz - #charposz )
if %dif > %­ztolerance
set %­record_spot #true
menu delete z
menu text z 215 50 #charposz
set %­lastposx #charposz

DC_End:
set %­lastpos #charposx , _ , #charposy , _ , #charposz
menu font align left
menu font color red
set %­lastmoved #scnt + 7
menu delete ttw
return

Sub WalkOn
;purpose: toggle always run off
event macro 32 0
wait 10 10
if now_off IN #SYSMSG
return
event macro 32 0
return

Sub RunON
;purpose: toggle always run on
event macro 32 0
wait 10 10
if now_on IN #SYSMSG
return
event macro 32 0
return

sub closed
if ! %debug
terminate euo
return

sub record_ltarget
event macro 13 14
targetloop:
if #targcurs = 1
goto targetloop
if %­ltargetx . %­totalspots <> n/a
{
set %­totalspots %­totalspots + 1
gosub DisplayTotalSpots
gosub RecordSpot
}
set %­ltargetx . %­totalspots #ltargetx
set %­ltargety . %­totalspots #ltargety
set %­ltargetz . %­totalspots #ltargetz
set %­ltargetkind . %­totalspots #ltargetkind
set %­ltargettile . %­totalspots #ltargettile
set %­totalltargets %­totalltargets + 1
set %­target . %­totalspots #true
set #menubutton n/a
return

sub getfname
menu get fname
if #menuRes <> %filename
{
set %filename #menuRes
menu font color white
menu font size 8
menu edit fname 70 175 130 %filename
menu font color lime
menu font size 9
}
set #menubutton n/a
return