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

Подправьте скритик с минингом
http://forum.yoko.com.ua/viewtopic.php?f=17&t=15434		 Page 1 of 1
Author:  Valov [ 2010-01-11 14:00:06 ]
Post subject:  Подправьте скритик с минингом
Sub mine()

var x, y, i, t, tmp, inside, goto_x, st, first

VAR ms1 = "There is nothing here to mine for"

VAR ms2 = "You can't use"

VAR ms3 = "You put "

VAR ms4 = "You loosen some rocks"

VAR ms5 = "location"

VAR ms6 = "Try mining"

VAR ms7 = "You can't see that"

VAR ms8 = "You stop"

VAR ms9 = "That is too"

first=UO.GetX()

start:

inside=0

for y=-1 to 1

for x=-1 to 1

repeat

uo.deletejournal()

t = UO.Timer()

UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")

UO.exec ("usetype 0x0E85")

repeat

wait(300)

until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms9) OR ((t + 100) < UO.Timer())

until not UO.InJournal(ms8)

next

next

end sub


sub main()

var i

While UO.Life>0

for i=1 to 7

mine()

uo.press(34)

wait(500)

uo.press(34)

wait(500)

uo.press(34)

next

uo.press(33)

wait(500)

uo.press(33)

wait(500)

uo.press(33)

mine()

for i=1 to 7

uo.press(36)

wait(500)

uo.press(36)

wait(500)

uo.press(36)

next

uo.press(33)

wait(500)

uo.press(33)

wait(500)

uo.press(33)

wend

end sub
Author:  Valov [ 2010-01-11 14:01:45 ]
Post subject: 
Через некотрое время слетает. Замучался уже.
Author:  CuHTpoH [ 2010-01-11 20:44:05 ]
Post subject: 
http://coop.myftp.org/utils/codesweeper.htm
Author:  Valov [ 2010-01-11 21:36:09 ]
Post subject: 
Расставил пробелы всё равно слетает :(
Author:  Scripts Writer [ 2010-01-12 15:09:06 ]
Post subject: 
Что значит слетает?
Author:  Mirage [ 2010-01-12 16:52:51 ]
Post subject: 
Скрипт афигительный. Скопировал себе на память структуру... :lol:
Author:  Valov [ 2010-01-13 11:09:12 ]
Post subject: 
Дык почему он слетает?
Author:  Valov [ 2010-01-13 11:16:19 ]
Post subject: 
слетает = выключается после нескольких минут работы.
Author:  Mirage [ 2010-01-13 12:50:19 ]
Post subject: 
Code:
Sub mine()
   var x, y, i, t, tmp, inside, goto_x, st, first
   VAR ms1 = "There is nothing here to mine for"
   VAR ms2 = "You can't use"
   VAR ms3 = "You put "
   VAR ms4 = "You loosen some rocks"
   VAR ms5 = "location"
   VAR ms6 = "Try mining"
   VAR ms7 = "You can't see that"
   VAR ms8 = "You stop"
   VAR ms9 = "That is too"

   for y=-1 to 1
      for x=-1 to 1
         repeat
            uo.deletejournal()
            t = UO.Timer()
            UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
            UO.exec ("usetype 0x0E85")
            repeat
               wait(300)
            until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms9) OR ((t + 100) < UO.Timer())
         until not UO.InJournal(ms8)
      next
   next
end sub


sub main()
   var i
   While UO.Life>0
      for i=1 to 7
         mine()
         uo.press(34)
         wait(500)
         uo.press(34)
         wait(500)
         uo.press(34)
      next

      for i=1 to 7
      mine()
         uo.press(36)
         wait(500)
         uo.press(36)
         wait(500)
         uo.press(36)
      next
   wend
end sub

тесть :D
Author:  Valov [ 2010-01-20 07:17:11 ]
Post subject: 
Работает. Спасибо тебе. :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/