Yoko
http://forum.yoko.com.ua/

100 % performance CPU
http://forum.yoko.com.ua/viewtopic.php?f=3&t=1237		 Page 1 of 1
Author:  Miike [ 2004-08-28 12:56:30 ]
Post subject:  100 % performance CPU
100% performance CPU ? what make it lower with inject ??
Author:  Edred [ 2004-08-28 15:30:33 ]
Post subject:  Re: 100 % performance CPU
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:
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:
while TRUE
   if UO.Life < 100 Then
       UO.Bandageself()
   endif
   wait(100)
wend
Author:  Necr0Potenc3 [ 2004-08-28 17:49:38 ]
Post subject: 
actually all uo clients have a high cpu usage cause... oh well they suck.
Author:  Miike [ 2004-08-28 20:39:46 ]
Post subject: 
thx
Author:  333333 [ 2004-08-29 15:41:00 ]
Post subject: 
try
,set gdislower 20
Author:  Shestak [ 2004-08-30 08:30:43 ]
Post subject: 
Люди, помогите мне, я не разбираюсь в скриптах, но при включонном скрипте(дали друзья) у меня загрузка 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
Author:  Lord Ruslan Nightmare [ 2004-08-30 22:57:15 ]
Post subject: 
1) Повторяю еще раз - пользуйтесь тэгом
Code:
[code][/code]
для поста скриптов. Сил нет уже читать их в неформатированном виде!

2) Отформатированная версия:
Code:
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) На первый взгляд никаких ошибок. Надо разбираться на месте, почему тормозит.
Author:  Revenant [ 2004-08-31 11:00:42 ]
Post subject: 
код 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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/