Маининг ХЕЛП самоне

riccardo · Post by **riccardo** » 2005-04-25 07:16:06

Скриптери доделаиет пожалусто скрипт ВТЕРА
мне после реконекта он просит вибрат лапату и рунебоок и стаит на месте , а нада штоб он без базара вибрал ..
точнеэ штоб он непрасил а просто через ид виберал сам ...
позалусто напишите как ето пишетса ...
зараниэ спасибо.

Code: Select all

sub maning() 
#BETEP™# 
var mx, my, mz, i, j, jor, ser, noto 
Uo.exec("set norbcheck 1"); для рекола 
uo.exec("set norbcalc 1"); тоже 

uo.print('!!Выбери Лопату!! ') 
uo.exec('addobject Shovel') 
while uo.targeting() 
wait(100) 
wend 
  
uo.print('!!Выбери Рунбук!! ') 
uo.exec('addobject Runebook') 
while uo.targeting() 
wait(100) 
wend 

na4alo: 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
for i = mx-4 to mx+4 
for j = my -4 to my+4 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("Прячемся...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore") 
UO.DeleteJournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Useobject("Shovel") 
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
wait (500) 
if uo.injournal("heavy") or uo.dead() then 
pwav()                    
Pause() 
endif 
for jor = 0 to 9    
ser = uo.journalserial(jor) 
noto = uo.getnotoriety(ser) 
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then 
if uo.waiting() then 
uo.canceltarget() 
endif 
Save() 
pwavw() 
wait(180000) ; время в секундах при ожидании пока уйдет ПК 
loot() 
wait(3000) 
goto reccal 
endif 
next    
wend 
if uo.weight > 625 then  ; Максимальный вес при котором домой с рудой 
goto end 
endif 
wend 
UO.DeleteJournal() 
next 
next 
goto na4alo 
end: 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.exec("recall Runebook 21") ; домой ( в рунбуке слот 1 ) 
wait(10000) 
loot() 
wait(3000) 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.exec("recall Runebook 94") ; в шахту ( в рунбуке слот 8 ) 
mx = UO.GetX("self") 
my = UO.GetY("self") 
wait(10000) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
goto na4alo 
end sub

[Для кого придуманны теги? I'm]

Beyonder · Post by **Beyonder** » 2005-04-25 12:30:27

Вот твой скрипт разбитый на 2 скрипта. Если поменял кирку или рунбуку запускай первый. Если с текущей киркой первый уже сапускал запускай второй и он будет просто копать.

Конечно можно было сделать лучше, но лень

sub select_objects()
Uo.exec("set norbcheck 1"); для рекола
uo.exec("set norbcalc 1"); тоже

uo.print('!!Выбери Лопату!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend

uo.print('!!Выбери Рунбук!! ')
uo.exec('addobject Runebook')
while uo.targeting()
wait(100)
wend
end sub

sub maning()
#BETEP™#
var mx, my, mz, i, j, jor, ser, noto
Uo.exec("set norbcheck 1"); для рекола
uo.exec("set norbcalc 1"); тоже

na4alo:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
while not UO.Hidden()
UO.Warmode("0")
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Shovel")
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait (500)
if uo.injournal("heavy") or uo.dead() then
pwav()
Pause()
endif
for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then
if uo.waiting() then
uo.canceltarget()
endif
Save()
pwavw()
wait(180000) ; время в секундах при ожидании пока уйдет ПК
loot()
wait(3000)
goto reccal
endif
next
wend
if uo.weight > 625 then ; Максимальный вес при котором домой с рудой
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 21") ; домой ( в рунбуке слот 1 )
wait(10000)
loot()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 94") ; в шахту ( в рунбуке слот 8 )
mx = UO.GetX("self")
my = UO.GetY("self")
wait(10000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
goto na4alo
end sub

Fransua · Post by **Fransua** » 2005-04-25 14:46:23

Вот вариант по интереснее:
1) если находимся в пещере: ищет кирку в бекпаке и подсумках по типу если находит начинает копать.
если не находит - телепортится в дом
2) если в доме: ищет кирку в бекпаке, подсумках и в сундуке, по типу если находит - ,берёт ее и телепортится в пещеру.

Code: Select all

 
var m1x, m1y, m1z ; координаты в доме
var m2x, m2y, m2z ;координаты в пещере
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 

castle:
if mx == m1x and my == m1y and mz == m1z then
UO.findtype(0x0e85,-1,2)
if UO.findcount() <> 0 then
uo.addobject('Shovel','finditem')
wait (100)
else
UO.findtype(0x0e85,-1,'айди сундука')
if UO.findcount() <> 0 then
UO.Grab(1,'finditem') 
uo.addobject('Shovel','finditem')   
wait (1000)
endif
endif         
endif
               
uo.addobject('Runebook','Сюда айди рунбука')
wait (100)
if mx == m2x and my == m2y and mz == m2z then
UO.findtype(0x0e85,-1,2)
if UO.findcount() <> 0 then
uo.addobject('Shovel','finditem')
else 
uo.exec("recall Runebook 21")
goto castle
endif
else
uo.exec("recall Runebook 94");
wait (20000)
endif                  

na4alo:

вставить в скрипт за место этого

Code: Select all

                        uo.print('!!Click on Shovel!! ') 
                        uo.exec('addobject Shovel') 
                        while uo.targeting() 
                        wait(100) 
                        wend 
                          
                        uo.print('!!Click on Runebook!! ') 
                        uo.exec('addobject Runebook') 
                        while uo.targeting() 
                        wait(100) 
                        wend

Beyonder · Post by **Beyonder** » 2005-04-25 15:44:12

Говорил же что можно лучше но лень