Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Скрипт на полученик руников Хертвуд.
MisterX
сообщение 26.11.2012, 21:31
Сообщение #1


*

Registred
Сообщений: 5
Регистрация: 26.11.2012
Группа: Пользователи
Наличность: 0
Пользователь №: 15.513
Возраст: 20



Ребята, помогите, если кто то может. Нужен скрипт на выполнение заказов в эльфийском городе. Чтобы брал заказ на 10 simple bow. Делал их, сдавал, добирал с жука дерево, когда закончится в жуке, шел к банку или дома брал там и обратно. А то есть 1 скрипт, но он, во первых, не берет сам с дома или банка логи + глючных. И еще минус в том, что нельзя сворачивать окно, он там по координатам работает. Очень срочно нужно. Был бы очень благодарен.
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
tsk
сообщение 28.11.2012, 20:27
Сообщение #2


***

Novice
Сообщений: 94
Регистрация: 14.5.2008
Группа: Пользователи
Наличность: 0
Пользователь №: 10.753



Кинь который есть у тебя. Посмотрим. А по поводу сворачивания, тут не чего не сделать ) Ибо сам квест он определят по пикселям
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Warstone
сообщение 28.11.2012, 23:14
Сообщение #3


*********

Группа: Модераторы
Наличность: 1748
Пользователь №: 10.905
Возраст: 25



В хертвуде делают руники с Lathal Darts. Смысл в том, что берут хорсу, грузят туда 2К болтов и это получается 200 сданных квестов. Сдаются где-то за час.


--------------------
Do. Or do not. There is no Try!
© Master Joda, Dagobah, Star Wars: Episode V.
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
MisterX
сообщение 4.12.2012, 16:50
Сообщение #4


*

Registred
Сообщений: 5
Регистрация: 26.11.2012
Группа: Пользователи
Наличность: 0
Пользователь №: 15.513
Возраст: 20



Интсрукция:

Настройка внутри скрипта.

делает и сдает луки, доски добирает с жука, реколится (использует чивалри) к сундуку если закончились доски в жуке, накладывает в него новые, реколится к Хертвуду, бежит к квестеру и так по кругу. Если кончились тулсы (нужно иметь тинкер, хотя бы 40+) крафтит флетчер тулсы...

Нужен жук, рунебук, чива, платформа с сундуком с кучей досок, металла для тулсов.



P.S написано, что под шард ROFL, а нельзя ли сделать, чтобы не было зависимости от шарда в данном скрипте?)



Исходный код

;===============================================================================
==========
; 'heartWoodQuest' for bowcraft v2.2b by Absurd (под шард RoFL)
;===============================================================================
==========
; Настройка Type/ID:
set %reward UFG_ ; рунник
set %tools UFG ; флетчер тулс
set %tinkerTools KTL ; тинкер тулс
set %rewardBag ZJF ; сумка с ревардом
set %NPC BO ; NPC
set %craftItem WOH ; что будем крафтить (bow)
set %board TLK ; доски
set %needBoard 70 ; кол-во нужных досок
set %needNewBoard 1540 ; кл-во досок положеных в жука
;--------------------
; координаты руны у входа в хертвуд (делайте в 2-3 тайлах от телепорта)
set %entrance1XC 534
set %entrance1YC 989
;------настройка кликов:------------
; NPC gump:
; кнопка Continue:
set %continueXC 310
set %continueYC 378
; кнопка Accept:
set %acceptXC 133
set %acceptYC 401
; кнопка Refuse:
set %refuseXC 358
set %refuseYC 403
; кнопка Continue(сдача квеста):
set %fcontinueXC 130
set %fcontinueYC 401
; Craft Menu gump:
; кнопка выбрать луки:
set %setNewMakeXC 30
set %setNewMakeYC 132
; кнопка Make bow(крафт меню):
set %makeXC 235
set %makeYC 71
; кнопка Close(крафт меню):
set %closeCraftMenuXC 26
set %closeCraftMenuYC 413
;Menu tinker tools'a:
;кнопка сделать последнее: (Скрафтить один флетчер тулс...)
set %mTXC 284
set %mTYC 413
;-----получение цвета пикселя-------
set %PixXC 383
set %PixYC 190
set %questPix 6541014
;||||||||||||||||||||||||||||||||||||||||||||НЕ МЕНЯТЬ||||||||||||||||||||||||||||||||||||||||||||||||||||
set %rewardCnt 0
set %runicCnt 0
set %checkQuestAccept 0
set %noDragBoard 0 ; разрещение на добор досок
set %version v2.2b
;---------------------------------------------------------------------------------------------------------
; ############################## ГЛАВНАЯ ЧАСТЬ. НИЧЕГО НЕ МЕНЯТЬ!!! ######################################
;---------------------------------------------------------------------------------------------------------
gosub intro ; вывод интро на экран
;############### MAIN ###############
main:
; Поиск и лут рунника
wait 10
finditem %rewardBag C_ , #backpackid
if #findkind = 0
{
menu delete title2
menu font color Green
menu text title2 50 50 Проверяю сумку...
set #lobjectid #findid
event macro 17 0
wait 10
set %bagid #contid
finditem %reward C_ , %bagid
if #findcnt > 0
{
exevent drag #findid
wait 10
finditem %saveBag C_ , #backpackid
exevent dropc #findid
wait 10
set %runicCnt %runicCnt + 1
menu delete title3
menu text title3 80 20 %runicCnt
gosub dropRewardBag
}
else
gosub dropRewardBag
}
else
; Получение квеста
finditem %NPC G_
if #findkind = 1
{
if %checkQuestAccept = 1 ; если квест уже взят, делаем вещи...
{
gosub makeItem
}
menu delete title2
menu font color Green
menu text title2 50 50 Беру квест...
set #lobjectid #findid
event macro 17 0
wait 5
if #contsize = 507_436
{
set %continueX #contposx + %continueXC
set %continueY #contposy + %continueYC
click %continueX %continueY f; выбираем квест
wait 5
set %PixX #contposx + %PixXC
set %PixY #contposy + %PixYC
set %X %PixX
set %Y %Pixy
savepix %X %Y 1
if #pixcol = %questPix
{
set %acceptX #contposx + %acceptXC
set %acceptY #contposy + %acceptYC
click %acceptX %acceptY f
set %checkQuestAccept 1
scanjournal 1
if You_have_accepted_the_Quest. in #journal
{
wait 5
gosub makeItem
}
wait 5
gosub makeItem
}
else ; отменяем квест и берем заново пока не попадет нужный
{
set %refuseX #contposx + %refuseXC
set %refuseY #contposy + %refuseYC
click %refuseX %refuseY f
wait 5
click %refuseX %refuseY f
wait 5
}
}
}
else
{
menu delete title2
menu font color Green
menu text title2 50 50 Реколюсь к Хертвуду...
gosub toHW ; рекол к хервуду
}
goto main
;############### END MAIN ###############
;--------------------------------------------------------------------------------------------------------------
;############### Крафт вещей ###############
sub makeItem
finditem %craftItem C_ , #backpackid ; проверка наличия досок и луков в паке
if #findcnt > 0
{
if #findcnt < 10 ; если луки все есть, сдаем квест
{
set %bowNewBoardNeed #findcnt * 7 ;формула расчета дерева при оставшихся луках
set %needBoard %needBoard - %bowNewBoardNeed
}
if #findcnt = 10
{
gosub togleQItem
}
}
finditem %board C_ , #backpackid ; проверка досок
if #findkind = - 1
{
gosub dragBoard
}
else
{
finditem %board C_ , #backpackid
if ( #findstack < 70 && %noDragBoard = 0 ) ; проверка на недостающее кол-во досок
{
set %needBoard %needBoard - #findstack ;берем недостающее кол-во досок
set %noDragBoard 1
gosub dragBoard
}
craftItem: ;!!!!!!!!!!!!!!!!!!!
finditem %tools C_ , #backpackid
if #findcnt > 0
{
menu delete title2
menu font color Green
menu text title2 50 50 Крафчу вещи...

set #lobjectid #findid
event macro 17 0
wait 10
if #contsize = 530_437
{
set %setNewMakeX #contposx + %setNewMakeXC
set %setNewMakeY #contposy + %setNewMakeYC
click %setNewMakeX %setNewMakeY f ; выбор категории
wait 10
for %i 0 100
{
finditem %board C_ , #backpackid
if #findkind = 0
{
finditem %tools C_ , #backpackid
if #findkind = 0
{
wait 20
set #lobjectid #findid
event macro 17 0
wait 5
set %makeX #contposx + %makeXC
set %makeY #contposy + %makeYC
click %makeX %makeY f
;---------Шкала готовности заказа-----------
set %makePercent %i * 10
set %makeStatusValue %i * 10
menu font color Yellow
menu font size 10
menu delete percent
menu text percent 175 32 %makePercent %
menu Shape makeStatus 135 22 %makeStatusValue 10 3 7 2 green 7 green
;-------------------------------------------
}
else
{
menu delete title2
menu font color Red
menu text title2 50 50 закончились тулсы!
set %noDragBoard 0 ; вернули возможность добора досок
gosub craftTools
}
}
else
gosub togleQItem
}
set %closeCraftMenuX #contposx + %closeCraftMenuXC
set %closeCraftMenuY #contposy + %closeCraftMenuYC
click %closeCraftMenuX %closeCraftMenuY f
wait 5
gosub togleQItem
}
}
else
gosub craftTools
}
return
;############### Крафтим флетчер тулсы ###############
sub craftTools
finditem %tinkerTools C_ , #backpackid
if #findcnt > 0
{
set #lobjectid #findid
event macro 17 0
wait 20
if #contsize = 530_437
{
menu delete title2
menu font color Green
menu text title2 50 50 Крафчу новые тулсы...
for %i 1 100
{
finditem %tools C_ , #backpackid
if #findcnt > 5 ; как только будет 5 тулсов начинаем крафтить...
{
goto craftItem ;makeItem !!!!!!!!!!!!!!!!
}
finditem %tinkerTools C_ , #backpackid
if #findkind = 0
{
set #lobjectid #findid
event macro 17 0
wait 5
set %mTX #contposx + %mTXC
set %mTY #contposy + %mTYC
click %mTX %mTY f
wait 20
}
}
}
}
return
;############### Отмечаем крафт итемы как квестовые ###############
sub togleQItem
set %closeCraftMenuX #contposx + %closeCraftMenuXC
set %closeCraftMenuY #contposy + %closeCraftMenuYC
click %closeCraftMenuX %closeCraftMenuY f ; закрывает крафт гамп
wait 10
menu delete makeStatus ; удаляем статус готовности заказов
menu delete percent
menu text percent 165 22 готово
wait 10
exevent popup #charID 6
wait 10
menu delete title2
menu font color Green
menu text title2 50 50 Отмечаю квестовые вещи...
for %i 1 100
{
scanjournal 1
if The_world_is_saving,_please_wait. in #journal
{
wait 8s
}
finditem %craftItem C_ , #backpackid
if #findkind = 0
{
wait 10
set #ltargetid #findid
event macro 22 0
}
ignoreitem #findid
}
wait 10
key esc
gosub finishQuest
return
;############### Сдаем сделаный квест ###############
sub finishQuest
finditem %NPC G_
if #findkind = 1
{
menu delete title2
menu font color Green
menu text title2 50 50 Сдаю квест...
set #lobjectid #findid
event macro 17 0
wait 10
if #contsize = 507_436
{
set %fcontinueX #contposx + %fcontinueXC
set %fcontinueY #contposy + %fcontinueYC
click %fcontinueX %fcontinueY f
wait 10
click %fcontinueX %fcontinueY f
set %checkQuestAccept 0
set %rewardCnt %rewardCnt + 1
menu delete title1
menu text title1 100 5 %rewardCnt
goto main
}
}
return
;############### Скидуем пустую ревард сумку###############
sub dropRewardBag
finditem %rewardBag C_ , #backpackid
if #findkind = 0
{
menu delete title2
menu font color Green
menu text title2 50 50 Скидую пустую сумку...
finditem %rewardBag G_0 ; если на полу есть сумка, кидаем в нее
if #findkind = 1
{
finditem %rewardBag C_ , #backpackid
exevent drag #findid
wait 10
finditem %rewardBag G_0
exevent dropc #findid
scanjournal 1
if That_container_cannot_hold_more_items in #journal ; если не лезит в сумку, кидаем на один тайл дальше
{
wait 10
ignoreitem #findid
finditem %rewardBag C_ , #backpackid
set %dropX #charposx + 1
set %dropY #charposy
exevent drag #findid
wait 10
exevent dropg %dropX %dropY #charposz
wait 10
}
}
else ; если сумки на полу нету кидаем просто на пол
{
finditem %rewardBag C_ , #backpackid
set %dropX #charposx
set %dropY #charposy
exevent drag #findid
wait 10
exevent dropg %dropX %dropY #charposz
wait 10
;ignoreitem #findid
}
}
return
;############### Берем доски с жука ###############
sub dragBoard
set #lobjectid #charid
event macro 17 0
wait 30
finditem %beatleType G
if #findkind = 1
{
exevent popup #findid 11
wait 10
if ( #CONTSIZE = 230_204 && #CONTID <> #backpackid )
{
set %beatleBag #contid
}
finditem %board C_ , %beatleBag
if #findcnt > 0
{
menu delete title2
menu font color Green
menu text title2 50 50 Беру доски...
exevent drag #findid %needBoard
wait 10
exevent dropc #backpackid
wait 10
set %needBoard 70 ; возвращаем нормальное значение
finditem %beatleType G
set #lobjectid #findid
event macro 17 0
wait 10
gosub makeItem
}
else
{
menu delete title2
menu font color Red
menu text title2 50 50 Закончились доски!
finditem %beatleType G ; залазим на жука и бежим к выходу
set #lobjectid #findid
event macro 17 0
wait 10
gosub home
;pause
}
}
return
;############### Берем доски с ящика ###############
sub dragNewBoard
wait 20
set #lobjectid #charid
event macro 17 0
wait 30
finditem %boardBag G_
if #findkind = 1
{
set #lobjectid #findid
event macro 17 0
wait 20

finditem %board C_ , %boardBag
if #findcnt > 0
{
exevent drag #findid %needNewBoard 1540
wait 10
finditem %beatleType G_
exevent dropc #findid
wait 45
set #lobjectid #findid
event macro 17 0
wait 20
gosub toHW
}
}
else
gosub recal
return
;--------------------------------------Рельсы/Реколы:-------------------------------------------------------
;############### Летим в Хертвуд ###############
sub toHW
set %checkRecal 1
set %x_value 140 ; 1 страница 1 руна
set %y_value 196
set %x_value1 139
set %y_value1 181
gosub recal
return
;############### Заходим в Хертвуд ###############
sub moveToHW
wait 20
set %entrance1X %entrance1XC ; координаты при входе в Хертвдув(на пентаграмме)
set %entrance1Y %entrance1YC
;------------------
gosub scanJ
if ( #charposx = %entrance1X && #charposy = %entrance1Y )
{
event pathfind 534 991
wait 1s
event pathfind 535 992
wait 1s
gosub questPlace
}
else
gosub recal
return
;############### Бежи к квестеру ###############
sub questPlace
wait 20
set %entrance2X 7046 ; координаты на пентаграмме при появлении
set %entrance2Y 332
;------------------------------
gosub scanJ
if ( #charposx = %entrance2X && #charposy = %entrance2Y )
{
menu delete title2
menu font color Green
menu text title2 50 50 Бегу к квестеру...
; Railway2 (Рельсы по которым бежит чар от пентаграммы до NPC)
; **************************
event pathfind 7048 334
wait 20
event pathfind 7049 335
wait 20
event pathfind 7050 336
wait 20
event pathfind 7053 339
wait 20
event pathfind 7058 337
wait 20
event pathfind 7065 345
wait 20
event pathfind 7067 347
wait 20
event pathfind 7071 351
wait 20
event pathfind 7071 357
wait 20
event pathfind 7077 368
wait 20
event pathfind 7083 374
wait 20
event pathfind 7066 374
wait 20
event pathfind 7055 376
wait 20
event pathfind 7050 381
wait 20
event pathfind 7043 381
wait 20
;end railway2
; **************************
goto main
}
return
;############### Рекол в дом ###############
sub home
wait 20
gosub scanJ
menu delete title2
menu font color Green
menu text title2 50 50 Реколюсь домой...
set %checkRecal 0
set %x_value 140 ; координаты 1й страницы 2й руны в книге
set %y_value 196
set %x_value1 299
set %y_value1 181
gosub recal
return
;############### Обработчик реколов ###############
sub recal ; рекол по книге
wait 20
finditem %book C_ , #backpackid
if #findcnt > 0
{
set #lobjectid #findid
event macro 17 0
wait 20
contpos 0 0
set %x #contposx + %x_value
set %y #contposy + %y_value
wait 10
click %x %y
wait 10
set %x1 #contposx + %x_value1
set %y1 #contposy + %y_value1
wait 10
click %x1 %y1
wait 20
}
else
{
menu delete title2
menu font color Red
menu text title2 50 50 Нет рунебука!
}
if %checkRecal = 1
{
gosub moveToHW
}
if %checkRecal = 0
{
gosub dragNewBoard
}
return
;############### Проверка на проходимость ###############
sub scanJ
scanjournal 1
if Can't_get_there in #journal
{
wait 4s ; если выбило стаму при столкновении с НПС, ждем до востановления...
}
return
;---------------------------------
;############### Интро ###############
sub intro
menu clear
menu show 700 400
menu window size 300 170
menu Window Color Black
menu font bgcolor black
menu font transparent #true
menu window transparent 90
menu window title #charname | 'hWQ' %version by Absurd
menu font color Yellow
menu font size 15
menu text title 50 55 HeartWoodQuest %version
menu text title 110 80 by Absurd
wait 60
gosub settings
return
;############### Меню с настройками ###############
sub settings
menu clear
menu show 700 400
menu window size 300 170
menu Window Color Black
menu font bgcolor black
menu font transparent #true
menu window transparent 90
menu window title #charname | 'hWQ' %version by Absurd
menu font color Yellow
menu font size 12
menu text title 110 5 Настройки:
menu font size 8
menu text title 15 30 Ящик с досками:
menu text title 15 75 Сумка для рунников:
menu text title 180 30 Roonebook:
menu text title 180 75 Giant Beatle:
;button
menu button boardBag 15 48 50 20 Указать
menu button saveBag 15 93 50 20 Указать
menu button book 180 48 50 20 Указать
menu button beatle 180 93 50 20 Указать
menu button start 190 145 50 20 Пуск
menu button quit 245 145 50 20 Выйти
;shape
menu Shape EUOShape1 10 25 115 100 3 7 1 yellow 2 BtnFace
menu Shape EUOShape2 175 25 115 100 3 7 1 yellow 2 BtnFace
;---------------------------- Проверка кнопок
set #menubutton N/A
while #true
{
if #menubutton = start
{
gosub monitor
}
if #menubutton = quit
{
wait 10
menu hide
halt
}
if #menubutton = boardBag
{
;gosub setBoardBag
set #targcurs 1
while #targcurs = 1
wait 2
set %boardBag #ltargetid
menu font color Green
menu text title5 75 50 +
set #menubutton N/A
}
if #menubutton = saveBag
{
;gosub setSaveBag
set #targcurs 1
while #targcurs = 1
wait 2
set %saveBag #ltargetid
menu font color Green
menu text title5 75 95 +
set #menubutton N/A
}
if #menubutton = book
{
;gosub setBook
set #targcurs 1
while #targcurs = 1
wait 2
set %book #ltargetid
menu font color Green
menu text title5 240 50 +
set #menubutton N/A
}
if #menubutton = beatle
{
;gosub setBeatle
set #targcurs 1
while #targcurs = 1
wait 2
set %beatleType #ltargetid
menu font color Green
menu text title5 240 95 +
set #menubutton N/A
}
}
return
;############### Монитор ###############
sub monitor
menu clear
menu show 1000 800
menu window size 250 70
menu Window Color Black
menu font bgcolor black
menu font transparent #true
menu window transparent 90
menu window title #charname | 'hWQ' %version by Absurd
menu font color Yellow
menu font size 10
menu text title 5 5 Сдано квестов:
menu text title 5 20 Руников:
menu text title 5 50 Статус:
menu text title 130 5 Готовность заказа:

menu Shape EUOShape1 -5 0 125 50 3 7 2 white 2 BtnFace
menu Shape EUOShape2 120 0 135 50 3 7 2 white 2 BtnFace
wait 10
goto main
return

Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Warstone
сообщение 4.12.2012, 19:39
Сообщение #5


*********

Группа: Модераторы
Наличность: 1748
Пользователь №: 10.905
Возраст: 25



Можешь перелить с тегом src, что-бы отступы были?


--------------------
Do. Or do not. There is no Try!
© Master Joda, Dagobah, Star Wars: Episode V.
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
MisterX
сообщение 5.12.2012, 16:09
Сообщение #6


*

Registred
Сообщений: 5
Регистрация: 26.11.2012
Группа: Пользователи
Наличность: 0
Пользователь №: 15.513
Возраст: 20



Не нашел src в списке bb кодов форума. Залил чуть иначе, не знаю, поможет или нет)
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Warstone
сообщение 5.12.2012, 16:42
Сообщение #7


*********

Группа: Модераторы
Наличность: 1748
Пользователь №: 10.905
Возраст: 25



Ну хоть отступы есть.

Цитата(MisterX @ 4.12.2012, 17:50) *
P.S написано, что под шард ROFL, а нельзя ли сделать, чтобы не было зависимости от шарда в данном скрипте?)
А в чм выражается зависимость?..

И я уже говорил... У тебя на рофле есть на Lethal Darts квест? Если есть... Я могу выложить (если остались) скрипт на солвинг именно его... Там просто идет перебор со скоростью до 5 квестов в секунду (зависит от твоего коннекта) и солвинг занимает где-то пол секунды...


--------------------
Do. Or do not. There is no Try!
© Master Joda, Dagobah, Star Wars: Episode V.
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
MisterX
сообщение 5.12.2012, 17:13
Сообщение #8


*

Registred
Сообщений: 5
Регистрация: 26.11.2012
Группа: Пользователи
Наличность: 0
Пользователь №: 15.513
Возраст: 20



Я не с рофла. Не знаю в чем зависимость, просто раз написали, может есть разница? Я не в курсе. На моем сервере не вариант квесты летал дартс делать. У нас вместо 10 болтов 700 нужно делать, поэтому на симпл боувах остается вариант получать руники. Был бы очень благодарен, если бы помогли. Ну и если получится, чтобы вместо чивы магия использовалась.
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
MisterX
сообщение 16.12.2012, 11:43
Сообщение #9


*

Registred
Сообщений: 5
Регистрация: 26.11.2012
Группа: Пользователи
Наличность: 0
Пользователь №: 15.513
Возраст: 20



up
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 24.8.2019, 11:51
Designed by Nickostyle