It is currently 18 Apr 2024, 15:58

All times are UTC + 2 hours [ DST ]




Post new topic Reply to topic  [ 157 posts ]  Go to page Previous  1 ... 10, 11, 12, 13, 14, 15, 16  Next
Author Message
PostPosted: 13 Oct 2014, 07:31 
Offline
Бывалый игрок
User avatar

Joined: 20 Apr 2014, 18:38
Posts: 400
Спасибо за скрипт работает замечательно,простите за вопрос не по теме но подскажите плз есть ли в EasyUO вкладочка со скиллами и статами как в инже или стелсе?

_________________
Image
If god wants to hurt us He fulfills our desires
icq 363817998


Top
 Profile  
 
PostPosted: 08 Nov 2014, 20:51 
Offline
Новичок

Joined: 05 Nov 2014, 14:17
Posts: 8
А как убрать чтоб он бронзу не крафтил?


Top
 Profile  
 
PostPosted: 02 Jan 2015, 15:53 
Offline
Новичок

Joined: 25 Dec 2014, 11:16
Posts: 1
Парни подскажите как переписать или помогите переписать что брал разные кирки а не только айрон. Хочу чтоб использовал те кирки что есть в рюкзаке и не игнорировал их ) Спасибо огромное за помощь. Пожертвование гарантирую.

Имя в игре liscon и lisconcraft


Top
 Profile  
 
PostPosted: 02 Jan 2015, 22:59 
Offline
Игрок

Joined: 16 Dec 2014, 21:29
Posts: 68
Location: Kiev (AoP)
макроса хватило ровно на 10 минут копки

_________________
Sendog [Alpha]


Top
 Profile  
 
PostPosted: 09 Jan 2015, 10:24 
Offline
Начинающий игрок

Joined: 08 Jan 2015, 06:40
Posts: 38
У меня такая ситуация запускаю скрипт чар ходит по пещере но не копает потом идет к наковальне и пытается переплавить руду которой нет(


Top
 Profile  
 
PostPosted: 19 Jan 2015, 17:57 
Offline
Игрок
User avatar

Joined: 19 Jan 2015, 13:45
Posts: 92
Ребята , вот этот скрипт. Ходит , копает , переплавляет ... но потом вылитает окно выбора и всё... дальше надо в ручную выбирать что ему делать.
Как исправить , что бы всё сам делал.. а то пол дня стоял и не качался =(

petitchoe wrote:
Code:
;######### CRAFT CORDINATES #############
set %categx 68
set %categy 212

set %selectx 274
set %selecty 152

;#########################################





sub findiron
{
event sysmessage ## SEARCHING FO-R IRON ###
event sysmessage looping metal find
ignoreitem reset 1
set %x_m_s 0
finditem RMK C_ , #BACKPACKID
set %mycontrol 0
while %x_m_s <> 1
{
if #FINDCOL = 0
{
set %ironfound #FINDID
event sysmessage found %ironfound iron #FINDSTACK ignots
set %x_m_s 1
set %mycontrol %mycontrol +1
}
else
{
event sysmessage found not iron #FINDSTACK ignots #FINDID
ignoreitem #FINDID 1
set %x_m_s 0
set %mycontrol %mycontrol +1
finditem RMK C_ , #BACKPACKID
}
if %mycontrol > 16
{
break
}
}
return
}




sub bsiron
{

finditem %ironfound C_ , #BACKPACKID
event sysmessage UNDER BS found #FINDSTACK %ironfound iron ######
while %enoughiron <> 0
{
if #FINDSTACK > 30
event sysmessage We have neough
{
set %enoughiron 1
}
else
{
gosub clean
if #FINDSTACK > 30
event sysmessage We have neough
{
set %enoughiron 1
}
else
{
return
}
}
finditem TLH C_ , #BACKPACKID
if #FINDCNT > 1
{
event sysmessage found #FINDCNT hammers
set %myhammer #FINDID
}
else
{
event sysmessage no hammers found

halt
}
event sysmessage using hammer %myhammer usinng iron %ironfound
set #LOBJECTID %myhammer
event macro 17 0
target
set #LTARGETID %ironfound
set #LTARGETKIND 1
event sysmessage LTARGETID IS #LTARGETID
event Macro 22 0
wait 30
click %categx %categy f
wait 30
click %selectx %selecty f
wait 7s
finditem %ironfound C_ , #BACKPACKID
}
return
gosub clean
find %ironfound C_ , #BACKPACKID
}






sub clean
{
finditem JBG G_2
set %myforge #FINDID
finditem BPH C_ , #BACKPACKID
event sysmessage ## THERE ARE LEFT #FINDCNT SWORDS ##
while #FINDCNT <> 0
{
finditem BPH C_ , #BACKPACKID
event sysmessage ##SWORDS CLEANING #FINDID ##
set #LOBJECTID %myforge
set #LTARGETID #FINDID
set #LTARGETKIND 1
event macro 17
wait 2s
event macro 22
wait 1s
}
event sysmessage ##NO SWORD TO CLEAN##
find %ironfound C_ , #BACKPACKID
return
}



gosub window
while 1 = 1
{




Enable Event Sysmessage
set #sysmsgcol 1359
event SysMessage ###Script Crafted by Gign###
move 2556 498 1
gosub wait
move 2559 498 1
gosub wait
move 2559 495 1
gosub wait
move 2559 492 1
gosub wait
move 2559 489 1
gosub wait
move 2562 485 1
gosub wait
move 2562 488 1
gosub wait
move 2562 491 1
gosub wait
move 2562 494 1
gosub wait
move 2565 490 1
gosub wait
move 2565 487 1
gosub wait
move 2565 484 1
gosub wait
move 2565 481 1
gosub wait
move 2567 485 1
gosub wait
move 2567 488 1
gosub wait
move 2570 488 1
gosub wait
move 2570 485 1
gosub wait
move 2573 485 1
gosub wait
move 2573 475 0

gosub smeltall

while 1 = 1
{
gosub findiron
find %ironfound C_ , #BACKPACKID

if #FINDSTACK > 30
{
gosub clean
gosub bsiron
}
else
{
break
}
}




move 2568 476 1
gosub wait
move 2570 477 1
gosub wait
move 2576 477 1
gosub wait
move 2579 480 1
gosub wait
move 2576 480 1
gosub wait
move 2573 480 1
gosub wait
move 2570 480 1
gosub wait
move 2567 480 1
gosub wait
move 2573 475 0

gosub smeltall
gosub findiron
while 1 = 1
{

find %ironfound C_ , #BACKPACKID

if #FINDSTACK > 30
{
gosub clean
gosub bsiron
}
else
{
break
}
}



}

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
}
}
gosub dropore
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 dropore
{
finditem DWJ C
for %i 1 #findcnt
{
set #findindex %i
if _ , #findcol , _ in %dropcolor
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 10
}
}
return
}

sub window
}
set %charInfo #charName
set %checksizex 100
set %checksizey 20
set %checkposx 55
set %checkposy 10
set %checkname1 Iron
set %checkname2 Copper
set %checkname3 Bronze
set %checkname4 Steel
set %checkname5 Black_Steel
set %checkname6 Meteor
set %checkname7 Dark_Crystal
set %checkname8 Fire
set %checkname9 Elemental
set %checknamec1 0
set %checknamec2 2738
set %checknamec3 1160
set %checknamec4 1068
set %checknamec5 2723
set %checknamec6 2720
set %checknamec7 2735
set %checknamec8 1094
set %checknamec9 2734
menu window size 240 330
menu window title #spc , Crafted , #spc , by , #spc , Gign
menu Text text_1 10 10 Eaeo? ?oao aueeauaaou ia caie??
for %i 1 9
{
set %name %checkname . %i
set %posy %checkposy + ( 25 * %i )
menu check %name %checkposx %posy %checksizex %checksizey #false %name
}
menu Button button_1 50 260 100 50 Ia?aou eiiaou!
menu show
set #menubutton nothing
while #menubutton <> button_1
{
wait 1
}
menu Hide
for %i 1 9
{
set %name %checkname . %i
menu get %name
if #menures = #true
{
set %mycolor %checknamec . %i
set %dropcolor %dropcolor , _ , %mycolor
}
}
set %dropcolor %dropcolor , _
return
}


Top
 Profile  
 
PostPosted: 12 Feb 2015, 10:52 
Offline
Новичок

Joined: 12 Feb 2015, 10:49
Posts: 2
Подскажите пожалуста... Взял вот этот скрипт на тинкер, он начинает копать, идет к плавильне делает дагеры, но...
Я так понимаю, как только доходит дело до переплавки, начинает писать You can't reech that. Как быть ? Что подправить нужно ? Выручайте :)

merc wrote:
Вот этот полностью рабочий тинкеринг (дагеры делает), только кординаты под свой экран и надо иметь больше 3-х тинкер тулсов и кирок в паке
Code:
;######### CRAFT CORDINATES #############
set %categx 45
set %categy 131

set %selectx 250
set %selecty 151

;#########################################





sub findiron
{
event sysmessage ## SEARCHING FO-R IRON ###
  event sysmessage looping metal find
  ignoreitem reset 1
  set %x_m_s 0
  finditem RMK C_ , #BACKPACKID
  set %mycontrol 0
     while %x_m_s <> 1
        {
         if #FINDCOL = 0
            {
             set %ironfound  #FINDID
             event sysmessage found  %ironfound iron  #FINDSTACK ignots
             set %x_m_s 1
             set %mycontrol %mycontrol +1
            }
                      else
            {
              event sysmessage found not iron #FINDSTACK ignots  #FINDID
              ignoreitem #FINDID 1
              set %x_m_s 0
              set %mycontrol %mycontrol +1
              finditem RMK C_ , #BACKPACKID
            }
          if %mycontrol > 16
         {
         break
         }
         }
return
}


sub findbronze
{
event sysmessage ## SEARCHING FO-R bronze ###
  event sysmessage looping metal find
  ignoreitem reset 1
  set %x_m_s 0
  finditem RMK C_ , #BACKPACKID
  set %mycontrol 0
     while %x_m_s <> 1
        {
         if #FINDCOL = 1160
            {
             set %bronzefound  #FINDID
             event sysmessage found  %bronzefound bronze  #FINDSTACK ignots
             set %x_m_s 1
             set %mycontrol %mycontrol + 1
            }
                      else
            {
              event sysmessage found not bronze #FINDSTACK ignots  #FINDID
              ignoreitem #FINDID 1
              set %x_m_s 0
              set %mycontrol %mycontrol + 1
              finditem RMK C_ , #BACKPACKID
            }
         if %mycontrol > 16
         {
         break
         }

         }
return
}

sub findcopper
{
event sysmessage ## SEARCHING FO-R copper ###
  event sysmessage looping metal find
  ignoreitem reset 1
  set %x_m_s 0
  finditem RMK C_ , #BACKPACKID
  set %mycontrol 0
     while %x_m_s <> 1
        {
         if #FINDCOL = 2738
            {
             set %copperfound  #FINDID
             event sysmessage found  %copperfound copper  #FINDSTACK ignots
             set %x_m_s 1
             set %mycontrol %mycontrol +1
             }
                      else
            {
              event sysmessage found not copper #FINDSTACK ignots  #FINDID
              ignoreitem #FINDID 1
              set %x_m_s 0
              finditem RMK C_ , #BACKPACKID
              set %mycontrol %mycontrol +1
              if %mycontrol > 14
              {
              break
              }
            }
         }
return
}


sub bsiron
{

finditem  %ironfound C_ , #BACKPACKID
event sysmessage UNDER BS found #FINDSTACK %ironfound  iron ######
while %enoughiron <> 0
{
if #FINDSTACK > 30
event sysmessage We have neough
{
 set %enoughiron  1
}
else
{
gosub clean
if #FINDSTACK > 30
event sysmessage We have neough
{
 set %enoughiron  1
}
else
{
return
}
}
 finditem GTL C_ , #BACKPACKID
    if #FINDCNT > 1
     {
      event sysmessage found #FINDCNT hammers
      set %myhammer #FINDID
     }
     else
     {
      event sysmessage no hammers found

      halt
     }
      event sysmessage using hammer %myhammer usinng iron  %ironfound
      set #LOBJECTID %myhammer
      event macro 17 0
      target
      set #LTARGETID %ironfound
      set #LTARGETKIND 1
      event sysmessage LTARGETID IS #LTARGETID
      event Macro 22 0
       wait 30
      click %categx %categy f
      wait 30
      click %selectx %selecty f
      wait 7s
 finditem  %ironfound C_ , #BACKPACKID
}
return
gosub clean
find %ironfound C_ , #BACKPACKID
}

sub bscopper
{

finditem  %copperfound C_ , #BACKPACKID
event sysmessage UNDER BS found #FINDSTACK %copperfound  copper ######
while %enoughcopper <> 0
{
if #FINDSTACK > 30
event sysmessage We have neough
{
 set %enoughcopper  1
}
else
{
gosub clean
if #FINDSTACK > 30
event sysmessage We have neough
{
 set %enoughcopper  1
}
else
{
return
}
}
 finditem GTL C_ , #BACKPACKID
    if #FINDCNT > 1
     {
      event sysmessage found #FINDCNT hammers
      set %myhammer #FINDID
     }
     else
     {
      event sysmessage no hammers found

      halt
     }
      event sysmessage using hammer %myhammer usinng copper  %copperfound
      set #LOBJECTID %myhammer
      event macro 17 0
      target
      set #LTARGETID %copperfound
      set #LTARGETKIND 1
      event sysmessage LTARGETID IS #LTARGETID
      event Macro 22 0
       wait 30
      click %categx %categy f
      wait 30
      click %selectx %selecty f
      wait 7s
 finditem  %copperfound C_ , #BACKPACKID
}
return
gosub clean
find %copperfound C_ , #BACKPACKID
}

sub bsbronze
{

finditem  %bronzefound C_ , #BACKPACKID
event sysmessage UNDER BS found #FINDSTACK %bronzefound  bronze ######
while %enoughbronze <> 0
{
if #FINDSTACK > 30
event sysmessage We have neough
{
 set %enoughbronze  1
}
else
{
gosub clean
if #FINDSTACK > 30
event sysmessage We have neough
{
 set %enoughbronze  1
}
else
{
return
}
}
 finditem GTL C_ , #BACKPACKID
    if #FINDCNT > 1
     {
      event sysmessage found #FINDCNT hammers
      set %myhammer #FINDID
     }
     else
     {
      event sysmessage no hammers found

      halt
     }
      event sysmessage using hammer %myhammer usinng bronze  %bronzefound
      set #LOBJECTID %myhammer
      event macro 17 0
      target
      set #LTARGETID %bronzefound
      set #LTARGETKIND 1
      event sysmessage LTARGETID IS #LTARGETID
      event Macro 22 0
       wait 30
      click %categx %categy f
      wait 30
      click %selectx %selecty f
      wait 7s
 finditem  %bronzefound C_ , #BACKPACKID
}
return
gosub clean
find %bronzefound C_ , #BACKPACKID
}






sub clean
{
finditem JBG G
set %myforge #FINDID
finditem TSF C_ , #BACKPACKID
event sysmessage ## THERE ARE LEFT #FINDCNT SWORDS  ##
   while #FINDCNT <> 0
   {
    finditem TSF C_ , #BACKPACKID
    event sysmessage ##SWORDS CLEANING #FINDID  ##
    set #LOBJECTID %myforge
    set #LTARGETID #FINDID
    set #LTARGETKIND 1
    event macro 17
    wait 2s
    event macro 22
    wait 1s
   }
event sysmessage ##NO SWORD TO CLEAN##
find %ironfound C_ , #BACKPACKID
return
}



gosub window
while 1 = 1
{




Enable Event Sysmessage
set #sysmsgcol 1359
event SysMessage ###Script Crafted by Gign###
move 2556 498 1
gosub wait
move 2559 498 1
gosub wait
move 2559 495 1
gosub wait
move 2559 492 1
gosub wait
move 2559 489 1
gosub wait
move 2562 485 1
gosub wait
move 2562 488 1
gosub wait
move 2562 491 1
gosub wait
move 2562 494 1
gosub wait
move 2565 490 1
gosub wait
move 2565 487 1
gosub wait
move 2565 484 1
gosub wait
move 2565 481 1
gosub wait
move 2567 485 1
gosub wait
move 2567 488 1
gosub wait
move 2570 488 1
gosub wait
move 2570 485 1
gosub wait
move 2573 485 1
gosub wait
move 2573 475 0

gosub smeltall

while 1 = 1
{
 gosub findiron
 find %ironfound C_ , #BACKPACKID

 if #FINDSTACK > 30
    {
     gosub clean
     gosub bsiron
     }
     else
     {
     break
     }
}

while 1 = 1
{
 gosub findbronze
 find %bronzefound C_ , #BACKPACKID

 if #FINDSTACK > 30
    {
     gosub clean
     gosub bsbronze
     }
     else
     {
     break
     }
}

while 1 = 1
{
 gosub findcopper
 find %copperfound C_ , #BACKPACKID

 if #FINDSTACK > 30
    {
     gosub clean
     gosub bscopper
     }
     else
     {
     break
     }
}



move 2568 476 1
gosub wait
move 2570 477 1
gosub wait
move 2576 477 1
gosub wait
move 2579 480 1
gosub wait
move 2576 480 1
gosub wait
move 2573 480 1
gosub wait
move 2570 480 1
gosub wait
move 2567 480 1
gosub wait
move 2573 475 0

gosub smeltall
gosub findiron
while 1 = 1
{

 find %ironfound C_ , #BACKPACKID

 if #FINDSTACK > 30
    {
     gosub clean
     gosub bsiron
     }
     else
     {
     break
     }
}



}

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
  }
}
gosub dropore
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 dropore
{
finditem DWJ C
for %i 1 #findcnt
{
  set #findindex %i
  if _ , #findcol , _ in %dropcolor
  {
   exevent drag #findid #findstack
   exevent dropg #charposx #charposy #charposz
   wait 10
  }
}
return
}

sub window
}
set %charInfo #charName
set %checksizex 100
set %checksizey 20
set %checkposx 55
set %checkposy 10
set %checkname1 Iron
set %checkname2 Copper
set %checkname3 Bronze
set %checkname4 Steel
set %checkname5 Black_Steel
set %checkname6 Meteor
set %checkname7 Dark_Crystal
set %checkname8 Fire
set %checkname9 Elemental
set %checknamec1 0
set %checknamec2 2738
set %checknamec3 1160
set %checknamec4 1068
set %checknamec5 2723
set %checknamec6 2720
set %checknamec7 2735
set %checknamec8 1094
set %checknamec9 2734
menu window size 240 330
menu window title #spc , Crafted , #spc , by , #spc , Gign
menu Text text_1 10 10 Eaeo? ?oao aueeauaaou ia caie??
for %i 1 9
{
set %name %checkname . %i
set %posy %checkposy + ( 25 * %i )
menu check %name %checkposx %posy %checksizex %checksizey #false %name
}
menu Button button_1 50 260 100 50 Ia?aou eiiaou!
menu show
set #menubutton nothing
while #menubutton <> button_1
{
wait 1
}
menu Hide
for %i 1 9
{
set %name %checkname . %i
menu get %name
if #menures = #true
{
  set %mycolor %checknamec . %i
  set %dropcolor %dropcolor , _ , %mycolor
}
}
set %dropcolor %dropcolor , _
return
}


Top
 Profile  
 
PostPosted: 12 Feb 2015, 18:30 
Offline
Новичок

Joined: 12 Feb 2015, 10:49
Posts: 2
Ребята выручайте ... Как поправить этот скрипт ?

Вопрос решён, вопрос закрыт.


Top
 Profile  
 
PostPosted: 10 Mar 2015, 14:55 
Offline
Эксперт
User avatar

Joined: 13 Jan 2015, 04:44
Posts: 1088
Испробовал все варианты которые тут есть... По началу скрипт работает хорошо, но потом меню изготовление весит а цифры вбивает в чат а не в меню. Или же вообще не вылазиет меню. В нормальное русло можно вернуться только если перезапустить клиент. Пробовал что с бс скилом, что с тулсом.... Можете рабочий скрипт скинуть...? Или же вот есть вариант на бс работающий, тут он делает викинг сворды по 1 а не кучей. Можно его на тулс переделать?
---------------------------------------
;######### CRAFT CORDINATES #############
set %categx 68
set %categy 212

set %selectx 274
set %selecty 152

;#########################################





sub findiron
{
event sysmessage ## SEARCHING FO-R IRON ###
event sysmessage looping metal find
ignoreitem reset 1
set %x_m_s 0
finditem RMK C_ , #BACKPACKID
set %mycontrol 0
while %x_m_s <> 1
{
if #FINDCOL = 0
{
set %ironfound #FINDID
event sysmessage found %ironfound iron #FINDSTACK ignots
set %x_m_s 1
set %mycontrol %mycontrol +1
}
else
{
event sysmessage found not iron #FINDSTACK ignots #FINDID
ignoreitem #FINDID 1
set %x_m_s 0
set %mycontrol %mycontrol +1
finditem RMK C_ , #BACKPACKID
}
if %mycontrol > 16
{
break
}
}
return
}




sub bsiron
{

finditem %ironfound C_ , #BACKPACKID
event sysmessage UNDER BS found #FINDSTACK %ironfound iron ######
while %enoughiron <> 0
{
if #FINDSTACK > 30
event sysmessage We have neough
{
set %enoughiron 1
}
else
{
gosub clean
if #FINDSTACK > 30
event sysmessage We have neough
{
set %enoughiron 1
}
else
{
return
}
}
finditem TLH C_ , #BACKPACKID
if #FINDCNT > 1
{
event sysmessage found #FINDCNT hammers
set %myhammer #FINDID
}
else
{
event sysmessage no hammers found

halt
}
event sysmessage using hammer %myhammer usinng iron %ironfound
set #LOBJECTID %myhammer
event macro 17 0
target
set #LTARGETID %ironfound
set #LTARGETKIND 1
event sysmessage LTARGETID IS #LTARGETID
event Macro 22 0
wait 30
click %categx %categy f
wait 30
click %selectx %selecty f
wait 7s
finditem %ironfound C_ , #BACKPACKID
}
return
gosub clean
find %ironfound C_ , #BACKPACKID
}






sub clean
{
finditem JBG G_2
set %myforge #FINDID
finditem BPH C_ , #BACKPACKID
event sysmessage ## THERE ARE LEFT #FINDCNT SWORDS ##
while #FINDCNT <> 0
{
finditem BPH C_ , #BACKPACKID
event sysmessage ##SWORDS CLEANING #FINDID ##
set #LOBJECTID %myforge
set #LTARGETID #FINDID
set #LTARGETKIND 1
event macro 17
wait 2s
event macro 22
wait 1s
}
event sysmessage ##NO SWORD TO CLEAN##
find %ironfound C_ , #BACKPACKID
return
}



gosub window
while 1 = 1
{




Enable Event Sysmessage
set #sysmsgcol 1359
event SysMessage ###Script Crafted by Gign###
move 2556 498 1
gosub wait
move 2559 498 1
gosub wait
move 2559 495 1
gosub wait
move 2559 492 1
gosub wait
move 2559 489 1
gosub wait
move 2562 485 1
gosub wait
move 2562 488 1
gosub wait
move 2562 491 1
gosub wait
move 2562 494 1
gosub wait
move 2565 490 1
gosub wait
move 2565 487 1
gosub wait
move 2565 484 1
gosub wait
move 2565 481 1
gosub wait
move 2567 485 1
gosub wait
move 2567 488 1
gosub wait
move 2570 488 1
gosub wait
move 2570 485 1
gosub wait
move 2573 485 1
gosub wait
move 2573 475 0

gosub smeltall

while 1 = 1
{
gosub findiron
find %ironfound C_ , #BACKPACKID

if #FINDSTACK > 30
{
gosub clean
gosub bsiron
}
else
{
break
}
}




move 2568 476 1
gosub wait
move 2570 477 1
gosub wait
move 2576 477 1
gosub wait
move 2579 480 1
gosub wait
move 2576 480 1
gosub wait
move 2573 480 1
gosub wait
move 2570 480 1
gosub wait
move 2567 480 1
gosub wait
move 2573 475 0

gosub smeltall
gosub findiron
while 1 = 1
{

find %ironfound C_ , #BACKPACKID

if #FINDSTACK > 30
{
gosub clean
gosub bsiron
}
else
{
break
}
}



}

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
}
}
gosub dropore
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 dropore
{
finditem DWJ C
for %i 1 #findcnt
{
set #findindex %i
if _ , #findcol , _ in %dropcolor
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 10
}
}
return
}

sub window
}
set %charInfo #charName
set %checksizex 100
set %checksizey 20
set %checkposx 55
set %checkposy 10
set %checkname1 Iron
set %checkname2 Copper
set %checkname3 Bronze
set %checkname4 Steel
set %checkname5 Black_Steel
set %checkname6 Meteor
set %checkname7 Dark_Crystal
set %checkname8 Fire
set %checkname9 Elemental
set %checknamec1 0
set %checknamec2 2738
set %checknamec3 1160
set %checknamec4 1068
set %checknamec5 2723
set %checknamec6 2720
set %checknamec7 2735
set %checknamec8 1094
set %checknamec9 2734
menu window size 240 330
menu window title #spc , Crafted , #spc , by , #spc , Gign
menu Text text_1 10 10 Eaeo? ?oao aueeauaaou ia caie??
for %i 1 9
{
set %name %checkname . %i
set %posy %checkposy + ( 25 * %i )
menu check %name %checkposx %posy %checksizex %checksizey #false %name
}
menu Button button_1 50 260 100 50 Ia?aou eiiaou!
menu show
set #menubutton nothing
while #menubutton <> button_1
{
wait 1
}
menu Hide
for %i 1 9
{
set %name %checkname . %i
menu get %name
if #menures = #true
{
set %mycolor %checknamec . %i
set %dropcolor %dropcolor , _ , %mycolor
}
}
set %dropcolor %dropcolor , _
return
}


Top
 Profile  
 
PostPosted: 20 Jun 2015, 00:35 
Offline
Игрок

Joined: 29 May 2015, 01:03
Posts: 62
Скрипт не рабочий, окно пропадает, и пишет 555


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

All times are UTC + 2 hours [ DST ]


Who is online

Users browsing this forum: Bing [Bot] and 169 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