|
Re: Wormhole Mining with D-Scan 9 Years, 7 Months ago
|
Karma: 10
|
Decided to go another route. Going to have the autoit script change SharedDscan epresults results to a 1. 99 hostiles 99 shared hostiles. That should do the trick and make everyone EWO. Seems to be a lot easier that way. I set the check up top so it processes that first.
 Warning: Spoiler!
ShipDestroyed(){
IniRead, intSharedEvePilotResult, %strSharedSettingsPath%, EPResults, Result
If (intSharedEvePilotResult = intSafetyLogOff){
Sleep 1000 ; Sleep so that EP sees that this process ran
intReportToEvePilot := 1
intHostilesFound := 99
intSharedHostiles := 99
UpdateINIFiles()
ExitApp
}
shipDestroyed := False
IniRead, intLocalEvePilotResult, %strLocalSettingsIni%, EPResults, Result
If (intLocalEvePilotResult = intInPod){
;Sleep 1000 ; Sleep so that EP sees that this process ran
;intHostilesScanned := 1
;ProcessResults()
shipDestroyed := True
}
return shipDestroyed
}
|
|
|
|
|
|
|
Re: Wormhole Mining with D-Scan 9 Years, 7 Months ago
|
Karma: 10
|
Ok changed my mind again. This works better, faster and less complicated to undo.
Autoit file. Sets a new SharedDscan.ini variable to True or False
| Code: |
_SafeLogOff("True")
Func _SafeLogOff($value)
IniWrite($sDscanpath, "GroupVars", "Safelogoff", $value)
EndFunc
|
AHK Adjusted parts.
| Code: |
; ########################### Verify Settings INI and prompt for setup if not exists ###########################
CheckSettings()
CheckForSafeLogOff() ;Check for Safe Log FIRST
GetVariables()
If (ShipDestroyed()){
IniWrite, %intDanger%, %strSharedSettingsPath%, EPResults, Result
IniWrite, %intInPod%, %strLocalSettingsIni%, EPResults, Result
}
CheckForSharedHostiles()
GetFriendlies()
CheckDScan()
ProcessResults()
ExitApp
|
Then down in procedures.
| Code: |
CheckForSafeLogOff(){
IniRead, strSharedSafeLogoff, %strSharedSettingsPath%, GroupVars, Safelogoff
If (strSharedSafeLogoff = "True"){
intReportToEvePilot := 1
IniWrite, %intReportToEvePilot%, %strLocalSettingsIni%, EPResults, Result
IniWrite, %intReportToEvePilot%, %strSharedSettingsPath%, EPResults, Result
Sleep 1000 ; Sleep so that EP sees that this process ran
ExitApp
}
}
|
Full DScan.ahk script. Also fixed a few speed bumps in debug mode.
Edit 8.3 I lost a ship to a roamer. So I did some further testing of me hopping into other ships. I broke something. They don't warp out on hostile. So i reverted to original code, made a couple small adjustments to cover Safe Log off. Back in Black. I jump into a ship type on the monitored list, and whack-a-mole, 10 seconds later, everyone is warping to their designated safe spots for a rest.
Warning: Spoiler!
;`::
;*************************** To Do ************************************
; *Log hostiles found with time--- DONE, but gets mixed up with multiples
; *Get intHostilesFound at beginning and act on it--- DONE
; Clear hostiles at some point
;
;If (intSharedGroupNum<>intLocalGroupNum){
; If (boolIsLeader=true){
; IniWrite, %intLocalGroupNum%, %strSharedSettingsPath%, GroupVars, GroupNum
; }
; Else{
; ; EWO, at POS use EP modules to leave and rejoin group {Need to define INI variable for EP to pick up on this and have it bypass custom flow and go to normal EWO}}
; IniWrite, %intSharedGroupNum%, %strLocalSettingsIni%, GroupVars, GroupNum
; }
;}
;***************************************************************
;******************** EPResults *****************************
;* 0 = Error
;* 1 = Emergency Warp Out (Hostiles)
;* 2 = All Clear
;* 3
;* 4
;* 5
;
; SETUP: Make scanner only find player ships. Nothing else is implemented
;
; NOTES: Does not yet account for when other bots launch probes, because it was never implemented...
;***************************************************************
Global debug := False
Global strLocalSettingsIni := "C????\Scripts\LocalBotSettings.ini"
Global strSharedSettingsPath := C????"\SharedDscan.ini" ; IF this is a shared folder then the folder needs to be opened automatically on boot of machine, configure windows to remember what windows were open on boot
Global strCurrentShip, strProbeNameType, intProbesDeployed, boolIsLeader
Global intHostilesFound, strUserInputShipName, strUserInputShipType, dScanData
Global intMinutesSinceHostile, TimeSharedLastUpdated, sharedHostileFoundTime, HostileFoundTime
Global intLocalGroupNum, intSharedGroupNum, intReportToEvePilot, friendlyShips, arryFriendlyShips
Global arryFriendlyShipLastUpdate, strCurrentShip, intSharedHostiles
Global ScanBtnPos1, ScanBtnPos2, DscanPos1, DscanPos2, POSPos1, POSPos2
;NEW Globals
Global intAllClear, intDanger, intInPod, intSleepMinutes
intInPod := 4
intAllClear := 2
intDanger := 1
intSleepMinutes := 43
WinWait, EVE - ,
IfWinNotActive, EVE - , , WinActivate, EVE - ,
WinWaitActive, EVE - ,
Random, randTime, 1, 12
Random, randPixel, 1, 3
SetDefaultMouseSpeed, 23
SetKeyDelay, 12, 22
SetMouseDelay, 5
CoordMode Mouse
; ########################### Verify Settings INI and prompt for setup if not exists ###########################
Clipboard :=
CheckSettings()
CheckForSafeLogOff()
GetVariables()
If (ShipDestroyed()){
IniWrite, %intDanger%, %strSharedSettingsPath%, EPResults, Result
IniWrite, %intInPod%, %strLocalSettingsIni%, EPResults, Result
}
CheckForSharedHostiles()
GetFriendlies()
CheckDScan()
ProcessResults()
ExitApp
; ########################### Procedures Only Below This Point ###########################
ShipDestroyed(){
shipDestroyed := False
IniRead, intLocalEvePilotResult, %strLocalSettingsIni%, EPResults, Result
If (intLocalEvePilotResult = intInPod){
;Sleep 1000 ; Sleep so that EP sees that this process ran
;intHostilesScanned := 1
;ProcessResults()
shipDestroyed := True
}
return shipDestroyed
}
CheckForSafeLogOff(){
IniRead, strSharedSafeLogoff, %strSharedSettingsPath%, GroupVars, Safelogoff
If (strSharedSafeLogoff = "True"){
intReportToEvePilot := 1
IniWrite, %intReportToEvePilot%, %strLocalSettingsIni%, EPResults, Result
IniWrite, %intReportToEvePilot%, %strSharedSettingsPath%, EPResults, Result
Sleep 1000 ; Sleep so that EP sees that this process ran
ExitApp
}
}
;******************************************
;************************** Check shared INI for Hostiles ********************************
;******************************************
CheckForSharedHostiles(){
If (debug){
MsgBox CheckForSharedHostiles() intReportToEvePilot=%intReportToEvePilot% and intHostilesFound=%intHostilesFound%
}
intMinutesSinceHostile = %A_NowUTC% ;COLON screws it up
timePast := sharedHostileFoundTime
intMinutesSinceHostile -= %timePast%, Minutes
If (debug){
MsgBox sharedHostileFoundTime=%sharedHostileFoundTime% and intMinutesSinceHostile=%intMinutesSinceHostile%
}
HostileFoundTime := sharedHostileFoundTime
If (debug){
MsgBox intSharedHostiles = %intSharedHostiles% AND sharedHostileFoundTime is %intMinutesSinceHostile% minutes ago
}
If (intSharedHostiles > 0){
Sleep 1000 ; Sleep so that EP sees that this process ran
If (intMinutesSinceHostile < intSleepMinutes){
If (debug){
MsgBox intSharedHostiles = %intSharedHostiles% AND sharedHostileFoundTime < intSleepMinutes minutes ago. About to go to ProcessResults() to finish the program.
}
intHostilesFound := 0
If (debug){
MsgBox intHostilesFound=%intHostilesFound%
}
If (debug){
MsgBox Kept sharedHostileFoundTime of HostileFoundTime=%HostileFoundTime%
}
ProcessResults()
}
Else{
;RESET to All Clear
intHostilesFound := 0
intSharedHostiles := 0
intReportToEvePilot := 2
If (debug){
MsgBox Set ZEROED intHostilesFound/intSharedHostiles to = %intSharedHostiles% AND sharedHostileFoundTime is %intMinutesSinceHostile% minutes ago
}
}
}
}
;******************************************
;************************** Decide if Scan is Hostile=1 or Clear=2 ********************************
;******************************************
ProcessResults(){
If (debug){
MsgBox ProcessResults() INITIAL intReportToEvePilot=%intReportToEvePilot% and intHostilesFound=%intHostilesFound%
}
If (debug){
MsgBox ProcessResults() intHostilesFound=%intHostilesFound%
}
If (intHostilesFound > 0 or (intSharedHostiles > 0 and intMinutesSinceHostile < intSleepMinutes) ){
;* 1 = Emergency Warp Out (Hostiles)
intReportToEvePilot := 1
If (debug){
MsgBox ProcessResults() SHARED HOSTILES FOUND=%intHostilesFound%, intReportToEvePilot is 1=%intReportToEvePilot% and intHostilesFound=%intHostilesFound%
}
UpdateINIFiles()
ExitApp
; EmergencyWarpOut()
}
Else{
;* 2 = All Clear
intReportToEvePilot := 2
If (debug){
MsgBox ProcessResults() ALL CLEAR, intReportToEvePilot is 2=%intReportToEvePilot% and intHostilesFound=%intHostilesFound%
}
UpdateINIFiles()
}
If (debug){
MsgBox exiting with intReportToEvePilot=%intReportToEvePilot% and Hostiles=%intHostilesFound%
}
}
;******************************************
;************************** Write results to shared and local ini files ********************************
;******************************************
UpdateINIFiles(){
If (debug){
MsgBox UpdateINIFiles() intReportToEvePilot=%intReportToEvePilot% and intHostilesFound=%intHostilesFound% and intSharedHostiles=%intSharedHostiles%
}
intMinutesSinceUpdatedShared = %A_NowUTC% ;COLON screws it up
timePast := TimeSharedLastUpdated
intMinutesSinceUpdatedShared -= %timePast%, Minutes
If (debug){
MsgBox TimeSharedLastUpdated = %TimeSharedLastUpdated% and Now = %intMinutesSinceUpdatedShared%
}
If (intHostilesFound > 0){
If (debug){
MsgBox intHostilesFound > 0. Updating Local/Shared with EPResult, Hostiles, TImeHostileFound and listing hostiles in shared
}
boolUpdateLocal := True
IniWrite, %intReportToEvePilot%, %strLocalSettingsIni%, EPResults, Result
IniWrite, %intHostilesFound%, %strLocalSettingsIni%, DScan, Hostiles
IniWrite, %HostileFoundTime%, %strLocalSettingsIni%, DScan, HostileFoundTime
boolUpdateShared := True
IniWrite, %intHostilesFound%, %strSharedSettingsPath%, DScan, Hostiles
IniWrite, %intReportToEvePilot%, %strSharedSettingsPath%, EPResults, Result
IniWrite, %HostileFoundTime%, %strSharedSettingsPath%, DScan, HostileFoundTime
For k, v in dScanData
{
;MsgBox dScanData contents %k%=%v%
tempTime := A_NowUTC + k
IniWrite, %v%, %strSharedSettingsPath%, HostileClipboard, %tempTime%
}
}
If (intSharedHostiles > 0){
If (debug){
MsgBox intSharedHostiles > 0. Updating Local with EPResult, Hostiles, TImeHostileFound
}
boolUpdateLocal := True
IniWrite, %intReportToEvePilot%, %strLocalSettingsIni%, EPResults, Result
IniWrite, %intSharedHostiles%, %strLocalSettingsIni%, DScan, Hostiles
IniWrite, %HostileFoundTime%, %strLocalSettingsIni%, DScan, HostileFoundTime
boolUpdateShared := False
}
If (intMinutesSinceHostile > intSleepMinutes){
If (debug){
MsgBox intMinutesSinceHostile > intSleepMinutes. Updating Local/Shared with EPResult, Hostiles.
}
boolUpdateLocal := True
IniWrite, %intHostilesFound%, %strLocalSettingsIni%, DScan, Hostiles
IniWrite, %intReportToEvePilot%, %strLocalSettingsIni%, EPResults, Result
boolUpdateShared := True
IniWrite, %intHostilesFound%, %strSharedSettingsPath%, DScan, Hostiles
IniWrite, %intReportToEvePilot%, %strSharedSettingsPath%, EPResults, Result
}
If (intMinutesSinceUpdatedShared > 0){
If (debug){
MsgBox intMinutesSinceUpdatedShared > 0. Updating Local/Shared with CurrentShip and saving friendly ships locally.
}
boolUpdateLocal := True
IniWrite, %A_NowUTC%, %strLocalSettingsIni%, Friendlies, %strCurrentShip%
IniWrite, %A_NowUTC%, %strLocalSettingsIni%, GroupVars, TimeSharedLastUpdated
boolUpdateShared := True
IniWrite, %A_NowUTC%, %strSharedSettingsPath%, Friendlies, %strCurrentShip%
For k, strTmpFriendly in arryFriendlyShips
{
tmpFriendlyShipLastUpdate := arryFriendlyShipLastUpdate[k]
IniWrite, %tmpFriendlyShipLastUpdate%, %strLocalSettingsIni%, Friendlies, %strTmpFriendly%
}
}
}
;******************************************
;************************** Get D-Scan data from clipboard and concatenate name and type fields into dScanData array ********************************
;******************************************
CheckDScan()
{
If (debug){
MsgBox CheckDScan started
}
CoordMode Mouse
If (debug){
;MsgBox About to move mouse to %ScanBtnPos1%, %ScanBtnPos2%
MsgBox About to refresh D-Scan
}
BlockInput On
;MouseMove, %ScanBtnPos1%, %ScanBtnPos2%, 10
;Click Down
;Sleep 100
;Click Up Left
;Sleep 100
Send, {Ctrl Down}
Sleep 100
Send, {Shift Down}
Sleep 100
Send, s
Sleep 100
Send, {Shift Up}
Send, {Shift Up}
Sleep 100
Send, {Ctrl Up}
Send, {Ctrl Up}
Sleep 400
If (debug){
BlockInput Off
MsgBox About to move mouse to DscanPos1, click and copy
BlockInput On
}
Clipboard :=
while (Clipboard = ""){
If (debug){
TrayTip, Alert, In while loop
}
MouseMove, %DscanPos1%, %DscanPos2%, 10
Click
Send, {Ctrl Down}
Sleep 100
Send, a
Sleep 100
;Send, {Ctrl Up}
;Sleep 100
;Send, {Ctrl Down}
;Sleep 100
Send, c
Sleep 100
Send, {Ctrl Up}
Sleep 100
Send, {Ctrl Up}
}
BlockInput Off
If (Clipboard = "No Result from Directional Scan" Or Clipboard = "")
{
If (debug){
MsgBox "No Result from Directional Scan"
}
;* 0 Hostiles
intHostilesFound := 0
return
}
Else{
intHostilesFound := 0
If (debug){
MsgBox About to initialize dScanData and parse clipboard into it
}
dScanData := []
Loop, Parse, Clipboard, `n, `r
{
StringSplit, field, A_LoopField, %A_Tab%
dScanData.Push(field1 . field2)
If (debug){
MsgBox Concatenated first two fields = %field1%%field2%
}
}
If (debug){
;MsgBox Open Textpad, then press OK to have all D-Scan data dumped in there
For k, v in dScanData
MsgBox dScanData contents %k%=%v%
}
tempFriendlyShipsSize := arryFriendlyShips.MaxIndex()
If (debug){
MsgBox tempFriendlyShipsSize=%tempFriendlyShipsSize%
}
For iScanned, dScanEntry in dScanData
{
If (iScanned > 1 And dScanEntry = dScanData[iScanned-1]){
Continue
}
timesInDscan := 0
timesInFriendlies := 0
For iScanned2, dScanEntry2 in dScanData
{
If (dScanEntry=dScanEntry2){
timesInDscan := timesInDscan + 1
}
}
For iFriend, strFriendly in arryFriendlyShips
{
If (dScanEntry=strFriendly){
timesInFriendlies := + 1
}
}
If (timesInDscan > timesInFriendlies){
intHostilesFound := intHostilesFound + timesInDscan - timesInFriendlies
}
}
If (debug){
MsgBox intHostilesFound = %intHostilesFound%
MsgBox intHostilesFound=%intHostilesFound% and HostileFoundTime=%HostileFoundTime%
}
If (intHostilesFound > 0){
HostileFoundTime = %A_NowUTC% ;COLON screws it up
If (debug){
MsgBox Set HostileFoundTime to NOW=%HostileFoundTime%
}
}
return
}
return
}
;******************************************
;************************** Friendlies Allowed in Dscan ********************************
;******************************************
GetFriendlies(){
; Get Keys and Values in the Friendlies section (returns as single string delimited by linefeed or 'n)
; Check if friendlyShips found
If (friendlyShips){
If (debug){
MsgBox friendlyShips found = %friendlyShips%
}
; Split multiline string of Keys/Values into single lines
arryFriendlyShips := []
arryFriendlyShipLastUpdate := []
Loop, Parse, friendlyShips, `n, `r
{
; Split single line by = and put the values/ship (field2) into an array
StringSplit, field, A_LoopField, =
arryFriendlyShips.Push(field1)
arryFriendlyShipLastUpdate.Push(field2)
}
If (debug){
For k, v in arryFriendlyShips
MsgBox FriendlyShip %k%=%v%
For k, v in arryFriendlyShipLastUpdate
MsgBox FriendlyShipTime %k%=%v%
}
;Logic for evaluating whether a hostile is found
}
}
;************************* Create or retrieve local settings (Globals) ********************************
GetVariables(){
IfNotExist, %strSharedSettingsPath%
{
If (debug){
MsgBox ERROR! MISSING %strSharedSettingsPath%. Setting it to %strLocalSettingsIni%
}
strSharedSettingsPath := strLocalSettingsIni
}
Else
{
If (debug){
MsgBox , %strSharedSettingsPath% Exists
}
}
;**** Get Local Settings ****
IniRead, strCurrentShip, %strLocalSettingsIni%, GroupVars, ShipNameType
IniRead, intLocalGroupNum, %strLocalSettingsIni%, GroupVars, GroupNum ; If not equal to shared GroupNum, EWO, at POS leave group and rejoin
IniRead, boolIsLeader, %strLocalSettingsIni%, GroupVars, IsLeader
IniRead, TimeSharedLastUpdated, %strLocalSettingsIni%, GroupVars, TimeSharedLastUpdated
;*** Need to change if bot doesn't use probes, as this call causes ERROR if not in INI file
IniRead, strProbeNameType, %strLocalSettingsIni%, GroupVars, ProbeNameType
IniRead, intProbesDeployed, %strLocalSettingsIni%, GroupVars, ProbesDeployed
;**** Get Shared Settings ****
IniRead, intSharedGroupNum, %strSharedSettingsPath%, GroupVars, GroupNum
IniRead, intSharedHostiles, %strSharedSettingsPath%, DScan, Hostiles
IniRead, friendlyShips, %strSharedSettingsPath%, Friendlies
IniRead, sharedHostileFoundTime, %strSharedSettingsPath%, DScan, HostileFoundTime
;**** Get DScan Settings ****
IniRead, ScanBtnPos1, %strLocalSettingsIni%, ScnBtnPos, ScnBtn1
IniRead, ScanBtnPos2, %strLocalSettingsIni%, ScnBtnPos, ScnBtn2
;IniRead, OverTabPos1, %strLocalSettingsIni%, OverTabPos, OverTab1
;IniRead, OverTabPos2, %strLocalSettingsIni%, OverTabPos, OverTab2
IniRead, DscanPos1, %strLocalSettingsIni%, DscanPos, Dscan1
IniRead, DscanPos2, %strLocalSettingsIni%, DscanPos, Dscan2
IniRead, POSPos1, %strLocalSettingsIni%, POSPos, POS1
IniRead, POSPos2, %strLocalSettingsIni%, POSPos, POS2
;MsgBox mouse positions = %ScanBtnPos1%, %ScanBtnPos2%
If(debug){
IniDelete, %strLocalSettingsIni%, debug
MsgBox Cleared DEBUG
IniWrite, %strCurrentShip%, %strLocalSettingsIni%, debug, strCurrentShip
IniWrite, %intLocalGroupNum%, %strLocalSettingsIni%, debug, intLocalGroupNum
IniWrite, %boolIsLeader%, %strLocalSettingsIni%, debug, boolIsLeader
IniWrite, %TimeSharedLastUpdated%, %strLocalSettingsIni%, debug, TimeSharedLastUpdated
IniWrite, %strProbeNameType%, %strLocalSettingsIni%, debug, strProbeNameType
IniWrite, %intProbesDeployed%, %strLocalSettingsIni%, debug, intProbesDeployed
IniWrite, %intSharedGroupNum%, %strLocalSettingsIni%, debug, intSharedGroupNum
IniWrite, %intSharedHostiles%, %strLocalSettingsIni%, debug, intSharedHostiles
IniWrite, %sharedHostileFoundTime%, %strLocalSettingsIni%, debug, sharedHostileFoundTime
IniWrite, %friendlyShips%, %strLocalSettingsIni%, debug, friendlyShips
MsgBox , All variables written to %strLocalSettingsIni%
}
}
;****************** Make sure that DScan is setup in INI file ***************************
CheckSettings()
{
IfNotExist, %strLocalSettingsIni%
{
;************ Get Local Ship Settings ************
If (debug){
MsgBox %strLocalSettingsIni% does NOT Exist!!
}
MsgBox It seems that this is the first time you have run this script. Click OK to begin setup. Whenever you change leaders, ship or ship names you will need to edit or delete the file at %strLocalSettingsIni%
MsgBox, 36, Leader, Will this be the Leader?
IfMsgBox Yes
{
boolIsLeader := true
IniWrite, %boolIsLeader%, %strLocalSettingsIni%, GroupVars, IsLeader
IniWrite, 0, %strLocalSettingsIni%, GroupVars, GroupNum
IniWrite, 0, %strSharedSettingsPath%, GroupVars, GroupNum
}
Else{
IniWrite, false, %strLocalSettingsIni%, GroupVars, IsLeader
}
InputBox, strUserInputShipName, strUserInputShipName, Each bot's ship name needs to be different! Copy and Paste the ship name into here, , , , , , , 2147483,
InputBox, strUserInputShipType, strUserInputShipType, Input the EXACT ship type into here, , , , , , , 2147483,
strCurrentShip := strUserInputShipName . strUserInputShipType
If (debug){
MsgBox strCurrentShip = %strCurrentShip%
}
IniWrite, %strCurrentShip%, %strLocalSettingsIni%, GroupVars, ShipNameType
IniWrite, %A_NowUTC%, %strLocalSettingsIni%, GroupVars, TimeSharedLastUpdated
IniWrite, %A_NowUTC%, %strSharedSettingsPath%, Friendlies, %strCurrentShip%
MsgBox, 36, Probes, Will the ship be using a Probe Launcher?
IfMsgBox Yes
{
If (debug){
MsgBox User selected that a Probe Launcher may be used
}
MsgBox, It is assumed that you will use 8 probes whenever probing or else the DScan synching and Probe Scanning may be unstable.
InputBox, strUserInputProbeName, strUserInputProbeName, Input the EXACT Probe Name into here (usually Scanner Probe), , , , , , , 2147483,
InputBox, strUserInputProbeType, strUserInputProbeType, Input the EXACT Probe Name into here (usually like Sisters Combat Scanner Probe), , , , , , , 2147483,
strProbeNameType := strUserInputProbeName . strUserInputProbeType
If (debug){
MsgBox strProbeNameType = %strProbeNameType%
}
IniWrite, %strProbeNameType%, %strLocalSettingsIni%, GroupVars, ProbeNameType
IniWrite, 0, %strLocalSettingsIni%, GroupVars, ProbesDeployed
}
;Set things so they don't error
IniWrite, 20140104205840, %strLocalSettingsIni%, DScan, HostileFoundTime
IniWrite, 20140104205840, %strSharedSettingsPath%, DScan, HostileFoundTime
IniWrite, 0, %strLocalSettingsIni%, DScan, Hostiles
IniWrite, 0, %strSharedSettingsPath%, DScan, Hostiles
IniWrite, 2, %strLocalSettingsIni%, EPResults, Result
;************ Get DScan Settings ************
MsgBox Time to setup your DScan settings. Please read the instructions before clicking ok to continue. Ensure that your DScan is sorted by Type (Ideally)
;TrayTip, Autopilot Setup, Please move mouse to Scan button and press Alt
;KeyWait, Alt, D
;CoordMode Mouse
;MouseGetPos, xpos1, ypos1
;ScnBtnPos = %xpos1%, %ypos1%
;TrayTip
;KeyWait, Alt, U
/** TrayTip, Autopilot Setup, Please move mouse to main Overview Tab and press Alt
KeyWait, Alt, D
CoordMode Mouse
MouseGetPos, xpos2, ypos2
OverTabPos = %xpos2%, %ypos2%
TrayTip
KeyWait, Alt, U
*/
TrayTip, Autopilot Setup, Please Move mouse to d-scan contents display is always visible, and press Alt
KeyWait, Alt, D
CoordMode Mouse
MouseGetPos, xpos3, ypos3
DscanPos = %xpos3%, %ypos3%
TrayTip
KeyWait, Alt, U
TrayTip, Autopilot Setup, Please Move mouse to the POS bookmark and press Alt NOT SURE IF THIS WORKS ANY MORE
KeyWait, Alt, D
CoordMode Mouse
MouseGetPos, xpos4, ypos4
POSPos = %xpos4%, %ypos4%
TrayTip
KeyWait, Alt, U
IniWrite, %xpos1%, %strLocalSettingsIni%, ScnBtnPos, ScnBtn1
IniWrite, %ypos1%, %strLocalSettingsIni%, ScnBtnPos, ScnBtn2
; IniWrite, %xpos2%, %strLocalSettingsIni%, OverTabPos, OverTab1
; IniWrite, %ypos2%, %strLocalSettingsIni%, OverTabPos, OverTab2
IniWrite, %xpos3%, %strLocalSettingsIni%, DscanPos, Dscan1
IniWrite, %ypos3%, %strLocalSettingsIni%, DscanPos, Dscan2
IniWrite, %xpos4%, %strLocalSettingsIni%, POSPos, POS1
IniWrite, %ypos4%, %strLocalSettingsIni%, POSPos, POS2
}
}
ExitApp
^+p::pause
Return
|
|
|
|
Last Edit: 2016/08/04 04:56 By Minesalot.
|
|
|
Re: Wormhole Mining with D-Scan 9 Years, 7 Months ago
|
Karma: 10
|
|
Hey innominate , have you thought about adapting this WH script to the Anomaly hunter algorithm? It just crossed my mind. It would be fun to load up a Drake to run WH Anoms.
|
|
|
|
|
|
|
Re: Wormhole Mining with D-Scan 9 Years, 7 Months ago
|
Karma: 33
|
|
Actually, no I haven't. But there'd have to be at least 2-3 (1 looter) there to make sure you have D-Scan coverage. Actually the looter would probably do most of the D-Scanning. It could work, probably better than mining in WHs. Less people mess with combat ships in WHs. That was my problem, too many people camping my WHs to gank my miners. It took a lot of time replacing losses and they didn't mine as much.
|
|
|
|
|
|
|
Re: Wormhole Mining with D-Scan 9 Years, 7 Months ago
|
Karma: 10
|
|
Gonna have to put this into some action then. I imagine I could set up a POS in roughly the center of a WH and have the booster scanning, as well as the miners, and not have to worry about the looter or hunter scanning. But they would need to check the shared.ini often by just doing an iniread of the shareddscan hostiles found WO. of course fly drakes or gilas, something not too pricey.
|
|
|
|
|
|
|
Re: Wormhole Mining with D-Scan 9 Years, 7 Months ago
|
Karma: 33
|
|
Well the miners did check often. A miner would D-Scan every 6-8 seconds, unless doing a jet-can. So with 4 in a WH I limited it to on e per second.
Wormholes are a hard life.
|
|
|
|
|
|
|
Forums
