Yoko :: Доделать !

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

Доделать ! http://forum.yoko.com.ua/viewtopic.php?f=17&t=14179	Page 1 of 1

Author:

BATA [ 2008-12-11 13:46:09 ]

Post subject:

Доделать !

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

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

Code:

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 ! Незнаю как искать в паке

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

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

Author:

BATA [ 2008-12-11 15:23:37 ]

Post subject:

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

Code:

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

Author:	BATA [ 2008-12-11 22:15:26 ]
Post subject:
почему мне не кто не помогает?

Author:

Savage [ 2008-12-11 22:32:19 ]

Post subject:

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

Code:

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

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

Author:	BATA [ 2008-12-12 12:03:00 ]
Post subject:
Нормально работает уже второй день на нем качаю Щас пстораюсь написать на прокачку таминга А запускается потому что я єто делал )))))

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/