Я ПК, как мне быть с минингом?
Moderators: Murderator+, Murderator
Я ПК, как мне быть с минингом?
Всем приветище!! Я гамаю на дрв и уже успел стать ПК. Ну вобщем такая проблема: Скрипт на мининг у меня от Ветерана. Судь проста, я реколюсь по рунбуке на шахту, прячусь в хайд и начинаю копать, если вдруг какоето приближение ПК, то чар моментом реколится по рунке в безопасное место, выкладывает руду и через некоторое время возвращается обратно на шахту по тойже рунбуке.
Ну и наконец то сама судь моей проблемы: Очень часто чар реколится не из за приблежения ПК, а просто из за того что начинает выкапывать что то ценное и над головой появляется надпись 'You loosen some rocks but fail to find any useable ore' Ну вот в принципи и вся проблема из-за которой этот скрипт для меня стал сплошным мучением. Я надеюсь что кто-нибудь мне подскажет что исправить для тогго что бы чар не обращал внимание на эту надпись
############################################
### Øàðä Dragon World / www.drw.ru
############################################
### Àâòîð ñêðèïòà: BETEP[WOD] or BETEPAH ###
############################################
### ÑÊÐÈÏÒ ÄËß ÊÎÏÊÈ Â ÍÅÑÊÎËÜÊÈÕ ÏÅÙÅÐÀÕ.
sub Maning()
#BETEP#
var mx, my, mz, i, j, jor, ser, noto
dim runes[2]
runes[0]=88
runes[1]=94
runes[2]=1025
var cavenumber=0
var maxcaves=3
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
uo.print('!!Ðóíà-Ñïàñàòåëü!! ')
uo.exec('addobject runeHome')
while uo.targeting()
wait(100)
wend
na4alo:
UO.DeleteJournal()
UO.UseSkill("Detect Hidden")
UO.Print("!!ÏÎÈÑÊ!!")
wait(3200)
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)
for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
if noto <> 5 and noto <> 0 and not uo.injournal("elemental") then
cavenumber=cavenumber+1
if cavenumber==maxcaves then
cavenumber=0
endif
Save()
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)
Reagents()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook " + Str(runes[cavenumber]))
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
#BETEP#
end sub
sub loot() ; ïåðåêëàäêà ðóäû â ñóíäóê
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont='0x40354CB7';--------àéäè ñóíäóêà êóäà êèäàòü ðóäó
DIM Ore[5]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
UO.SetReceivingContainer(UnloadCont)
wait(500)
For a=0 to 3
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
Else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
end sub
sub Save() ; Ðåêîëë îò ÏÊ ïðè èõ ïîÿâëåíèè
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
uo.waittargetobject('runeHome') ; äîìîé
wait(500)
uo.cast('Recall')
wait(4500)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
wait(2000)
if uo.injournal("fade")then
uo.waittargetobject('runeHome') ; äîìîé
wait(500)
uo.cast('Mark')
wait(4500)
uo.deletejournal()
endif
end sub
sub time()
var hh,mm,ss,hms,t=str(UO.Time())
if len(t)<=2 then
hh="0"
mm="0"
ss=t
endif
if len(t)==3 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-1)
endif
if len(t)==4 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-2)
endif
if len(t)==5 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-1)
ss=right(t,len(t)-3)
endif
if len(t)==6 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-2)
ss=right(t,len(t)-4)
endif
return hh+":"+mm+":"+ss
end sub
sub Hide()
repeat
while not UO.Hidden()
wait(100)
UO.Warmode("1")
uo.print("Ïðÿ÷åìñÿ...")
UO.UseSkill("Stealth")
wait(4100)
wend
wait(100)
until false
end sub
sub Reagents()
VAR StoreRegCont=0x4021C9DC;-------àéäè êîíòåéíåðà â ñóíäóêå ñ ðóäîé ãäå ëåæàò ðåãè è áëàíêè
VAR CharRegBag='backpack'
VAR CountReg=10
VAR WaitTime=600
VAR MainSafe=0x40354CB7;---------àéäè êîíòåéíåðà ãäå ðóäà
UO.UseObject(MainSafe)
UO.UseObject(StoreRegCont)
UO.SetReceivingContainer('backpack')
wait(WaitTime)
if UO.BM<CountReg then
UO.FindType('0x0F7B','-1',StoreRegCont) ; BM
UO.Grab(STR((CountReg-UO.BM)),'finditem')
wait(WaitTime)
endif
if UO.BP<CountReg then
UO.FindType('0x0F7A','-1',StoreRegCont) ; BP
UO.Grab(STR(CountReg-UO.BP),'finditem')
wait(WaitTime)
endif
if UO.GA<CountReg then
UO.FindType('0x0F84','-1',StoreRegCont) ; GA
UO.Grab(STR(CountReg-UO.GA),'finditem')
wait(WaitTime)
endif
if UO.GS<CountReg then
UO.FindType('0x0F85','-1',StoreRegCont) ; GS
UO.Grab(STR(CountReg-UO.GS),'finditem')
wait(WaitTime)
endif
if UO.MR<CountReg then
UO.FindType('0x0F86','-1',StoreRegCont) ; MR
UO.Grab(STR(CountReg-UO.MR),'finditem')
wait(WaitTime)
endif
if UO.NS<CountReg then
UO.FindType('0x0F88','-1',StoreRegCont) ; NS
UO.Grab(STR(CountReg-UO.NS),'finditem')
wait(WaitTime)
endif
if UO.SA<CountReg then
UO.FindType('0x0F8C','-1',StoreRegCont) ; SA
UO.Grab(STR(CountReg-UO.SA),'finditem')
wait(WaitTime)
endif
if UO.SS<CountReg then
UO.FindType('0x0F8D','-1',StoreRegCont) ; SS
UO.Grab(STR(CountReg-UO.SS),'finditem')
wait(WaitTime)
endif
UO.FindType('0x1F4C','-1',StoreRegCont) ;
UO.Grab('2','finditem')
wait(WaitTime)
uo.exec("recall Runebook 1")
UO.UnsetReceivingContainer()
end:
end sub [/list][/list][code][/code]
Ну и наконец то сама судь моей проблемы: Очень часто чар реколится не из за приблежения ПК, а просто из за того что начинает выкапывать что то ценное и над головой появляется надпись 'You loosen some rocks but fail to find any useable ore' Ну вот в принципи и вся проблема из-за которой этот скрипт для меня стал сплошным мучением. Я надеюсь что кто-нибудь мне подскажет что исправить для тогго что бы чар не обращал внимание на эту надпись
############################################
### Øàðä Dragon World / www.drw.ru
############################################
### Àâòîð ñêðèïòà: BETEP[WOD] or BETEPAH ###
############################################
### ÑÊÐÈÏÒ ÄËß ÊÎÏÊÈ Â ÍÅÑÊÎËÜÊÈÕ ÏÅÙÅÐÀÕ.
sub Maning()
#BETEP#
var mx, my, mz, i, j, jor, ser, noto
dim runes[2]
runes[0]=88
runes[1]=94
runes[2]=1025
var cavenumber=0
var maxcaves=3
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
uo.print('!!Ðóíà-Ñïàñàòåëü!! ')
uo.exec('addobject runeHome')
while uo.targeting()
wait(100)
wend
na4alo:
UO.DeleteJournal()
UO.UseSkill("Detect Hidden")
UO.Print("!!ÏÎÈÑÊ!!")
wait(3200)
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)
for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
if noto <> 5 and noto <> 0 and not uo.injournal("elemental") then
cavenumber=cavenumber+1
if cavenumber==maxcaves then
cavenumber=0
endif
Save()
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)
Reagents()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook " + Str(runes[cavenumber]))
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
#BETEP#
end sub
sub loot() ; ïåðåêëàäêà ðóäû â ñóíäóê
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont='0x40354CB7';--------àéäè ñóíäóêà êóäà êèäàòü ðóäó
DIM Ore[5]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
UO.SetReceivingContainer(UnloadCont)
wait(500)
For a=0 to 3
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
Else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
end sub
sub Save() ; Ðåêîëë îò ÏÊ ïðè èõ ïîÿâëåíèè
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
uo.waittargetobject('runeHome') ; äîìîé
wait(500)
uo.cast('Recall')
wait(4500)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
wait(2000)
if uo.injournal("fade")then
uo.waittargetobject('runeHome') ; äîìîé
wait(500)
uo.cast('Mark')
wait(4500)
uo.deletejournal()
endif
end sub
sub time()
var hh,mm,ss,hms,t=str(UO.Time())
if len(t)<=2 then
hh="0"
mm="0"
ss=t
endif
if len(t)==3 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-1)
endif
if len(t)==4 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-2)
endif
if len(t)==5 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-1)
ss=right(t,len(t)-3)
endif
if len(t)==6 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-2)
ss=right(t,len(t)-4)
endif
return hh+":"+mm+":"+ss
end sub
sub Hide()
repeat
while not UO.Hidden()
wait(100)
UO.Warmode("1")
uo.print("Ïðÿ÷åìñÿ...")
UO.UseSkill("Stealth")
wait(4100)
wend
wait(100)
until false
end sub
sub Reagents()
VAR StoreRegCont=0x4021C9DC;-------àéäè êîíòåéíåðà â ñóíäóêå ñ ðóäîé ãäå ëåæàò ðåãè è áëàíêè
VAR CharRegBag='backpack'
VAR CountReg=10
VAR WaitTime=600
VAR MainSafe=0x40354CB7;---------àéäè êîíòåéíåðà ãäå ðóäà
UO.UseObject(MainSafe)
UO.UseObject(StoreRegCont)
UO.SetReceivingContainer('backpack')
wait(WaitTime)
if UO.BM<CountReg then
UO.FindType('0x0F7B','-1',StoreRegCont) ; BM
UO.Grab(STR((CountReg-UO.BM)),'finditem')
wait(WaitTime)
endif
if UO.BP<CountReg then
UO.FindType('0x0F7A','-1',StoreRegCont) ; BP
UO.Grab(STR(CountReg-UO.BP),'finditem')
wait(WaitTime)
endif
if UO.GA<CountReg then
UO.FindType('0x0F84','-1',StoreRegCont) ; GA
UO.Grab(STR(CountReg-UO.GA),'finditem')
wait(WaitTime)
endif
if UO.GS<CountReg then
UO.FindType('0x0F85','-1',StoreRegCont) ; GS
UO.Grab(STR(CountReg-UO.GS),'finditem')
wait(WaitTime)
endif
if UO.MR<CountReg then
UO.FindType('0x0F86','-1',StoreRegCont) ; MR
UO.Grab(STR(CountReg-UO.MR),'finditem')
wait(WaitTime)
endif
if UO.NS<CountReg then
UO.FindType('0x0F88','-1',StoreRegCont) ; NS
UO.Grab(STR(CountReg-UO.NS),'finditem')
wait(WaitTime)
endif
if UO.SA<CountReg then
UO.FindType('0x0F8C','-1',StoreRegCont) ; SA
UO.Grab(STR(CountReg-UO.SA),'finditem')
wait(WaitTime)
endif
if UO.SS<CountReg then
UO.FindType('0x0F8D','-1',StoreRegCont) ; SS
UO.Grab(STR(CountReg-UO.SS),'finditem')
wait(WaitTime)
endif
UO.FindType('0x1F4C','-1',StoreRegCont) ;
UO.Grab('2','finditem')
wait(WaitTime)
uo.exec("recall Runebook 1")
UO.UnsetReceivingContainer()
end:
end sub [/list][/list][code][/code]
Code: Select all
sub mining()
VAR x,y,z='0',TileNum='1339'
VAR Last=0,LastTimer
For x=-4 to 4
For y=-4 to 4
Repeat
CheckLag()
ToHide()
UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+Y),z)
UO.UseType('0x0e85')
LastTimer=UO.Timer()
repeat
wait(2000)
until UO.InJournal("Try mining") OR UO.InJournal("You put") OR UO.InJournal("You loosen") OR UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("OOPS") OR UO.InJournal("attacking you") OR LastTimer+150<UO.Timer()
if UO.InJournal('You loosen') then
repeat
wait (500)
until UO.InJournal("You put") OR LastTimer+105<UO.Timer()
endif
until UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("Try mining")
Next
Next
mining()
end sub
sub tohide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.FindType('0x0F0E','0x0631','my')
if UO.Life<UO.STR/2 AND UO.GetQuantity('finditem')>0 then
UO.UseType('0x0F0E','0x0631')
UO.Exec('warmode 0')
wait(2000)
else
UO.Exec('warmode 0')
UO.UseSkill('Stealth')
repeat
wait(50)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
endif
wend
end sub
sub CheckLag()
UO.DeleteJournal()
вот могу заделиться кульным скриптом, но он без рекола
стоит на месте и перекапывает почти всю шахту

Rif wrote::shock: а куда мне это все вставить?
Сори если вопрос туповат
эмм....... ну как бы это не надо вставлять никуда, это и есть готовый скрипт (по-моему даже не ветерановский)!!!!
ps берешь нажимаешь edit correct script, вставляешь этот скриптсохраняешь ПОД ДРУГИМ ИМЕНЕМ
потом загружаешь и запускаешь его!
ghost_hnt wrote:Rif wrote::shock: а куда мне это все вставить?
Сори если вопрос туповат
эмм....... ну как бы это не надо вставлять никуда, это и есть готовый скрипт (по-моему даже не ветерановский)!!!!
ps берешь нажимаешь edit correct script, вставляешь этот скриптсохраняешь ПОД ДРУГИМ ИМЕНЕМ
потом загружаешь и запускаешь его!
Да не брось, с инжектом то я дружу, а вот скрипты мне даются не ахти
Я ж ведь уже обьяснил свою проблемку, а ты мне выкладываешь скрипт на обкапывание вокруг себя

Grin wrote:"Я ПК"...
как звучит то;) ашь пробрало... "Я РОБОТ" отдыхает%))
надо чрочно фильм снимать...
Люди плиз давайте без приколов, огромная просьба отпишите тут если знаете что зделать надо со скриптом..
Грин а ты лучше расшифруй что такое ПК, в следующий раз буду писать что мой чар стал приступником и над головой у него красный ник, так устроит больше?
Code: Select all
############################################
### Oa?a Dragon World / www.drw.ru
############################################
### Aaoi? ne?eioa: BETEP[WOD] or BETEPAH ###
############################################
### NE?EIO AE? EIIEE A IANEIEUEEO IAUA?AO.
sub Maning()
#BETEP#
var mx, my, mz, i, j, jor, ser, noto
dim runes[2]
runes[0]=88
runes[1]=94
runes[2]=1025
var cavenumber=0
var maxcaves=3
Uo.exec("set norbcheck 1"); aey ?aeiea
uo.exec("set norbcalc 1"); oi?a
uo.print('!!Auaa?e Eiiaoo!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend
uo.print('!!Auaa?e ?oiaoe!! ')
uo.exec('addobject Runebook')
while uo.targeting()
wait(100)
wend
uo.print('!!?oia-Nianaoaeu!! ')
uo.exec('addobject runeHome')
while uo.targeting()
wait(100)
wend
na4alo:
UO.DeleteJournal()
UO.UseSkill("Detect Hidden")
UO.Print("!!IIENE!!")
wait(3200)
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("I?y?ainy...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Eiiaai a eii?aeiaoao: "+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)
for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
if noto <> 5 and noto <> 0 and not uo.injournal("elemental") and ser <> uo.GetSerial() then
cavenumber=cavenumber+1
if cavenumber==maxcaves then
cavenumber=0
endif
Save()
loot()
wait(3000)
goto reccal
endif
next
wend
if uo.weight > 625 then ; Iaeneiaeuiue aan i?e eioi?ii aiiie n ?oaie
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 21") ; aiiie ( a ?oiaoea neio 1 )
wait(10000)
loot()
wait(3000)
Reagents()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook " + Str(runes[cavenumber]))
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
#BETEP#
end sub
sub loot() ; ia?aeeaaea ?oau a noiaoe
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont='0x40354CB7';--------aeae noiaoea eoaa eeaaou ?oao
DIM Ore[5]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
UO.SetReceivingContainer(UnloadCont)
wait(500)
For a=0 to 3
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
Else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
end sub
sub Save() ; ?aeiee io IE i?e eo iiyaeaiee
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
uo.waittargetobject('runeHome') ; aiiie
wait(500)
uo.cast('Recall')
wait(4500)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
wait(2000)
if uo.injournal("fade")then
uo.waittargetobject('runeHome') ; aiiie
wait(500)
uo.cast('Mark')
wait(4500)
uo.deletejournal()
endif
end sub
sub time()
var hh,mm,ss,hms,t=str(UO.Time())
if len(t)<=2 then
hh="0"
mm="0"
ss=t
endif
if len(t)==3 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-1)
endif
if len(t)==4 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-2)
endif
if len(t)==5 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-1)
ss=right(t,len(t)-3)
endif
if len(t)==6 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-2)
ss=right(t,len(t)-4)
endif
return hh+":"+mm+":"+ss
end sub
sub Hide()
repeat
while not UO.Hidden()
wait(100)
UO.Warmode("1")
uo.print("I?y?ainy...")
UO.UseSkill("Stealth")
wait(4100)
wend
wait(100)
until false
end sub
sub Reagents()
VAR StoreRegCont=0x4021C9DC;-------aeae eiioaeia?a a noiaoea n ?oaie aaa ea?ao ?aae e aeaiee
VAR CharRegBag='backpack'
VAR CountReg=10
VAR WaitTime=600
VAR MainSafe=0x40354CB7;---------aeae eiioaeia?a aaa ?oaa
UO.UseObject(MainSafe)
UO.UseObject(StoreRegCont)
UO.SetReceivingContainer('backpack')
wait(WaitTime)
if UO.BM<CountReg then
UO.FindType('0x0F7B','-1',StoreRegCont) ; BM
UO.Grab(STR((CountReg-UO.BM)),'finditem')
wait(WaitTime)
endif
if UO.BP<CountReg then
UO.FindType('0x0F7A','-1',StoreRegCont) ; BP
UO.Grab(STR(CountReg-UO.BP),'finditem')
wait(WaitTime)
endif
if UO.GA<CountReg then
UO.FindType('0x0F84','-1',StoreRegCont) ; GA
UO.Grab(STR(CountReg-UO.GA),'finditem')
wait(WaitTime)
endif
if UO.GS<CountReg then
UO.FindType('0x0F85','-1',StoreRegCont) ; GS
UO.Grab(STR(CountReg-UO.GS),'finditem')
wait(WaitTime)
endif
if UO.MR<CountReg then
UO.FindType('0x0F86','-1',StoreRegCont) ; MR
UO.Grab(STR(CountReg-UO.MR),'finditem')
wait(WaitTime)
endif
if UO.NS<CountReg then
UO.FindType('0x0F88','-1',StoreRegCont) ; NS
UO.Grab(STR(CountReg-UO.NS),'finditem')
wait(WaitTime)
endif
if UO.SA<CountReg then
UO.FindType('0x0F8C','-1',StoreRegCont) ; SA
UO.Grab(STR(CountReg-UO.SA),'finditem')
wait(WaitTime)
endif
if UO.SS<CountReg then
UO.FindType('0x0F8D','-1',StoreRegCont) ; SS
UO.Grab(STR(CountReg-UO.SS),'finditem')
wait(WaitTime)
endif
UO.FindType('0x1F4C','-1',StoreRegCont) ;
UO.Grab('2','finditem')
wait(WaitTime)
uo.exec("recall Runebook 1")
UO.UnsetReceivingContainer()
end:
end sub
Rif wrote:Люди плиз давайте без приколов, огромная просьба отпишите тут если знаете что зделать надо со скриптом..
Грин а ты лучше расшифруй что такое ПК, в следующий раз буду писать что мой чар стал приступником и над головой у него красный ник, так устроит больше?
А если серьезно - БРОСАЙ ГОПОВАТЬ!!!!!! вы С??и надаели! КРЫСЫ!
Становись нормальным!!!!!
ZWERb wrote:Rif wrote:Люди плиз давайте без приколов, огромная просьба отпишите тут если знаете что зделать надо со скриптом..
Грин а ты лучше расшифруй что такое ПК, в следующий раз буду писать что мой чар стал приступником и над головой у него красный ник, так устроит больше?
А если серьезно - БРОСАЙ ГОПОВАТЬ!!!!!! вы С??и надаели! КРЫСЫ!
Становись нормальным!!!!!
Зверб, тебе сколько лет?
ViSerT wrote:я тоже играю на ДРВ... и мне довелось встречаться с РИФом. В этом топике я увидел что он может разговаривать по человечески а в игре полный конрацептив... хотя бы то что он бегает и убивает землетресением тех кто качается в доме... ну еще убивает лошадей...контрацептив что еще сказать...
Пойми игра это сложность с которой справляются играки, и справившись с какой либо сложностью они чувствуют удовлетворение.
UO это в первую очередь онлайн игра, в которой сложность представляют не только монстры и драконы, но и другие играющие в эту игру, а если тебе не нравятся такие сложности как убийство землетрясением или потеря своего скакуна, то тогда советую искать шард где нет PvP и всё удовольствие состоит только в PvM.