######################################################################### 
#Min-a-mine 0.5; © CLD; 
#Ñêðèïò ïðåäîñòàâèë Incubus 
#Âûðîé øàõòó! Ïðè çàïóñêå ñêðèïòà ÷àðà ðåêîìåíäóåòñÿ ñòàâèòü â 
#ëåâûé-íèæíèé óãîë. 
#Çà îñíîâó âçÿò ñêðèïò "mining around", © Edred 
# 
sub minamine() 
#êîíñòàíòû 
VAR Kirka = '0x0e85' ; Òèï êèðêè 
VAR MaxVes =600 ; Áîëüøå íå óòàùèì 
VAR TileNum = '1339' ; Òàéë ïåùåðû 
#Ïåðåìåííûå 
VAR x, y, t, k, oldx, oldy, wh, togg 
#Ñîîáùåíèÿ 
VAR ms1 = "There is no ore here to mine" 
VAR ms2 = "You can't use" 
VAR ms3 = "You put the" 
VAR ms4 = "You loosen" 
VAR ms5 = "You have no" 
VAR ms6 = "Try mining in rock" 
VAR ms7 = "You are tired" 
VAR ms8 = "That is too far away"
#Ïîåõàëè! 
while 1 
wait(300) 
oldx = uo.getx() #Çàïîìíèì ãäå ìû: âäðóã â òóïèêå? 
oldy = uo.gety() 
UO.Set('quiet','1') #Çàêàíàëè ñîîáùåíèÿ... 
for y=-4 to 4 
for x=-4 to 4 
k = 0 
repeat 
UO.DeleteJournal() 
t = UO.Timer() 
k = k + 1 
UO.CancelTarget() 
wait(300) 
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
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 UO.InJournal(ms8) 
If UO.Weight > MaxVes Then 
; Ôóóó.... 
UO.Print(" Overweight!" ) 
return 
Endif 
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) AND NOT UO.InJournal(ms7) OR (k > 7) ) 
next 
next 
UO.Set('quiet','0') #Ïîøëè? 
uo.print( 'Õîäèëêà çàäåéñòâîâàíà.') #Óäîáíî äëÿ îòëàäêè... 
wait(300) 
oldx = uo.getx() #Åùå ðàç íà âñÿêèé. 
oldy = uo.gety() 
if wh == '1' then #Âïðàâî 
uo.press (33) 
uo.press (33) 
uo.press (33) 
else #Âëåâî 
uo.press (35) 
uo.press (35) 
uo.press (35) 
endif 
wait(300) 
if (uo.getx() == oldx) and (uo.gety() == oldy) then 
uo.print('Òóïèê!') 
if wh == '1' then #Ïåðåêëþ÷èòü wh è ñäâèíóöà ââåðõ 
uo.press(36) 
uo.press(36) 
uo.press(36) 
wh = '0' 
else 
wh = '1' 
uo.press(36) 
uo.press(36) 
uo.press(36) 
end if 
else 
uo.print('Ïðîõîäèì.') 
endif 
wait(300) # èèè.... çàíîâî! 
wend 
endsub
#################################################################