Code: Select all
sub mining()
VAR LastTimer
var continue = "You put|can't see|but fail" ; сообщения о продолжении капания этого тайла
var break = "no ore here|in rock|far away|no line of sight|nothing|You cannot mine" ; сообщения о прекращении капания этого тайла
var i,flag,j
var Count
var f=file("C:\mining.txt")
DIM XTile[550],YTile[550],ZTile[550]
var TileType
uo.deletejournal()
##
uo.print('Loading Cordinates To File')
f.open()
Count=safe call f.readNumber()
uo.print("Load "+str(Count)+ " Tiles")
for i=0 to Count-1
TileType=safe call f.ReadNumber()
XTile[i]=safe call f.ReadNumber()
YTile[i]=safe call f.ReadNumber()
ZTile[i]=safe call f.ReadNumber()
next
f.close()
##
while TRUE
uo.deletejournal()
if Count>0 then
for i=0 to Count-1
uo.print('Start to mine '+str(i)+': '+STR(XTile[i])+' '+STR(YTile[i])+' tile.')
Walker(XTile[i],YTile[i],1)
wait(100)
uo.deletejournal()
while not UO.InJournal( break )
uo.deletejournal()
LastTimer=UO.Timer()
UO.Waittargettile(TileType,XTile[i],YTile[i],ZTile[i])
UO.UseType(Pickaxe)
repeat
if Ressurect==1 then
if uo.life == 0 then
ress()
end if
end if
##
if UO.Weight>=MaxWeight then
uo.CancelTarget()
wait(500)
ToRecall()
end if
##
until UO.InJournal( break + "|" + continue ) OR UO.Timer()>=LastTimer+100
wait (100)
wend
next
endif
wend
end sub