Yoko
http://forum.yoko.com.ua/

Объесните плиз
http://forum.yoko.com.ua/viewtopic.php?f=20&t=8892		 Page 1 of 1
Author:  No***Name [ 2006-09-26 19:18:51 ]
Post subject:  Объесните плиз
Вот такой скрипт на мининг я в скриптах не очень шарю скажите плиз куда по идее в нем рну к шахте ложить и воще нуна он там или нет

###################################
######### Манинг ДРВ www.drw.ru #########
######### Скрипт от Execration ###########
###############2006################
##################################
sub Maning()
var mx, my, mz, i, j, jor, ser, noto
dim runes[2]
runes[0]=136
runes[1]=94
runes[2]=1025
var cavenumber=0
var maxcaves=3

Uo.exec("set norbcheck 1")
uo.exec("set norbcalc 1")

uo.fontcolor (0x0020)
uo.msg('||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||')
uo.fontcolor (0x038a)
uo.msg
('|||||||||||||||||||||||||||||| Made in Latvia |||||||||||||||||||||||||||||||')
uo.fontcolor (0x0020)
uo.msg('|||||||||||||||||||||||||||||||byExecration||||||||||||||||||||||||||||||||||')
uo.fontcolor (0x0017)

uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend

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
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") and not UO.InJournal("Bronze Ore") and not UO.InJournal("Shadow Ore") and not UO.InJournal("Rose Ore") and not UO.InJournal("Gold Ore") and not UO.InJournal("Rusty Ore") and not UO.InJournal("Old Copper Ore") and not UO.InJournal("Dull Copper Ore") and not UO.InJournal("Silver Ore") and not UO.InJournal(" 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 <> 0 and noto <> 2 and not uo.injournal("loosen") then
cavenumber=cavenumber+1
if cavenumber==maxcaves then
cavenumber=0
endif
Save()
loot()
wait(3000)
goto reccal
endif
next
wend
if uo.weight > 200 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
end sub

sub loot()
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont='0x40341BBF' ; Айдишка сейфа
DIM Ore[11]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
Ore[4]=0x0F10
Ore[5]=0x0F0F
Ore[6]=0x0F16
Ore[7]=0x0F18
Ore[8]=0x0F15
Ore[9]=0x0F26
Ore[10]=0x0F11
UO.SetReceivingContainer(UnloadCont)
wait(500)
For a=0 to 10
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.Exec("usetype 0x0F0E 0x0631") ; бухаем инвизку
uo.WaitTargetType('0x1F14') ; летим домой (в паке 2 руны к сейфу)
UO.Cast('Recall') ; Летим дамой
wait(2050)
Screen() ; Сфоткаем урода на память
wait(2000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
wait(4160)
uo.Useskill('Meditation') ; Медетируем после экстрим полета от пк
wait(40000)
uo.deletejournal()
endif
Reagents()
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()
uo.exec("recall Runebook 2")
UO.UnsetReceivingContainer()
VAR StoreRegCont=0x40166175
VAR CharRegBag='backpack'
VAR CountReg=10
VAR WaitTime=500
VAR MainSafe=0x40305655

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
################
# Берем 1 инвизку если она нужна.
################
If uo.count('0x0F0E','0x0631') < 1 then
uo.findtype('0x0F0E','0x0631',StoreRegCont)
UO.Grab('1','finditem')
wait(WaitTime)
endif

UO.UnsetReceivingContainer()
end:
end sub

sub Screen()
;while not uo.dead()
;wait(50)
;wend
uo.snap()
end sub
Author:  Scripts Writer [ 2006-09-26 19:32:49 ]
Post subject: 
Балтийские скрипты не воспринимаю.
Author:  No***Name [ 2006-09-26 19:36:02 ]
Post subject: 
You Must Die wrote:
Балтийские скрипты не воспринимаю.

ну может поможеш :roll:
Author:  No***Name [ 2006-09-26 19:48:50 ]
Post subject: 
Или дайте какойнить похожи скрипт пожалуйста :oops: :(
Author:  Mihail [ 2006-09-27 22:10:14 ]
Post subject: 
не вопрос!
вот ТУТ ну просто ДОФИГА скриптов на мининг
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/