Yoko

Code: Select all

If UO.Weight>=MaxWeight Then ; или UO.Str*4 вместо максимального веса.
...
Тут любой понравившийся тебе реколл.
...
UO.Recall(ID,"1") ; Речардж на дрв
...
Выгрузка коей в поиске полно.
...
EndIf

Code: Select all

If UO.Dead() Then
UO.Close() ; Думаю тут понятно
EndIf

Code: Select all

### Выключение.
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: Select all

; Ресс индивидуален для каждого. Вот если надо кадато очень давно писал ресс для 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