Ok, I respec'd my entertainer to crafter recently to help me out in REing. I wrote a simple program in autoIT to help out with the grind. It is designed for the structures grind and using large stacks of resources. I bought about 500k of the same copper and used that most of the time. I started off with RE tools. Then wind power generators. After I got to crafting stations, which can be made with the same copper, I went to bed. Was only a couple levels away from master when I woke up. It isn't the fastest, but doing things afk isn't going to be, but you don't have to sit there the whole time either. My premium expired so thought I would post it for another month. This is a very simple script, but is very effective.
The setup:
I placed 6 crafting tools in my toolbar from 1-6. Opened up number 6 and went through a quick test craft of what I was going to be crafting.
I made 2 macros. I put craft 1 in spot 7 and craft 2 in spot 8.
craft1
/ui action defaultButton;
craft2
/nextcraftingstage;
/nextcraftingstage;
/nextcraftingstage;
/createprototype practice noitem;
/createprototype practice noitem;
I then opened up tool 5 and got to resource selection screen and ran the script. Don't forget to finish the crafting by pressing 8 before the script starts.
The script:
(!empty($user->lang['CODE'])) ? $user->lang['CODE'] : ucwords(strtolower(str_replace('_', ' ', 'CODE'))):
;Auto Craft macro for Star Wars Galaxies
Global $Paused, $Showme, $Count = 0, $Acount = 0
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
;WinActivate( "Star Wars Galaxies", "");activate the SWG window
#include <Misc>
#requireadmin ;this may be needed to fix some issues with Vista and overly tight security
Sleep ( 400 )
Send ("{F9}")
Sleep (3000)
SplashTextOn("Auto Craft Setup", "Starting Setup. Please Standby... ", 400, 100, -1, -1, 0, "Ariel", 15)
Sleep(4000)
SplashOff()
Sleep("1000")
SplashTextOn("Auto Craft Setup", "Please Click on the center of the first resource. If only ony resource spot is used click in the same spot all 3 times it is asked. ", 400, 100, -1, -1, 0, "Ariel", 15)
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$res1 = $pos[0]
$res2 = $pos[1]
Sleep ( 1000 )
SplashTextOn("Auto Craft Setup", "Please Click on the center of the second resource. If only ony resource spot is used click in the same spot all 3 times it is asked. ", 400, 100, -1, -1, 0, "Ariel", 15)
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$res3 = $pos[0]
$res4 = $pos[1]
Sleep ( 1000 )
SplashTextOn("Auto Craft Setup", "Please Click on the center of the third resource. If only ony resource spot is used click in the same spot all 3 times it is asked. ", 400, 100, -1, -1, 0, "Ariel", 15)
While 1
Sleep ( 100 )
If _IsPressed("01") Then
$pos = MouseGetPos()
ExitLoop
EndIf
WEnd
SplashOff()
$res5 = $pos[0]
$res6 = $pos[1]
Sleep ( 1000 )
SplashTextOn("Auto Craft Setup", "AutoCraft Setup Complete. Starting in 5 Seconds... ", 400, 100, -1, -1, 0, "Ariel", 15)
Sleep(4000)
SplashOff()
While 1
Sleep("2000")
Send("1")
Sleep("2000")
Send("7")
Sleep("2000")
MouseClick ( "left" , $res1, $res2, 3 )
Sleep("1000")
MouseClick ( "left" , $res3, $res4, 3 )
Sleep("1000")
MouseClick ( "left" , $res5, $res6, 3 )
Sleep("1000")
Send("8")
Sleep("2000")
Send("2")
Sleep("2000")
Send("7")
Sleep("2000")
MouseClick ( "left" , $res1, $res2, 3 )
Sleep("1000")
MouseClick ( "left" , $res3, $res4, 3 )
Sleep("1000")
MouseClick ( "left" , $res5, $res6, 3 )
Sleep("1000")
Send("8")
Sleep("2000")
Send("3")
Sleep("2000")
Send("7")
Sleep("2000")
MouseClick ( "left" , $res1, $res2, 3 )
Sleep("1000")
MouseClick ( "left" , $res3, $res4, 3 )
Sleep("1000")
MouseClick ( "left" , $res5, $res6, 3 )
Sleep("1000")
Send("8")
Sleep("2000")
Send("4")
Sleep("2000")
Send("7")
Sleep("2000")
MouseClick ( "left" , $res1, $res2, 3 )
Sleep("1000")
MouseClick ( "left" , $res3, $res4, 3 )
Sleep("1000")
MouseClick ( "left" , $res5, $res6, 3 )
Sleep("1000")
Send("8")
Sleep("2000")
Send("5")
Sleep("2000")
Send("7")
Sleep("2000")
MouseClick ( "left" , $res1, $res2, 3 )
Sleep("1000")
MouseClick ( "left" , $res3, $res4, 3 )
Sleep("1000")
MouseClick ( "left" , $res5, $res6, 3 )
Sleep("1000")
Send("8")
Sleep("2000")
Send("6")
Sleep("2000")
Send("7")
Sleep("2000")
MouseClick ( "left" , $res1, $res2, 3 )
Sleep("1000")
MouseClick ( "left" , $res3, $res4, 3 )
Sleep("1000")
MouseClick ( "left" , $res5, $res6, 3 )
Sleep("1000")
Send("8")
Sleep("2000")
WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc