KegRaider

Damn, I thought I was the only unlucky person to have to suffer using Remedy 7. We only get the web interface, which is woahfully slow! I wish you luck on your script, and would be interested if it could actually help out and rename the tasks we get to something more human. -KegRaider

Hi Keilamym, Would something like work for you. I haven't tested it, but I see no reason why you couldn't change the text colour using that script. - KegRaider

Hey mate, With all my time fiddling with bots and pixel searches, I'd make it a little easier for the program to actually find the target by searching for a NON predominant colour, like for example "0xC96A00", the brown stick holding up the target >_< . Then all you need to do is MouseClick 40 pixels above that. -> KegRaider

Oh thank you exodius! My old scripts for changing users IP addresses without being an admin work again. \o/ Kudo's mate. -KegRaider

I know, late reply....however, I made a few addtitions to this script also. The most notable is the use of an 'Afterburner' to get you to the asteriods quicker. Just edit the 'main.au3' and change this section... I think I might have changed the "Selected Items" section, so ignore that if need be. You can just add the "Afterburner start and stop" bits to your code. I will edit this code some more and post all my changes when I've finished. Thanks for a great project. Also, if you are concerned about stopping too close to the 10km limit, just add a sleep timer before the stop ship order, although, I have not had that problem yet, as most of my lasers work from 12km, so I suggest you upgrade your ship to Carrier or Barge class (strip miners FTW!). For all those interested, yes this does work fine, I've been using it for the past 3 months, you just need to be prepared to edit the code yourself to get it working on your screen layout. ;; ------------------------------------- ;; Approach() ;; ------------------------------------- Func Approach() ; Click on the approach button in the overview window. Sleep(500) If (PixelGetColor($DistandM[0], $DistandM[1]) = 0) Then PrintStatus("Approaching.") MouseClick("left", $ApproachLoc[0], $ApproachLoc[1], 1, $MouseSpeed) Sleep(200) ;Fire the Afterburner MouseClick("Left", 770, 960, 1, $MouseSpeed) EndIf Do ; Wait for the end of the M in "Distance: X,XXX M" in the Overview Info Until PixelGetColor($DistandM[0], $DistandM[1]) > 0 ; Set speed to 0.0 M/s MouseClick("left", $clientWidth / 2 - 43, $clientHeight - 24, 1, $MouseSpeed) WaitFullStop() Return 5 EndFunc ;==>Approach ;; ------------------------------------- ;; LockTarget() ;; ------------------------------------- Func LockTarget() PrintStatus("Locking Asteriod.") ; Stop the afterburner MouseClick("Left", 770, 960, 1, $MouseSpeed) Sleep(200) ; Click on the first button in the Overview Info window. MouseClick("left", $TargetLoc[0], $TargetLoc[1], 1, $MouseSpeed) Do ; looking for the Red X in the Lock/Unlock button in Overview Info window. Until (_ColorGetRed(PixelGetColor($TargetLoc[0], $TargetLoc[1])) > Dec("D0")) Return 6 EndFunc ;==>LockTarget

Thanks for the nifty little updater monoceres, all my scripts now compile again.

Still, it's a great way for AutoIT to gain some funds! I donated because of this project, although, I have never even used it yet

Hi DNnlee, I have been working on a Bot also, tweaking it for quite some time, and realized that I also needed a 'Pause' function. I pressed F1 in SciTE and looked for the solution. In this case the help file was perfect. My bot relies heavily on the mouse, so me pressing a button wouldn't suffice. I made it as a "Hotkey" and it works great. This is taken straight from the help file.... Global $Paused HotKeySet("{PAUSE}", "TogglePause") ;;;; Body of YOUR program would go here;;;; While 1 Sleep(100) WEnd ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc

I also used to use the proggie called "Burn2thebrim", and it's FREEWARE Haven't used it in a while, but it was good. -> KegRaider.

Thanks November! This is EXACTLY what i was looking to do myself today, with one addition.... To show the free space on C: so we can find how many users have filled the HDD's with MP3's etc. Shouldn't be hard to implement an autoit equivalent to the DOS batch i wrote a while back.. net use y: \\PCNAME\C$ echo Asset# PCNAME >> c:\freelog.txt dir y: | grep -i "bytes free" >> C:\freelog.txt c: cd \ net use y: /delete Shall post here when i get a minute or 10

Hi Mate, First of all, I created a file on our PDC called installed.txt and formatted the head as follows... PC | YYYY/MM/DD | TIME | USER | =========|============|============|========| I have the following lines of code in my script to write to this file.... $file = FileOpen("\\server3\scripts$\logs\WLAN\installed.txt", 1) FileWrite ($file, @Computername & " | " & _NowCalcDate() & " | " &_NowTime() &" | " & @UserName & " |" & @CRLF) FileClose($file) This will give you an output like this... PC | YYYY/MM/DD | TIME | USER | =======|=========|=======|=====| WorkPC1 | 2006/07/01 | 2:09:02 PM | spidey | WorkPC2 | 2006/07/01 | 5:31:35 PM | batman | I don't have a need to read the file again, but, if you did then perhaps a quick search for "FileRead" and extract what you need there...good luck.

Unfortunately I cannot test it. I'm at work behind a bloody strict firewall (remote minesite) and i don't fly home for a few more days yet, however, I'm just dialing my ISP and trying via a direct (*cough* 56k) connection Crossing fingers. *Edit: Well it seemed to work, sent me a validation code

You're a champ! I'll wait patiently beside my email (no rush)

Fantastic idea Valuater! Pity I donated to Jon only 15 minutes ago lol, maybe i should searched "Donation" before I donated to get hooked up as "Developer" Any chance of hooking a fellow scripter up I wanted to express my love to the script that has helped me out of a pickle quite a number of times since using it. Once again, kudo's on a noble idea.

YAY! Fixed it Pondered over a Hot Cross Bun, and hot cup of Moccona and the answer hit me like a bus! changed $Tech1 = "Bruce Wayne" $Tech2 = "Ben Grim" $Tech3 = "Clark Kent" $Tech4 = "Peter Parker" $Tech5 = "Bill Bixby" $TechEmail1 = "Bruce.Wayne@superheros.com" $TechEmail2 = "Ben.Grim@superheros.com" $TechEmail3 = "Clark.Kent@superheros.com" $TechEmail4 = "Peter.Parker@@superheros.com" $TechEmail5 = "Bill.Bixby@superheros.com" $name = "0" $email = "0" oÝ÷ Ù©Ýr§çZ[.¥êázº7öËh¶¬jëh×6 If ($name = 'bwayne' Or @UserName = 'bwayne') Then sleep (150) send ($Tech1) sleep (150) send ('{TAB}') sleep (150) send ($TechEmail1) sleep (150) send ('{ENTER}') EndIf Works a treat now Thanks for being my "sounding board"....maybe next time i beg someone will answer