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

Easyuo Mining


  • Please log in to reply
46 replies to this topic

#41 vinnie

vinnie

    Player

  • Members
  • 162 posts
  • Gender:Male

Posted 29 June 2021 - 22:02

estj..

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

nerabochii, pravda



#42 Pixels

Pixels

    Journeyman

  • Members
  • 99 posts

Posted 30 June 2021 - 20:50

etat scp rabochii


#43 Pixels

Pixels

    Journeyman

  • Members
  • 99 posts

Posted 30 June 2021 - 21:02

 

; Set Up The Following Variables:
set %maxWeight 800       ; Max svars
set %box IXOUJMD         ; id korobki
set %foodCont IXOUJMD    ; kur staav rezerves piens un bekons
set %xCoord 1923         ; X koordinaata rjadom boxa
set %yCoord 376         ; Y koordinaata rjadom boxa
set %dropMarganece #true ; #true - sbrasiveat Marganece ruudu , #false - ne sbrasiveat
set %skillItemChange #false ; #true - menjajet skill itemi, #false - net
set %tracking #false     ; #true - izpolzujet tracking, #false - net
set %runebookID RSWHKMD ; Runebook ID
set %runeNumberToGZ 7     ; NR runi na GZ
set %runeNumberToCave 8  ; Nr runi na mesto kapalki
set %trackingWait 200s ; skoka zhdatj gz, kogda uvidit playera
; Do Not Set These Items If %skillItemChange #false
set %skillRobe PBJKKMD  ; Skill Roba (ID)
set %skillCloak HQIKKMD ; Skill Cloack (ID)
set %skillMask EYIKKMD  ; Skill Mask (ID)
set %simpleRobe JVBQLMD ; Parasta Roba (ID)
set %simpleCloak HMMWJMD ; Parastais cloack (ID)
set %simpleMask OSH ; Platemail helms (ID)
; End Of Changable Clothes List
; Do Not Set These Numbers If %recall #false
set %runeNumberToHome 6  ; Runas Nr uz maaju
set %recall #false    ; #true - lidos ar runebook, #false - skries taapat
set %amountRecalls 10 ; skoljko vzjat recall esli ih net
set %password  ; password
 
 
 
set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_RMK
set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG
 
 
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToCave 2
gosub Instalyze runeNumberToGZ 3
event sysmessage Setting Paperdoll in right position..
event macro 8 1
wait 30
event macro 8 1
wait 30
contpos 780 -26
finditem QRM_FJM_GKM C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 30
}
 
start:
  
 
GOSUB MINING 0 0 0 ;koordinati suda
GOSUB MINING 0 0 0 ;koordinati suda
 
  
 
goto start
 
sub MINING
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
if %tracking
gosub tracking
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 2s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 15
set %overtime #scnt + 8
gosub scan
return
 
sub checkWeight
if #weight > %maxWeight
{
if ! %dropMarganece
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropMarganece
{
gosub dropMarganece
return
}
}
return
 
sub scan
scan:
gosub element
scanjournal
gosub checkdisconnect
gosub checkHP
if hungry in #sysmsg
{
gosub eat
return
}
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal )
+ || ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg )
+ || ( 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 #sysmsg ) )
return
gosub checkHP
if #scnt >= %overtime
return
goto scan
return
 
sub port
msg .arm$
gosub checkHP
gosub element
if G in #charstatus
event macro 6 0
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
if %trackingAlarm
click %x3 %y3
else
click %x1 %y1
event macro 13 21
wait 5s
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10s
if %trackingAlarm
{
str ins #time : 3
str ins #strres : 6
set %Time #strres
str ins #date #dot 3
str ins #strres #dot 6
execute cmd.exe /c echo >>TRACK.txt #charname saw someone #strres @ %Time
wait %trackingWait
click 170 67 r
wait 10
gosub back
gosub tracking
return
}
gosub moveItems
gosub back
return
 
sub moveItems
ignoreitem reset 1
gosub runToBox
event macro 13 21
finditem %box G_3
wait 10
if #findcnt = 0
{
  event Sysmessage Box Not Found!
  halt
}
repeat
{
finditem %item c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %box
wait 15
}
}
until #findcnt = 0
ignoreitem reset 1
if %recall
gosub recalls
gosub food
return
 
 
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return
 
sub back
set %trackingAlarm #false
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
gosub openRunebook
click 261 215 ; Recharge runebook 2x
wait 20
}
gosub openRunebook
click %x2 %y2
event macro 13 21
wait 5s
while #charposx = %oldPosX && #charposy = %oldPosY
wait 5s
return
 
sub runToBox
repeat
{
move %xCoord %yCoord 0 3s
wait 5s
}
until #charposx = %xCoord && #charposy = %yCoord
return
 
sub follow&kill
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
wait 20
gosub loot
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 checkHP
if #hits < #maxhits
{
msg .arm$
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
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!
  halt
}
set #lobjectid #findid
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1
return
 
sub ghost
if #charghost = YES
{
terminate uo
halt
}
return
 
sub changeClothesTo
repeat
{
finditem %1 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %3 C_ , #backpackid
}
until #findcnt = 0
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 2s
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 dropMarganece
dropLoop:
finditem DWJ C_ , #backpackid
if #findcnt = 0
{
  wait 10
  if #weight >= %maxweight
   {
   if %recall
   gosub port
   if ! %recall
   gosub moveItems
   return
   }
  if #weight < %maxweight
   return
}
if #findcol = 1750 || #findcol = 1218 || #findcol = 1325 || #findcol = 1095 ||  #findcol = 21 ||  #findcol = 553 ||  #findcol = 0 || #findcol = 1936 ||  #findcol = 1537 ||  #findcol = 1089 ||  #findcol = 1950 || #findcol = 144 || #findcol = 2313 ||  #findcol = 151 || #findcol = 1156 || #findcol = 306 || #findcol = 2197 ||
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 40
}
ignoreitem #findid 1
goto dropLoop
return
 
sub loot
finditem YFM G_4
if #findcnt > 0
{
set #lobjectid #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212
wait 1
wait 20
if #conttype = YFM
set %corpse #contid
set %lootOverTime #scnt + 30
repeat
{
finditem %loot C_ , %corpse
if #findcnt = 0 || #scnt > %lootOverTime
{
ignoreitem %corpse 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 45
}
until #false
}
return
 
sub element
finditem ED G
if #findcnt <> 0
{
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
finditem ED G
set %element #findid
msg .arm$
set #ltargetid %element
event macro 27 0
repeat
{
finditem %element
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
gosub place
gosub checkpvp
}
until #findcnt = 0
wait 20
gosub loot
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 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 tracking
if #charstatus = G
event macro 6 0
event macro 6 0
msg ,exec tracking$
wait 10
set %lagg #scnt + 20
repeat
{
if #contname = objpicker_gump
{
  set %trackingAlarm #true
  gosub port
  return
}
if You_see_no_signs_of_players_to_track in #sysmsg
return
}
until #scnt > %lagg
return
 
Sub CheckPvP
scanjournal 1
If You_cannot_do_this_now in #journal : notin #journal
{
ignoreitem #findid 1
}
return
 
sub recalls
finditem WTL C_ , #backpackid
if #findstack <= 6 || #findcnt = 0
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
wait 10
finditem WTL C_ , %box
exevent drag #findid %amountRecalls 6
exevent dropc #backpackid
wait 30
}
return
sub checkdisconnect
    if #contname = waiting_gump
    {
        click 402 336
        wait 120s
        click 370 400
        wait 25
        msg %password
        msg $
        gosub waitforgump CONTNAME MainMenu_gump
        click 617 456
        gosub waitforgump CONTNAME normal_gump
        click 617 456
        gosub waitforgump CONTNAME Login_gump
        click 617 456
    }
return
 
sub WaitForGump
   set %gumptimeout #scnt
   _WaitForGump:
   if # . %1 <> %2
   {
      wait 1
      if %gumptimeout + 5 < #scnt
         return #false
      goto _WaitForGump
   }
return #true
 
sub place
;if #charposx > 1920
;ignoreitem #findid 1
;return
 
Sub CheckPvP
scanjournal 1
If You_cannot_do_this_now in #journal : notin #journal
{
ignoreitem #findid 1
}
return

Приветствую, подскажите в скрипте есть функция плавить оре в инги ? он у меня не переплавляет, оре скидывает

 

V samom scripte nado dabavit paru strok

sub moveItems
ignoreitem reset 1
gosub runToBox
event macro 13 21
gosub smelt
gosub repair
finditem %box G_3
wait 10
if #findcnt = 0
{
  event Sysmessage Box Not Found!
  halt
 
sub smelt
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return


#44 Biba

Biba

    Newbie

  • Members
  • 10 posts

Posted 02 July 2021 - 05:41

 

V samom scripte nado dabavit paru strok

sub moveItems
ignoreitem reset 1
gosub runToBox
event macro 13 21
gosub smelt
gosub repair
finditem %box G_3
wait 10
if #findcnt = 0
{
  event Sysmessage Box Not Found!
  halt
 
sub smelt
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return

 

А куда конкретно? или без разницы? я не силён в скриптах, подскажи ))



#45 Pixels

Pixels

    Journeyman

  • Members
  • 99 posts

Posted 02 July 2021 - 07:53

А куда конкретно? или без разницы? я не силён в скриптах, подскажи ))

        ; Set Up The Following Variables:
set %maxWeight 800       ; Max svars
set %box IXOUJMD         ; id korobki
set %foodCont IXOUJMD    ; kur staav rezerves piens un bekons
set %xCoord 1923         ; X koordinaata rjadom boxa
set %yCoord 376         ; Y koordinaata rjadom boxa
set %dropMarganece #true ; #true - sbrasiveat Marganece ruudu , #false - ne sbrasiveat
set %skillItemChange #false ; #true - menjajet skill itemi, #false - net
set %tracking #false     ; #true - izpolzujet tracking, #false - net
set %runebookID RSWHKMD ; Runebook ID
set %runeNumberToGZ 7     ; NR runi na GZ
set %runeNumberToCave 8  ; Nr runi na mesto kapalki
set %trackingWait 200s ; skoka zhdatj gz, kogda uvidit playera
; Do Not Set These Items If %skillItemChange #false
set %skillRobe PBJKKMD  ; Skill Roba (ID)
set %skillCloak HQIKKMD ; Skill Cloack (ID)
set %skillMask EYIKKMD  ; Skill Mask (ID)
set %simpleRobe JVBQLMD ; Parasta Roba (ID)
set %simpleCloak HMMWJMD ; Parastais cloack (ID)
set %simpleMask OSH ; Platemail helms (ID)
; End Of Changable Clothes List
; Do Not Set These Numbers If %recall #false
set %runeNumberToHome 6  ; Runas Nr uz maaju
set %recall #false    ; #true - lidos ar runebook, #false - skries taapat
set %amountRecalls 10 ; skoljko vzjat recall esli ih net
set %password  ; password
 
 
 
set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_RMK
set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG
 
 
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToCave 2
gosub Instalyze runeNumberToGZ 3
event sysmessage Setting Paperdoll in right position..
event macro 8 1
wait 30
event macro 8 1
wait 30
contpos 780 -26
finditem QRM_FJM_GKM C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 30
}
 
start:
 
 
GOSUB MINING 0 0 0 ;koordinati suda
GOSUB MINING 0 0 0 ;koordinati suda
 
 
 
goto start
 
sub MINING
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
if %tracking
gosub tracking
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 2s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 15
set %overtime #scnt + 8
gosub scan
return
 
sub checkWeight
if #weight > %maxWeight
{
if ! %dropMarganece
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropMarganece
{
gosub dropMarganece
return
}
}
return
 
sub scan
scan:
gosub element
scanjournal
gosub checkdisconnect
gosub checkHP
if hungry in #sysmsg
{
gosub eat
return
}
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal )
+ || ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg )
+ || ( 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 #sysmsg ) )
return
gosub checkHP
if #scnt >= %overtime
return
goto scan
return
 
sub port
msg .arm$
gosub checkHP
gosub element
if G in #charstatus
event macro 6 0
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
if %trackingAlarm
click %x3 %y3
else
click %x1 %y1
event macro 13 21
wait 5s
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10s
if %trackingAlarm
{
str ins #time : 3
str ins #strres : 6
set %Time #strres
str ins #date #dot 3
str ins #strres #dot 6
execute cmd.exe /c echo >>TRACK.txt #charname saw someone #strres @ %Time
wait %trackingWait
click 170 67 r
wait 10
gosub back
gosub tracking
return
}
gosub moveItems
gosub back
return
 
sub moveItems
ignoreitem reset 1
gosub runToBox
event macro 13 21
gosub smelt
finditem %box G_3
wait 10
if #findcnt = 0
{
  event Sysmessage Box Not Found!
  halt
}
repeat
{
finditem %item c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %box
wait 15
}
}
until #findcnt = 0
ignoreitem reset 1
if %recall
gosub recalls
gosub food
return
 
 
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return
 
sub smelt
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return
 
 
 
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return
 
sub back
set %trackingAlarm #false
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
gosub openRunebook
click 261 215 ; Recharge runebook 2x
wait 20
}
gosub openRunebook
click %x2 %y2
event macro 13 21
wait 5s
while #charposx = %oldPosX && #charposy = %oldPosY
wait 5s
return
 
sub runToBox
repeat
{
move %xCoord %yCoord 0 3s
wait 5s
}
until #charposx = %xCoord && #charposy = %yCoord
return
 
sub follow&kill
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
wait 20
gosub loot
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 checkHP
if #hits < #maxhits
{
msg .arm$
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
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!
  halt
}
set #lobjectid #findid
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1
return
 
sub ghost
if #charghost = YES
{
terminate uo
halt
}
return
 
sub changeClothesTo
repeat
{
finditem %1 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %3 C_ , #backpackid
}
until #findcnt = 0
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 2s
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 dropMarganece
dropLoop:
finditem DWJ C_ , #backpackid
if #findcnt = 0
{
  wait 10
  if #weight >= %maxweight
   {
   if %recall
   gosub port
   if ! %recall
   gosub moveItems
   return
   }
  if #weight < %maxweight
   return
}
if #findcol = 1750 || #findcol = 1218 || #findcol = 1325 || #findcol = 1095 ||  #findcol = 21 ||  #findcol = 553 ||  #findcol = 0 || #findcol = 1936 ||  #findcol = 1537 ||  #findcol = 1089 ||  #findcol = 1950 || #findcol = 144 || #findcol = 2313 ||  #findcol = 151 || #findcol = 1156 || #findcol = 306 || #findcol = 2197 ||
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 40
}
ignoreitem #findid 1
goto dropLoop
return
 
sub loot
finditem YFM G_4
if #findcnt > 0
{
set #lobjectid #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212
wait 1
wait 20
if #conttype = YFM
set %corpse #contid
set %lootOverTime #scnt + 30
repeat
{
finditem %loot C_ , %corpse
if #findcnt = 0 || #scnt > %lootOverTime
{
ignoreitem %corpse 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 45
}
until #false
}
return
 
sub element
finditem ED G
if #findcnt <> 0
{
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
finditem ED G
set %element #findid
msg .arm$
set #ltargetid %element
event macro 27 0
repeat
{
finditem %element
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
gosub place
gosub checkpvp
}
until #findcnt = 0
wait 20
gosub loot
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 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 tracking
if #charstatus = G
event macro 6 0
event macro 6 0
msg ,exec tracking$
wait 10
set %lagg #scnt + 20
repeat
{
if #contname = objpicker_gump
{
  set %trackingAlarm #true
  gosub port
  return
}
if You_see_no_signs_of_players_to_track in #sysmsg
return
}
until #scnt > %lagg
return
 
Sub CheckPvP
scanjournal 1
If You_cannot_do_this_now in #journal : notin #journal
{
ignoreitem #findid 1
}
return
 
sub recalls
finditem WTL C_ , #backpackid
if #findstack <= 6 || #findcnt = 0
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
wait 10
finditem WTL C_ , %box
exevent drag #findid %amountRecalls 6
exevent dropc #backpackid
wait 30
}
return
sub checkdisconnect
    if #contname = waiting_gump
    {
        click 402 336
        wait 120s
        click 370 400
        wait 25
        msg %password
        msg $
        gosub waitforgump CONTNAME MainMenu_gump
        click 617 456
        gosub waitforgump CONTNAME normal_gump
        click 617 456
        gosub waitforgump CONTNAME Login_gump
        click 617 456
    }
return
 
sub WaitForGump
   set %gumptimeout #scnt
   _WaitForGump:
   if # . %1 <> %2
   {
      wait 1
      if %gumptimeout + 5 < #scnt
         return #false
      goto _WaitForGump
   }
return #true
 
sub place
;if #charposx > 1920
;ignoreitem #findid 1
;return
 
Sub CheckPvP
scanjournal 1
If You_cannot_do_this_now in #journal : notin #journal
{
ignoreitem #findid 1
}
return


#46 Biba

Biba

    Newbie

  • Members
  • 10 posts

Posted 02 July 2021 - 13:13

 

        ; Set Up The Following Variables:
set %maxWeight 800       ; Max svars
set %box IXOUJMD         ; id korobki
set %foodCont IXOUJMD    ; kur staav rezerves piens un bekons
set %xCoord 1923         ; X koordinaata rjadom boxa
set %yCoord 376         ; Y koordinaata rjadom boxa
set %dropMarganece #true ; #true - sbrasiveat Marganece ruudu , #false - ne sbrasiveat
set %skillItemChange #false ; #true - menjajet skill itemi, #false - net
set %tracking #false     ; #true - izpolzujet tracking, #false - net
set %runebookID RSWHKMD ; Runebook ID
set %runeNumberToGZ 7     ; NR runi na GZ
set %runeNumberToCave 8  ; Nr runi na mesto kapalki
set %trackingWait 200s ; skoka zhdatj gz, kogda uvidit playera
; Do Not Set These Items If %skillItemChange #false
set %skillRobe PBJKKMD  ; Skill Roba (ID)
set %skillCloak HQIKKMD ; Skill Cloack (ID)
set %skillMask EYIKKMD  ; Skill Mask (ID)
set %simpleRobe JVBQLMD ; Parasta Roba (ID)
set %simpleCloak HMMWJMD ; Parastais cloack (ID)
set %simpleMask OSH ; Platemail helms (ID)
; End Of Changable Clothes List
; Do Not Set These Numbers If %recall #false
set %runeNumberToHome 6  ; Runas Nr uz maaju
set %recall #false    ; #true - lidos ar runebook, #false - skries taapat
set %amountRecalls 10 ; skoljko vzjat recall esli ih net
set %password  ; password
 
 
 
set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_RMK
set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG
 
 
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToCave 2
gosub Instalyze runeNumberToGZ 3
event sysmessage Setting Paperdoll in right position..
event macro 8 1
wait 30
event macro 8 1
wait 30
contpos 780 -26
finditem QRM_FJM_GKM C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 30
}
 
start:
 
 
GOSUB MINING 0 0 0 ;koordinati suda
GOSUB MINING 0 0 0 ;koordinati suda
 
 
 
goto start
 
sub MINING
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
if %tracking
gosub tracking
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 2s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 15
set %overtime #scnt + 8
gosub scan
return
 
sub checkWeight
if #weight > %maxWeight
{
if ! %dropMarganece
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropMarganece
{
gosub dropMarganece
return
}
}
return
 
sub scan
scan:
gosub element
scanjournal
gosub checkdisconnect
gosub checkHP
if hungry in #sysmsg
{
gosub eat
return
}
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal )
+ || ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg )
+ || ( 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 #sysmsg ) )
return
gosub checkHP
if #scnt >= %overtime
return
goto scan
return
 
sub port
msg .arm$
gosub checkHP
gosub element
if G in #charstatus
event macro 6 0
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
if %trackingAlarm
click %x3 %y3
else
click %x1 %y1
event macro 13 21
wait 5s
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10s
if %trackingAlarm
{
str ins #time : 3
str ins #strres : 6
set %Time #strres
str ins #date #dot 3
str ins #strres #dot 6
execute cmd.exe /c echo >>TRACK.txt #charname saw someone #strres @ %Time
wait %trackingWait
click 170 67 r
wait 10
gosub back
gosub tracking
return
}
gosub moveItems
gosub back
return
 
sub moveItems
ignoreitem reset 1
gosub runToBox
event macro 13 21
gosub smelt
finditem %box G_3
wait 10
if #findcnt = 0
{
  event Sysmessage Box Not Found!
  halt
}
repeat
{
finditem %item c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %box
wait 15
}
}
until #findcnt = 0
ignoreitem reset 1
if %recall
gosub recalls
gosub food
return
 
 
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return
 
sub smelt
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return
 
 
 
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return
 
sub back
set %trackingAlarm #false
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
gosub openRunebook
click 261 215 ; Recharge runebook 2x
wait 20
}
gosub openRunebook
click %x2 %y2
event macro 13 21
wait 5s
while #charposx = %oldPosX && #charposy = %oldPosY
wait 5s
return
 
sub runToBox
repeat
{
move %xCoord %yCoord 0 3s
wait 5s
}
until #charposx = %xCoord && #charposy = %yCoord
return
 
sub follow&kill
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
wait 20
gosub loot
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 checkHP
if #hits < #maxhits
{
msg .arm$
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
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!
  halt
}
set #lobjectid #findid
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1
return
 
sub ghost
if #charghost = YES
{
terminate uo
halt
}
return
 
sub changeClothesTo
repeat
{
finditem %1 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %3 C_ , #backpackid
}
until #findcnt = 0
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 2s
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 dropMarganece
dropLoop:
finditem DWJ C_ , #backpackid
if #findcnt = 0
{
  wait 10
  if #weight >= %maxweight
   {
   if %recall
   gosub port
   if ! %recall
   gosub moveItems
   return
   }
  if #weight < %maxweight
   return
}
if #findcol = 1750 || #findcol = 1218 || #findcol = 1325 || #findcol = 1095 ||  #findcol = 21 ||  #findcol = 553 ||  #findcol = 0 || #findcol = 1936 ||  #findcol = 1537 ||  #findcol = 1089 ||  #findcol = 1950 || #findcol = 144 || #findcol = 2313 ||  #findcol = 151 || #findcol = 1156 || #findcol = 306 || #findcol = 2197 ||
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 40
}
ignoreitem #findid 1
goto dropLoop
return
 
sub loot
finditem YFM G_4
if #findcnt > 0
{
set #lobjectid #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212
wait 1
wait 20
if #conttype = YFM
set %corpse #contid
set %lootOverTime #scnt + 30
repeat
{
finditem %loot C_ , %corpse
if #findcnt = 0 || #scnt > %lootOverTime
{
ignoreitem %corpse 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 45
}
until #false
}
return
 
sub element
finditem ED G
if #findcnt <> 0
{
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
finditem ED G
set %element #findid
msg .arm$
set #ltargetid %element
event macro 27 0
repeat
{
finditem %element
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
gosub place
gosub checkpvp
}
until #findcnt = 0
wait 20
gosub loot
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 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 tracking
if #charstatus = G
event macro 6 0
event macro 6 0
msg ,exec tracking$
wait 10
set %lagg #scnt + 20
repeat
{
if #contname = objpicker_gump
{
  set %trackingAlarm #true
  gosub port
  return
}
if You_see_no_signs_of_players_to_track in #sysmsg
return
}
until #scnt > %lagg
return
 
Sub CheckPvP
scanjournal 1
If You_cannot_do_this_now in #journal : notin #journal
{
ignoreitem #findid 1
}
return
 
sub recalls
finditem WTL C_ , #backpackid
if #findstack <= 6 || #findcnt = 0
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
wait 10
finditem WTL C_ , %box
exevent drag #findid %amountRecalls 6
exevent dropc #backpackid
wait 30
}
return
sub checkdisconnect
    if #contname = waiting_gump
    {
        click 402 336
        wait 120s
        click 370 400
        wait 25
        msg %password
        msg $
        gosub waitforgump CONTNAME MainMenu_gump
        click 617 456
        gosub waitforgump CONTNAME normal_gump
        click 617 456
        gosub waitforgump CONTNAME Login_gump
        click 617 456
    }
return
 
sub WaitForGump
   set %gumptimeout #scnt
   _WaitForGump:
   if # . %1 <> %2
   {
      wait 1
      if %gumptimeout + 5 < #scnt
         return #false
      goto _WaitForGump
   }
return #true
 
sub place
;if #charposx > 1920
;ignoreitem #findid 1
;return
 
Sub CheckPvP
scanjournal 1
If You_cannot_do_this_now in #journal : notin #journal
{
ignoreitem #findid 1
}
return

 

Все работает прекрасно, спасибо



#47 Pixels

Pixels

    Journeyman

  • Members
  • 99 posts

Posted 02 July 2021 - 21:15

Все работает прекрасно, спасибо

esli che obroshaisa ! 






5 user(s) are reading this topic

0 members, 4 guests, 0 anonymous users


    Bing (1)