MINING

Anything and all.

Moderators: Murderator+, Murderator

Locked
rodigeva
Posts: 9
Joined: 2011-12-07 22:36:59

MINING

Post by rodigeva »

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.
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: MINING

Post by Mirage »

Раз уж второй раз тут пишем с нарушениями то напишу по русски для разнообразия.
Изучить, перевести, осознать и привести в соответствие - правила раздела. Срок 3 дня.
PS мой переводчик не справляется с оборотами речи португальских посетителей. По этому я расстроен.
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Re: MINING

Post by Nmy »

я баню его :evil:
ZeroDX
Posts: 718
Joined: 2006-12-08 10:51:50
Location: Москва
Contact:

Re: MINING

Post by ZeroDX »

и тему бы эту убрать от сюда :roll:
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: MINING

Post by Mirage »

Уберу. Через 2 дня. Если не исправит. :wink:
rodigeva
Posts: 9
Joined: 2011-12-07 22:36:59

Re: MINING

Post by rodigeva »

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.
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: MINING

Post by Mirage »

Ну кто балуется? У него 1 день остался :(
rodigeva
Posts: 9
Joined: 2011-12-07 22:36:59

Re: MINING

Post by rodigeva »

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
ZeroDX
Posts: 718
Joined: 2006-12-08 10:51:50
Location: Москва
Contact:

Re: MINING

Post by ZeroDX »

:roll:

Code: Select all

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?
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Re: MINING

Post by Nmy »

видно же какой то португальский скриптер делал
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: MINING

Post by Mirage »

я уже не слежу что то за темой. Чего он хочет то?
ZeroDX
Posts: 718
Joined: 2006-12-08 10:51:50
Location: Москва
Contact:

Re: MINING

Post by ZeroDX »

что-то связанное с разгрузкой
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Re: MINING

Post by Kynep »

Зачастил иностранец. Неужели в Португалии туго со скриптерами и не у кого спросить, кроме Украинского форума...
rodigeva
Posts: 9
Joined: 2011-12-07 22:36:59

Re: MINING

Post by rodigeva »

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
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Re: MINING

Post by Nmy »

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

а еще меня называют жестоким... © Mirage :roll:
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: MINING

Post by Mirage »

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