It is currently 29 Mar 2024, 11:17

All times are UTC + 2 hours [ DST ]




Post new topic Reply to topic  [ 20 posts ]  Go to page 1, 2  Next
Author Message
PostPosted: 10 Apr 2011, 04:20 
Offline
Бывалый игрок
User avatar

Joined: 17 Mar 2010, 20:28
Posts: 416
Этот скрипт на EasyUO копает руду в Минок пещере и выкидывает на землю ту ненужную руду, которую вы указали вначале после запуска скрипта.

Чтобы всё работало как надо, запускайте EasyUO как администратор! Правая кнопка мыши на иконке EasyUO и выбрать Run as Administrator!
Code:
gosub window
while 1 = 1
{
Enable Event Sysmessage
set #sysmsgcol 1359
event SysMessage ###Script Crafted by Gign###
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

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

move 2564 484 0
}

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 Какую руду выкидывать на землю?
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 Начать копать!
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: 10 Apr 2011, 11:54 
Offline
Игрок
User avatar

Joined: 19 Dec 2010, 11:32
Posts: 218
kruto pasib \m/


Top
 Profile  
 
PostPosted: 12 Apr 2011, 21:47 
Offline
Эксперт
User avatar

Joined: 31 Mar 2010, 16:29
Posts: 2118
Location: Грузия
:-bd

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

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


Top
 Profile  
 
PostPosted: 31 Jan 2012, 16:12 
Offline
Начинающий игрок
User avatar

Joined: 11 Jan 2012, 01:32
Posts: 34
а ты не мог бы описать где здесь какой процесс (вскопка, переплавка, ходьба до плавильни) , и сколько клеток вокруг он вскапывает)) а то тяжеловато перестроить под свою шахту) и ещё яб просто кончил еслиб ты мне подсказал как его заставить дойти до дома и скинуть инги в ящик)


Top
 Profile  
 
PostPosted: 03 Jul 2012, 11:02 
Offline
Начинающий игрок

Joined: 03 Jul 2012, 11:01
Posts: 19
Спасибо огромное!Все работает !
P.S. кому нужен easyuo пишите в скайп despirado777 скину,с офф сайта скачен у мну.


Top
 Profile  
 
PostPosted: 03 Jul 2012, 11:51 
Offline
Бывший член администрации проекта
User avatar

Joined: 01 Aug 2008, 00:14
Posts: 8386
basana wrote:
Спасибо огромное!Все работает !
P.S. кому нужен easyuo пишите в скайп despirado777 скину,с офф сайта скачен у мну.

EasyUo тут можно скачать http://uorpg.net/modules.php?name=Conte ... age&pid=73


Top
 Profile  
 
PostPosted: 03 Jul 2012, 19:35 
Offline
Эксперт

Joined: 26 Feb 2012, 07:12
Posts: 1274
Exodus wrote:
basana wrote:
Спасибо огромное!Все работает !
P.S. кому нужен easyuo пишите в скайп despirado777 скину,с офф сайта скачен у мну.

EasyUo тут можно скачать http://uorpg.net/modules.php?name=Conte ... age&pid=73



вы хоть обновляете?)


Top
 Profile  
 
PostPosted: 04 Jul 2012, 10:26 
Offline
Бывший член администрации проекта
User avatar

Joined: 01 Aug 2008, 00:14
Posts: 8386
igaza wrote:
Exodus wrote:
basana wrote:
Спасибо огромное!Все работает !
P.S. кому нужен easyuo пишите в скайп despirado777 скину,с офф сайта скачен у мну.

EasyUo тут можно скачать http://uorpg.net/modules.php?name=Conte ... age&pid=73



вы хоть обновляете?)


Да, где-то раз в год. Пару дней назад обновили до последней версии.


Top
 Profile  
 
PostPosted: 03 Sep 2012, 16:37 
Offline
Игрок
User avatar

Joined: 10 Apr 2011, 00:59
Posts: 95
подскажите строчку отвечаюшую за вес

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


Top
 Profile  
 
PostPosted: 03 Sep 2012, 16:47 
Offline
Игрок
User avatar

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

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


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 20 posts ]  Go to page 1, 2  Next

All times are UTC + 2 hours [ DST ]


Who is online

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