Первая моя реакция была зашибу ***** *** поиск кому дан.
Потом чуть успокоился
Проверка на вес элементарно
Code:
If UO.Weight>=MaxWeight Then ; или UO.Str*4 вместо максимального веса.
...
Тут любой понравившийся тебе реколл.
...
UO.Recall(ID,"1") ; Речардж на дрв
...
Выгрузка коей в поиске полно.
...
EndIf
Code:
If UO.Dead() Then
UO.Close() ; Думаю тут понятно
EndIf
Code:
### Выключение.
Var OffHours = 2 # #
Var OffMinutes = 22 # #
################
sub TurnOff() ####################################################################################
################
Wait(OffHours*60*60*1000+OffMinutes*60*1000)
uo.exec("launch shutdown -s -t 5 -c Scipt complete.")
end sub
Code:
; Ресс индивидуален для каждого. Вот если надо кадато очень давно писал ресс для Dr.W.
############################################################
# -= * ** * =- [ -= Resurrection. =- ] -= * ** * =- #
############################################################
sub GoRess()
CheckLag()
Wait(WaitGoRess)
if UO.Dead() then
var p, n=1
uo.useobject('self')
var oldX=UO.GetX(), oldY=UO.GetY()
while n==1
CheckLag()
uo.LClick(739, 55)
wait(500)
CheckLag()
uo.LClick(265,288)
wait(500)
CheckLag()
uo.LClick(334, 233)
CheckLag()
wait(5000)
if oldX<>UO.GetX() and oldY<>UO.GetY() then
n=0
else
n=1
endif
wend
Walk(ToKrestX,ToKrestY,'')
CheckLag()
Uo.UseObject(Krest)
CheckLag()
Wait(WaitKrest)
CheckLag()
UO.Exec('warmode 0')
If Resurrection==1 then
Recall("1")
UO.Exec("exec Start")
EndIf
end sub
