46 replies to this topic

[Artemy Shan]

; 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

[Artemy Shan]

Скрипт с реконнектом. Вводим пароль в строке set %password и в случае ЦЛ автоматом перезайдет в игру (работает на 50%).
И также внизу есть такой sub place Меняем координаты (чтобы не выходил за пределы шахты, защита от любителей снять со скрипта или отвести в неизвестность

А также у вас не смогут стоять в шахте в элементали, если персонаж не сможет ударить (кого либо) он его игнорит и дальше капает =)

[DjedMaroz]

Cho ta nedvigajet etat script... stoit na meste i odihajet

[sonyplayer]

Cho ta nedvigajet etat script... stoit na meste i odihajet

 

чтото не так сделал наверное =)

Это исправь под себя =)

sub place
;if #charposx > 1920
;ignoreitem #findid 1
;return

[DjedMaroz]

Vrodje izpravil na svoji koordinati...

[sonyplayer]

Vrodje izpravil na svoji koordinati...

Чтото ты делаешь не так, ребята кто юзают этот скрипт в скайпе отписались положительно =)
Значит дело в тебе...

[Garik]

А в чём может быть беда?

 

У меня проблема такая ..."You stop Mining"

 

И в Добавку не могу настроить трекинг....

 

 

Заранее благодарен )

[sonyplayer]

А в чём может быть беда?

 

У меня проблема такая ..."You stop Mining"

 

И в Добавку не могу настроить трекинг....

 

 

Заранее благодарен )

Привет.

Стоп мининг из-за задержки (надо увеличить).

На трэкинг дополнение в инжекте должно быть! Буду дома добавлю дополнение сюда =) 

[sonyplayer]

sub tracking()
   uo.useskill('Tracking')
   UO.WaitMenu('Tracking','Players')
end sub

[Garik]

А можно сделать чтобы он в банк складывал ?  а не в сундук у дома...

Как?)

Всё остальное работает отлично )

[DjedMaroz]

sub tracking()
   uo.useskill('Tracking')
   UO.WaitMenu('Tracking','Players')
end sub

A mozhna postavitj shtobi on iskal magof v Morfe (ljubom vidje)??? a to tut jestj umnjiki katorije nedajut kopatj...

[sonyplayer]

A mozhna postavitj shtobi on iskal magof v Morfe (ljubom vidje)??? a to tut jestj umnjiki katorije nedajut kopatj...

Меняй место =)

[Gpa1n]

zdarova pacani 

 

umenia prablema  "You stop Mining" 

 

paxodu kapaet ochen bistro . 

ia nimagu nichivo sdelat vso proboval 

 

mojet ktonit pamojet ? budu ochen blagadaren

[sonyplayer]

zdarova pacani 

 

umenia prablema  "You stop Mining" 

 

paxodu kapaet ochen bistro . 

ia nimagu nichivo sdelat vso proboval 

 

mojet ktonit pamojet ? budu ochen blagadaren

увеличь задержку, прежде чем писать просмотри что другие писали, может там и есть твой ответ

[EnFlame]

zdarova pacani 

 

umenia prablema  "You stop Mining" 

 

paxodu kapaet ochen bistro . 

ia nimagu nichivo sdelat vso proboval 

 

mojet ktonit pamojet ? budu ochen blagadaren

 

set %overtime #scnt + 8

 

меняй 8 на где то 60 или 80 точно не знаю( 20 = 1 cекунда)

[Gpa1n]

 

set %overtime #scnt + 8

 

меняй 8 на где то 60 или 80 точно не знаю( 20 = 1 cекунда)

ia pamenal no shas kagda kapaet patom pishet

 
''You can't do that'' i stoit ne kapaet 

[RecOldp]

Помогите этот скрипт скидывает айрон , как сделать что-бы не скидывал?!

[sonyplayer]

Помогите этот скрипт скидывает айрон , как сделать что-бы не скидывал?!

Привет, вот тут стоит цвет руды айрона, удали отсюда цвет который хочешь оставить не будет сбрасывать =)

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

 
 

[Katehok2017]

lizi ne edut  !  litaet tok tuda ot tuda litit  no ne podhodit k jashiku  

 

ja ne dura  no 4justvuju sebja neprijatno .

 

Shan radnoj a ti proverjal sam etot skript  toljko v  easy  i toljko menjaja coordinati ... da net ?

spasibo .

[sonyplayer]

lizi ne edut  !  litaet tok tuda ot tuda litit  no ne podhodit k jashiku

 

ja ne dura  no 4justvuju sebja neprijatno .

 

Shan radnoj a ti proverjal sam etot skript  toljko v  easy  i toljko menjaja coordinati ... da net ?

spasibo .

Значит не правильно настроила , ребята кто используют данный скрипт  не жалуются на его работоспособность ! И даже материально отблагодарили =)