It is currently 28 Mar 2024, 18:47

All times are UTC + 2 hours [ DST ]




Post new topic Reply to topic  [ 5 posts ] 
Author Message
PostPosted: 09 Jul 2017, 14:50 
Offline
Новичок

Joined: 07 Jul 2017, 10:54
Posts: 4
ребят подскажите кто нибудь скрипт на мининг(просто чтоб ходил и копал в пещере) для
Injection а то ползаю не магу найти либо не работают или поделитесь ссылкой на скрипт который тут работает не хочется качать изи уо или разор

например есть просто скрипт обкапывает всё вокруг себя не могу приделать чтоб ходил


Last edited by kiss23 on 09 Jul 2017, 15:06, edited 1 time in total.

Top
 Profile  
 
PostPosted: 09 Jul 2017, 14:56 
Offline
Новичок

Joined: 07 Jul 2017, 10:54
Posts: 4
sub Mining()
UO.SetGlobal('action','1')
UO.SetGlobal('MaxRange','2')
uo.mfgi( 'resend' )
extraction()
end sub
Sub extraction()
VAR mX = UO.GetX('self'), mY = UO.GetY('self'), mZ = UO.GetZ('self')
for Y = -val(uo.GetGlobal('MaxRange')) to val(uo.GetGlobal('MaxRange'))
for X = -val(uo.GetGlobal('MaxRange')) to val(uo.GetGlobal('MaxRange'))
if val(uo.GetGlobal('action')) == 1 then
Tiles = MiningTiles(mX+X, mY+Y)
end if
if Tiles then
repeat
CheckAll()
UO.DeleteJournal()
UO.WaitTargetTile(Tiles, mX+X, mY+Y, mZ)
Tools()
LastTimer=UO.Timer()
repeat
wait( delay1 )
until UO.InJournal( allmsg ) || UO.Timer()>LastTimer+delay2 || UO.Weight > MaxVes || UO.Dead()
CheckAll()
until UO.InJournal( endmsg ) || UO.Timer()>LastTimer+delay3 || UO.Weight > MaxVes || UO.Dead()
uo.mfgi( 'add', '7847', mX+X, mY+Y, mZ )
end if
next
next
UO.Set('quiet','0')
uo.charprint('self', printcolour, 'ÂÑÅ!')
UO.Sound(100)
end sub
Sub CheckAll()
If UO.Weight > MaxVes Then
UO.Set('quiet','0')
uo.charprint('self', printcolour, 'Ïåðåãðóç!')
return
endif
end sub
Sub Tools()
if val(uo.GetGlobal('action')) == 1 then
if UO.Count(Shovel1) then
UO.UseType(Shovel1)
return
else
if UO.Count(Shovel2) then
UO.UseType(Shovel2)
return
else
if UO.Count(Pickaxe1) then
UO.UseType(Pickaxe1)
return
else
if UO.Count(Pickaxe2) then
UO.UseType(Pickaxe2)
return
else
UO.Set('quiet','0')
uo.charprint('self', printcolour, 'Íå÷åì êîïàòü!')
MyTerminate()
endif
endif
endif
endif
end if
end sub
Sub MiningTiles(X,Y)
if UO.PrivateGetTile(X, Y, -1, 616, 618) then
for i=616 to 618
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 1339, 1363) then
for i=1339 to 1363
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 2272, 2282) then
for i=2272 to 2282
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 4963, 4973) then
for i=4963 to 4973
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 6001, 6012) then
for i=6001 to 6012
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 13121, 13369) then
for i=13121 to 13369
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 13446, 13455) then
for i=13446 to 13455
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 13484, 13492) then
for i=13484 to 13492
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
if UO.PrivateGetTile(X, Y, -1, 13625, 13628) then
for i=13625 to 13628
if UO.PrivateGetTile(X, Y, -1, i, i) then
return i
end if
next
end if
return 0
end sub
Sub Gong(times); play wav-file
VAR i
for i=1 to times
UO.Exec("playwav C:\WINDOWS\Media\ringin.wav")
wait(500); time to play sample at once
next
end sub
Sub DeleteJournal(msg)
While UO.InJournal(msg)
UO.SetJournalLine(UO.InJournal(msg) - 1,'')
wend
endsub
Sub MyTerminate()
UO.Set('quiet','1')
UO.CancelMenu()
UO.IgnoreReset()
UO.Set('quiet','0')
UO.Exec('terminate all')
end sub
Sub checklag()
DeleteJournal("ackpack")
UO.Click("backpack")
repeat
wait(100)
until UO.InJournal("ackpack")
end sub
sub clean(); î÷èñòêà òî÷åê äîáû÷è
var m = 50
for Y = -m to m
for X = -m to m
uo.mfgi( 'clear', mX+X, mY+Y, mZ )
next
next
end sub

собственно скрипт зарание благодарю


Top
 Profile  
 
PostPosted: 09 Jul 2017, 18:08 
Offline
Игрок

Joined: 28 Apr 2017, 14:07
Posts: 50
kiss23 wrote:
ребят подскажите кто нибудь скрипт на мининг(просто чтоб ходил и копал в пещере) для
Injection а то ползаю не магу найти либо не работают или поделитесь ссылкой на скрипт который тут работает не хочется качать изи уо или разор

например есть просто скрипт обкапывает всё вокруг себя не могу приделать чтоб ходил


Может все-таки будет легче скачать изиуо?


Top
 Profile  
 
PostPosted: 09 Jul 2017, 23:34 
Offline
Новичок

Joined: 07 Jul 2017, 10:54
Posts: 4
это нужно разбираться ещё в нём в изи да и не надо мне скрипт супер пупер чтоб и плавил и ходил и копал и летал по рунбуки мнеб простенький чтоб копал вокруг себя и ходил (вот мой хоть и не ходит зато копает вокруг себя как перевес он так и пишет перегруз или всё-типа откопано вокруг ну если нет умельцев или нет ссылок скриптов что же бум качать изи


Top
 Profile  
 
PostPosted: 12 Mar 2018, 16:49 
Offline
Начинающий игрок

Joined: 10 Mar 2018, 12:06
Posts: 11
sub Mining()
start:
gotoXY(2567,461)
minround()
gotoXY(2567,465)
minround()
gotoXY(2564,466)
minround()
gotoXY(2559,466)
minround()
gotoXY(2560,470)
minround()
gotoXY(2564,474)
minround()
gotoXY(2562,477)
minround()
gotoXY(2565,477)
minround()
gotoXY(2566,482)
minround()
gotoXY(2563,486)
minround()
gotoXY(2566,486)
minround()
gotoXY(2569,486)
minround()
gotoXY(2569,488)
minround()
gotoXY(2572,486)
minround()
gotoXY(2572,483)
minround()
gotoXY(2575,480)
minround()
gotoXY(2572,480)
minround()
gotoXY(2569,480)
minround()
gotoXY(2566,483)
minround()
gotoXY(2563,483)
minround()
gotoXY(2563,480)
minround()
gotoXY(2566,480)
minround()
gotoXY(2563,477)
minround()
gotoXY(2566,477)
minround()
gotoXY(2566,474)
minround()
gotoXY(2569,475)
minround()
gotoXY(2569,477)
minround()
gotoXY(2572,477)
minround()
gotoXY(2575,477)
minround()
goto start:
endsub

Sub minround()
VAR Kirka = '0x0E86'
VAR MaxVes = 1040
VAR Tiles
VAR x, y, t, k, mX, mY, mZ
VAR MaxTime = 100
VAR ms1 = "There is nothing"
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 = "Oaeu neeoeii aaeaei"
VAR ms8 = "O aan ia iieo?eeinu ie?aai aiauou"
mX = UO.GetX('self')
mY = UO.GetY('self')
mZ = UO.GetZ('self')
for y=-1 to 1
for x=-1 to 1
If UO.Weight > MaxVes Then
Plavca()
BS()
Endif
Tiles = F_HarvestTiles(mX+x, mY+y)
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.WaitTargetTile(Tiles, mX+x, mY+y, mZ)
UO.UseType( Kirka )
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 ((t + MaxTime) < UO.Timer()) or UO.Weight > MaxVes
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) or UO.Weight > MaxVes
next
next
Drop() ; ooieoey na?ina ?oiau caeiiaioe?iaaou iinoaau ia?aa iae ;
endsub

Sub F_HarvestTiles(x,y)
var i
if UO.PrivateGetTile(x, y, -1, 1339, 1343) then
for i=1339 to 1343
if UO.PrivateGetTile(x, y, -1, i, i) then
return i
end if
next
end if
return 0
end sub

Sub Drop() ; nio?e iaio?iia...
;---------------------------------------------------------------------
uo.findtype('0x19B9','0x0000','backpack') ;????? ??????
if uo.findcount() > 0 then
UO.Drop('-1',1,1,0,'finditem')
wait(300)
endif
;--------------------------------------------------------------------
uo.findtype('0x19B9','0x0AB2','backpack') ;na?in iaae
if uo.findcount() > 0 then
UO.Drop('-1',1,1,0,'finditem')
wait(300)
endif
;-------------------------------------------------------------------
uo.findtype('0x19B9','0x0488','backpack') ;na?in a?iicu
if uo.findcount() > 0 then
UO.Drop('-1',1,1,0,'finditem')
endif
;-----------------------------------------------------------------------
endsub

sub BS()
uo.findtype('0x1BEF','0x0AB2','backpack')
UO.WaitTargetType('0x1BEF')
UO.UseType('0x13E3')
wait(3000)
While uo.count('0x1BEF') > 9
UO.SendGumpSelect(508)
wait(7000)
PlavcaItem()
wend
endsub

Sub Plavca()
gotoXY(2573,474)
uo.findtype('0x19B9',-1,'backpack')
while uo.count('0x19B9') > 0
uo.usetype('0x19B9')
wait(300)
wend
endsub

sub PlavcaItem()
uo.findtype('0x13EB','0x042C','backpack')
while uo.findcount() > 0
UO.WaitTargetObject('finditem')
UO.UseObject('0x40008433')
wait(300)
uo.findtype('0x13EB','0x042C','backpack')
wend
endsub

Sub gotoXY(x,y)
var ld=0,ldc=0
var dx,dy
var mx,my
var ox,oy,mk,k
start:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
if dx<=0 then
return
end if
if not ldc then
end if
if dx<3 then
mk=70
else
mk=15
end if

ox=mx
oy=my
for k=1 to mk
mx=UO.GetX()
my=UO.GetY()
if mx<>ox or my<>oy then
goto sdidapl
end if
wait(10)
next
sdidapl:

mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if

if dx<=0 then
return
end if
if ld==dx then
ldc=ldc+1
if ldc>100 then
uo.print("Can not reach location!")
return
end if
else
ld=dx
end if

if mx==x then
if my==y then
return
endif
if my>y then
UO.Press(33)
goto start
endif
UO.Press(35)
goto start
end if
if mx<x then
if my>y then
UO.Press(39)
goto start
endif
if my==y then
UO.Press(34)
goto start
endif
UO.Press(40)
goto start
end if
if my<y then
UO.Press(37)
goto start
endif
if my==y then
UO.Press(36)
goto start
endif
UO.Press(38)
goto start
end sub


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

All times are UTC + 2 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 173 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:  
Powered by phpBB® Forum Software © phpBB Group