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

Очень необходим скрипт на мининг ( под Ethereal Portal )
http://forum.yoko.com.ua/viewtopic.php?f=20&t=6788		 Page 1 of 1
Author:  mod [ 2006-03-03 20:01:37 ]
Post subject:  Очень необходим скрипт на мининг ( под Ethereal Portal )
Приветствую , кто может дать скрипт на мининг на этом шарде
Чтоб чар копал , улетал , клал и прилетал , желательно с пояснением!
Заранее спасибо
Author:  Scripts Writer [ 2006-03-03 21:27:08 ]
Post subject: 
поиск млять
Author:  mod [ 2006-03-03 22:05:13 ]
Post subject: 
Cлушай , я пытался найти , но не смог :?
Author:  mod [ 2006-03-04 01:13:58 ]
Post subject: 
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 mining_attempts < 10
mining_attempts = mining_attempts + 1
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") and not uo.injournal("Spider") then
if uo.waiting() then
uo.canceltarget()
endif
Save()
pwavw()
wait(180000) ; время в секундах при ожидании пока уйдет ПК
loot()
wait(3000)
goto reccal
endif
next
wend
if uo.weight > 100 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 22") ; в шахту ( в рунбуке слот 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

sub loot() ; перекладка руды в сундук
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont='0x40544DA3' ; АЙДИ сундука для руды
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.FindType('0x1F14',-1,'my')
wait(200)
UO.Cast('Recall','finditem')
wait(4000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
end sub

sub pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА
uo.playwav("D:\Игры\Ultima Online 2D\Inject\Dj Sender - Muttoheads.wav")
endsub

sub pwavw(); звук при появлении ПК
uo.playwav("D:\Игры\Ultima Online 2D\Inject\Dj Sender - Muttoheads.wav")
endsub

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )
UO.DeleteJournal()
REPEAT
WAIT(3000)
UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")
UNTIL UO.InJournal('GO')
UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")
endif
end sub

Вот скрипт , вроде норм - летает складывает , возвращается , но проблема возникает в копании , когда в тайле заканчивается руда
юзает кирку
дальше следует сообщение
You must wait perform another action
и скрипо останавливает , ничего не происходит_
может кто поможет советом? :?
Author:  mod [ 2006-03-05 13:38:35 ]
Post subject: 
ну чтож никто не может подсказать? :?
Author:  LordTom [ 2006-03-05 14:04:45 ]
Post subject:  помогите разобраться со стуком
Москва. Кутузовский проспект. Нарушая все мыслимые и немыслимые правила дорожного движения старушка перебегает проезжую часть. Визг тормозов Удар Бабулька оказывается под колесами VW Тouareg V1
Если собираешся долго ездить на этом типе аммов - есть смысл переварить крепления аммов на мосту под передние сафаревские. Точку крепления выбрать вывешиванием моста, до начала шевеления
Author:  BRAT [XAOC] [ 2006-03-12 08:46:11 ]
Post subject: 
mod wrote:
ну чтож никто не может подсказать? :?


стукни в асю, будет тебе скрипт
Author:  SESTRA [ 2006-03-12 19:58:21 ]
Post subject: 
Мне интиресна ща на еп за хм и за инжу вабще че не сажают и не банят ? поста сматрю уже все в наглую там макрят на скриптах добывают и тд все хатя раньше помню с этим жестока была отошол покурить пизда тебе ) ты уже на катарге паришся с канфискацией имущества ) :D
Author:  BRAT [XAOC] [ 2006-03-12 22:09:16 ]
Post subject: 
SESTRA wrote:
Мне интиресна ща на еп за хм и за инжу вабще че не сажают и не банят ? поста сматрю уже все в наглую там макрят на скриптах добывают и тд все хатя раньше помню с этим жестока была отошол покурить пизда тебе ) ты уже на катарге паришся с канфискацией имущества ) :D


за инжу на еп никогда не сажали, темболее не банили
за хм могут посадить - ну это уже если ты в наглую включил комп запустил 5 окон и даже не смотриш за ними - тогда посадят и то если гм увидят, а так - ничего не будет %)
Author:  mod [ 2006-03-14 10:50:13 ]
Post subject: 
Брат , я стукнул
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/