02-10-2012, 01:44 AM
To turn script off type ",exec cfpicker" one more time. I myself have it on hotkey and toogle it on\off.
Code:
sub cfpicker()
DIM cf[10]
cf[0] = '0x0C51'
cf[1] = '0x0C52'
cf[2] = '0x0C53'
cf[3] = '0x0C54'
cf[4] = '0x1A99'
cf[5] = '0x1A9B'
cf[6] = '0x1A9A'
cf[7] = '0x0DF9'
cf[8] = '0x1A9D'
cf[9] = '0x1A9C'
VAR i
var pickuper='cfpicker' ; lowercase
if UO.GetGlobal(pickuper)=='On' then
UO.SetGlobal(pickuper,0)
UO.Print('-='+pickuper+' Terminated=-')
UO.Exec('terminate '+pickuper)
else
UO.SetGlobal(pickuper,'On')
UO.Print('-='+pickuper+' Running=-')
endif
UO.Set('finddistance','12')
while 1==1
For i = 0 To 6
If UO.CountGround(cf[i])>0 AND UO.GetDistance(cf[i])<2 then
UO.UseFromGround(cf[i])
EndIf
Next
wait(100)
For i = 7 To 9
UO.FindType(cf[i],-1,'ground')
If UO.FindCount()>0 AND UO.GetDistance(cf[i])<3 then
UO.MoveItem('finditem')
EndIf
Next
wend
endsub