Главная »
Форум » Форум » Главный
 Египет-Квест, Данунах...
Опции Открыть меню

Frozen
25 февраля 2010 20:39
Сообщение #1

Отличный квест, предлагаю награду за доставку включить в момент "сдавания" квеста, в противном случае - это фарм камней и денег.

Думаю талантливые ребята смогут даже макрос написать
Сержант (600364)14 лет
Urukhay
Сообщений: 283
Рег. 31.12.2009
25 февраля 2010 20:48
Сообщение #2

Все будет путем. Поменьше переживай.

Поставьте кто-нибудь бота на макрос. А я подожду.

Frozen
25 февраля 2010 20:52
Сообщение #3

За каждый доставленный камень  - 1кгп+2-3 камня+25% шанса дукат.

Идти в стелсе двигая за собой камень - ну минут 5, держа в руках пачку рефрешек маленьких. Я за 10 минут намутил 7к гп...(считая несколько убитых мобов+2.5к за прохождение квеста)
Сержант (600364)14 лет
Urukhay
Сообщений: 283
Рег. 31.12.2009
25 февраля 2010 21:01
Сообщение #4

Angelus, ну никто не против же.

Просто нет пока конкуренции.

Frozen
25 февраля 2010 21:05
Сообщение #5
Какая конкуренция? Там ресается 2-4 камня. О чем ты) 
Капитан (8805295)15 лет
Dragonstalker
Сообщений: 441
Рег. 6.09.2009
25 февраля 2010 21:37
Сообщение #6
Этот квест был с самого открытия шарда.  Только теперь еще и дукат можно получить и опыта.
Сержант (600364)14 лет
Urukhay
Сообщений: 283
Рег. 31.12.2009
25 февраля 2010 21:40
Сообщение #7
Сделайте в египте мобов как раньше с турбо-стартом, и не будет никаких ботов.
Старшина (1213389)15 лет
Ranger
Сообщений: 1029
Рег. 7.09.2009
25 февраля 2010 22:13
Сообщение #8
Дюп дукатв и опыта)))
15 лет
Oldest Necromancer
Сообщений: 85
Рег. 30.09.2009
25 февраля 2010 22:39
Сообщение #9
его раз в сутки выполнить можно  ... вы о чем?

Frozen
25 февраля 2010 22:43
Сообщение #10

Приносить блоки можно постоянно, и за каждый "принос" дается деньги + камни + 25% шанс на дукат.

А вот сдать(!!) его можно 1 раз всего в день.
Сержант (600364)14 лет
Urukhay
Сообщений: 283
Рег. 31.12.2009
25 февраля 2010 22:48
Сообщение #11

Цитата: Narik
Дюп дукатв и опыта)))
 

А чего себе не надюпал то?
15 лет
Oldest Necromancer
Сообщений: 85
Рег. 30.09.2009
25 февраля 2010 22:49
Сообщение #12
понятно -)
Полковник (17836262)14 лет
Dragonstalker
Сообщений: 638
Рег. 22.12.2009
26 февраля 2010 00:47
Сообщение #13
Ну так дюпайте быстрее ))) чеш некто не дюпает ))))

Старший Лейтенант (5006416)15 лет
Администратор
Сообщений: 19675
Рег. 31.07.2009
26 февраля 2010 00:50
Сообщение #14
Единственное, что там действительно логично сделать - убрать возможность тащить камень в хайде.)

--------------------

Frozen
26 февраля 2010 01:06
Сообщение #15

и включить египетским мобам турбостарт обратно
Полковник (18176268)14 летПрекрасная Леди
Urukhay
Сообщений: 961
Рег. 14.01.2010
26 февраля 2010 01:13
Сообщение #16
и включить египетским мобам турбостарт обратно


Не наааадаааааа)))... я и так  в  момент  стрельбы    прилипаю  к   мобам...бежать не  могу, а  если они  станут  шустреееее, как были,  так  Египет  станет  местом  только для  людей  с  нормальным  Инетом)
Капитан (8805295)15 лет
Dragonstalker
Сообщений: 441
Рег. 6.09.2009
26 февраля 2010 09:56
Сообщение #17
Ой, донылись. xD Теперь чтобы затащить камень надо сначала зачистить все вокруг ;D

Гости
Сообщений: 110
Рег. 26.10.2014
26 февраля 2010 10:01
Сообщение #18
Первое- красава чаще бывай в скайпе) Второе - а чо за квест такой? слышу о нем с 2004 года но ни разазу не попадался)

Frozen
26 февраля 2010 11:22
Сообщение #19
такой квест изгадили)))

sub glav()
var kamni = '0x076C'
var kamen = 0
var a=0
var dx, dy, dx1, dy1
var temp = 200
dim x[7]
x[1]=5231
x[2]=5197
x[3]=5197
x[4]=5213
dim y[7]
y[1]=478
y[2]=444
y[3]=403
y[4]=387
UO.Set('finddistance', '4')
repeat
while kamen == 0
UO.FindType(kamni,-1,'ground')
if UO.FindCount()>0 then
kamen=UO.GetSerial('finditem')
end if
dx=uo.getx(kamen)
dy=uo.gety(kamen)
wend
walkn(dx,dy-1,'')
if UO.GetDistance(kamen) == 1 then
uo.useobject(kamen)
end if
dy=uo.gety()
while a == 0
if dy>y[1] then
dy=dy-1
walkn(dx,dy,'')
uo.useobject(kamen)
wait(temp)
end if
dx=uo.getx()
if dy == y[1] and dx>x[1] then 
dx=dx-1
walkn(dx,dy,'')
uo.useobject(kamen)
wait(temp)
end if
if dy == y[1] and dx == x[1] then
a=1
end if
wend
dx=uo.getx()
dy=uo.gety()
while a == 1
if uo.getx()>=x[2] and uo.gety()>=y[2] then
dx=dx-1
dy=dy-1
walkn(dx,dy,'')
uo.useobject(kamen)
wait(temp)
if dx<=x[2] then
a=2
end if
end if
wend
while a == 2
if uo.gety()>y[3] then
dy=dy-1
walkn(dx,dy,'')
uo.useobject(kamen)
wait(temp)
if dy<=y[3] then
a=3
end if
end if
wend
while a == 3
if uo.getx()<x[4] and uo.gety()>y[4] then
dx=dx+1
dy=dy-1
walkn(dx,dy,'')
uo.useobject(kamen)
wait(temp)
if dx>=x[4] and dy>=y[4] then
uo.useobject(kamen)
wait(1500)
a=4
end if
end if
wend
if a == 4 then
UO.Print('Все окей не сцать!')
wait(500)
end if
while a == 4
walkn(x[3],y[3],'')
walkn(x[2],y[2],'')
walkn(x[1],y[1],'')
walkn(5231,483,'')
kamen=0
a=0
wait(200)
until uo.dead()
end sub
sub WalkN(x,y,Target)
VAR i,StepSucess
VAR dx,dy,Exit=0
While Exit<>1
If Target<>"" Then
dx=UO.GetX(Target)-UO.GetX()
dy=UO.GetY(Target)-UO.GetY()
If UO.GetDistance(Target)<2 Then
Exit=1
Endif
Else
dx=x-UO.GetX()
dy=y-UO.GetY()
If dx==0 AND dy==0 Then
Exit=1
Endif
Endif
If dx<>0 AND dy<>0 Then
If dx>0 AND dy>0 Then
StepSucess=Go(3,40,300);SE - DownArrow
Endif
If dx>0 AND dy<0 Then
StepSucess=Go(1,39,300);NE - RightArrow
Endif
If dx<0 AND dy>0 Then
StepSucess=Go(5,37,300);SW - LeftArrow
Endif
If dx<0 AND dy<0 Then
StepSucess=Go(7,38,300);WN - UpArrow
Endif
Endif
If dx<>0 AND dy==0 Then
If dx>0 Then
StepSucess=Go(2,34,300);E - PgDown
If StepSucess==-1 Then
StepSucess=Go(3,40,300);SE - DownArrow
If StepSucess==-1 Then
StepSucess=Go(1,39,300);NE - RightArrow
Endif
Endif
Endif
If dx<0 Then
StepSucess=Go(6,36,300);W - Home
If StepSucess==-1 Then
StepSucess=Go(7,38,300);WN - UpArrow
If StepSucess==-1 Then
StepSucess=Go(5,37,300);SW - LeftArrow
Endif
Endif
Endif
Endif
If dx==0 AND dy<>0 Then
If dy>0 Then
StepSucess=Go(4,35,300);S - End
If StepSucess==-1 Then
StepSucess=Go(3,40,300);SE - DownArrow
If StepSucess==-1 Then
StepSucess=Go(5,37,300);SW - LeftArrow
Endif
Endif
Endif
If dy<0 Then
StepSucess=Go(0,33,300);N - PgUp
If StepSucess==-1 Then
StepSucess=Go(7,38,300);WN - UpArrow
If StepSucess==-1 Then
StepSucess=Go(1,39,300);NE - RightArrow
Endif
Endif
Endif
Endif
Wend
end sub
sub Go(dir,key,walkwait)
VAR x,y
x=UO.GetX()
y=UO.GetY()
while UO.GetDir()<>dir
UO.Press(key)
wait(walkwait)
If UO.GetDir()<>dir Then
Endif
wend
UO.Press(key)
wait(walkwait)
If x==UO.GetX() AND y==UO.GetY() Then
Endif
If x==UO.GetX() AND y==UO.GetY() Then
return -1
Else
return 1
Endif
end sub
Sub checklag()
deljournal("backpack|Backpack")
uo.click("backpack")
repeat
wait(100)
until uo.injournal("backpack|Backpack")
end sub
Sub deljournal(msg)
while uo.injournal(msg)
uo.setjournalline(uo.injournal(msg)-1,"")
wend
end sub
sub avtostealth()
uo.print('Stealth ON')
repeat
if not UO.Hidden() then
UO.Warmode("0")
UO.UseSkill("Stealth")
wait(3000)
endif
wait(200)
until UO.Dead()
end sub
sub potionstam()
repeat
if UO.Stamina<1 then
UO.setarm(1)
uo.usetype(0x0F0B)
wait(50)
UO.Arm(1)
end if
until UO.Dead()
end sub
sub MyTerminate()
UO.Set('quiet','1')
UO.CancelMenu()
UO.IgnoreReset()
UO.Set('quiet','0')
UO.Exec('terminate all')
end sub
 

Бог в помощь))))))) 

Забыл сказать если камня нет лучше скрипт вырубить)) 

Frozen
26 февраля 2010 11:31
Сообщение #20
Красавчик)))
« · Главный · »
Последние посетители (0):

 
Сейчас: 25 ноября 2024 03:50


© The Best Ultima Online Shard Antares, 2004-2024