Deprecated: urlencode(): Passing null to parameter #1 ($string) of type string is deprecated in /home/o/ort1981/bestuo.ru/public_html/engine/forum/sources/showposts.php on line 97 Deprecated: preg_replace(): Passing null to parameter #3 ($subject) of type array|string is deprecated in /home/o/ort1981/bestuo.ru/public_html/engine/forum/sources/components/functions.php on line 1849 Ну очень стродаю  >  Форум
Главная »
Форум » Форум » Вспомогательные программы
 Ну очень стродаю
Опции Открыть меню

Frozen
7 июля 2010 23:04
Сообщение #1
Скинте пожалуйсто скрипт на мининг
пїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅ (13473843)16 пїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅ
Inquisitor
Сообщений: 2897
Рег. 1.06.2010
8 июля 2010 01:56
Сообщение #2
никто не поделится нормальным добывающим скриптом))) кому нужны конкуренты?) 
пїЅпїЅпїЅпїЅпїЅпїЅпїЅ (570807)14 пїЅпїЅпїЅ
Ranger
Сообщений: 318
Рег. 7.07.2012
8 июля 2010 08:56
Сообщение #3

Есть скрипт, еще с Антареса, для нубов делали)))

Тупо обкопка вокруг себя 5х5 тайлов, мне его хватает более чем, так кк я заморочен следить за чаром)))

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 
  if x== 0 && y== 0 then
  next
  endif
  UO.Print(str(x)+" "+str(y))
  Repeat 
  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")
  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
Последние посетители (0):

 
Сейчас: 27 октября 2026 20:21


© The Best Ultima Online Shard Antares, 2004-2026