Скрипт на мининг плизз

всем прет)))
Народ,подкиньте пожалусто скрипт на любую программу ( разрешенную ) для мининга в ньюби шахте.Очень надо

[Rafael]

тебе на что? на копание? то это ассистом, записывай на копание под собой, ходи и жми эту кнопку. На переплевку уже выкладывали в ньюби тауне макрос, и не 1 раз

Спасибо,про ассист это я знаю))
Но мне надо чтоб допустим на ночь поставить,короче скрипт,чтоб когда меня за компом нету,я копал и плавил руду))

Правилами запрещено, да и не получится. Там табличка с циферками вылезать будет время от времени, а циферки эти вводить надо ручками.

Лис разве в нуби данже есть табличка?)

Вроде была. Нет, точно была. Ведь была же. *завис*

я прост хз, мне казалось там ее нету.Я ни разу в нуби данжах не был вообще просто.

Очень обидно((
Всем спасибо

окоп вокруг себя ф3 дабл на кирку
send F3 50
left 444, 258
send F3 50
left 456, 282
send F3 50
left 432, 320
send F3 50
left 398, 332
send F3 50
left 349, 334
send F3 50
left 334, 297
send F3 50
left 338, 268

[Kaplan]

вот тебе на майнинг для пилота:

set $s1 is no ore here
set $s2 have no line
set $s3 try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
for #x -2 2 1
for #y -2 2 1
set lasttargetx charposx +#x
set lasttargety charposy +#y
set lasttargetkind 2
:repeat
send F2 400 /LastItem WaitForTarget LastObject - в ассисте
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s3) or (lastmsg = $s4) or (timer > 800)
while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 2000)
end_while
if wght >= 420
repeat 5
alarm
end_repeat
pause_script
end_if
goto repeat
end_while
end_for
end_for
set #walk random 5
if #walk = 0
repeat 5
send PageUp 200
end_repeat
end_if
if #walk = 1
repeat 5
send PageDown 200
end_repeat
end_if
if #walk = 2
repeat 5
send Home 200
end_repeat
end_if
if #walk = 3
repeat 5
send End 200
end_repeat
end_if
if #walk = 4
repeat 5
send Up 200
end_repeat
end_if
if #walk = 5
repeat 5
send Down 200
end_repeat
end_if
if #walk = 6
repeat 5
send Left 200
end_repeat
end_if
if #walk = 7
repeat 5
send Right 200
end_repeat
end_if

Ходит, копает сам - твоя задача только код защиты периодически вводить

ЗЫ: В ньюби данже защита от макросо-копания тоже стоит

опа!Спасибо...
Испробую))

Каплан объясни пожалусто подробней как юзать этот скрипт)))
Ничего я непонял(

[Kaplan]

сорри, немного неправильно написал. вот правильный скрипт:

set $s1 is no ore here
set $s2 have no line
set $s3 try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
for #x -2 2 1
for #y -2 2 1
set lasttargetx charposx +#x
set lasttargety charposy +#y
set lasttargetkind 2
:repeat
send F12 400
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s3) or (lastmsg = $s4) or (timer > 800)
while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 2000)
end_while
if wght >= 420
repeat 5
alarm
end_repeat
pause_script
end_if
goto repeat
end_while
end_for
end_for
set #walk random 5
if #walk = 0
repeat 5
send PageUp 200
end_repeat
end_if
if #walk = 1
repeat 5
send PageDown 200
end_repeat
end_if
if #walk = 2
repeat 5
send Home 200
end_repeat
end_if
if #walk = 3
repeat 5
send End 200
end_repeat
end_if
if #walk = 4
repeat 5
send Up 200
end_repeat
end_if
if #walk = 5
repeat 5
send Down 200
end_repeat
end_if
if #walk = 6
repeat 5
send Left 200
end_repeat
end_if
if #walk = 7
repeat 5
send Right 200
end_repeat
end_if

Значит дальше так:
запускаешь пилот. Открываешь владку "Скрипт", в поле для скрипта забиваешь то что написано выше. Дальше идешь в Ультиму. Слезаешь с животного, если сидишь на нем, и два раза кликаешь на чара. Появится окно е его изображение и кнопочками слева. Кликаешь на Options, и выбираешь вкладку Macro Options - она находится слева в самом низу, нарисована на ней стрелка круговая... Там нажимаешь Add - у тя добавится новая кнопка для бинда. В поле Key кликаешь и нажимаешь F12 (или другую кнопку, на которую у тебя еще нет бинда - но тогда надо будет вставить эту кнопку в скрипт вместо F12 - в строчке send F12 400). Дальше чуть ниже поля Key есть надпись Actions. под ней раскрывающийся список. В нем выбираешь LastObject. У тебя ниже появится еще один раскрывающийся список - в нем выбираешь WaitForTarget. Появится еще один список - в нем выбираешь LastTarget. С этим все - ниже нажимаешь желтую кнопку Apply и зеленую OKAY. Все - ты готов копать. Идешь в шахту, берешь кирку, даблклик на нее - попросят ввести код. Вводишь этот код. Даблклик на кирку еще раз и таргетом на землю - чар копнет один раз. После этого идешь в пилот (где у тебя уже забит скрипт) и нажимаешь Play (кнопка в нижнем правом углу, на которой нарисована стрелочка, такая же кнопочка плей у тебя есть на музыкальном центре, видике, пульте от видика, в WinAMP`е и т.п.). Дальше происходит долгожданное чудо - чар будет копать сам. Когда в данном тэйле он все выкопает, он повернется на 45 градусов и будет копать там. Когда он выкопает всю руду вокруг себя, он сам (Оо!) перейдет в другое место и цикл копки вокруг себя повторится. От тебя тр***ется:
1) следить чтобы не было перевеса, а то руда будет вываливаться из тебя как из рога изобилия на радость копающих рядом коллег
2) периодически вводить код защиты анти-скрипта
3) следить чтобы тебя не уронили ПК

Ну, вот как-то так ))

Большущие спасибо...
Усё работает)

в ньюбе щахте некакой зашиты на макрос не стоит, было проверено,... пока там рыть можешь мона скрипте рыть хоть и на ночь оставлять

[Kaplan]

2TAG: Да ради Бога, рад что помогло ))) обращайся )) Вот говорят, что в НМ защиты не стоит и можешь рыть ночами - если это так, то не забывай скидывать руду в банк, а то перевес знаете ли...

2Skeleton: хз, я качал майнинг в ньюби майне в давно, тогда защита стояла, как щас - не знаю.

Я тоже очень рад,ещё раз спасибо))
Страно,за 20 минут защиты небыло видно,но кто то всё равно её вводит в ньюби шахте,может лаг,хз =)

когда я там копал у меня была

[KoT]

в нюби шахте стоит защита и работает великолепно

опа!Значит баг!Админам на заметку+)

Лучший скрипт на мининг за который я получил 20 сроков еще от дихлофоса,после этого копаю в ручную,дабл клик на кирку и на землю и запускаем скрипт,я думаю f1 не надо оьяснять что это такое...


//F1 - lastobject, waitfortarget, lasttarget
set #pickaxeid lastobjectid
set #move 0
set $msg1 :14538941
set $msg2 you put
set $msg3 fail
set $msg4 try
set $msg5 line
set $msg6 where
set $msg7 no ore
set $msg8 skill
:body
set #orex charposx - 2
set #orey charposy - 2
repeat 5
repeat 5
gosub work
set #orex #orex + 1
end_repeat
set #orex charposx - 2
set #orey #orey + 1
end_repeat
if #move = 0
set #move 2
if_not chardir = 0
send pageup 500
end_if
repeat 5
send pageup 500
end_repeat
goto body
end_if
if #move = 2
set #move 4
if_not chardir = 2
send pagedown 500
end_if
repeat 5
send pagedown 500
end_repeat
goto body
end_if
if #move = 4
set #move 6
if_not chardir = 4
send end 500
end_if
repeat 5
send end 500
end_repeat
goto body
end_if
if #move = 6
set #move 0
if_not chardir = 6
send home 500
end_if
repeat 5
send home 500
end_repeat
goto body
end_if
goto body
end_script
:work
set lastobjectid #pickaxeid
set lasttargetkind 3
set laststatictype 1339
set lasttargetx #orex
set lasttargety #orey
send f1 // lastobject waitfortarget lasttarget
waitfortarget 1000
set timer
while lastmsg = $msg6 or lastmsg = $msg1
wait 5
if timer > 8000
send escape
return
end_if
if hits < str
say guards
wait 1000
end_if
end_while
:msgs
if lastmsg = $msg2 or lastmsg = $msg3 or lastmsg = $msg8
goto work
end_if
if lastmsg you must
wait 2000
goto work
end_if
if lastmsg = $msg3 or lastmsg = $msg4 or lastmsg = $msg5 or lastmsg = $msg7
return
end_if

[Kaplan]

2Simson: А чем. собсно, хорош скрипт, за что сроки получил (раз скрипт до фига хорош), да и объясни уж че забито на F1 - имхо, не все читающие топик фтыкают в твой скрипт.

[BALU]

Ну периодически сажаем из НМ если выловим))) Ребят нестоит нарушать правил следите за своим чаром . Анти макрос в НМ работает