It is currently 28 Mar 2024, 16:36

All times are UTC + 2 hours [ DST ]




Post new topic Reply to topic  [ 157 posts ]  Go to page Previous  1, 2, 3, 4, 5 ... 16  Next
Author Message
PostPosted: 27 Feb 2011, 14:38 
Offline
Начинающий игрок

Joined: 15 Mar 2010, 03:12
Posts: 40
У меня у одного скрипт постоянно слетает при ковке?


Top
 Profile  
 
PostPosted: 27 Feb 2011, 23:13 
Offline
Игрок

Joined: 26 Jan 2011, 11:40
Posts: 85
RedeeM wrote:
У меня у одного скрипт постоянно слетает при ковке?

Наверно, лично у меня все гуд работает... :)


Top
 Profile  
 
PostPosted: 28 Feb 2011, 14:15 
Offline
Начинающий игрок

Joined: 15 Mar 2010, 03:12
Posts: 40
cSmoke wrote:
RedeeM wrote:
У меня у одного скрипт постоянно слетает при ковке?

Наверно, лично у меня все гуд работает... :)


А какой клиент юзаешь? ML или 2.0.3?


Top
 Profile  
 
PostPosted: 04 Mar 2011, 14:30 
Offline
Бывалый игрок
User avatar

Joined: 17 Mar 2010, 20:28
Posts: 416
скрипт обновил. теперь должен нормально ковать и на ренесансе, и на МЛе


Top
 Profile  
 
PostPosted: 22 Mar 2011, 15:18 
Offline
Ветеран
User avatar

Joined: 28 Oct 2010, 19:01
Posts: 875
Location: Грузия
гинг ... есть проблема такая, но не знаю ВАПу решать или тебе со скриптом .... кгда много народу, у плавилки место не хватает....скрипт сбивается или чар нулевой стаминой стоит на месте.

может в скрипте указадь в добавку 2-3 координата с которых можно достать и плавилку и ковку. вощето реально достать на растоянии 2-х клеток от плавилки ... но как вижу в скрипте указан тока 1 координат куда нуна прити чтобы начать ковку.

_________________
Aldis (Archer 12-lvl)
Nekrosha (Necromancer 12-lvl)
Cet (Knight 12-lvl)
OrderCraft (Crafter 12-lvl)


Top
 Profile  
 
PostPosted: 22 Mar 2011, 16:35 
Offline
Бывалый игрок

Joined: 13 Mar 2010, 15:18
Posts: 255
scarabrea, золотое кольцо одень. ;)


Top
 Profile  
 
PostPosted: 30 Apr 2011, 13:23 
Offline
Эксперт
User avatar

Joined: 31 Mar 2010, 16:29
Posts: 2118
Location: Грузия
Не пашет капает потом идет к Forge и пишет 555 затем стоит просто с молотом и через несколько секунд идет киркой опять капать .......
Quote:
Enable Event Sysmessage
set #sysmsgcol 1359
event SysMessage ###Script Crafted by Gign###
gosub start

move 2556 498 0
gosub wait
move 2559 498 0
gosub wait
move 2559 495 0
gosub wait
move 2559 492 0
gosub wait
move 2559 489 0
gosub wait
move 2562 485 0
gosub wait
move 2562 488 0
gosub wait
move 2562 491 0
gosub wait
move 2562 494 0
gosub wait
move 2565 490 0
gosub wait
move 2565 487 0
gosub wait
move 2565 484 0
gosub wait
move 2565 481 0
gosub wait
move 2567 485 0
gosub wait
move 2567 488 0
gosub wait
move 2570 488 0
gosub wait
move 2570 485 0
gosub wait
move 2573 485 0
gosub wait
move 2573 475 0

gosub smeltall
gosub goiron
gosub smelt
gosub gobronze
gosub smelt
gosub gocooper
gosub smelt
move 2568 476 0
gosub wait
move 2570 477 0
gosub wait
move 2576 477 0
gosub wait
move 2579 480 0
gosub wait
move 2576 480 0
gosub wait
move 2573 480 0
gosub wait
move 2570 480 0
gosub wait
move 2567 480 0
gosub wait
move 2573 475 0

gosub smeltall
gosub goiron
gosub smelt
gosub gobronze
gosub smelt
gosub gocooper
gosub smelt

move 2564 484 0


sub smelt
{
wait 1s
set %mytimer #SCNT
while %mytimer > #SCNT - 10
{
finditem %smeltitemtype C
while #FINDCNT > 0
{
finditem JBG
set #LOBJECTID #FINDID
event macro 17
finditem %smeltitemtype C
set #LTARGETID #FINDID
event macro 22
wait 2s
finditem %smeltitemtype C
set %mytimer #SCNT
}
wait 2s
}
return
}

sub smeltall
{
wait 1s
finditem DWJ C
wait 1s
while #FINDCNT > 0
{
set #LOBJECTID #FINDID
event macro 17
finditem DWJ C
wait 1s
}
return
}


sub wait
{
set #LTargetKind 2
for %x -1 1
{
if #MAXWEIGHT < #WEIGHT + 101
{
return
}
for %y -1 1
{
repeat
{
set #lTargetX #CHARPOSX + %x
set #lTargetY #CHARPOSY + %y
set #lTargetZ #CHARPOSZ
gosub usepick
target
event Macro 22 0
set %weigh #WEIGHT
set %timer2 #SCNT
repeat
{
wait 1
}
until %weigh < #WEIGHT || nothing in #sysMsg || Try in #sysMsg || put in #sysMsg || close in #sysMsg || see in #sysMsg || destroyed in #sysMsg || line in #sysMsg || loosen in #sysMsg || %timer2 < #SCNT - 12
}
until nothing in #sysMsg || line in #sysMsg || decide in #sysMsg || Try in #sysMsg || close in #sysMsg || see in #sysMsg || line in #sysMsg
}
}
return
}


sub usepick
{
finditem NPF C
while #FINDCNT < 1
{
event SysMessage No Pickaxes
wait 2s
finditem NPF C
}
set #lObjectID #FINDID
event macro 17
return
}


sub goiron
{
set #LTargetKind 1
finditem %tooltype C
while #FINDCNT < 1
{
event SysMessage No %toolname
wait 2s
finditem %tooltype C
}
set #LOBJECTID #FINDID
event macro 17
ignoreitem reset 1
finditem RMK C
while #FINDCOL <> 0 && #FINDCNT > 0
{
ignoreitem #FINDID 1
finditem RMK C
}
ignoreitem reset 1
target
set #LTARGETID #FINDID
event Macro 22 0
wait 2s
click %countx %county f
msg 555$
click %itemx %itemy f
return
}



sub gobronze
{
set #LTargetKind 1
finditem %tooltype C
while #FINDCNT < 1
{
event SysMessage No %toolname
wait 2s
finditem %tooltype C
}
set #LOBJECTID #FINDID
event macro 17
ignoreitem reset 1
finditem RMK C
while #FINDCOL <> 1160 && #FINDCNT > 0
{
ignoreitem #FINDID 1
finditem RMK C
}
ignoreitem reset 1
target
set #LTARGETID #FINDID
event Macro 22 0
wait 2s
click %countx %county f
msg 555$
click %itemx %itemy f
return
}


sub gocooper
{
set #LTargetKind 1
finditem %tooltype C
while #FINDCNT < 1
{
event SysMessage No %toolname
wait 2s
finditem %tooltype C
}
set #LOBJECTID #FINDID
event macro 17
ignoreitem reset 1
finditem RMK C
while #FINDCOL <> 2738 && #FINDCNT > 0
{
ignoreitem #FINDID 1
finditem RMK C
}
ignoreitem reset 1
target
set #LTARGETID #FINDID
event Macro 22 0
wait 2s
click %countx %county f
msg 555$
click %itemx %itemy f
return
}


sub start
{
if %setup <> 1
{
set #LOBJECTID #BACKPACKID
event macro 17
finditem TLH C
set %hammercount #FINDCNT
finditem GTL C
set %tinkercount #FINDCNT
if %hammercount > 0 && %tinkercount < 1
{
finditem TLH C
set #LOBJECTID #FINDID
event macro 17
}
if %hammercount < 1 && %tinkercount > 0
{
finditem GTL C
set #LOBJECTID #FINDID
event macro 17
}
while #LOBJECTTYPE <> TLH && #LOBJECTTYPE <> GTL
{
event SysMessage DoubleClick On Hammer For Blacksmiting or DoubleClick On Tinker Tools for Tinkering!
event SysMessage ========================================
wait 2s
}
if #LOBJECTTYPE = TLH
{
set %tooltype TLH
set %countx 249
set %county 454
set %itemx 458
set %itemy 253
set %smeltitemtype BPH
set %toolname Hammer
}
else
{
set %tooltype GTL
set %countx 210
set %county 436
set %itemx 535
set %itemy 300
set %smeltitemtype PBG
set %toolname TinkerTools
}
set %setup 1
}
return
}

_________________
Великий колдун

https://www.youtube.com/watch?v=P1iKcPQGs1c


Top
 Profile  
 
PostPosted: 17 May 2011, 14:12 
Offline
Бывалый игрок

Joined: 13 Mar 2010, 15:18
Posts: 255
Предлагаю добавить в скрипт починку инструментов.


Top
 Profile  
 
PostPosted: 19 May 2011, 06:27 
Offline
Новичок

Joined: 19 May 2011, 06:22
Posts: 1
Fess wrote:
Не пашет капает потом идет к Forge и пишет 555 затем стоит просто с молотом и через несколько секунд идет киркой опять капать .......

Вероятно это связанно с выпадением инготов. Увеличь значение в стоке
Code:
if #MAXWEIGHT < #WEIGHT + 101

на
Code:
if #MAXWEIGHT < #WEIGHT + 201


Мне помогло.
Если не поможет , попробуй увеличить еще или допиши чтобы инготы с земли подбирал (:


Top
 Profile  
 
PostPosted: 17 Aug 2011, 21:36 
Offline
Игрок

Joined: 15 Aug 2011, 11:21
Posts: 62
Подскажите, там есть координаты на которые нужно идти, чтобы начать плавить руду и ковать ?
Боюсь, что поставлю в другую шахту его копать, и забью эти коры под места копки.


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 157 posts ]  Go to page Previous  1, 2, 3, 4, 5 ... 16  Next

All times are UTC + 2 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 181 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group