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

Tinkering Skript


  • Please log in to reply
4 replies to this topic

#1 Xenofex

Xenofex

    Expert

  • Members
  • 1254 posts
  • Gender:Male
  • Location:Riga

Posted 22 August 2017 - 10:19

Privet vsem!

 

Dajte pozhalujsto easy UO tinkering skript kotorij beret ingoti iz sunduka, delajet butilki i kidajet butilki v sunduk. I kushajet i pjet kogda hungry.

 

Te skripti kotorije na forume starije, proboval, oni ne rabotajut.

 

Spasibo!


Full newbie necro owner =)


#2 Basmiko

Basmiko

    Novice

  • Members
  • 29 posts

Posted 22 August 2017 - 11:19

initevents

initevent
uoswap:
if #charname <> nick
{
UOXL swap
goto uoswap
}
 
set %BOX AJVJLMD ; Откуда брать
SET %MUSORKA WHXGMMD ; куда складовать!
set %eatBOX GHCFLMD
SET %REG RMK ;рег
SET %Skreg 300 ; ск. регов
SET %ITEM HEG_YFG_MHJ_PGJ_FHJ_EHJ ; Тип изделия
SET %Tool GTL ; Тул
SET %TIME1 150 ; Ждатьб на скане журки
SET %TIME2 15 ; Ждать при перетягивание айтэмов
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 5
       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


#3 Xenofex

Xenofex

    Expert

  • Members
  • 1254 posts
  • Gender:Male
  • Location:Riga

Posted 22 August 2017 - 11:39

Skript rabotajet, no kogda pojavljajietsja fail iz za hungry on ne kushajet...

 

Zhdet neskolko sekund, i prodolzhajet delatj butilki golodnij.


Full newbie necro owner =)


#4 Festmagen

Festmagen

    Novice

  • Members
  • 48 posts

Posted 22 August 2017 - 12:17

set %box GUCUJMD ; Box gde vsjo lezhat
set %regsForInscription RMK ; kakie regi nada zvatj ; ingi
set %amountRegs 350 ; skok ix zvatj ingov
set %amountScrolls 0 ; skok scrollov zvatj ; nenado stavitj eto
set %blankScroll GTL ; tinker tools

display ok Target on Ready Product!
set #targcurs 1
while #targcurs = 1
wait 1
finditem #ltargetid
set %scroll #findtype
set %scrollCol #findcol
set %eat 0


_start:
for %i 1 5
{
scanjournal %i
deletejournal
}
set %fail 0
repeat
{
finditem %blankScroll C_ , #backpackid
if #findcol <> 0
ignoreitem #findid
finditem %blankScroll C_ , #backpackid
}
until #findcol = 0
if #findcnt = 0
{
gosub drop&take
goto _start
}
set #lobjectid #findid
_make:
ignoreitem reset
event macro 17 0
wait 10
gosub gumpWait
_click:
click 491 453
gosub scan
goto _make

sub gumpWait
set %failT #scnt + 15
_wait:
if #contname = generic_gump && #contkind = UCHB
return
if #scnt > %failT
return
wait 10
goto _wait
return

sub scan
deletejournal
set %lag #scnt + 15
_scan:
for %i 5 1
{
scanjournal %i
if hungry in #journal && #scnt > %eat
{
gosub eat
return
}
if world_save in #journal || world_save in #sysmsg
{
wait 35s
goto _start
}
if you_put in #journal
{
set %fail 0
return
}
if you_fail in #journal || you_have_failed in #journal
{
set %fail %fail + 1
if %fail >= 3
{
wait 5s
goto _start
}
else
return
}
if #scnt > %lag
goto _start
if you_need in #journal || have_no_resources in #journal
{
gosub drop&take
goto _start
}
}
goto _scan
return

sub drop&take
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
repeat
{
finditem %scroll C_ , #backpackid
if #findcol <> %scrollCol
ignoreitem #findid 1
finditem %scroll C_ , #backpackid
if #findcnt = 0
halt
}
until #findcol = %scrollCol
exevent drag #findid #findstack
exevent dropc %box
wait 20
ignoreitem reset 1
finditem %blankScroll C_ , %box
exevent drag #findid %amountScrolls
exevent dropc #backpackid
wait 20
repeat
{
finditem %regsForInscription C_ , %box
exevent drag #findid %amountRegs
exevent dropc #backpackid
wait 15
ignoreitem #findtype 1
}
until #findcnt = 0
ignoreitem reset 1
return

sub eat
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
wait 30
finditem ZBM C_ , %box
exevent drag #findid 2
exevent dropc #backpackid
wait 30
finditem ZBM C_ , %box
exevent drag #findid
exevent dropc #backpackid
wait 30
finditem GND C_ , %box
exevent drag #findid
exevent dropc #backpackid
wait 30
}
set %lobjct #lobjectid
finditem ZBM C_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 10
set %lobjct #lobjectid
finditem ZBM C_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 10
finditem GND C_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 10
set #lobjectid %lobjct
set %eat #scnt + 360
return




#5 Xenofex

Xenofex

    Expert

  • Members
  • 1254 posts
  • Gender:Male
  • Location:Riga

Posted 22 August 2017 - 12:23

Festmagen tvoj skript ne mozhet vzjatj ingoti s sunduka.

 

"you can not pick that up"


Full newbie necro owner =)





1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users