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

Mining у дома
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1987		 Page 1 of 2
Author:  Woohoo [ 2004-11-18 10:23:16 ]
Post subject:  Mining у дома
Гоняю я на ДРВ. 2 дома стоят у горы, гора слева под наклоном вправо.
Я нашёл у себя какой-то скрипт, вродебы хороший но не могу его наладить, помогите плЫззз!
Вот он:

var fWav = 'D:\Games\uo\DingDong.wav' ;wav-файл который будет проигрываться при откапавании Элема
var f=file('C:\Ultima\progs\Injection\mining.txt') ;файл где координаты лежат
var tShovel='0x0E85' ; кирка/лопата
var HidingWalk = 1 ; 0/1 - 1 будет прятаться при хотьбе, 0 - не будет.

sub main()
var i
var mCount
dim x[12]
dim y[12]
f.open()
mCount=safe call f.ReadNumber()
for i=1 to mCount
X[i]=safe call f.ReadNumber()
Y[i]=safe call f.ReadNumber()
next
f.close()
while not UO.Dead()
for i=1 to mCount
GotoXY(x[i],y[i])
if i < mCount then
uo.print(str(i) + ' ' + str(mcount))
Dig()
else
Unload()
end if
if UO.Dead() then
GoExit()
end if
next
wend
end sub

sub Dig()
var mx = UO.GetX("self"), my = UO.GetY("self"), mz = UO.GetZ("self"),TileNum='1339', t=0
var i,j
for i = mx-1 to mx+1
for j = my-3 to my+3
tohide()
UO.Print("Now Mining In: "+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")
tohide()
CheckLag()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype(tShovel)
while not UO.InJournal("You put") 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)
wend
if UO.InJournal("but fail") then
wait(1000)
end if
wend
UO.DeleteJournal()
next
next
if t == 1 then
UO.PlayWav(fWav)
GoExit()
end if
return 1
end sub

sub GotoXY(x,y)
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0
for i=1 to 60
myX=uo.getX()
myY=uo.getY()
if LastX==myX and LastY==myY then
halt=halt+1
else
halt=0
end if
if halt>=10 then
if uo.GetDir()==1 then
for z=0 to 8
HidingPress(40)
next
end if
if uo.GetDir()==3 then
for z=0 to 8
HidingPress(37)
next
end if
if uo.GetDir()==5 then
for z=0 to 8
HidingPress(38)
next
end if
if uo.GetDir()==7 then
for z=0 to 8
HidingPress(39)
next
end if
halt=15
end if
if Numb(x-myX)==0 and Numb(y-myY)==0 then
return 1
end if
if x<=myX then
if y<=myY then
for z=0 to 3
HidingPress(38)
next
else
for z=0 to 3
HidingPress(37)
next
end if
else
if y<=myY then
for z=0 to 3
HidingPress(39)
next
else
for z=0 to 3
HidingPress(40)
next
end if
end if
lastX=myX
lastY=myY
wait(200)
next
return 0
end sub

sub Numb(num)
if num>=0 then
return num
else
return num*(-1)
end if
end sub

sub HidingPress(KeyCode)
if HidingWalk == 1 then
ToHide()
end if
CheckAtack()
UO.Press(KeyCode)
end sub

sub ToHide()
while not UO.Hidden()
CheckAtack()
CheckLag()
UO.WarMode(0)
UO.UseSkill('Hiding')
repeat
wait(200)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preocopured') or UO.InJournal("attacking you") or UO.Dead()
CheckAtack()
wend
end sub

sub UnLoad()
var i
DIM Item[13]
Item[1]=0x19B9 ; >3 ore
Item[2]=0x19B7 ; 1 ore
Item[3]=0x19BA ; 2 ore
Item[4]=0x19B8 ; 3 ore
Item[5]=0x0F11 ; saphires
Item[6]=0x0F16 ; amethysts
Item[7]=0x0F18 ; tourmalines
Item[8]=0x0F15 ; citrines
Item[9]=0x0F10 ; emeralds
Item[10]=0x0F0F ; star sapphires
Item[11]=0x0F26 ; diamonds
Item[12]=0x0EED ; gold
for i = 1 to 12
UO.FindType(Item[i], '-1', 'backpack')
while UO.GetQuantity('finditem') > 0
UO.MoveItem('finditem','-1','0x40299B0D')
Wait(1000)
CheckLag()
UO.FindType(Item[i], '-1', 'backpack')
wend
next
end sub

sub CheckAtack()
if UO.InJournal("attacking you") then
wait(20000)
end if
if UO.Dead() then
return 0
end if
end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub

sub GoExit()
UO.CloseUO()
end sub
Author:  Woohoo [ 2004-11-18 10:25:00 ]
Post subject: 
Объясните, пожалуйста, где и что нужно менять под себя.
И ещё чтобы он кушал )))
Типа этого:

var Food="0x097B" ;fish steaks

;================================

var HungryCount=0, HungryCountMax
sub Hungry(HungryCountMax) ;counter to call this sub
VAR LastTimer
; UO.Print(str(HungryCount))
if HungryCount==0 then
HungryCount=HungryCountMax
cant:
UO.DeleteJournal()
UO.Exec("waittargetself")
UO.Exec("useskill 'Animal Lore'")
LastTimer=UO.Timer()
while not (UO.InJournal("looks") OR UO.InJournal("hand") OR LastTimer+150<UO.Timer())
wait(300)
wend
if UO.InJournal("hand") then
goto cant
endif
if UO.InJournal("starving") then
UO.UseType(Food)
wait(3000)
UO.UseType(Food)
wait(3000)
UO.UseType(Food)
wait(3000)
endif
if UO.InJournal("hungry") then
UO.UseType(Food)
wait(3000)
UO.UseType(Food)
wait(3000)
endif
if UO.InJournal("fairly") then
UO.UseType(Food)
wait(3000)
endif
endif
HungryCount=HungryCount-1
end sub
Author:  Sfagnum [ 2004-11-18 10:25:43 ]
Post subject: 
пипец млин.... и хто ж те его дал то?
Author:  Woohoo [ 2004-11-18 10:29:01 ]
Post subject: 
Sfagnum wrote:
пипец млин.... и хто ж те его дал то?


А что плохой???
Я проверял на одном месте он всё напроч выкапывает и ооооочень быстро, только нужно заставить его кушать и ходить )))
Author:  Askaneli [ 2004-11-18 10:30:52 ]
Post subject: 
Woohoo wrote:
Sfagnum wrote:
пипец млин.... и хто ж те его дал то?


А что плохой???
Я проверял на одном месте он всё напроч выкапывает и ооооочень быстро, только нужно заставить его кушать и ходить )))

Бестолку копать у дома !!! Руда быстро заканчивается и чар просто так круги нарезает !!!
Author:  Woohoo [ 2004-11-18 10:32:36 ]
Post subject: 
Askaneli wrote:
Woohoo wrote:
Sfagnum wrote:
пипец млин.... и хто ж те его дал то?


А что плохой???
Я проверял на одном месте он всё напроч выкапывает и ооооочень быстро, только нужно заставить его кушать и ходить )))

Бестолку копать у дома !!! Руда быстро заканчивается и чар просто так круги нарезает !!!



Но безопасно!!!! И можно спокойно уходить от компа
Author:  Sfagnum [ 2004-11-18 10:33:00 ]
Post subject: 
Woohoo wrote:
А что плохой???
Я проверял на одном месте он всё напроч выкапывает и ооооочень быстро, только нужно заставить его кушать и ходить )))
я этого не говорил...
он ходит... но не кушает.
так кто тебе его дал?
Author:  Sfagnum [ 2004-11-18 10:33:47 ]
Post subject: 
Askaneli wrote:
Бестолку копать у дома !!! Руда быстро заканчивается и чар просто так круги нарезает !!!
гонишь
Author:  Woohoo [ 2004-11-18 10:45:29 ]
Post subject: 
Sfagnum wrote:
Woohoo wrote:
А что плохой???
Я проверял на одном месте он всё напроч выкапывает и ооооочень быстро, только нужно заставить его кушать и ходить )))
я этого не говорил...
он ходит... но не кушает.
так кто тебе его дал?


Я не помню... в том то и дело!! Ато уже замучил бы того чела )))
Author:  Woohoo [ 2004-11-18 10:46:35 ]
Post subject: 
Я этот скрипт совсем не понял, где координаты хотьбы, разгрузки в сундук и д.р. скрипт странный
Author:  Sfagnum [ 2004-11-18 10:49:08 ]
Post subject: 
Woohoo wrote:
Я этот скрипт совсем не понял, где координаты хотьбы, разгрузки в сундук и д.р. скрипт странный
вообще то скрипт мой... правда процедурки местами переставлены, если что то надо в ЛС пиши
Author:  Sfagnum [ 2004-11-18 10:53:02 ]
Post subject: 
Woohoo wrote:
скрипт странный
так и было задумано ;)
Author:  Woohoo [ 2004-11-18 10:58:07 ]
Post subject: 
Sfagnum wrote:
если что то надо в ЛС пиши

Стукни мне плиз в асю, она в моём профайле
Author:  Askaneli [ 2004-11-18 11:38:49 ]
Post subject: 
Sfagnum wrote:
Askaneli wrote:
Бестолку копать у дома !!! Руда быстро заканчивается и чар просто так круги нарезает !!!
гонишь

Копал
Author:  BETEPAH [ 2004-11-18 11:44:02 ]
Post subject: 
Askaneli wrote:
Sfagnum wrote:
Askaneli wrote:
Бестолку копать у дома !!! Руда быстро заканчивается и чар просто так круги нарезает !!!
гонишь

Копал


Ха ...скрипт мой, ходилка Асканели ......скриптец универсальный ....и в пещере и вдоль скал и в випе ....везде работает .....Я его сделал ...и отдал Асканели ...он там чего то еще понакрутил ..вобщем все чики пики ...... Это была скрытая реклама.
Author:  Sfagnum [ 2004-11-18 11:50:38 ]
Post subject: 
Askaneli wrote:
Sfagnum wrote:
Askaneli wrote:
Бестолку копать у дома !!! Руда быстро заканчивается и чар просто так круги нарезает !!!
гонишь

Копал
копаю ;)
Author:  Sfagnum [ 2004-11-18 11:52:32 ]
Post subject: 
BETEPAH wrote:
скриптец универсальный
я предпочитаю работать под конкретную задачу ;)
Author:  Bloodmoon [ 2004-11-18 14:24:06 ]
Post subject: 
Значит,чтоб не у кого не возникли вопросы,возьмите и выложите нормально со скриптом code.А не без него :).
Author:  Sfagnum [ 2004-11-18 14:57:19 ]
Post subject: 
Bloodmoon wrote:
Значит,чтоб не у кого не возникли вопросы,возьмите и выложите нормально со скриптом code.А не без него :).
Говорящи ворон на окошко сел
помолчал немножко - дальше полетел(с)
Author:  Bloodmoon [ 2004-11-18 15:09:22 ]
Post subject: 
Не рально,чтоб потом не говорили,что скрипт не работает!А то есть такие люди :mad:
Page 1 of 2 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/