It is currently 28 Mar 2024, 14:47

All times are UTC + 2 hours [ DST ]




Post new topic Reply to topic  [ 157 posts ]  Go to page Previous  1 ... 12, 13, 14, 15, 16  Next
Author Message
PostPosted: 08 Jun 2016, 19:41 
Offline
Новичок

Joined: 08 Jun 2016, 19:09
Posts: 3
Помогите пожалуйста ! После перехода сервера на новую платформу, перестал работать скрипт, брал скрипт в этом же топике, все работало прекрасно, ковал, плавил и т.д.
После запуска скрипта, идет в точку, после не видит куда копать... Как переход мог на это все повлиять то ?

Code:
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 %hyix %hyiy f
wait 1s
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 %hyix %hyiy f
wait 1s
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 %hyix %hyiy f
wait 1s
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 %hyix 70
  set %hyiy 210
  set %countx 190
  set %county 438
  set %itemx 275
  set %itemy 149
  set %smeltitemtype BPH
  set %toolname Hammer
}
else
{
  set %tooltype GTL
  set %countx 190
  set %county 438
  set %itemx 270
  set %itemy 210
  set %smeltitemtype PBG
  set %toolname TinkerTools
}
set %setup 1
}
return
}


Top
 Profile  
 
PostPosted: 19 Jul 2016, 08:51 
Offline
Новичок

Joined: 19 Jul 2016, 08:21
Posts: 8
Ну все потаму что изменилось все на сервере ) могу написать скрипты довольно сложные ) все дело в выгоде... )


Top
 Profile  
 
PostPosted: 20 Jul 2016, 13:33 
Offline
Новичок

Joined: 16 Jul 2016, 14:35
Posts: 9
paranoya wrote:
Ну все потаму что изменилось все на сервере ) могу написать скрипты довольно сложные ) все дело в выгоде... )



У меня то же не робит макрос.. :-s Поправте знающие люди...


Top
 Profile  
 
PostPosted: 22 Sep 2016, 13:29 
Offline
Игрок
User avatar

Joined: 03 Sep 2016, 07:07
Posts: 214
Location: планета : Залупень Дабл Ю -13-
Настройте пожалуйста копку в миноке !!!! А то пол ночи получаю за клацанье мышки, а потом пол ночи снится шахта =))


Top
 Profile  
 
PostPosted: 14 Oct 2016, 11:31 
Offline
Начинающий игрок
User avatar

Joined: 14 Oct 2016, 10:04
Posts: 40
запускаю скрипт мне пишет No Pickaxes.

_________________
====_KNIGHT Wertyk_====


Top
 Profile  
 
PostPosted: 14 Oct 2016, 12:06 
Offline
Ветеран

Joined: 08 Nov 2015, 15:09
Posts: 535
Location: Симферополь
winner wrote:
запускаю скрипт мне пишет No Pickaxes.



так положи кирку в сумку...

_________________
Ufert 'выгрызает' мозг игрокам сервера.


Top
 Profile  
 
PostPosted: 01 Nov 2016, 22:47 
Offline
Игрок

Joined: 09 Oct 2016, 20:48
Posts: 133
да лежит и в сумке кирка и в руке все равно то же самое пишет(


Top
 Profile  
 
PostPosted: 18 Nov 2016, 03:35 
Offline
Начинающий игрок

Joined: 18 Nov 2016, 03:15
Posts: 14
winner wrote:
запускаю скрипт мне пишет No Pickaxes.

аналогично...


Top
 Profile  
 
PostPosted: 19 Nov 2016, 17:08 
Offline
Начинающий игрок

Joined: 18 Nov 2016, 03:15
Posts: 14
решил проблему с киркой, только теперь пишет что - Цель слишком далеко или недосягаема.


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 157 posts ]  Go to page Previous  1 ... 12, 13, 14, 15, 16  Next

All times are UTC + 2 hours [ DST ]


Who is online

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