Yoko

Posted: **2008-12-11 13:46:09**

Вот скрипт почти сам написал

Теперь его дороботать надо

VAR Bandag = '0x0E21'
VAR Sklad = '0x402F7B19'
VAR blbandag = '0x0E20' 
VAR ulii = '0x091a'
VAR CharHP=170, LastTimer 
sub main()
repeat
repeat
if UO.Life==170 Then
repeat
    uo.usefromground('0x091a')
    wait(100)
    until UO.Life<50
endif
endif
if UO.Life<170 Then
wait(500) 

     UO.BandageSelf() 
     UO.DeleteJournal() 
     LastTimer=UO.Timer() 
Repeat 
     wait(500) 
Until UO.InJournal('You don') OR UO.InJournal('You put') OR UO.InJournal('You applay the') OR UO.Timer()>LastTimer+100 
until UO.Life==170
endif
until uo.Dead()
endif
end sub

Чтоб мыл бинты в корытци и мешал стаминку и пил когда стамины 50 ! Незнаю как искать в паке

На стаминку потораюсь сам написать

Буду очень рпизнаетелен!!

Posted: **2008-12-11 15:23:37**

Вот еще на стамину дописал ! А вот с мойкой бнитов не как не получается в пешите в этот скрипт пожалуста! Если еще можно добор блек перла из сундука!

Code: Select all

VAR Bandag = '0x0E21'
VAR Sklad = '0x402F7B19'
VAR blbandag = '0x0E20' 
VAR ulii = '0x091a'
VAR CharHP=170, LastTimer 
sub main()
repeat
repeat
if UO.Life==170 Then
repeat
    uo.usefromground('0x091a')
    wait(100)
    until UO.Life<50
endif
endif
if UO.Life<170 Then
wait(500) 

     UO.BandageSelf() 
     UO.DeleteJournal() 
     LastTimer=UO.Timer() 
Repeat 
     wait(500) 
Until UO.InJournal('You don') OR UO.InJournal('You put') OR UO.InJournal('You applay the') OR UO.Timer()>LastTimer+100 
until UO.Life==170
endif
if UO.Stamina<50 Then
wait(100)
    uo.usetype ('0x0f7a')
    UO.DeleteJournal()
    uo.waitmenu('What','Refresh')
    wait(14000)
    uo.usetype ('0x0F0B','0x0000')
    endif
until uo.Dead()
endif
endif
end sub

Posted: **2008-12-11 22:15:26**

почему мне не кто не помогает?

Posted: **2008-12-11 22:32:19**

Есть очень простое правило, форматируй свой код, открыл цикл, следующие команды через ТАБ, то же и с условиями. А вот теперь посмотри что ты написал...

Code: Select all

VAR Bandag = '0x0E21' 
VAR Sklad = '0x402F7B19' 
VAR blbandag = '0x0E20' 
VAR ulii = '0x091a' 
VAR CharHP=170, LastTimer 
sub main() 
repeat 
   repeat 
      if UO.Life==170 Then 
         repeat 
             uo.usefromground('0x091a') 
             wait(100) 
         until UO.Life<50 
      endif 
endif 
      if UO.Life<170 Then 
         wait(500) 

         UO.BandageSelf() 
         UO.DeleteJournal() 
         LastTimer=UO.Timer() 
         Repeat 
            wait(500) 
         Until UO.InJournal('You don') OR UO.InJournal('You put') OR UO.InJournal('You applay the') OR UO.Timer()>LastTimer+100 
   until UO.Life==170 
endif 
      if UO.Stamina<50 Then 
         wait(100) 
         uo.usetype ('0x0f7a') 
         UO.DeleteJournal() 
         uo.waitmenu('What','Refresh') 
         wait(14000) 
         uo.usetype ('0x0F0B','0x0000') 
      endif 
until uo.Dead() 
endif 
endif 
end sub

Странно что это вообще запускается.

Posted: **2008-12-12 12:03:00**

Нормально работает

уже второй день на нем качаю

Щас пстораюсь написать на прокачку таминга

А запускается потому что я єто делал

)))))

Yoko

Доделать !

Доделать !