MINING
Moderators: Murderator+, Murderator
MINING
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.
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.
Re: MINING
Раз уж второй раз тут пишем с нарушениями то напишу по русски для разнообразия.
Изучить, перевести, осознать и привести в соответствие - правила раздела. Срок 3 дня.
PS мой переводчик не справляется с оборотами речи португальских посетителей. По этому я расстроен.
Изучить, перевести, осознать и привести в соответствие - правила раздела. Срок 3 дня.
PS мой переводчик не справляется с оборотами речи португальских посетителей. По этому я расстроен.
Re: MINING
я баню его 

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

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

Re: MINING
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.
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.
Re: MINING
Ну кто балуется? У него 1 день остался 

Re: MINING
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
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
Re: MINING

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
Re: MINING
видно же какой то португальский скриптер делал
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Re: MINING
я уже не слежу что то за темой. Чего он хочет то?
Re: MINING
что-то связанное с разгрузкой
Re: MINING
Зачастил иностранец. Неужели в Португалии туго со скриптерами и не у кого спросить, кроме Украинского форума...
Re: MINING
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
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
Re: MINING
закрыто. свободен. 
а еще меня называют жестоким... © Mirage :roll:

а еще меня называют жестоким... © Mirage :roll:
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Re: MINING
Хотя со стороны португальца конечно свинство полностью игнорировать все попытки выйти с ним на дискуссию и выкладывать свои посты в разрез с правилами.
Так что Nmy +1
Так что Nmy +1