100 % performance CPU
Posted: 2004-08-28 12:56:30
100% performance CPU ? what make it lower with inject ??
Miike wrote:100% performance CPU ? what make it lower with inject ??
Code: Select all
while TRUE
if UO.Life < 100 Then
UO.Bandageself()
endif
wend
Code: Select all
while TRUE
if UO.Life < 100 Then
UO.Bandageself()
endif
wait(100)
wend
Code: Select all
[code][/code]
Code: Select all
sub camping()
VAR q,w
UO.Exec("useobject 0x40173350") # Открытие сумки с щепками
UO.Exec("useobject 0x40173350") # Открытие сумки с щепками
Wait(3000)
start:
FOR q = -3 to 3
FOR w = -3 to 3
kidat(q,w)
NEXT
NEXT
While UO.CountGround(0x0DE3) > 1000 # ВО! Если будет гореть больше 100 щепок бум качать хидинг
Wait(10000)
Wend
goto start
end sub
sub kidat(q,w)
VAR X
picking()
X = UO.Count(0x0DE1)
UO.Waittargettype(0x0DE1)
UO.Exec("drop 1 "+STR(q)+" "+STR(w)+"")
While X == UO.Count(0x0DE1)
Wait(500)
Wend
While UO.CountGround(0x0DE1) > 0
UO.Usefromground(0x0DE1)
Wait(500)
Wend
UO.Print(STR(UO.CountGround(0x0DE3)))
end sub
sub picking()
VAR X
If UO.Count(0x0DE1) < 20 then
X=UO.Count(0x0DE1)
UO.Exec("findtype 0x0DE1 0x0000 0x40173350")#сумака с щепками
UO.Exec("unsetreceivingcontainer")
UO.Exec("grab 200 finditem")
While X == UO.Count(0x0DE1)
Wait(800)
Wend
End if
end sub
код wrote:Люди, помогите мне, я не разбираюсь в скриптах, но при включонном скрипте(дали друзья) у меня загрузка 100 процентов.
sub camping()
VAR q,w
UO.Exec("useobject 0x40173350") # Открытие сумки с щепками
UO.Exec("useobject 0x40173350") # Открытие сумки с щепками
Wait(3000)
start:
FOR q = -3 to 3
FOR w = -3 to 3
kidat(q,w)
NEXT
NEXT
While UO.CountGround(0x0DE3) > 1000 # ВО! Если будет гореть больше 100 щепок бум качать хидинг
Wait(10000)
Wend
goto start
end sub
sub kidat(q,w)
VAR X
picking()
X = UO.Count(0x0DE1)
UO.Waittargettype(0x0DE1)
UO.Exec("drop 1 "+STR(q)+" "+STR(w)+"")
While X == UO.Count(0x0DE1)
Wait(500)
Wend
While UO.CountGround(0x0DE1) > 0
UO.Usefromground(0x0DE1)
Wait(500)
Wend
wait(300)
UO.Print(STR(UO.CountGround(0x0DE3)))
end sub
sub picking()
VAR X
If UO.Count(0x0DE1) < 20 then
X=UO.Count(0x0DE1)
UO.Exec("findtype 0x0DE1 0x0000 0x40173350")#сумака с щепками
UO.Exec("unsetreceivingcontainer")
UO.Exec("grab 200 finditem")
While X == UO.Count(0x0DE1)
Wait(800)
Wend
End if
wait(300)
end sub