100 % performance CPU

Ask for help

Moderators: Murderator+, Murderator

Post Reply
Miike
Posts: 3
Joined: 2004-08-23 22:19:33
Contact:

100 % performance CPU

Post by Miike »

100% performance CPU ? what make it lower with inject ??
:D
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Re: 100 % performance CPU

Post by Edred »

Miike wrote:100% performance CPU ? what make it lower with inject ??


Check your scripts and find all empty cycles. Insert in each 'wait(100)' and enjoy. For example:

Code: Select all

while TRUE
   if UO.Life < 100 Then
       UO.Bandageself()
   endif
wend


This script is very bad. If your health greater 100 you have empty cycle and 100% performance CPU. Correct it:

Code: Select all

while TRUE
   if UO.Life < 100 Then
       UO.Bandageself()
   endif
   wait(100)
wend
Necr0Potenc3
Expert!
Posts: 74
Joined: 2004-05-30 00:31:54

Post by Necr0Potenc3 »

actually all uo clients have a high cpu usage cause... oh well they suck.
Miike
Posts: 3
Joined: 2004-08-23 22:19:33
Contact:

Post by Miike »

thx
:D
333333
Posts: 22
Joined: 2004-07-28 12:39:29

Post by 333333 »

try
,set gdislower 20
Shestak
Posts: 22
Joined: 2004-07-23 11:05:19

Post by Shestak »

Люди, помогите мне, я не разбираюсь в скриптах, но при включонном скрипте(дали друзья) у меня загрузка 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
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
Lord Ruslan Nightmare
Expert!
Posts: 359
Joined: 2004-04-25 11:11:07
Contact:

Post by Lord Ruslan Nightmare »

1) Повторяю еще раз - пользуйтесь тэгом

Code: Select all

[code][/code]
для поста скриптов. Сил нет уже читать их в неформатированном виде!

2) Отформатированная версия:

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



3) На первый взгляд никаких ошибок. Надо разбираться на месте, почему тормозит.
Без труда не выловишь и рыбку из пруда,
А без пруда не выловишь её и с трудом...
Revenant
Posts: 54
Joined: 2004-08-05 21:12:19

Post by Revenant »

код 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
Post Reply