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

Skript Na Vari pomogite
http://forum.yoko.com.ua/viewtopic.php?f=20&t=965
Page 1 of 1

Author:  Admeral [ 2004-07-24 09:06:09 ]
Post subject:  Skript Na Vari pomogite

vot nakatal takoy skriptik i on mne pishet error na stroke posle posledniy a yeyo nesushestvuyet vashe i niznayu 4o delat vrode vso gramotno


Code:
sub wars()


var bandages       = 0x0E21
var bloodbandages  = 0x0E20
var washbasin      = 0x1008
var fizllecheck

UO.DeleteJournal()
UO.Automenu('What','Polar')

while NOT UO.Dead()
   If UO.Life<UO.Str then
   repeat
      UO.Bandageself()
      wait(5000)
      If UO.count("bandages")==0 AND UO.Count("bloodbandages")==0 then
         UO.closeUO()
      Else
         If UO.count("bandages")==0 then
            UO.usetype("bloodbandages")
            UO.waittargettype ("washbasin")
         Endif
      Endif
   until UO.Life==UO.Str
   UO.exec("usetype 0x1B76")
   UO.exec("usetype 0x0EC2")
   UO.canceltarget()
   UO.waittargetself()
   UO.cast('Summ. Crea')
   fizllecheck=0
   repeat
      wait(500)
      If fizllecheck>15 then
      UO.waittargetself()
      UO.cast('Summ. Crea')
      fizllecheck=0
      If UO.InJournal('lack sufficient') then
         UO.DeleteJournal()
         while UO.mana<UO.Int
            UO.Warmode(0)     
            UO.UseSkill('Meditation')
            repeat
               wait(100)
            until UO.InJournal("You are") OR UO.InJournal("You lose")
            UO.DeleteJournal()
            wait(1000)
          wend
      endif
      endif
   UO.findtype('0x00d5','0xffff','ground')
   until uo.FindCount()==1
   repeat
      wait(1000)
      UO.Attack('finditem')
      UO.findtype('0x00d5','0xffff','ground')
      if UO.Life<15 then
         uo.usetype("0x0F0E")
      Endif
   until uo.FindCount()==0
wend
end sub

Author:  BETEPAH [ 2004-07-24 09:11:44 ]
Post subject: 

Где то или 2 ключа или нету одного
либо закрываешь не открытий цикл либо наоборот забыл закрыть.

Author:  Admeral [ 2004-07-24 09:20:06 ]
Post subject: 

BETEPAH wrote:
Где то или 2 ключа или нету одного
либо закрываешь не открытий цикл либо наоборот забыл закрыть.


ya uzhe proveril eto vso vrodebi pravilno on niho4et rabotat

Author:  Admeral [ 2004-07-24 14:00:29 ]
Post subject: 

ludi nu pomogite zhe ktonibut 4oya zra skript mailsa pisal
on u mena odin iz pervih i ya uzhe poprobival vso shto ya znayu
hotabi pomogli bi boliye opitniye

Author:  BETEPAH [ 2004-07-24 15:17:48 ]
Post subject: 

Просто попробуй ради разнообразия в конце добавить
Wend или End if......иногда смотришь все вроде ок ,а не пашит, а так ключ добавил и все ..... пробуй

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