Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  OBLADAET : (Yesterday, 22:59) Ребят! Подкиньте пожалуйста скриптов на инжу? Честное слово буду хранить только у себя и никому больше передавать не буду. Нужен рабочий автолут и на ПВП хорошие, заточенные скрипты под шард. Очень хочу магом тут полетать! Я ветеран UO с конца 1999, сфера 056 :)
@  Ultimate : (Yesterday, 17:13) куплю пушку 100 дуп предложения в приват
@  regi : (Yesterday, 11:33) :D
@  beatiful : (Yesterday, 11:28) Sell Hell Stallion 10kk
@  vik23 : (20 March 2019 - 22:00) mistik! mozes pom4o so shmotam na pvm
@  El-diablo : (20 March 2019 - 21:30) Юва �������� всё правильно ��
@  Ultimate : (19 March 2019 - 10:20) Buy Oldp.Terium Puwku 100 dur
@  Ювелир*ЗМ : (19 March 2019 - 00:16) да бомжы эти бестиан ...нех даже чёто расписывать xD на падсосе ,это гуманетарная помошь сервера такие нам нужны !!!если каждый воп мы бы соберались чисто гуйлдом то забей чё было бы xD Шана помошь прос
@  E-D-I : (18 March 2019 - 22:38) Posadili bljaaaaaaaaaa stavj block ne srazu ? :D
@  El-diablo : (18 March 2019 - 21:20) нам темболее ����
@  sonyplayer : (18 March 2019 - 19:23) @El-diablo еще раз повторюсь, нам пойух +)
Есть и другие игроки помимо вас +)
@  El-diablo : (18 March 2019 - 19:09) а как нас двое - трое . вы добигаете до нашей гз , почтояв у забора 5 минут , даже не забежав в гз , убегаете обратно в мун или мп . мол вы по гз не бегаете , вот т мы теперь только по воскресеньям.
@  El-diablo : (18 March 2019 - 19:05) причем тут мы вообще ? мы выходим каждый день к муну , там видем картину - как вы дружите с гвардами . мы ждём 20 минут , вы не выходите - мы идём офф . а в воскресенье , когда у нас собираются люди , мы вас гоняем в гз . если вам в кайф такой пвп , то теперь только по воскресеньям :)
@  El-diablo : (18 March 2019 - 18:59) ты понял
@  sonyplayer : (18 March 2019 - 18:06) @El-diablo Вот серьезно, вас жаба душит что без вас реально есть нормальное пвп? или что я не пойму?
@  El-diablo : (18 March 2019 - 16:06) что есть такие кто к вам в гз бежит ? а внатуре , когда нас нет вы выходите на бомжиков )
@  El-diablo : (18 March 2019 - 16:04) да без проблем , раз нравится такой пвп . вперёд.
@  dumbass6 : (18 March 2019 - 16:01) @El-diablo Уже не 1 раз говорили, что там пойух когда вы и что вы +) есть еще игроки которые помимо вас каждый день ходят в пвп. Так что свои условия оставьте при себе.
@  El-diablo : (18 March 2019 - 09:43) с таким пвп будем встречаться только по воскресеньям.
@  Imobilaizer : (17 March 2019 - 23:24) pvp bez guardov ne pvp

Photo

Pomowj V Skripte


  • Please log in to reply
2 replies to this topic

#1 pozdrovlaya

pozdrovlaya

    Newbie

  • Members
  • 14 posts

Posted 13 November 2017 - 22:28

privet, kto mozhet pomo4 so skriptom letalka?

problema takaja , ne kuwaet bacon i milk.

vse id boxov stojat pravilnie po idee vse dolwno rabotatj.

kto mowet pomogite budu blagadaren

 

 
initevents
set %minimalHP 100 ;Kogda pjet Heal
set %criticalHP 70 ;Kogda pjet invis
set %invishits 200 ; do skolki budet lechitsa v invise
 
;Resources
Set %HealAmmount 0
Set %InvisAmmount 1 ;!!! Samoe vazhnoe v skripte.... zalog vizhivanija chara. ne budet invisok, Budet bolshaja verojatnostj sdohnutj.
Set %PoisonAmmount 0
Set %StamAmmount 0  ; bolshaja stamina
Set %KindlingsAmmount 20
Set %ArrowsAmmount 0
Set %BandagesAmmount 20
Set %TrappedAmmount 0
Set %Reflectammount 0
Set %MilkAmmount 5
Set %BeaconAmmount 5
 
set %charName (nevazno)
Set %Bank #true
set %box ABJULMD          ;************
 
;Bags  dolzhni lezhatj v BOX
Set %BizhaBag  NYKFMMD ;ID sumki dlja bizhuterii                      ;*********
Set %GoldBag  GEHULMD  ;Id sumki dlja golda                           ;*********
Set %PandoraBag ZDHULMD ;Id sumki dlja pandor                         ;*********
Set %FoodBag  HYAULMD    ;Id sumki dlja edi                           ;*********
Set %lettersbag GEITLMD  ;Id sumki dlja bukv                          ;*********
Set %OtherBag EAITLMD    ;id sumki dlja spell rob , sash itd         ;*********
Set %ResourceBox VWETLMD ;id sumki gde ingoti dlja pochinki i tools   :*********
Set %MiscBag VWETLMD ; sumka gde lezhat Heals, inviski, stamina, kidlingi, eda, binti streli itd.
set %runebookID DPQQLMD
set %runebookID2 DPQQLMD   ; ID Runebooka   ; ID Runebooka   ; ID Runebooka
Set %BookMaxCharges 40 ;skolko zarjadov v knige  ;***********************
Set %BookMaxCharges2 40 ; sk rech
Set %Cargescp recharge  ; exeshnik iz injecta na perezarjadku
Set %Cargescp2 recharge  ; exeshnik iz injecta na perezarjadku
Set %InjectWarmodeOffCommand waroff ; comanda na inzject scp, kotorij stavit warmode 0
Set %tracking #false
 
 
set %distance 11
 
Set %Armor HSH_LSH_MSH_ISH_OSH_NSH_WSH
set %weapon POH      ; weapon (ID)   ;*************
set %Shield CIK                        ;****************
Set %ResourceAmmount 25
Set %HamelionRepair #false
Set %Material1 RMK ;weapon ings    ;*************
Set %Material2  RMK ;armor ings     ;*************
Set %Material3  RMK ;armor ings     ;*************
Set %MaterialColor1 1107 ;weaponings color   ;**************
Set %MaterialColor2 1107 ;armorings color     ;*************
;Set %MaterialColor3 1107 ;metal na siski i chain nogi
Set %MaterialShieldColor 1107 ;metal na shield
Set %Tool EXQHKMD ;id repair toolsa    ;**************
 
 
; chaotic - 1060
; frozen - 1153
; ophid - 2179
; inferno - 2164
 
Set %RepairWeaponLaps 1
Set %RepairArmorLaps 1
 
;Zaderzhki
Set %Loottime 30 ;zaderzhka na Loot
set %dropdelay 35 ;zaderzhka na razgruzku
set %putdelay 10  ;zaderzhka na razdevanie chara
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
set %HpotionTime 6 ; zaderzhka na pitje Heala
Set %IpotionTime 10 ; zaderzhka na pitje Invisa
Set %SpotionTime 12  ; Zaderzhka na pitje stamini
Set %CampWaitTime 33 ;Zaderzhka na camp
Set %HamelionTime 9 ; Zaderzhka na ispolzovanie hameliona
 
 
set %loot DCI_POF_SJG_CUD_HKF_IJG_HSF_RVH_FZH_NZH_UJG_FWL_GEJ
Set %Bizha IJG_HJG_UJG_SJG
Set %Gold POF
Set %Pandora CUD
Set %Letters GEJ
Set %Other DCI_RZF_HSF_RVH_FZH_NZH_FWL_WZF
 
set %mobs UD_IJB_Q_BF_JD_XC_LE_VC_FE_ED_HE_TC_CD_SD_UE_AD_FD_CF_QD_BD_V_OD_MD_WD_SE_WE_ND_ZC_UC_DD_CB_YD_RE_PE_GD     ;************
 
 
set %ST 0
set %H 0
set %I 0
set %K 0
set %f 0
set %WLaps 0
set %ALaps 0
set %distance 11
set %poisontime 0
 
set %mdz #false
set %finded #false
Set %AirLoot #False
Set %patch #false
set %return #false
set %trackalarm #false
 
if #charname <> %charName
{
repeat
uoxl swap
until #charname = %charName
}
gosub install
 
start:
wait 4
event macro 15 16
wait 3s
Set %Runebook %RuneBookID
gosub Recall 260 275  ;Runa N2
gosub scan
gosub Recall 260 290 ;Runa N3
gosub scan
gosub Recall 260 305 ;Runa N4
gosub scan
gosub Recall 260 320 ;Runa N5
gosub scan
gosub Recall 260 335 ;Runa N6
gosub scan
gosub Recall 260 350 ;Runa N7
gosub scan
gosub Recall 260 365 ;Runa N8
gosub scan
gosub Recall 420 260 ;Runa N9
gosub scan
gosub Recall 420 275 ;Runa N10
gosub scan
gosub Recall 420 290 ;Runa N11
gosub scan
gosub Recall 420 305 ;Runa N12
gosub scan
gosub Recall 420 320 ;Runa N13
gosub scan
gosub Recall 420 335 ;Runa N14
gosub scan
gosub Recall 420 350 ;Runa N15
gosub scan
gosub Recall 420  365 ;Runa N16
gosub scan
gosub Recall 260 260  ;Runa N1 K Banku
gosub box
gosub DropLoot
wait 1s
gosub takescrolls
wait 1s
gosub Resources
wait 1s
event macro 15 16
wait 3s
Set %Runebook %RuneBookID2
gosub Recall 260 275  ;Runa N2
gosub scan
gosub Recall 260 290 ;Runa N3
gosub scan
gosub Recall 260 305 ;Runa N4
gosub scan
gosub Recall 260 320 ;Runa N5
gosub scan
gosub Recall 260 335 ;Runa N6
gosub scan
gosub Recall 260 350 ;Runa N7
gosub scan
gosub Recall 260 365 ;Runa N8
gosub scan
gosub Recall 420 260 ;Runa N9
gosub scan
gosub Recall 420 275 ;Runa N10
gosub scan
gosub Recall 420 290 ;Runa N11
gosub scan
gosub Recall 420 305 ;Runa N12
gosub scan
gosub Recall 420 320 ;Runa N13
gosub scan
gosub Recall 420 335 ;Runa N14
gosub scan
gosub Recall 420 350 ;Runa N15
gosub scan
gosub Recall 420  365 ;Runa N16
gosub scan
gosub Recall 260 260  ;Runa N1 K Banku
gosub box
gosub DropLoot
wait 1s
gosub takescrolls2
wait 1s
gosub Resources
wait 1s
event macro 15 16
wait 3s
Set %WLaps %WLaps + 1
Set %ALaps %ALaps + 1
 
If %Wlaps >= %RepairWeaponLaps
{
Set %RepairW #True
set %WLaps 0
}
If %ALaps >= %RepairArmorLaps
{
Set %RepairA #True
Set %ALaps 0
}
gosub Letrepair
msg $.powerhour$
goto start
 
 
 
sub scan
Set %PlusX #CharposX + %distance
Set %MinusX #CharposX - %distance
Set %PlusY #CharposY + %distance
Set %MinusY #CharposY - %distance
ignoreitem reset
Ignoreitem #Charid 1
ignoreitem reset 2
gosub find
return
 
sub find
find:
if %extra
goto RPQ
if %tracking
gosub tracking
RPQ:
If %return
{
set %return #false
return
}
Gosub Market
set %Ignored #False
set %finded #false
set %d 0
repeat
{
finditem %Mobs G_ , %d  ;
if #findcnt >= 1
{
gosub bingo
If %return
{
set %return #false
return
}
goto killer
}
set %d %d + 2
}
until %d > %distance
if #findcnt = 0
{
gosub hp
return
}
killer:
if %finded
gosub kill
If %return
{
set %return #false
return
}
Set %d 0
goto find
return
 
 
Sub Bingo
set %bot #findid
gosub ignorecoords
gosub where
gosub antimorph
 if %Ignored
 return
 set %finded #true
return
 
 
sub kill
gosub checkpatch
If %Patch
goto kiling
Set %Patch #False
return
kiling:
finditem %WeaponItem c_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
}
wait 3
finditem %Shield c_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
}
finditem BHJ C_ , #backpackid
if #findcnt <> 0
{
;Set %poison #Findid
;gosub poison
}
gosub ignoreBodies
finditem %bot G_
If #Findtype = DD || #Findtype = BD || #Findtype = OD
Set %AirLoot #True
set #ltargetid #findid
event macro 27 0
set %kill #Scnt + 16
deletejournal
repeat
{
scanjournal
If World_save in #journal
{
set %Kill %Kill + 12
deletejournal
}
if hung in #sysmsg
{
gosub eat
deletejournal
}
finditem %bot G_ , %distance
If %AirLoot
{
if #findcnt <> 0
{
Set %AirLootX #findx
Set %AirLootY #findy
}
}
Set %Counter %kill - #scnt
If %counter <= 6
{
if Your_total_damage in #sysmsg
Set %kill %kill + 10
}
if %kill <= #scnt
{
gosub ignore
return
}
gosub market
gosub hp
wait 5
event pathfind #findx #findy #findz
gosub MacroPause
If Frozen in #sysmsg
{
pause
display Antimacros!!!
set %Kill %Scnt + 32
}
}
until #findcnt = 0
If %AirLoot
{
Set %AirLoot #False
gosub Airloot
goto shimpi
}
gosub loot
shimpi:
Gosub Market
gosub hp
set %patch #false
return
 
sub eat
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 15
finditem ZBM C
set #lobjectid #findid
event macro 17 0
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 15
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 1s
return
 
 
 
 
 
sub takescrolls
finditem WTL C_ , %Box
If #Findstack = 0 || #Findstack < %BookMaxCharges
{
Display  Not enought Recalls!
halt
}
if %findcnt <> 0
{
exevent Drag #Findid %BookMaxCharges
exevent Dropc #Backpackid
wait %dropdelay
}
wait 20
gosub recharge
wait 20
finditem WTL C_ , #Backpackid
if %findcnt <> 0 && #Findtype = WTL
{
exevent Drag #Findid #Findstack
exevent Dropc %Box
wait %dropdelay
}
return
 
sub takescrolls2
finditem WTL C_ , %Box
If #Findstack = 0 || #Findstack < %BookMaxChargess
{
Display  Not enought Recalls!
halt
}
if %findcnt <> 0
{
exevent Drag #Findid %BookMaxCharges2
exevent Dropc #Backpackid
wait %dropdelay
}
wait 20
gosub recharge2
wait 20
finditem WTL C_ , #Backpackid
if %findcnt <> 0 && #Findtype = WTL
{
exevent Drag #Findid #Findstack
exevent Dropc %Box
wait %dropdelay
}
return
 
 
 
 
 
sub ignore
 ignoreitem #findid 2
 Set %Ignored #True
return
 
 
Sub IgnoreCoords
If #FindX = 5448 && #FindY = 562
gosub ignore
If #FindX = 5474 && #FindY = 525
gosub ignore
If #FindX = 766 && #FindY = 1402
gosub ignore
If #FindX < 2758 && #Findx > 2728 && #Findy < 893
gosub ignore
return
 
Sub Where
If #FindX > %PlusX || #FindX < %MinusX || #FindY > %PlusY || #FindY < %MinusY
gosub ignore
return
 
Sub Market
if #charposx < 5708 && #charposx > 5698 && #charposy > 634 && #charposy < 645
{
gosub PVPON
}
if #charposx < 1365 && #charposx > 1352 && #charposy > 1569 && #charposy < 1582
{
gosub PVPON
}
if #charposx < 1380 && #charposx > 1398 && #charposy > 1620 && #charposy < 1628
{
gosub PVPON
}
return
 
 
sub recharge
msg $,exec %Cargescp $
return
 
sub recharge2
msg $,exec %Cargescp2 $
return
 
sub checkpatch
set %XXX #charposX
set %YYY #charposY
Set %checktimer #scnt + 2
deletejournal
repeat
{
finditem %bot G_ , %distance
event pathfind #findx #findy #findz
scanjournal
if Can't_get_there in #Journal || You_can't_reach_the_creature.
{
gosub ignore
return
}
wait 2
}
until #scnt > %checktimer || #charposX <> %XXX || #CharposY <> %YYY
Set %patch #True
return
 
 
 
 
 
 
Sub AirLoot
msg $,exec %InjectWarmodeOffCommand $
event macro 13 21
wait 5
Set %AirLootTime #scnt + 7
Event Pathfind %AirLootX %AirLootY
gosub hp
gosub market
Repeat
{
Finditem %Loot G_ , 3
If #Findcnt <> 0
{
Exevent Drag #Findid #Findstack
wait 2
Exevent dropc #Backpackid
wait 2
gosub hp
if #findcnt > 1
wait %Loottime
}
If %AirLootTime <= #scnt
return
}
until #Findcnt = 0
Set %AirLoot #False
gosub hp
return
 
sub loot
scanjournal
msg $,exec %InjectWarmodeOffCommand $
event macro 13 21
set %lootOverTime #scnt + 10
if you_must_wait in #journal
return
wait 5
finditem YFM G_3
if #findcnt <> 0
{
 set %body #findid
wait 5
 set #lobjectid %body
loot:
event macro 17 0
 if for_looting in #sysmsg
  return
 while #contkind <> ASEB && #contsize <> 144_212 && %lootOverTime > #scnt
 wait 1
 wait 5
  if %lootOverTime <= #scnt
  return
 repeat
  {
   gosub hp
   finditem %loot C_ , %body
   if #findcnt >= 1
   {
   if #findcol = 1
   {
   ignoreitem #findid 4
   goto looter
   }
    exevent drag #findid #findstack
    wait 2
    exevent dropc #backpackid
    wait 2
    if You_can_not_pick_that_up in #sysmsg
  goto loot
   if #findcnt > 1
    wait %Loottime
    wait 10
    looter:
   }
  }
until #findcnt = 0 || %lootOverTime < #scnt
}
set %finded #false
Gosub Market
gosub hp
return
 
 
sub hp
If %ClerikHeal
{
if #hits =< %clerkHP && %f < #scnt
{
msg .usebandage  $
wait 5
event macro 23 0
set %f #scnt + 2
}
}
If %CampHeal
{
if #hits =< %CampHP && %K < #scnt
{
msg $.camp %CampCommand $
Set %K #scnt + %CampWaitTime
}
}
if #hits =< %minimalHP && %H < #scnt
{
msg $.drink heal$
wait 5
set %h #scnt + %HpotionTime
}
if #hits =< %criticalHP && %I < #scnt
{
msg $,exec %InjectWarmodeOffCommand $
msg $.drink invis$
msg $,exec %InjectWarmodeOffCommand $
set %h #scnt + %IpotionTime
wait 10
If %K < #scnt
{
msg $.camp %CampCommand $
Set %K #scnt + %CampWaitTime
}
invisheal:
if #hits < %Invishits && H in #charstatus
{
msg $.usebandage $
event macro 23 0
wait 2s
}
If #Charstatus <> H && #Charstatus <> HG
return
if #hits >= %invishits
{
set %kill #Scnt + 8
Set %Killovertime #scnt + 12
goto kilop
}
goto invisheal
kilop:
finditem %bot G
set #ltargetid #findid
event macro 27 0
}
if #stamina < 5 && %ST < #scnt
{
msg .drink refresh$
set %st #scnt + %SpotionTime
}
Gosub Market
return
 
Sub MacroPause
If #contkind = UCHB && #Contsize = 240_165 && #contname = generic_gump
{
Display Anti Macros !!!
pause
}
set %kill #Scnt + 16
If Frozen in #sysmsg
{
pause
display Antimacros!!!
set %Kill %Scnt + 32
}
;terminate uo
return
 
sub ignoreBodies
repeat
{
finditem YFM G
if #findcnt >= 1
ignoreitem #findid 3
}
until #findcnt = 0
return
 
sub Recall
set %CharX #charposx
set %CharY #charposy
openRunebook:
if %mdz
goto zrx
gosub market
zrx:
deletejournal
set %porttime #scnt + 14
msg $,exec %InjectWarmodeOffCommand $
gosub hider
finditem %Runebook C_ , #backpackid
second:
if #findkind = -1
{
  event sysmessage Runebook not found.
  pause
  }
set #lobjectid #findid
repeat
{
event macro 17 0
wait 5
}
until #contname = generic_gump && #contsize = 577_426
wait 2
_click:
repeat
{
click %1 %2
wait 5
}
until #contname <> generic_gump && #contsize <> 577_426
letim:
If #Charstatus <> H && #Charstatus <> HG
gosub hider
Set %hrp #hits
repeat
{
scanjournal
if no_rune_in_this_spot in #journal && : notin #journal
{
Set %return #true
return
}
If spell_fizzles in #journal && : notin #journal
goto openRunebook
If World_save in #journal && : notin #journal
{
set %porttime %porttime + 8
deletejournal
}
if #hits < %hrp
{
Set %extra #true
ignoreitem reset
Ignoreitem #Charid 1
ignoreitem reset 2
gosub find
set %extra #false
}
if %porttime <= #scnt
goto openRunebook
}
until #charposx <> %CharX || #charposy <> %CharY
ignoreitem reset 4
if %mdz
set %mdz #false
return
 
 
sub hider
If #Charstatus = H || #Charstatus = HG
return
repeat
{
finditem OIK C_ , #backpackid
if #findcol <> 1063
ignoreitem #findid 4
finditem OIK C_ , #backpackid
If #Findcnt <> 0 && #Findcol = 1063
{
Set #lobjectid #Findid
Event macro 17 0
}
}
until #findcol = 1063 || #findcnt = 0
wait 5
If #Charstatus = H || #Charstatus = HG
return
}
event macro 13 21
return
 
sub PVPON
wait 235s
msg $.pvp$
set %mdz #true
goto start
return
 
sub box
if %Bank
{
repeat
{
msg bank$
wait 35
}
until #conttype = IKF
wait 15
wait 25
finditem %box C
if #findcnt <> 0
{
set #lobjectid #Findid
event macro 17 0
wait 25
}
if #findcnt = 0
{
  event Sysmessage Box Not Found!
  halt
}
return
}
Repeat
{
Finditem %Box G_3
if #findcnt <> 0
{
set #lobjectid #Findid
event macro 17 0
wait 25
}
}
until #Contid = %Box
return
 
Sub Antimorph
deletejournal
msg $,exec %InjectWarmodeOffCommand $
set #lobjectid %bot
scanjournal 1
event macro 17 0
If You_can't_reach_the_creature in #journal
return
wait 5
if #CONTKIND = MAGC && #CONTID <> #charid
{
finditem %bot G_
ignoreitem #findid 9
 Set %Ignored #True
click 1118 153 r
return
}
return
 
Sub DropLoot
pook:
repeat
{
finditem %bizha c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %bizhabag
if world_save_has_been in #sysmsg
wait 15s
if ( You_can_not_pick_that_up. in #sysmsg )
{
gosub backpack
goto pook
}
wait %Dropdelay
}
}
until #findcnt = 0
wait 10
pook1:
repeat
{
finditem %gold c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %goldbag
if world_save_has_been in #sysmsg
wait 15s
if ( You_can_not_pick_that_up. in #sysmsg )
{
gosub backpack
goto pook1
}
wait %Dropdelay
}
}
until #findcnt = 0
wait 10
pook2:
repeat
{
finditem %pandora c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %pandorabag
if world_save_has_been in #sysmsg
wait 15s
if ( You_can_not_pick_that_up. in #sysmsg )
{
gosub backpack
goto pook2
}
wait %Dropdelay
}
}
until #findcnt = 0
wait 10
pook3:
repeat
{
finditem %letters c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %lettersbag
if world_save_has_been in #sysmsg
wait 15s
if ( You_can_not_pick_that_up. in #sysmsg )
{
gosub backpack
goto pook3
}
wait %Dropdelay
}
}
until #findcnt = 0
wait 10
pook4:
repeat
{
finditem %other c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %otherbag
if world_save_has_been in #sysmsg
wait 15s
if ( You_can_not_pick_that_up. in #sysmsg )
{
gosub backpack
goto pook4
}
wait %Dropdelay
}
}
until #findcnt = 0
wait 10
return
 
sub backpack
event macro 9 7
wait 30
event macro 8 7
wait 30
return
 
Sub TakeTools
Finditem %ResourceBox C_ , %Box
If #Findcnt = 0
Halt
Set #Lobjectid #Findid
wait 20
Repeat
{
Event Macro 17 0
wait 20
}
Until #Contid = %ResourceBox
Repeat
{
Finditem %Tool c_ , %ResourceBox
If #Findcnt <> 0
{
exevent drag #Findid #Findstack
Exevent dropc #Backpackid
wait %dropdelay
}
}
return
 
Sub DropTools
Repeat
{
Finditem VDJ_HAG_TSF C_ , #Backpackid
If #Findcnt <> 0
{
If #Findcol = 0 || #Findcol = 50 || #Findcol = 53
}
Exevent Drag #Findid #Findstack
Exevent Dropc %ResourceBox
wait %dropdelay
}
}
Until #Findcnt = 0
wait 10
return
 
Sub LetRepair
If %RepairW
{
gosub TakeTools
set %taked #True
;repair weapon
Gosub Repair %Weapon %MaterialColor1 %Material1 %Tool
set %RepairW %False
}
if %taked
goto ri1
gosub TakeTools
ri1:
If %RepairA
{
;repair Armor
Gosub Repair %Armor %MaterialColor2 %Material2 %Tool
Gosub Repair %Armor2 %MaterialColor3 %Material3 %Tool
Gosub Repair %Shield %MaterialShieldColor %Material2 %Tool
set %ReapairA #False
If %Hamelionrepair
Gosub Repair %HamelionItem %HamelionColor %HamelionRes %Tool
}
Gosub DropTools
set %taked #False
return
 
 
 
 
Sub Repair
;Berjom Resursi
Finditem %ResourceBox C_ , %box
If #findcnt = 0
halt
If %1 = 0
goto Endrepair
Set #Lobjectid #Findid
repeat
{
Event macro 17 0
wait 15
}
Until #Contid = %ResourceBox
Repeat
{
Finditem %3 c_ , %ResourceBox
If #Findstack < %ResourceAmmount && #Findcol = %2
{
If %Terminate
Terminate UO
display Not Enough Ressource To repair This item!!!
halt
}
If #Findcnt <> 0
{
If #Findcol = %2
{
exevent drag #Findid %ResourceAmmount
wait 5
Exevent dropc #Backpackid
wait %dropdelay
goto repa
if world_save_has_been in #sysmsg
wait 15s
}
}
If #Findcol <> %2
ignoreitem #Findid 6
}
until #Findcnt = 0
Ignoreitem reset 6
;move armor v backpack
repa:
repeat
{
finditem %1 C_ , #charid
If #Findcnt <> 0
{
If #Findcol = %2
{
exevent drag #Findid #Findstack
Exevent dropc #Backpackid
wait %putdelay
if world_save_has_been in #sysmsg
wait 15s
}
If #Findcol <> %2
Ignoreitem 6
}
}
until #findcnt = 0
;Chinim
repeat
{
_repairing:
Finditem %4 C_ , #Backpackid
If #Findcnt <> 0
set #lobjectid #Findid
If #Findcnt <> 0
{
ignoreitem #findid 6
goto _repairing
}
finditem %1 C_ , #backpackid
If #Findcnt <> 0
{
set #ltargetid #Findid
set #ltargetkind 1
set %lag #scnt + 10
event macro 17 0
target
while #targcurs <> 1 && #scnt < %lag
wait 1
event macro 22 0
if #scnt >= %lag
goto _repairing
wait 15
if world_save_has_been in #sysmsg
wait 15s
ignoreitem #findid 6
}
}
until #findcnt = 0
Ignoreitem reset 6
;Odevaem pochinennie itemi
If %2 = %HamelionColor
goto endrepair
Repeat
{
Finditem %1 C_ , #Backpackid
Set #Lobjectid #Findid
Event macro 17 0
wait 20
if world_save_has_been in #sysmsg
wait 15s
}
Until #Findcnt = 0
Endrepair:
gosub DropResources
return
 
sub install
If %HamelionRepair
{
Set %Hamelionitem OIK
Set %HamelionColor 1063
Set %HamelionRes ZLK
}
return
 
Sub DropResources
repeat
{
Finditem ZLK_RMK_EEG_OZF C_ , #Backpackid
If #Findcnt <> 0 3
Exevent drag #Findid #Findstack
Exevent dropc %ResourceBox
wait %dropdelay
}
Until #Findcnt = 0
return
 
Sub Resources
; INVISKIIII !!!!! ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Set #Lobjectid %MiscBag
repeat
{
event macro 17 0
wait 15
}
until #contid = %MiscBag
repeat
{
finditem PGJ C_ , #Backpackid
if #findcol = 2298
set %Stack #findstack
if #findcol <> 2298
ignoreitem #findid 9
}
until #Findcol = 2298 || #Findcnt = 0
If %stack => %InvisAmmount
goto invend
Set %Totake %InvisAmmount - %stack
inviski:
finditem PGJ C_ , %MiscBag
If #findcol = 2298 && #Findstack < %InvisAmmount
{
If %Terminate
Terminate UO
Display  Not enought Invis Potions!
halt
}
if #findcol <> 2298
{
ignoreitem #Findid 9
goto inviski
}
if #findcol = 2298 && #Findstack >= %InvisAmmount
{
exevent drag #Findid %Totake
Exevent dropc #backpackid
wait %dropdelay
}
invend:
ignoreitem reset 9
;Heal Potions;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
repeat
{
finditem SGJ C_ , #Backpackid
if #findcol = 0
set %Stack #findstack
if #findcol <> 0
ignoreitem #findid 9
}
until #Findcol = 0 || #Findcnt = 0
If %stack => %HealAmmount
goto hlend
Set %Totake %HealAmmount - %stack
heals:
finditem SGJ C_ , %MiscBag
If #findcol = 0 && #Findstack < %HealAmmount
goto hlend
if #findcol <> 0
{
ignoreitem #Findid 9
goto heals
}
if #findcol = 0 && #Findstack >= %HealAmmount
{
exevent drag #Findid %Totake
Exevent dropc #backpackid
wait %dropdelay
}
hlend:
ignoreitem reset 9
;Stamina Potions;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
repeat
{
finditem QGJ C_ , #Backpackid
if #findcol = 0
set %Stack #findstack
if #findcol <> 0
ignoreitem #findid 9
}
until #Findcol = 0 || #Findcnt = 0
If %stack => %StamAmmount
goto end1
Set %Totake %StamAmmount - %stack
stams:
finditem QGJ C_ , %MiscBag
if #Findstack < %StamAmmount
goto end1
if #findcol <> 0
{
ignoreitem #Findid 9
goto stams
}
if #findcol = 0 && #Findstack >= %StamAmmount
{
exevent drag #Findid %Totake
Exevent dropc #backpackid
wait %dropdelay
}
end1:
ignoreitem reset 9
;poison Potions;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
set #lobjectid %OtherBag
event macro 17 0
while #contid <> %OtherBag
wait 1
repeat
{
finditem BHJ C_ , #Backpackid
if #findcol = 0
set %Stack #findstack
if #findcol <> 0
ignoreitem #findid 9
}
until #Findcol = 0 || #Findcnt = 0
If %stack => %PoisonAmmount
goto end1
Set %Totake %PoisonAmmount - %stack
stams:
finditem BHJ C_ , %OtherBag
if #Findstack < %PoisonAmmount
goto end1
if #findcol <> 0
{
ignoreitem #Findid 9
goto stams
}
if #findcol = 0 && #Findstack >= %PoisonAmmount
{
exevent drag #Findid %Totake
Exevent dropc #backpackid
wait %dropdelay
}
end1:
ignoreitem reset 9
;Kindlings;;;;;;;;;;;;;;;;;;;;;;;;
repeat
{
finditem PEF C_ , #Backpackid
if #findcol = 0
set %Stack #findstack
if #findcol <> 0
ignoreitem #findid 9
}
until #Findcol = 0 || #Findcnt = 0
If %stack => %KindlingsAmmount
goto end2
Set %Totake %KindlingsAmmount - %stack
kidls:
finditem PEF C_ , %MiscBag
if #Findstack < %KindlingsAmmount
goto end2
if #findcol <> 0
{
ignoreitem #Findid 9
goto kidls
}
if #findcol = 0 && #Findstack >= %KindlingsAmmount
{
exevent drag #Findid %Totake
Exevent dropc #backpackid
wait %dropdelay
}
end2:
ignoreitem reset 9
;Arrows;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
If %Archer
{
repeat
{
finditem RWF C_ , #Backpackid
if #findcol = 0
set %Stack #findstack
if #findcol <> 0
ignoreitem #findid 9
}
until #Findcol = 0 || #Findcnt = 0
If %stack => %ArrowsAmmount
goto arrowend:
Set %Totake %ArrowsAmmount - %stack
arows:
finditem RWF C_ , %MiscBag
If #findcol = 0 && #Findstack < %ArrowsAmmount
{
Display  Not enought Arrows!
halt
}
if #findcol <> 0
{
ignoreitem #Findid 9
goto arows
}
if #findcol = 0 && #Findstack >= %ArrowsAmmount
{
exevent drag #Findid %Totake
Exevent dropc #backpackid
wait %dropdelay
}
arrowend:
ignoreitem reset 9
}
;Trapeds;;;;;;;;;;;;;;;;;;;;;;;;;;;;
repeat
{
finditem ZYF C_ , #Backpackid
if #findcol = 0
set %Stack #findstack
if #findcol <> 0
ignoreitem #findid 9
}
until #Findcol = 0 || #Findcnt = 0
If %stack => %TrappedAmmount
goto end3
Set %Totake %TrappedAmmount - %stack
trapeds:
finditem ZYF C_ , %MiscBag
If #Findstack < %TrappedAmmount
goto end3
if #findcol <> 0
{
ignoreitem #Findid 9
goto trapeds
}
if #findcol = 0 && #Findstack >= %TrappedAmmount
{
exevent drag #Findid %Totake
Exevent dropc #backpackid
wait %dropdelay
}
end3:
ignoreitem reset 9
;Reflections;;;;;;;;;;;;;;;;;;;;;;;;
repeat
{
finditem MHJ C_ , #Backpackid
if #findcol = 1080
set %Stack #findstack
if #findcol <> 0
ignoreitem #findid 9
}
until #Findcol = 0 || #Findcnt = 0
If %stack => %Reflectammount
goto end4
Set %Totake %Reflectammount - %stack
reflects:
finditem MHJ C_ , %MiscBag
if #Findstack < %Reflectammount
goto end4
if #findcol <> 1080
{
ignoreitem #Findid 9
goto reflects
}
if #findcol = 1080 && #Findstack >= %Reflectammount
{
exevent drag #Findid %Totake
Exevent dropc #backpackid
wait %dropdelay
}
end4:
ignoreitem reset 9
;Bandages;;;;;;;;;;;;;;;;;;;;;;;;;;
repeat
{
finditem ZLF C_ , #Backpackid
if #findcol = 0
set %Stack #findstack
if #findcol <> 0
ignoreitem #findid 9
}
until #Findcol = 0 || #Findcnt = 0
If %stack => %BandagesAmmount
goto end5
Set %Totake %BandagesAmmount - %stack
bandages:
finditem ZLF C_ , %MiscBag
if #Findstack < %BandagesAmmount
goto end5
if #findcol <> 0
{
ignoreitem #Findid 9
goto bandages
}
if #findcol = 0 && #Findstack >= %BandagesAmmount
{
exevent drag #Findid %Totake
Exevent dropc #backpackid
wait %dropdelay
}
end5:
ignoreitem reset 9
end6:
ignoreitem reset 9
;drop blood bandages in box
repeat
{
Finditem AMF C_ , #Backpackid
If #Findcnt <> 0
{
exevent drag #Findid #Findstack
Exevent dropc %box
wait %dropdelay
}
}
until #Findcnt = 0
 
return
 
sub tracking
finditem %Shield c_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 1s
}
if %tracking
goto buble
return
buble:
msg $,exec tracking$
set %lagg #scnt + 2
repeat
{
if You_see_no_signs_of_players_to_track in #sysmsg
return
if #contname = objpicker_gump
{
  set %trackAlarm #true
  set %return #true
  click 137 70 r
  return
}
 
}
until #scnt > %lagg
return
 
sub poison
Finditem %weapon C_ , #Charid
if #findcnt  <> 0
{
Set %ToPoison #Findid
If #scnt >= %Poisontime
{
Set #Ltargetid %ToPoison
Set #Lobjectid %Poison
event macro 17 0
event macro 25 0
event macro 22 0
event macro 22 0
Set %Poisontime #scnt + 48
}
}
return
 
 
 
 


#2 pozdrovlaya

pozdrovlaya

    Newbie

  • Members
  • 14 posts

Posted 14 November 2017 - 22:33

help



#3 pozdrovlaya

pozdrovlaya

    Newbie

  • Members
  • 14 posts

Posted 15 November 2017 - 18:33

никто не поможет что-ли?






1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users