Yoko

All sides of Injection
It is currently 2024-03-28 21:20:27

All times are UTC+02:00




Post new topic  Reply to topic  [ 7 posts ] 
Author Message
 Post subject: MINING CHAVINHO
PostPosted: 2012-01-11 22:22:41 
Offline

Joined: 2011-12-07 22:36:59
Posts: 9
Só há um erro neste script, o char não recala pra mina depois de guardar os ores.

sub mining()
uo.useobject('BANK')
wait(500)
uo.lClick(308,441)
UO.AddObject ('CONTAINER')
While UO.Targeting()
Wait(2000)

var t,x,y,dir,px,py
Wend
inicio:
uo.useobject ('BOOK2')
wait(500)
uo.lClick(180,243)
wait(12000)
t=3 #Quantos tiles seu char vai andar depois que minerar tudo a sua volta.
ChecarLimite(1831,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
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(36)
wait(100)
uo.press(36)
while (passos >= 0)
wait(100)
uo.press(37)
passos=passos-1
wend
endif
end sub

sub GuardarOres()
uo.useobject ('BOOK1')
wait(500)
uo.lClick(177,186)
wait(12000)
uo.useobject('BANK')
wait(500)
uo.lClick(316,438)
wait(1000)
uo.useobject('CONTAINER')
wait(1000)
var n
DIM ID[13]
ID[1]='0x19B9'
ID[2]='0x19B8'
ID[3]='0x19BA'
ID[4]='0x19B7'
ID[5] = '0x0F16'
ID[6] = '0x0F10'
ID[7] = '0x0F0F'
ID[8] = '0x0F18'
ID[9] = '0x0F26'
ID[10] = '0x0F11'
ID[11] = '0x0F15'
ID[12] = '0x0F13'
ID[13] = '0x19B8'
For n=5 To 13
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
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
uo.useobject ('BOOK2')
wait(500)
uo.lClick(177,186) // POSIÇÃO DA RUNA
wait(12000)
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


Last edited by rodigeva on 2012-01-17 20:03:48, edited 1 time in total.

Top
   
 Post subject: Re: MINING CHAVINHO
PostPosted: 2012-01-12 07:03:36 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
Code:
MID(ID[n], 0, 6)
=>
Code:
ID[n]

Code:
MID(ID[n], 7, 9)
=>
Code:
'CONTAINER'


Top
   
 Post subject: Re: MINING CHAVINHO
PostPosted: 2012-01-12 10:13:19 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
1) é uma pergunta ou um script pronto?
2) não devidamente enquadrada questão, portanto, para agora se mudou para outra seção.
3) Eu sinto muito por meu Português:) Se você pode escrever melhor Inglês.
:D
к нам заходят даже португальцы... :?

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


Top
   
 Post subject: Re: MINING CHAVINHO
PostPosted: 2012-01-12 12:14:44 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
к нам только португальцы и заходят :lol:


Top
   
 Post subject: Re: MINING CHAVINHO
PostPosted: 2012-01-12 21:47:11 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
:)


Top
   
 Post subject: Re: MINING CHAVINHO
PostPosted: 2012-01-13 07:27:47 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
Сурово ты его... Мираж :? :shock:


Top
   
 Post subject: Re: MINING CHAVINHO
PostPosted: 2012-01-13 10:52:08 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
А чиво он не понятно излагает? :twisted:

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


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

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 16 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