 пожалуйста помогите с минингом Флип Квипу обязательно прочитать =*, пожалуйста помогите с минингом |
 Сообщений: 86 Рег. 27.07.2010 |
 12 мая 2011 20:18 Сообщение #1
|
пожалуйста помогите с минингом Нужен скрипт на простую хаотичную ходилку по пещере если вышел из пещеры случайно то заходит обратно, я когдато находила такой но не могу щас найти =( если можно то с реколом к банку и скидыванием туда, а потом назад с уважением ваша Мари =) |
|
|
|
|
|
Сообщений: 86 Рег. 27.07.2010 |
12 мая 2011 20:23 Сообщение #2
|
Просто единственное что я пока придумала это ходилка по пещере по уопилоту и обкладывание по инджекту вокруг себя.... примерно так sub main()
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 как добавить ходилку??? хаотичную... |
|
|
|
|
 Сообщений: 1842 Рег. 5.06.2010 |
12 мая 2011 21:00 Сообщение #3
|
Могу скинуть скрипт,там координаты сама прописываешь где обкапывать,он идёт домой и скидывает руду в сундук и обратно :) но там настраивать долго и муторно) зато работает 100% . сейчас посмотрю ещё на старом антаресе скрипты ,там был какой-то . |
|
|
|
|
|
Сообщений: 1842 Рег. 5.06.2010 |
12 мая 2011 21:02 Сообщение #4
|
С Антареса,там работал . sub dig() var x var y var g=0 var go while true if g>5 then go=37+uo.random(3) uo.press(go) uo.press(go) uo.press(go) endif g=0 for x=-2 to 2 for y=-2 to 2 uo.deletejournal() if not uo.hidden() then uo.useskill('Stealth') wait(1000) endif uo.waittargettile(0,uo.getx()+x,uo.gety()+y,uo.getz()) uo.usetype('0x0E85') wait(300) if uo.lastmessage()=='Тут ничего нету.' or uo.lastmessage()=='Попробуйте копать в другом месте.' or uo.lastmessage()=='У вас нет обзора к этому местоположению' then g=g+1 else while uo.lastmessage() == 'Где вы хотите использовать Pickaxe?' wait(100) wend y=y-1 endif next next wend end sub |
|
|
|
|
|
Сообщений: 86 Рег. 27.07.2010 |
12 мая 2011 21:50 Сообщение #5
|
попробую перевести, эх почему я не блондинка, сказала что блондинка и все... |
|
|
|
|
|
Сообщений: 86 Рег. 27.07.2010 |
12 мая 2011 22:00 Сообщение #6
|
Флип блин.... он на месте стоить =( скинь большой помучаюсь уж... |
|
|
|
|
 Сообщений: 192 Рег. 15.04.2010 |
13 мая 2011 06:36 Сообщение #7
|
два раза на кирку потом на тайл пещеры и дальше он сам за весом смотри
:1 for #y -2 2 1for #x -2 2 1 :mining set lasttargetx charposx + #x set lasttargety charposy + #y set lasttargetkind 2 send F3 2000 // ЛастОбжект-ВаитФорТаргет-ЛастТаргет set timer 0 while (lastmsg do you want) or (lastmsg you loosen) and (timer < 10000) wait 10 end_while wait 200 if_not (lastmsg there is) or (lastmsg have no) or (lastmsg try mining ) or (lastmsg you can't) wait 500 goto mining end_if end_for end_for alarm wait 500 repeat 6 send home // идем на запад ( можно в любом направлениии прото поменя бинд) end_repeat goto 1 |
|
|
|
|
Последние посетители (0):
| Сейчас: 23 ноября 2024 23:30 |