Yoko

All sides of Injection
It is currently 2024-04-25 05:30:54

All times are UTC+02:00




Post new topic  Reply to topic  [ 1 post ] 
Author Message
 Post subject: Проблемка!
PostPosted: 2010-06-03 14:17:51 
Offline
User avatar

Joined: 2009-03-06 21:52:25
Posts: 89
Раньше играл на клиентах 2.0.3 и на старой инже 505, теперь стал играть на клиенте 6.0.4.0 и выше также с инжой 702. Скрипт как бы так сказать писал сам но собирал с кучи других скриптов. На клиенте 2.0.3 этот скрипт у меня работал на протижении недели и не разу не Парсера, не Крэша небыло. Теперь не проходит 5 минут как уже вылазит парсер с "Usage: waittargettile (lasttile/tilenum,[x],[y],[z])" и всё скрипт больше не запустить! Подскажите что не так ?

Code:
sub mining()
   VAR LastTimer
   var continue = "You put|can't see|but fail" ; сообщения о продолжении капания этого тайла
   var break = "no ore here|in rock|far away|no line of sight|nothing|You cannot mine" ; сообщения о прекращении капания этого тайла
   var i,flag,j
   var Count
   var f=file("C:\mining.txt")
   DIM XTile[550],YTile[550],ZTile[550]
   var TileType
   uo.deletejournal()
   ##
   uo.print('Loading Cordinates To File')
   f.open()
   Count=safe call f.readNumber()
   uo.print("Load "+str(Count)+ " Tiles")
   for i=0 to Count-1
      TileType=safe call f.ReadNumber()
      XTile[i]=safe call f.ReadNumber()
      YTile[i]=safe call f.ReadNumber()
      ZTile[i]=safe call f.ReadNumber()
   next
   f.close()
   ##
   while TRUE
      uo.deletejournal()
      if Count>0 then
         for i=0 to Count-1
            uo.print('Start to mine  '+str(i)+': '+STR(XTile[i])+' '+STR(YTile[i])+' tile.')
               Walker(XTile[i],YTile[i],1)
               wait(100)
            uo.deletejournal()
            while not UO.InJournal( break )
      uo.deletejournal()
      LastTimer=UO.Timer()
      UO.Waittargettile(TileType,XTile[i],YTile[i],ZTile[i])
      UO.UseType(Pickaxe)
            repeat
        if Ressurect==1 then
       if uo.life == 0 then
       ress()
       end if
       end if
       ##
      if UO.Weight>=MaxWeight then
       uo.CancelTarget()
       wait(500)
        ToRecall()
      end if
      ##
      until UO.InJournal( break + "|" + continue ) OR UO.Timer()>=LastTimer+100
         wait (100)
   wend
         next
      endif
   wend
end sub


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 1 post ] 

All times are UTC+02:00


Who is online

Users browsing this forum: Google [Bot] and 9 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited