МИНИНГ

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Aerials
Posts: 1
Joined: 2006-04-29 17:29:35

МИНИНГ

Post by Aerials »

Помагите со скриптом! вот скрипт на мининг но чар неходит! непойму чево может я чтото пропустил! если можете перепишите чтоб он ходил и киньте сюда! желательно чтоб ходил по тайлам




sub minround()

VAR Kirka = '0x143C' ; Тип Кирки
VAR MaxVes = 550 ; Максимальный вес, подымаемый чаром минус 10-15 стоунов
#VAR TileNum = '1342' ; Тайл пола пещеры (наиболее распространенный тип)
VAR x, y, t, k
VAR MaxTime = 1000 ; измеряется в 1/10 сек.
VAR ms1 = "Рудная жила в этом месте истощилась"
VAR ms2 = "Вы невидите цели"
VAR ms3 = "You put the"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "You are too far away"
VAR ms6 = "Try mining in rock"
VAR ms7 = "You can't see that"
for y=-2 to 2
for x=-2 to 2
#while not UO.Hidden()
UO.Warmode("0")
#uo.print("Прячемся...")
#UO.UseSkill("Hiding")
#wait(4000)
#wend
k = 0
repeat
UO.DeleteJournal()
UO.CancelTarget()
wait(300)
UO.WaitTargetSelf()
#UO.WaitTargetTile( '1342', STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next
endsub
Last edited by Aerials on 2006-05-01 21:02:22, edited 1 time in total.
MAKC
Posts: 23
Joined: 2005-05-06 16:07:12
Location: none
Contact:

Post by MAKC »

Оформи скрипт нормально:
[code][/code]
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

Слеплено на основе моего mininground, фактически добавлен только хайд. А мой скрипт является просто функцией для обкопки вокруг чара. Причем примером такой функции. Никакой хотьбы в ней нет и быть не должно. Надо писать головную процедуру, в которой и будет хождение и вызов этой функции.
Rijo
Posts: 95
Joined: 2006-04-06 17:16:54
Location: Khab

Post by Rijo »

Найди на этом форуме поиском ходилку, коих тут давольно много развелось, а в сущности по принцыпу это 1-2 разыне ходилки и вставь в скрипт после проверки на то что выкопана ли у тебя руда или нет.
Допустим

Code: Select all

if ruda_vykopona then
Hodilka()
endif

ну как тут принято говорить "это грубый пример"(с) :)
Хотя помоему одним скриптом на хождение тут не обделаешся. Нужно будет моск подключать ;), у меня он пока выключен.
Советую сразу взять скрипт с ходилкой. В котором бы сохранялись координаты и по кторым бы ходилка тебя вела.
Post Reply