taultunleashed

Code: Register to unlock hidden link

SetActiveWindow SwgClient
constants
time=500 // sets the delay time in the entire macro
time2=2000 // sets the delay time in the entire macro
target=false // target loop
combat=tru //combat loop
running=true //main loop 
resting=true //resting loop
True=0
Pass=0
end
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Selects and seeks an active target that is in range
procedure target
constants
targetted=0
red=100
green=100
end

//While $target=false
keys {ins} //selects target
delay $time
call IsColor Red,200,888,14
//keys {RGBRed}
If $Pass=1
SetConst targetted = 1
Else
delay 50
keys {ins} //selects target
delay $time
call IsColor Red,200,888,14
If $Pass=1
SetConst targetted = 1
Else
delay 50
keys {ins} //selects target
delay $time
call IsColor Red,200,888,14
If $Pass=1
SetConst targetted = 1
Else
delay 50
keys {ins} //selects target
delay $time
call IsColor Red,200,888,14
If $Pass=1
SetConst targetted = 1
Else
KeyDown {Home} 2000
delay $time2
End If
End If
End If
End
//keys {RGBRed}
If $targetted=1
// attack word
keys go
delay $time
keys {return}
delay $time
//keys /pointblanksingle1
//delay $time
//keys {return}
//delay $time
keys /attack
delay $time
keys {return}
delay $time
keys /follow
delay $time
keys {return}
delay $time
//keys /healthShot1
While $targetted=1
// attack word
//keys go
delay $time
//keys {return}
//delay $time2
//keys /attack
delay $time
//keys {return}
//delay $time2
call IsColor Red,200,888,14
If $Pass=1
SetConst targetted = 1
Else
delay 50
call IsColor Red,200,888,14
If $Pass=1
SetConst targetted = 1
Else
delay 50
call IsColor Red,200,888,14
If $Pass=1
SetConst targetted = 1
Else
delay 50
call IsColor Red,200,888,14
If $Pass=1
SetConst targetted = 1
Else
delay 50
call IsColor Red,200,888,14
If $Pass=1
SetConst targetted = 1
Else
SetConst targetted = 0
End If
End
End
End
End
End
delay $time
//delay 2000
//keys /loot //loots monster
//delay $time
//keys {return}
//delay $time
keys /harvest meat //loots monster
delay $time
keys {return}
delay $time
// recall my friends
keys f
delay $time
keys {return}
delay $time
// recall my friends
//keys f
//delay $time
//keys {return}
//delay $time
End
//end
end

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure harvest // harvest the critter
keys /loot
delay $time
keys {return}
delay $time
setconst target=false //reset targeting loop
delay $time
end

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure rest 
//IsGrey 128, 16 //checks to see if health is low
setconst resting = true
while $resting = true
call IsColor Red,200,64,14
keys {RGBRed}
If $Pass=1
SetConst resting = false
Else
delay 50
call IsColor Red,200,64,14
If $Pass=1
SetConst resting = false
Else
delay 50
call IsColor Red,200,64,14
If $Pass=1
SetConst resting = false
Else
delay 50
call IsColor Red,200,64,14
If $Pass=1
// health is ok, go back to doing other stuff
SetConst resting = false
End If
End If
End If
End If
If $resting = true
// delay for a bit to get health back
keys /sit
delay $time
keys {return}
delay $time
//LeftClick
//KeyDown {esc} 1000
//delay $time
//KeyDown {esc} 1000
//delay $time
//keys /healDamage
//delay $time
//keys {return}
//delay $time
//delay 15000
//keys /healDamage
//delay $time
//keys {return}
//delay $time
//delay 15000
//keys /healDamage
//delay $time
//keys {return}
//delay $time
//delay 15000
//keys /healDamage
//delay $time
//keys {return}
//delay $time
//delay 15000
//keys /healDamage
//delay $time
//keys {return}
//delay $time
// call craft
delay 300000 //going to add crafting here during down time
keys /stand
delay $time
keys {return}
delay $time
End If
end
end
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

delay 5 sec //main loop
keydown {f7} 100
while $running=true //if health is low rest
//call rest
call target
end
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure IsColor using Color,ColorNum,x,y
set $True = 0
set $Pass = 0
while $True = 0
LoadRGB $x,$y
if $Color = Red
if {RGBRed} > 0
set $True = 1
if {RGBRed} >= $ColorNum
set $Pass = 1
Exit
end//if {RGBRed} = $ColorNum
end//if {RGBRed} > 0
else
if $Color = Blue
if {RGBBlue} > 0
set $True = 1
if {RGBBlue} >= $ColorNum
set $Pass = 1
Exit
end//if {RGBblue} = $ColorNum
end//if {RGBBlue} > 0
else
if $Color = Green
if {RGBGreen} > 0
set $True = 1
if {RGBGreen} >= $ColorNum
set $Pass = 1
Exit
end//if {RGBgreen} = $ColorNum
end//if {RGBGreen} > 0
end//if $Color = green
end//if $Color = blue
end//if $Color = Red
if {LoopNo} >= 5
Break
end// if {LoopNo} >= 5
end//while 1 = 1
end//procedure IsColor using Color,ColorNum,x,y