|
|
| (33 intermediate revisions by the same user not shown) |
| Line 1: |
Line 1: |
| − | <pre> | + | <googlemap zoom=1 width=410 height=512 iconsize=32x32 icons=http://sharpnetwork.net/atitd/images/markers/{label}.png> |
| − | // This currently works for my screen resolution 1024:768 with ATITD in full screen | + | (SA) 1700,1700, Fennec Trap,1700,1700 |
| − | // Pin the crematory window in the upper left of the screen as far into the corner as possible | + | (SA) 1900,1700, Fennec Trap,1900,1700 |
| − | // Load with stuff manually and make sure the window is fully refreshed so that the | + | (SA) 2100,1700, Fennec Trap,2100,1700 |
| − | // "fire crematory" button appears and there is no slider bar!
| + | (SA) 2300,1700, Fennec Trap,2300,1700 |
| | + | (SA) 2500,1700, Fennec Trap,2500,1700 |
| | | | |
| − | // Start the macro - it will click the fire button which will also bring ATITD to the top
| + | (SA) 2500,1500, Fennec Trap,2500,1500 |
| − | // Once the crematory has finished go back to ACTOOL and stop the macro - it currently just
| + | (SA) 2300,1500, Fennec Trap,2300,1500 |
| − | // has a huge crude loop - it would be relatively easy to monitor the progress bar but I
| + | (SA) 2100,1500, Fennec Trap,2100,1500 |
| − | // haven't done that yet
| + | (SA) 1900,1500, Fennec Trap,1900,1500 |
| | + | (SA) 1707,1500, Fennec Trap,1707,1500 |
| | | | |
| − | // For different screen resolutions I guess use "pixie" or something similar to get coords
| + | (SA) 1700,1300, Fennec Trap,1700,1300 |
| − | // Need to change slider and button numbers under slider control for your particular crematory
| + | (SA) 1900,1300, Fennec Trap (Up mtn 1953.1296),1900,1300 |
| − | // (The wiki explains how to analyse your crematory)
| + | (SA) 2100,1300, Fennec Trap,2100,1300 |
| | + | (SA) 2300,1300, Fennec Trap,2300,1300 |
| | + | (SA) 2500,1300, Fennec Trap,2500,1300 |
| | | | |
| − | //SACFAR:
| |
| − | //Sliders numbered left-to-right 1-7.
| |
| − | //Buttons labeled left-to-right 1-5.
| |
| | | | |
| − | //Button 1 -> 3, 7
| + | (CS) 592, -6168, Queens Retreat, 592, -6168 |
| − | //Button 2 -> 1
| + | (CS) 4284, 7630, Pyramid Lake 4284, 7630 |
| − | //Button 3 -> 2
| + | (CS) 4292, -633, Falcon's Bay 4292, -633 |
| − | //Button 4 -> 5, 6
| + | (CS) 827, -3656, Meroe 827, -3656 |
| − | //Button 5 -> 4
| + | (CS) 1419, 1791, Shabbat Ab 1419, 1791 |
| | + | (CS) 1697, 3718, Stillwater 1697, 3718 |
| | + | (CS) 738, -761, Saqqarah 738, -761 |
| | + | (CS) -1419, 2769, Nomad's Paradise -1419, 2769 |
| | + | (CS) -1683, 6317, Heaven's Gate -1683, 6317 |
| | + | (CS) -403, 6577, Cat's Claw Ridge -403, 6577 |
| | + | (CS) 1030, 6956, ADN 1030, 6956 |
| | + | (CS) 3210, 4375, Sinai 3210, 4375 |
| | + | (CS) -2090, -480, Khnum -2090, -480 |
| | | | |
| − | | + | </googlemap> |
| − | | |
| − | Constants
| |
| − | | |
| − | | |
| − | | |
| − | //Make sure the "Take..." option is NOT in the pinup menu or else this script will fail (burn your loaded resources).
| |
| − | //Make sure the crematory is completely empty before pinning up the menu, in the upper left corner.
| |
| − | //More instructions/screenshots at http://www.atitd.org/wiki/tale4/User:Cegaiel/Macros/Crematory
| |
| − | | |
| − | //These settings will work on 1024x768. Only change these it you want it work at a different resolution.
| |
| − | | |
| − | // Vertical position of middle of slider bar
| |
| − | midSlider = 270
| |
| − | | |
| − | // Vertical position of button centres
| |
| − | vrtButton = 350
| |
| − | | |
| − | // Horizontal positions of seven slider bars
| |
| − | hrzSlider1 = 30
| |
| − | hrzSlider2 = 66
| |
| − | hrzSlider3 = 102
| |
| − | hrzSlider4 = 138
| |
| − | hrzSlider5 = 174
| |
| − | hrzSlider6 = 210
| |
| − | hrzSlider7 = 246
| |
| − | | |
| − | | |
| − | // Horizontal positions of five button centres
| |
| − | hrzButton1 = 57
| |
| − | hrzButton2 = 97
| |
| − | hrzButton3 = 137
| |
| − | hrzButton4 = 177
| |
| − | hrzButton5 = 217
| |
| − | | |
| − | | |
| − | // Position of left most point of red line
| |
| − | hrzRed = 34
| |
| − | verRed = 179
| |
| − | | |
| − | //Extra Delay if the dots are too far to the bottom or top.
| |
| − | ExtraDelay = 1000
| |
| − | | |
| − | //Leave these alone
| |
| − | count = 0
| |
| − | counthi = 0
| |
| − | countlo = 0
| |
| − | clickflag = 0
| |
| − | flag = 1
| |
| − | posSlider1 = 0
| |
| − | posSlider2 = 0
| |
| − | posSlider3 = 0
| |
| − | posSlider4 = 0
| |
| − | posSlider5 = 0
| |
| − | posSlider6 = 0
| |
| − | posSlider7 = 0
| |
| − | comSlider1 = 0
| |
| − | comSlider2 = 0
| |
| − | posSlider1old = 0
| |
| − | posSlider2old = 0
| |
| − | posSlider3old = 0
| |
| − | posSlider4old = 0
| |
| − | posSlider5old = 0
| |
| − | posSlider6old = 0
| |
| − | posSlider7old = 0
| |
| − | END
| |
| − | | |
| − | // Clicks to fire the crematory (need to specify centre of fire button)
| |
| − | mousepos 62, 91
| |
| − | delay 150
| |
| − | LeftClick
| |
| − | | |
| − | // First call to obtain initial positions of sliders
| |
| − | call GETSLIDERPOS
| |
| − | Compute posSlider1old = $posSlider1
| |
| − | Compute posSlider2old = $posSlider2
| |
| − | Compute posSlider3old = $posSlider3
| |
| − | Compute posSlider4old = $posSlider4
| |
| − | Compute posSlider5old = $posSlider5
| |
| − | Compute posSlider6old = $posSlider6
| |
| − | Compute posSlider7old = $posSlider7
| |
| − | | |
| − | // Crude loop at the moment. Should really monitor the progress bar.
| |
| − | | |
| − | loop 500
| |
| − | | |
| − | | |
| − | //Credit to Daniels for this sniplet of code to watch the red progress bar
| |
| − | //and exit script when the bar disappears (when done).
| |
| − | | |
| − | // Checks whether the batch is done, breaks loop if so
| |
| − | LoadRGB $hrzRed,$verRed
| |
| − | delay 100
| |
| − | if {RGBRed} < 250
| |
| − | break
| |
| − | END
| |
| − | | |
| − | | |
| − | | |
| − | | |
| − | call GETSLIDERPOS
| |
| − | | |
| − | // One slider per button control
| |
| − | // Need to alter slider and button numbers for particular crematory
| |
| − | | |
| − | //1st single slider/button combo:
| |
| − | | |
| − | if $posSlider2 > 0
| |
| − | if $posSlider2 > $posSlider2old
| |
| − | mousepos $hrzButton3,$vrtButton
| |
| − | delay 100
| |
| − | LeftClick
| |
| − | if $posSlider2 > 47
| |
| − | delay $ExtraDelay
| |
| − | End
| |
| − | END
| |
| − | END
| |
| − | if $posSlider2 < 0
| |
| − | if $posSlider2 < $posSlider2old
| |
| − | mousepos $hrzButton3,$vrtButton
| |
| − | delay 100
| |
| − | LeftClick
| |
| − | if $posSlider2 < -47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | END
| |
| − | END
| |
| − | | |
| − | //2nd single slider/button combo:
| |
| − | | |
| − | if $posSlider4 > 0
| |
| − | if $posSlider4 > $posSlider4old
| |
| − | mousepos $hrzButton5,$vrtButton
| |
| − | delay 100
| |
| − | LeftClick
| |
| − | if $posSlider4 > 47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | END
| |
| − | END
| |
| − | if $posSlider4 < 0
| |
| − | if $posSlider4 < $posSlider4old
| |
| − | mousepos $hrzButton5,$vrtButton
| |
| − | delay 100
| |
| − | LeftClick
| |
| − | if $posSlider4 < -47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | END
| |
| − | END
| |
| − | | |
| − | //3rd single slider/button combo:
| |
| − | | |
| − | if $posSlider1 > 0
| |
| − | if $posSlider1 > $posSlider1old
| |
| − | mousepos $hrzButton2,$vrtButton
| |
| − | delay 100
| |
| − | LeftClick
| |
| − | if $posSlider1 > 47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | END
| |
| − | END
| |
| − | if $posSlider1 < 0
| |
| − | if $posSlider1 < $posSlider1old
| |
| − | mousepos $hrzButton2,$vrtButton
| |
| − | delay 100
| |
| − | LeftClick
| |
| − | if $posSlider1 < -47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | END
| |
| − | END
| |
| − | | |
| − | // Two sliders per button control (use centre of mass, i.e. average)
| |
| − | // Need to alter slider and button numbers for particular crematory
| |
| − | | |
| − | //1st two slider/one button combo:
| |
| − | | |
| − | Compute comSlider1 = ($posSlider3 + $posSlider7)/2
| |
| − | if $comSlider1 > 0
| |
| − | Compute clickflag = 0
| |
| − | if $posSlider3 > $posSlider3old
| |
| − | Compute clickflag = 1
| |
| − | END
| |
| − | if $posSlider7 > $posSlider7old
| |
| − | Compute clickflag = 1
| |
| − | END
| |
| − | if $clickflag = 1
| |
| − | mousepos $hrzButton1,$vrtButton
| |
| − | delay 100
| |
| − | LeftClick
| |
| − | if $posSlider3 > 47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | if $posSlider7 > 47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | END
| |
| − | END
| |
| − | if $comSlider1 < 0
| |
| − | Compute clickflag = 0
| |
| − | if $posSlider3 < $posSlider3old
| |
| − | Compute clickflag = 1
| |
| − | END
| |
| − | if $posSlider7 < $posSlider7old
| |
| − | Compute clickflag = 1
| |
| − | END
| |
| − | if $clickflag = 1
| |
| − | mousepos $hrzButton1,$vrtButton
| |
| − | delay 100
| |
| − | LeftClick
| |
| − | if $posSlider3 < -47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | if $posSlider7 < -47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | END
| |
| − | END
| |
| − | | |
| − | //2nd two slider/one button combo:
| |
| − | | |
| − | Compute comSlider2 = ($posSlider5 + $posSlider6)/2
| |
| − | if $comSlider2 > 0
| |
| − | Compute clickflag = 0
| |
| − | if $posSlider5 > $posSlider5old
| |
| − | Compute clickflag = 1
| |
| − | END
| |
| − | if $posSlider6 > $posSlider6old
| |
| − | Compute clickflag = 1
| |
| − | END
| |
| − | if $clickflag = 1
| |
| − | mousepos $hrzButton4,$vrtButton
| |
| − | delay 100
| |
| − | LeftClick
| |
| − | if $posSlider5 > 47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | if $posSlider6 > 47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | END
| |
| − | END
| |
| − | if $comSlider2 < 0
| |
| − | Compute clickflag = 0
| |
| − | if $posSlider5 < $posSlider5old
| |
| − | Compute clickflag = 1
| |
| − | END
| |
| − | if $posSlider6 < $posSlider6old
| |
| − | Compute clickflag = 1
| |
| − | END
| |
| − | if $clickflag = 1
| |
| − | mousepos $hrzButton4,$vrtButton
| |
| − | delay 100
| |
| − | LeftClick
| |
| − | if $posSlider5 < -47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | if $posSlider6 < -47
| |
| − | delay $ExtraDelay
| |
| − | END
| |
| − | END
| |
| − | END
| |
| − | | |
| − | | |
| − | Compute posSlider1old = $posSlider1
| |
| − | Compute posSlider2old = $posSlider2
| |
| − | Compute posSlider3old = $posSlider3
| |
| − | Compute posSlider4old = $posSlider4
| |
| − | Compute posSlider5old = $posSlider5
| |
| − | Compute posSlider6old = $posSlider6
| |
| − | Compute posSlider7old = $posSlider7
| |
| − | | |
| − | END
| |
| − | | |
| − | // Procedure to find slider positions
| |
| − | | |
| − | Procedure GETSLIDERPOS
| |
| − |
| |
| − | Compute counthi = $midSlider
| |
| − | Compute countlo = $midSlider
| |
| − | Compute flag = 1
| |
| − | IsBlack $hrzSlider1, $midSlider
| |
| − | Compute posSlider1 = 0
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | while $flag > 0
| |
| − | Compute counthi = $counthi + 6
| |
| − | IsBlack $hrzSlider1, $counthi
| |
| − | Compute posSlider1 = $midSlider - $counthi
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | Compute countlo = $countlo - 6
| |
| − | IsBlack $hrzSlider1, $countlo
| |
| − | Compute posSlider1 = $midSlider - $countlo
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | END
| |
| − | | |
| − | Compute counthi = $midSlider
| |
| − | Compute countlo = $midSlider
| |
| − | Compute flag = 1
| |
| − | IsBlack $hrzSlider2, $midSlider
| |
| − | Compute posSlider2 = 0
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | while $flag > 0
| |
| − | Compute counthi = $counthi + 6
| |
| − | IsBlack $hrzSlider2, $counthi
| |
| − | Compute posSlider2 = $midSlider - $counthi
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | Compute countlo = $countlo - 6
| |
| − | IsBlack $hrzSlider2, $countlo
| |
| − | Compute posSlider2 = $midSlider - $countlo
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | END
| |
| − | | |
| − | Compute counthi = $midSlider
| |
| − | Compute countlo = $midSlider
| |
| − | Compute flag = 1
| |
| − | IsBlack $hrzSlider3, $midSlider
| |
| − | Compute posSlider3 = 0
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | while $flag > 0
| |
| − | Compute counthi = $counthi + 6
| |
| − | IsBlack $hrzSlider3, $counthi
| |
| − | Compute posSlider3 = $midSlider - $counthi
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | Compute countlo = $countlo - 6
| |
| − | IsBlack $hrzSlider3, $countlo
| |
| − | Compute posSlider3 = $midSlider - $countlo
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | END
| |
| − | | |
| − | Compute counthi = $midSlider
| |
| − | Compute countlo = $midSlider
| |
| − | Compute flag = 1
| |
| − | IsBlack $hrzSlider4, $midSlider
| |
| − | Compute posSlider4 = 0
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | while $flag > 0
| |
| − | Compute counthi = $counthi + 6
| |
| − | IsBlack $hrzSlider4, $counthi
| |
| − | Compute posSlider4 = $midSlider - $counthi
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | Compute countlo = $countlo - 6
| |
| − | IsBlack $hrzSlider4, $countlo
| |
| − | Compute posSlider4 = $midSlider - $countlo
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | END
| |
| − | | |
| − | Compute counthi = $midSlider
| |
| − | Compute countlo = $midSlider
| |
| − | Compute flag = 1
| |
| − | IsBlack $hrzSlider5, $midSlider
| |
| − | Compute posSlider5 = 0
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | while $flag > 0
| |
| − | Compute counthi = $counthi + 6
| |
| − | IsBlack $hrzSlider5, $counthi
| |
| − | Compute posSlider5 = $midSlider - $counthi
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | Compute countlo = $countlo - 6
| |
| − | IsBlack $hrzSlider5, $countlo
| |
| − | Compute posSlider5 = $midSlider - $countlo
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | END
| |
| − | | |
| − | Compute counthi = $midSlider
| |
| − | Compute countlo = $midSlider
| |
| − | Compute flag = 1
| |
| − | IsBlack $hrzSlider6, $midSlider
| |
| − | Compute posSlider6 = 0
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | while $flag > 0
| |
| − | Compute counthi = $counthi + 6
| |
| − | IsBlack $hrzSlider6, $counthi
| |
| − | Compute posSlider6 = $midSlider - $counthi
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | Compute countlo = $countlo - 6
| |
| − | IsBlack $hrzSlider6, $countlo
| |
| − | Compute posSlider6 = $midSlider - $countlo
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | END
| |
| − | | |
| − | Compute counthi = $midSlider
| |
| − | Compute countlo = $midSlider
| |
| − | Compute flag = 1
| |
| − | IsBlack $hrzSlider7, $midSlider
| |
| − | Compute posSlider7 = 0
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | while $flag > 0
| |
| − | Compute counthi = $counthi + 6
| |
| − | IsBlack $hrzSlider7, $counthi
| |
| − | Compute posSlider7 = $midSlider - $counthi
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | Compute countlo = $countlo - 6
| |
| − | IsBlack $hrzSlider7, $countlo
| |
| − | Compute posSlider7 = $midSlider - $countlo
| |
| − | Compute flag = 0
| |
| − | END
| |
| − | END
| |
| − | | |
| − | END
| |
| − | </pre> | |
