Yoko

recala devolta pra casa depois de encher a bag de ores.

sub mining() ; By ChavinhO (para Mina de Minoc DMS)
inicio:
var t,x,y,dir,px,py
t=3 #Quantos tiles seu char vai andar depois que minerar tudo a sua volta.
ChecarLimite(488,6) #Limite X ou Y da Mina. #Quantos tiles seu char vai andar pra voltar depois de ultrapassar do limite.
IF (uo.weight >= 350) then #Peso maximo antes de comecar a guardar os Ores no Bank.
GuardarOres()
endif
for x = -2 to 2
for y = -2 to 2
denovo:
UO.DeleteJournal()
if ((y == 0) and (x == 0)) or ((num(x) == 2) and (num(y) == 2)) then
goto jump
endif
uo.waittargettile('#0x400', str(uo.GetX() + x), str(uo.GetY() + y), STR(UO.GetZ('self')))
uo.usetype('0x0E85')
repeat
wait(200)
until UO.InJournal("Voce pos|Tente miner|Voce nao|Nao ha|You cann|O alvo|target canc")
if not UO.InJournal("Tente minerar|Nao ha|uma linha|You cannot") then
goto denovo
endif
jump:
next
next
walk:
px=UO.GetX('self')
py=UO.GetY('self')
dir=UO.Random(8)
while (t >= 0)
uo.press(dir+33)
wait(100)
t=t-1
wend
if (px == UO.GetX('self')) and (py == UO.GetY('self')) then
t=3
goto walk
endif
goto inicio
end sub

Sub num(X)
if X>0 then
return X
else
return (-X)
end if
end sub

sub ChecarLimite(limite,passos)
IF (UO.GetY('self') >= limite) then
uo.press(33)
wait(100)
uo.press(33)
while (passos >= 0)
wait(100)
uo.press(39)
passos=passos-1
wend
endif
end sub

sub GuardarOres()
uo.useobject ('BOOK1')
wait(500)
uo.lCLick(181,184)
wait(12000)
uo.useobject ('BANK')
wait(500)
uo.lCLick(315,440)
wait(1000)
uo.useobject ('CONTAINER')
if uo.count('0x19B9') >=1 then
UO.MoveItem('0x19B9', '0', 'CONTAINER')
endif
uo.useobject ('BANK')
wait(500)
uo.lCLick(315,440)
wait(1000)
UO.AddObject ('CONTAINER',0x400FCA9D)
uo.useobject ('BOOK2')
wait(500)
uo.lClick(177,241)
wait(12000)
next
end sub

Há de se recuperar o processo que verifica o peso.

Раз уж второй раз тут пишем с нарушениями то напишу по русски для разнообразия.
Изучить, перевести, осознать и привести в соответствие - правила раздела. Срок 3 дня.
PS мой переводчик не справляется с оборотами речи португальских посетителей. По этому я расстроен.

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

я баню его

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

и тему бы эту убрать от сюда

Уберу. Через 2 дня. Если не исправит.

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

sub mining() ; By kishi Iruka (para Mina de Minoc DMS)
var t,x,y,dir,px,py
uo.msg('bank')
UO.AddObject ('CONTAINER')
While UO.Targeting()
Wait(100)
uo.useobject ('BANK')
wait(500)
uo.lCLick(318,434)
wait(500)
uo.useobject ('BOOK1')
wait(500)
uo.lCLick(181,200)
wait(12000)
Wend
inicio:
t=3 #Quantos tiles seu char vai andar depois que minerar tudo a sua volta.
ChecarLimite(488,6) #Limite X ou Y da Mina. #Quantos tiles seu char vai andar pra voltar depois de ultrapassar do limite.
IF (uo.weight >= 100) then #Peso maximo antes de comecar a guardar os Ores no Bank.
GuardarOres()
endif
for x = -2 to 2
for y = -2 to 2
denovo:
UO.DeleteJournal()
if ((y == 0) and (x == 0)) or ((num(x) == 2) and (num(y) == 2)) then
goto jump
endif
uo.waittargettile('#0x400', str(uo.GetX() + x), str(uo.GetY() + y), STR(UO.GetZ('self')))
uo.usetype('0x0E85')
repeat
wait(200)
until UO.InJournal("Voce pos|Tente miner|Voce nao|Nao ha|You cann|O alvo|target canc")
if not UO.InJournal("Tente minerar|Nao ha|uma linha|You cannot|Iron ore|Ceramic|Gold ore|Verite ore|Valorite ore") then
goto denovo
endif
#Iron:
IF UO.InJournal("Iron ore") then
DropOre('0x0000')
endif
#Ceramic:
IF UO.InJournal("Ceramic ore") then
DropOre('0x008F')
endif
IF UO.InJournal("Gold ore") then
DropOre('0x08A5')
endif
#Verite:
IF UO.InJournal("Verite ore") then
DropOre('0x089F')
endif
#Valorite:
IF UO.InJournal("Valorite ore") then
DropOre('0x08AB')
endif
jump:
next
next
walk:
px=UO.GetX('self')
py=UO.GetY('self')
dir=UO.Random(8)
while (t >= 0)
uo.press(dir+33)
wait(100)
t=t-1
wend
if (px == UO.GetX('self')) and (py == UO.GetY('self')) then
t=3
goto walk
endif
goto inicio
end sub
Sub num(X)
if X>0 then
return X
else
return (-X)
end if
end sub
sub ChecarLimite(limite,passos)
IF (UO.GetY('self') >= limite) then
uo.press(33)
wait(100)
uo.press(33)
while (passos >= 0)
wait(100)
uo.press(39)
passos=passos-1
wend
endif
end sub

sub GuardarOres()
uo.useobject ('BOOK1')
wait(500)
uo.lCLick(178,185)
wait(12000)
uo.msg('bank')
UO.AddObject ('CONTAINER')
While UO.Targeting()
Wait(100)
uo.useobject ('BANK')
wait(500)
uo.lCLick(318,434)
wait(1000)
uo.useobject('CONTAINER')
var n
DIM ID[12]
ID[1]='0x19B9'
ID[2]='0x19B8'
ID[3]='0x19BA'
ID[4]='0x19B7'
ID[5] = '0x0F16 CONTAINER'; amesthysts
ID[6] = '0x0F10 CONTAINER'; emerald
ID[7] = '0x0F0F ground'; star sapphire
ID[8] = '0x0F18 ground'; tourmaline
ID[9] = '0x0F26 ground'; diamond
ID[10] = '0x0F11 ground'; sapphire
ID[11] = '0x0F15 ground'; citrine
ID[12] = '0x0F13 ground'; rubi
wend
For n=5 To 12
if uo.count(MID(ID[n], 0, 6)) >=1 then
if n >= 6 then
wait(1600)
endif
UO.FindType(MID(ID[n], 0, 6),'-1','my') ;
uo.moveitem('finditem', '0', MID(ID[n], 7, 9))
endif
Next
wend
Next
end sub

sub DropOre(cor)
var n
DIM OREID[4]
OREID[1]='0x19BA'
OREID[2]='0x19B8'
OREID[3]='0x19B7'
OREID[4]='0x19B9'
For n=1 to 4
if uo.count(OREID[n],cor) >=1 then
UO.FindType(OREID[n],cor,'my')
UO.MoveItem('finditem','-1','ground')
endif
Next
end sub

Processa erro com a variavel.

Ну кто балуется? У него 1 день остался

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

sub mining() ; By kishi Iruka (para Mina de Minoc DMS)
var t,x,y,dir,px,py
uo.useobject ('BANK')
wait(500)
uo.lClick(314,439)
UO.AddObject ('CONTAINER')
While UO.Targeting()
Wait(1000)
uo.useobject ('BOOK1')
wait(500)
uo.lClick(181,201)
wait(12000)
Wend
inicio:
t=3 #Quantos tiles seu char vai andar depois que minerar tudo a sua volta.
ChecarLimite(488,6) #Limite X ou Y da Mina. #Quantos tiles seu char vai andar pra voltar depois de ultrapassar do limite.
IF (uo.weight >= 100) then #Peso maximo antes de comecar a guardar os Ores no Bank.
GuardarOres()
endif
for x = -2 to 2
for y = -2 to 2
denovo:
UO.DeleteJournal()
if ((y == 0) and (x == 0)) or ((num(x) == 2) and (num(y) == 2)) then
goto jump
endif
uo.waittargettile('#0x400', str(uo.GetX() + x), str(uo.GetY() + y), STR(UO.GetZ('self')))
uo.usetype('0x0E85')
repeat
wait(200)
until UO.InJournal("Voce pos|Tente miner|Voce nao|Nao ha|You cann|O alvo|target canc")
if not UO.InJournal("Tente minerar|Nao ha|uma linha|Iron ore|Ceramic|Gold ore|Verite ore|Valorite ore") then
goto denovo
endif
#Iron:
IF UO.InJournal("Iron ore") then
DropOre('0x19B7')
endif
#Ceramic:
IF UO.InJournal("Ceramic ore") then
DropOre('0x008F')
endif
IF UO.InJournal("Gold ore") then
DropOre('0x08A5')
endif
#Verite:
IF UO.InJournal("Verite ore") then
DropOre('0x089F')
endif
#Valorite:
IF UO.InJournal("Valorite ore") then
DropOre('0x08AB')
endif
jump:
next
next
walk:
px=UO.GetX('self')
py=UO.GetY('self')
dir=UO.Random(8)
while (t >= 0)
uo.press(dir+33)
wait(100)
t=t-1
wend
if (px == UO.GetX('self')) and (py == UO.GetY('self')) then
t=3
goto walk
endif
goto inicio
end sub
Sub num(X)
if X>0 then
return X
else
return (-X)
end if
end sub
sub ChecarLimite(limite,passos)
IF (UO.GetY('self') >= limite) then
uo.press(33)
wait(100)
uo.press(33)
while (passos >= 0)
wait(100)
uo.press(39)
passos=passos-1
wend
endif
end sub

sub GuardarOres()
var n
DIM ID[12]
ID[1]='0x19B9'
ID[2]='0x19B8'
ID[3]='0x19BA'
ID[4]='0x19B7'
ID[5] = '0x0F16 CONTAINER'; amesthysts
ID[6] = '0x0F10 CONTAINER'; emerald
ID[7] = '0x0F0F ground'; star sapphire
ID[8] = '0x0F18 ground'; tourmaline
ID[9] = '0x0F26 CONTAINER'; diamond
ID[10] = '0x0F11 ground'; sapphire
ID[11] = '0x0F15 CONTAINER'; citrine
ID[12] = '0x0F13 ground'; rubi
uo.useobject ('BOOK1')
wait(500)
uo.lClick(181,186)
wait(12000)
uo.useobject ('BANK')
wait(500)
uo.lClick(308,443)
Wait(1000)
For n=5 To 12
if uo.count(MID(ID[n], 0, 6)) >=1 then
if n >= 4 then
endif
UO.FindType(MID(ID[n], 0, 6),'-1','my') ;
uo.moveitem('finditem', '0', MID(ID[n], 7, 9))
Next

For n=1 To 4
while uo.count(ID[n]) >= 1
wait(1600)
UO.FindType(ID[n],'-1','my')
uo.moveitem('finditem', '0', 'CONTAINER')
wend
Next
end sub

sub mining() ; By kishi Iruka (para Mina de Minoc DMS)
  var t,x,y,dir,px,py
  uo.useobject ('BANK')
  wait(500)
  uo.lClick(314,439)
  UO.AddObject ('CONTAINER')
  While UO.Targeting()
    Wait(1000)
    uo.useobject ('BOOK1')
    wait(500)
    uo.lClick(181,201)
    wait(12000)
  Wend
  inicio:
  t=3 #Quantos tiles seu char vai andar depois que minerar tudo a sua volta.
  ChecarLimite(488,6) #Limite X ou Y da Mina. #Quantos tiles seu char vai andar pra voltar depois de ultrapassar do limite.
  IF (uo.weight >= 100) then #Peso maximo antes de comecar a guardar os Ores no Bank.
    GuardarOres()
  endif
  for x = -2 to 2
    for y = -2 to 2
      denovo:
      UO.DeleteJournal()
      if ((y == 0) and (x == 0)) or ((num(x) == 2) and (num(y) == 2)) then
        goto jump
      endif
      uo.waittargettile('#0x400', str(uo.GetX() + x), str(uo.GetY() + y), STR(UO.GetZ('self')))
      uo.usetype('0x0E85')
      repeat
        wait(200)
      until UO.InJournal("Voce pos|Tente miner|Voce nao|Nao ha|You cann|O alvo|target canc")
      if not UO.InJournal("Tente minerar|Nao ha|uma linha|Iron ore|Ceramic|Gold ore|Verite ore|Valorite ore") then
        goto denovo
      endif
      #Iron:
      IF UO.InJournal("Iron ore") then
        DropOre('0x19B7') 
      endif
      #Ceramic:
      IF UO.InJournal("Ceramic ore") then
        DropOre('0x008F') 
      endif
      IF UO.InJournal("Gold ore") then
        DropOre('0x08A5') 
      endif
      #Verite:
      IF UO.InJournal("Verite ore") then
        DropOre('0x089F') 
      endif
      #Valorite:
      IF UO.InJournal("Valorite ore") then
        DropOre('0x08AB') 
      endif
      jump:
    next
  next
  walk:
  px=UO.GetX('self')
  py=UO.GetY('self')
  dir=UO.Random(8)
  while (t >= 0)
    uo.press(dir+33)
    wait(100)
    t=t-1
  wend
  if (px == UO.GetX('self')) and (py == UO.GetY('self')) then
    t=3
    goto walk
  endif
  goto inicio
end sub
Sub num(X)
  if X>0 then
    return X
  else
    return (-X)
  end if
end sub
sub ChecarLimite(limite,passos)
  IF (UO.GetY('self') >= limite) then
    uo.press(33)
    wait(100)
    uo.press(33)
    while (passos >= 0)
      wait(100)
      uo.press(39)
      passos=passos-1
    wend
  endif
end sub
sub GuardarOres()
  var n
  DIM ID[12]
  ID[1]='0x19B9'
  ID[2]='0x19B8'
  ID[3]='0x19BA'
  ID[4]='0x19B7'
  ID[5] = '0x0F16'; amesthysts
  ID[6] = '0x0F10'; emerald
  ID[7] = '0x0F15'; citrine
  ID[8] = '0x0F26'; diamond
  ID[9] = '0x0F0F'; star sapphire
  ID[10] = '0x0F11'; sapphire
  ID[11] = '0x0F18'; tourmaline
  ID[12] = '0x0F13'; rubi

  uo.useobject ('BOOK1')
  wait(500)
  uo.lClick(181,186)
  wait(12000)
  uo.useobject ('BANK')
  wait(500)
  uo.lClick(308,443)
  Wait(1000)
  For n=1 To 12
    while uo.count(ID[n]) >= 1
      wait(1600)
      UO.FindType(ID[n],'-1','my')
      if n < 9 then
        uo.moveitem('finditem', '0', 'CONTAINER')
      else
        uo.moveitem('finditem', '0', 'ground')
      endif
    wend
  Next
end sub

PS. Where did you find that script?

видно же какой то португальский скриптер делал

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

я уже не слежу что то за темой. Чего он хочет то?

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

что-то связанное с разгрузкой

Зачастил иностранец. Неужели в Португалии туго со скриптерами и не у кого спросить, кроме Украинского форума...

sub GuardarOres()
uo.useobject ('BOOK1')
wait(500)
uo.lCLick(182,185)
wait(12000)
var n
DIM OREID[4]
OREID[1]='0x19BA'
OREID[2]='0x19B8'
OREID[3]='0x19B7'
OREID[4]='0x19B9'
for n = 1 to 4
while uo.count(OREID[n]) => 1
uo.msg (BANK[n])
wait(1600)
UO.FindType('finditem','-1','my')
uo.moveitem('finditem', '0', 'CONTAINER')
wend
end sub

закрыто. свободен.

а еще меня называют жестоким... © Mirage :roll:

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

Хотя со стороны португальца конечно свинство полностью игнорировать все попытки выйти с ним на дискуссию и выкладывать свои посты в разрез с правилами.
Так что Nmy +1

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.