demous

Wtf gribu paspelet Uo Xl serveri bet newaru ieet izmet

Pozalusta napewite Script (inject) dlja Camping. Katorij evo dzelaet primerna 4erez 28sec. srazu govorju sposibo

Ktoto mozet pomo4 s 1 scriptom. mne esty 1 script no on kakoto stramij potomuwta on gdeto kopajet 15 raz i sam otklu4aetsja izpravte script esli ktoto znaet owibku vot script




sub mine()

var x, y, i, tmp, inside, goto_x, st, first

st=0

first=UO.GetX()

start:

inside=0

for y=-1 to 1

for x=-1 to 1

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 (10)

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("so close to") 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 (2)

i=200

UO.DeleteJournal()

goto try

endif


if UO.InJournal("you stop mining") then

wait (2)

i=200

UO.DeleteJournal()

goto try

endif

if uo.InJournal("till")then

uo.playwav("???? ?? ??????")

wait(2)

i=200

UO.DeleteJournal()

goto try

endif


if UO.InJournal("There is nothing here to mine for") then

wait (2)

i=200

UO.DeleteJournal()

endif

if UO.InJournal("You have no line of sight to that location") then

wait (2)

i=200

UO.DeleteJournal()

endif

wait (50)

i=i+1

if uo.weight > 700 then

uo.findtype(0x19B9,0x06D6,2)

UO.MoveItem('finditem', '0', 'ground')

wait (2)

endif

wend

next

next



if st == 0 then

goto_x=UO.GetX()+2

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 (29)

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 (2)

wend

st=0

endif

end sub

Pomogite pliz napewite Script Blacksmithing dlja inject! wtob on prosta otkrivalb menu i dzelal last Item

Ludzu uzrakstiet scriptu!
kurs pats taisa vala Menu un taisa Last item! Ludzu
Prieks Inject