Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Most_Wanted : (25 May 2020 - 13:28) kuplju dragon regi po 2.5k za stuku. V ljubih koli4estvah!
@  Ganjakur : (24 May 2020 - 17:08)
@  Katehok2017 : (24 May 2020 - 13:10) otkrojte 3-ij 4-ertij acc na odin IP adress spasibo !
@  SergeyRou : (19 May 2020 - 09:47) Buy 900 Cargo Logs
@  Bliezeejs : (17 May 2020 - 12:46) Buy mining +10 robe/cloak/braclet
@  Artemy Shan : (16 May 2020 - 02:16) @Silence http://forum.oldp.ne...howtopic=104020
@  Silence : (15 May 2020 - 10:01) Всем привет, хотел заново начать играть)) хотел спросить может у кого завалялся арчер не нужный!?)))
@  Botanik2019 : (11 May 2020 - 21:12) Очень хочется знать куда пропали ньюби сиськи после Колор турнира. Заходил были вышел и их нет в сумке. Проверил все выложил и просмотрел пакет он был один.
@  Katehok2017 : (11 May 2020 - 18:07) !F1sher! SPASIBO !!!
@  Jankabrak : (11 May 2020 - 13:45) Sell Dragon Regi(1-2,5k)
@  Jankabrak : (11 May 2020 - 13:44) Sell Dragon Regi
@  WelcometoOld... : (10 May 2020 - 15:12) Buy cargo hides
@  beatiful : (09 May 2020 - 22:39) Sell lubpo wep/bow +20 ms 100 drb inferno,aqua,oldp,paradise,terium,sirius,cargo. ANY WEP /BOW 100 DRB 17KK
@  Katehok2017 : (09 May 2020 - 20:06) BUY > CHEK NA 1KK ZA 100.000 GP
@  Bliezeejs : (07 May 2020 - 22:36) Buy recalls!!!
@  Bliezeejs : (07 May 2020 - 22:36) Būt
@  slimline12 : (07 May 2020 - 15:14) BUY ELF HORSE ILI NIGHTMARE
@  beatiful : (05 May 2020 - 12:34) ili maxnu na repair 200
@  beatiful : (05 May 2020 - 12:33) sell gods studded packed 25kk
@  regi : (05 May 2020 - 12:12) use google.com

Photo

Алхимия


  • Please log in to reply
3 replies to this topic

#1 osasjtim

osasjtim

    Newbie

  • Members
  • 19 posts

Posted 05 September 2019 - 11:24

Доброго дня, коллеги!

Вопрос, переделал скрипт под крафт банок на крафт хилинг поушенов. Всё вроде прописал, но готовые банки он в сундук не складывает, не понимаю где надо поправить. Реагент лежит в сумке - его вес вообще не ощущается, берет из одного сундука 50 банок пустых, крафтит поушены, но не скидывает их в другой сундук, почему не понимаю - посоветуйте, что поправить. Заранее спасибо!

 

initevents
 
initevent
uoswap:
if #charname <> Sjmage
{
UOXL swap
goto uoswap
}
 
set %BOX GJRHKMD ; where to take ings
SET %MUSORKA GJRHKMD ; where to put flacks
set %eatBOX DYUNKMD
SET %REG PGJ ;ings
SET %Skreg 50 ; quantity of ings to take
SET %ITEM VGJ; type of production
SET %Tool RQF ; tool
SET %TIME1 150 ; wait on the production screen
SET %TIME2 15 ; wait to transfer items
set %eatTIME 900
set %Drink ZBM
set %eat HND_GND
set %SCNT #SCNT + %eatTIME
GOSUB Craft
 
SUB Craft
    if #SCNT >= %SCNT
    gosub eat
    Finditem %Tool C_ , #BackpackID
    IF #Findkind <> -1 4
       SET #LobjectID #FindID
       Event Macro 17 0
       wait 10
       Click 486 453
    GOSUB Journal
     return
SUB Journal
    Deletejournal
       set %CNT #SCNT2 + %TIME1
       scan:
     event SysMessage
    Scanjournal
    IF You_are_hungry  in #Journal || You_are_hungry in #sysmsg
       GOSUB eat
    IF You_need IN #Journal ;|| IF You_need IN #Sysmsg
       GOSUB Tresh
    IF You_put IN #Journal ;|| IF You_put IN #Sysmsg
       GOSUB craft
    IF #SCNT2 > %CNT
       GOSUB craft
    goto scan
Return
return
 
SUB Tresh
       musorka:
       Finditem %ITEM C_ , #BackpackID
           IF #Findkind <> -1
    {
       exevent Drag #FindID #FindStack
       exevent Dropc %MUSORKA
       wait %TIME2
       goto musorka
       }
        Finditem %Banka C_ , #BackpackID
    IF #Findkind <> -1 3
       exevent Drag #FindID #FindStack
       exevent Dropc %BOX
       wait %TIME2
 
    Finditem %REG C_ , #BackpackID
    IF #Findkind <> -1 3
       exevent Drag #FindID #findstack
       exevent Dropc %BOX
       wait %TIME2
          reg:
       Finditem %REG C_ , %BOX
    IF #findstack >= 3 4
       exevent Drag #FindID %Skreg
       exevent Dropc #BackpackID
       wait %TIME2
      GOSUB Craft
      ignoreitem #findID
      goto reg
      return
 
sub eat
Finditem %eat C_ , %eatBOX
    IF #Findkind <> -1 3
       exevent Drag #FindID 1
       exevent Dropc #BackpackID
       wait %TIME2
Finditem %drink C_ , %eatBOX
    IF #Findkind <> -1 3
       exevent Drag #FindID 1
       exevent Dropc #BackpackID
       wait %TIME2
finditem %eat C_ , #backpackID
if #findkind <> -1 3
set #LobjectID #FindID
event macro 17
wait 5
finditem %drink C_ , #backpackID
if #findkind <> -1 3
set #LobjectID #FindID
event macro 17
wait 5
set %SCNT #SCNT + %eatTIME
return
 


#2 opas

opas

    Soviet

  • Members
  • 991 posts
  • Gender:Male

Posted 05 September 2019 - 16:30

SET %ITEM VGJ; 

Пробела не хватает VGJ ;



#3 osasjtim

osasjtim

    Newbie

  • Members
  • 19 posts

Posted 05 September 2019 - 16:51

понял =)

попробую - отпишу!



#4 osasjtim

osasjtim

    Newbie

  • Members
  • 19 posts

Posted 06 September 2019 - 10:47

SET %ITEM VGJ; 

Пробела не хватает VGJ ;

Всё заработало! Спасибо большое! =) 






0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users