Помогите со скриптом !

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Br4in5torm
Posts: 7
Joined: 2006-11-13 02:22:14

Помогите со скриптом !

Post by Br4in5torm »

Народ мне нужен не сложный скрипт на мининг без всяких хайдингов, телепортов и тд, чтобы этим скрптом я мог спокойно стоять, копать руду, и ненужную руду кидать под себя при этом не мешая копанию, просто играю я на отличном от дрв, оскома и др шарде, где такие штуки как копание в хайде не прет ;D Пожалуйста помогите мне достать такой скрипт!
slonopotam
Posts: 270
Joined: 2006-08-05 14:09:06
Contact:

Post by slonopotam »

Поиск юзай ! :evil:



Копает киркой, дистанция 2 тайла.

Code: Select all

sub mineone() 
var x,y,z, n
VAR LastTimer
UO.Set('finddistance','2')
n=0
z=UO.GetZ("self")
  for x=-2 to 2
     for y=-2 to 2
        UO.Print(str(x)+" "+str(y))
        Repeat
           if UO.InJournal('TORMOZ') then
             pause()
           endif
           UO.DeleteJournal()
           UO.Warmode("0")
           UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
           UO.UseType('0x0E85')
           LastTimer=UO.Timer()
           Repeat
              wait(500)
           Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it") OR UO.Timer()>LastTimer+200
           if UO.InJournal("You put") then
               n=0
           else
              n=n+1
           endif
        Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5
     next
  next
end sub
ДРВ
Spoiler
_________________
Антарес
Spoiler|Gostrabaiter|Umhra|Slog
Br4in5torm
Posts: 7
Joined: 2006-11-13 02:22:14

Post by Br4in5torm »

Хотелось бы скриптик который можно спокойно оставить на ночь ;D помогите кто нибудь дописать его плз, и желательно чтобы был сброс ненужной руды, пожалуйста помогите!
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Post by GimFlex »

Br4in5torm wrote:Хотелось бы скриптик который можно спокойно оставить на ночь ;D помогите кто нибудь дописать его плз, и желательно чтобы был сброс ненужной руды, пожалуйста помогите!


только что тебе нужен был самый простой скрипт теперь те нужен другой потом ваще захочешь мега скрипт :roll: нехорошо
Br4in5torm
Posts: 7
Joined: 2006-11-13 02:22:14

Post by Br4in5torm »

Из всего что я писал ранее, я допросил к тому скрипту что хотел только чтобы его можно было оставить на ночь, пожалуйста помогите ;D
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Post by GimFlex »

Br4in5torm wrote:Из всего что я писал ранее, я допросил к тому скрипту что хотел только чтобы его можно было оставить на ночь, пожалуйста помогите ;D


и что значит в твоем понятии оставить на ночь :roll: обьяснитесь плз :arrow:
Br4in5torm
Posts: 7
Joined: 2006-11-13 02:22:14

Post by Br4in5torm »

Я имею ввиду чтобы он копал ночью без моей помощи ;D а то так мне приходится постоянно врубать новую функцию. Спасибо за пониманию, пожалуйста помогите!
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Br4in5torm wrote:Я имею ввиду чтобы он копал ночью без моей помощи ;D а то так мне приходится постоянно врубать новую функцию. Спасибо за пониманию, пожалуйста помогите!


Чем тебя не устраивают полномасштабные скрипты ?! (Ветерана и ко к примеру? )
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Post by GimFlex »

Code: Select all

sub mineone() 
var x,y,z, n
VAR LastTimer
UO.Set('finddistance','2')
while not uo.dead()
n=0
z=UO.GetZ("self")
  for x=-2 to 2
     for y=-2 to 2
        UO.Print(str(x)+" "+str(y))
        Repeat
           if UO.InJournal('TORMOZ') then
             pause()
           endif
           UO.DeleteJournal()
           UO.Warmode("0")
           UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
           UO.UseType('0x0E85')
           LastTimer=UO.Timer()
           Repeat
              wait(500)
           Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it") OR UO.Timer()>LastTimer+200
           if UO.InJournal("You put") then
               n=0
           else
              n=n+1
           endif
        Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5
     next
  next
wend
end sub
Br4in5torm
Posts: 7
Joined: 2006-11-13 02:22:14

Post by Br4in5torm »

Br4in5torm wrote:Хотелось бы скриптик который можно спокойно оставить на ночь ;D помогите кто нибудь дописать его плз, и желательно чтобы был сброс ненужной руды, пожалуйста помогите!

Они сликом сложные, да и на шарде не работают ;D
Спасибо за скрипт!
Post Reply