It is currently 28 Mar 2024, 14:13

All times are UTC + 2 hours [ DST ]




Post new topic Reply to topic  [ 157 posts ]  Go to page Previous  1, 2, 3, 4, 5, 6 ... 16  Next
Author Message
PostPosted: 24 Aug 2011, 13:33 
Offline
Игрок
User avatar

Joined: 10 Apr 2011, 00:59
Posts: 95
подскажите где именно те координаты которые ведут перса к плавилке не могу разобраться переписал проде один раз сходил а остальные стоит и тупит типо слишком далеко от плавильни

_________________
Nemiroffik Craft 18lvl
Злючка Vampir 16lvl


Top
 Profile  
 
PostPosted: 24 Aug 2011, 22:12 
Offline
Ветеран
User avatar

Joined: 27 Aug 2010, 17:43
Posts: 868
Как я понял, он 2 раза идет к плавилке за один заход. поэтому в 2 местах надо писать её координаты.


Top
 Profile  
 
PostPosted: 24 Aug 2011, 23:11 
Offline
Эксперт
User avatar

Joined: 27 Aug 2009, 10:29
Posts: 1089
Location: Latvia, Riga-Daugavpils
Code:
move 2573 475 0

в двух местах


Top
 Profile  
 
PostPosted: 09 Sep 2011, 00:14 
Offline
Новичок

Joined: 05 Sep 2011, 11:20
Posts: 6
переделайте скрипт под новое меню плизз


Top
 Profile  
 
PostPosted: 09 Sep 2011, 17:19 
Offline
Игрок
User avatar

Joined: 12 Jul 2011, 21:22
Posts: 87
Location: Москва
+1


Top
 Profile  
 
PostPosted: 09 Sep 2011, 17:50 
Offline
Ветеран
User avatar

Joined: 27 Aug 2010, 17:43
Posts: 868
100k


Top
 Profile  
 
PostPosted: 19 Sep 2011, 04:19 
Offline
Новичок

Joined: 21 Dec 2009, 01:41
Posts: 9
от меня легкое исправление на скорую руку.
пока только БС ИРОНА работает, и то примитивно.
но кует горжетки, и переплавляет их.
на днях доделаю для бронзы и меди.
при старте выбирайте молоток.
в коде пока много мусора и двойных проверок, повторяю, на скорую руку в 4 утра дорисовал :))) но на ироне БС работает 100%

Code:
Enable Event Sysmessage
set #sysmsgcol 1359
event SysMessage ###Script Crafted by Gign###
event SysMessage ###updated by meidan###
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 2574 474 1

gosub smeltall
repeat
{
gosub goiron
move 2574 474 1
gosub smelt
}
finditem RMK C
until #FINDSTACK < 30


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 2574 474 1

gosub smeltall
gosub goiron
gosub smelt

move 2564 484 0


sub smelt
{
wait 1s
set %mytimer #SCNT
while %mytimer > #SCNT - 2
{
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
{
finditem RMK C
repeat
{
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
}
set %timer3 #SCNT
ignoreitem reset 1
target
set #LTARGETID #FINDID
event Macro 22 0
wait 1s
click 68 170 f
wait 1s
click 275 148 f
repeat
{
 wait 1
}
until put in #sysMsg || Your in #sysMsg || fail in #sysMsg  || %timer3 < #SCNT - 30
}
finditem RMK C
until #FINDSTACK < 20
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 NSH
  set %offx -5
  set %offy 73
  set %toolname Hammer
}
else
{
  set %tooltype GTL
  set %countx 210
  set %county 436
  set %itemx 535
  set %itemy 300
  set %smeltitemtype PBG
  set %offx -30
  set %offy 75
  set %toolname TinkerTools
}
set %setup 1
}
return
}


Top
 Profile  
 
PostPosted: 29 Sep 2011, 22:01 
Offline
Начинающий игрок

Joined: 29 Sep 2011, 21:59
Posts: 15
Парни помогите,чтоб ковал вместо гардетки тунику чайнмал плззз!!!!или подскажите как исправить!!!


Top
 Profile  
 
PostPosted: 03 Oct 2011, 15:46 
Offline
Ветеран

Joined: 27 Sep 2011, 20:34
Posts: 502
что там с бронзой и медью? :)


Top
 Profile  
 
PostPosted: 04 Oct 2011, 15:06 
Offline
Начинающий игрок

Joined: 29 Sep 2011, 01:16
Posts: 14
А в первоначальном скрипте чар выбрасывает викинг мечи? А то если тащить за собой это добро то стамина резко упадет и чар вообще ничего сделать не сможет.


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, 6 ... 16  Next

All times are UTC + 2 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 158 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