
из-за чего эта фигня вылетает каждые 15-30 мин работы любого макроса на прокачку любого скила?!?!?!?!?!?!?!?!?!?!??!
Moderators: Murderator+, Murderator
TarantuL wrote:да скрипты все отсюда.
из-за галок в индже мб?
Code: Select all
sub Cartography()
uo.Print("Cartography: Train On")
var Map.Type='0x14eb',Map.Count=0
var Pause.Wait=100,Pause.Wrld=5000
var Map.Time=50,Map.TimeEnd
var UoMsg.Map1="You put the map"
var UoMsg.Map2="Thy trembling hand results in"
var UoMsg.Map3="You fail to coplete the map"
var UoMsg.Wrld="World save has been initiated"
repeat
uo.DeleteJournal()
uo.FindType(Map.Type,'-1','backpack')
uo.Print("Map: "+str(uo.FindCount())+"/"+str(Map.Count))
if uo.FindCount()<>0 then
if MapInfo()==1 then
repeat
uo.DeleteJournal()
uo.UseObject('finditem')
wait(Pause.Wait*5)
CheckLag()
uo.waitmenu("What sort of map do you want to d","Detail Map")
Map.TimeEnd=uo.Timer()+Map.Time
repeat
if uo.InJournal(UoMsg.Wrld) then
wait(Pause.Wrld)
DeleteJournal(UoMsg.Wrld)
end if
wait(Pause.Wait*5)
until uo.InJournal(UoMsg.Map1) or uo.InJournal(UoMsg.Map2) or uo.InJournal(UoMsg.Map3) or uo.Timer()>Map.TimeEnd
wait(Pause.Wait*5)
until uo.InJournal(UoMsg.Map1)
Map.Count=Map.Count+1
else
uo.Ignore('finditem')
end if
end if
until uo.FindCount()==0 or uo.FindCount()==Map.Count
uo.IgnoreReset()
SellItem(Map.Type)
uo.Print("Cartography: Train Off")
end sub
Black Monk wrote:U menja ona ubrana.
Eto proishodit so vsemi skriptami gde ispolzuetsja uo.FindItem()
Code: Select all
uo.Print("Map: "+str(uo.FindCount())+"/"+str(Map.Count))
Code: Select all
wait(Pause.Wait*5)