Yoko

vot script na mining.no problema v elementaljah.nado 6tobi pri pojavlenie elementalja prekra6alsa mining i proiznosilisj dve komandi : .camp i .arm .pri ubijstve elementalja prodolzal kopatj dalshe...da i neznaju po kakim pri4inam script inogda ostanavlivaetsa.

sub mine() 
UO.DeleteJournal() 
var x, y, i, tmp, inside, goto_x, st, first 
st=0 
first=UO.GetX() 
start: 
inside=0 
for y=-2 to 2 
for x=-2 to 2 
try: 
UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0") 
UO.exec ("usetype 0x0E85") 
#UO.Print (""+STR(x)) 
#UO.Print (""+STR(y)) 
i=0 
while i< 100 
if UO.InJournal("You loosen some rocks but fail to find any useable ore") then 
wait (1000) 
i=200 
UO.DeleteJournal() 
goto try 
endif
if UO.InJournal("Try mining elsewhere") then 
i=200 
UO.DeleteJournal() 
endif 
if UO.InJournal("You cant mine in this Region.") then 
i=200 
UO.DeleteJournal() 
endif 
if UO.InJournal("You must wait to perform another action") then 
wait (1000) 
i=200 
UO.DeleteJournal() 
goto try 
endif 
if uo.InJournal("Elemental") or uo.InJournal("is attacking you") or uo.Dead() then 
uo.playwav("C:\injection\alert.wav")
end if 
;if UO.InJournal("You put") then 
;wait (1000) 
;i=200 
;UO.DeleteJournal() 
;goto try 
;endif 
if UO.InJournal("There is nothing here to mine for")  then 
wait (1000) 
i=200 
UO.DeleteJournal() 
endif 
if UO.InJournal("You have no line of sight to that location") then 
wait (1000) 
i=200 
UO.DeleteJournal() 
endif 
wait (500) 
i=i+1 
if uo.weight > 700 then 
uo.findtype(0x19B9,0x06D6,2)
UO.MoveItem('finditem', '0', 'ground') 
wait (100)
endif
wend 
next 
next 

if st == 0 then 
goto_x=UO.GetX()+5 
while inside < 10 
while UO.GetX() < goto_x 
UO.Press (39, 1, 500) 
inside=0 
wend 
while UO.GetX() > goto_x 
UO.Press (37, 1, 500) 
inside=0 
wend 
inside=inside+1 
wait (300) 
wend 
st=1 
goto start 
endif 

if st == 1 then 
while inside < 10 
while UO.GetX() < first 
UO.Press (39, 1, 500) 
inside=0 
wend 
while UO.GetX() > first 
UO.Press (37, 1, 500) 
inside=0 
wend 
inside=inside+1 
wait (300) 
wend 
st=0 
endif 
end sub

mozhet ktoto pomo4 ?

Бредовый скрипт, разбирать лень.

ИМхО

po4emu bredovij?ja igraju na oldparadise,mozet znaet kto takoj.da i mozet kto skazatj kak napisatj v scripte stobi v igre vipolnal komandi,naprimer .arm

vovo , ja tze graju tam clericom , 1lvl , mneb wara proka4atj , sas inject razrewilji

МЛЯ! В СОСЕДНЕЙ ТЕМЕ ДОXYR скриптов на мининг! И там от етого уходят просто! Пьеш инвизку и летиш по рунке! Потом ждеш 10мин пока елементал не уйдет!!!!!!!

_________________
СМЕРТЬ ФЛУДЕРАМ!

psc , nu pomogite , mining realjno nada ko4atj , a eto tezelo , ja krome kak v uo igratj eso i gulajju , buxaju , splju , bluju

ДАААА, у тебя помимо уо ещё много важных дел . Короче в поиске напиши мининг, а там ищи скрипт Ветера, найди в скрипте место где проверка на появление элема и вставляй туда UO.Say(".camp") ну и что там ещё тебе надо