Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Артемий Шан : (Today, 04:07) По пятницам 2 лоста
@  :))))) : (Yesterday, 22:20) nu ili 2 losta podrjat s menshimi prizami
@  :))))) : (Yesterday, 22:19) klumburs,prav...kak pravilo pervij Lost vse paljat kto v kakoj komande I ne interesno igratj kogda vse TOPy v odnoj komande,a vtoroj Lost tam uzhe meshanina t.k slozno ponjatj v tolpe kto zashel kto net,nado uzhe random peresmatrivatj na lost :D
@  opas : (Yesterday, 22:09) :D
@  opas : (Yesterday, 22:09) @:))))) пусть будет как есть а то я не успеваю
@  klumburs : (Yesterday, 22:06) @Djukok nebija mana diena :D 13 fragi zaudetaju teama...
@  :))))) : (Yesterday, 21:26) Vseravno varok netu,odnu pjatnicu byli psevdovarki,lost perenesli,teperj zdatj na 4as dolshe :D
@  MR929 : (Yesterday, 21:17) Soglasen :))))) tozhe bi hotelos 2 lost sevodnja, kokraz bilbi shto delat v uo :)
@  :))))) : (Yesterday, 21:09) @  Артемий Шан,mozet segodnja 2 losta sdelaesh t.k na needle izza problem s saitom nebilo nekotoryh :D
@  Alexis : (Yesterday, 20:22) buy elf sandali leggings slevees
@  Alexis : (Yesterday, 20:16) Sell 134 luxor amulets 1-200k
@  BackOnTrack : (Yesterday, 19:58) Buy 330 amulets - 100rp
@  opas : (Yesterday, 18:55) @klumburs приходи сегодня, отыграешься
@  Djukok : (Yesterday, 18:33) Vakar nebija tava diena))))
@  klumburs : (Yesterday, 18:27) ti ne ponemaes kak eto proigrat 1 lost i dazhe ne imet pravo otbitsa vo vtarom loste
@  klumburs : (Yesterday, 18:26) shan, esle tebe zhalko dovat 2 losta izza halavnih babok, to razdeli deneznij priz na 2 losta i delai 2 losta
@  Skotch : (Yesterday, 17:19) Buy Full depth + shield = 2kk
@  Артемий Шан : (Yesterday, 15:35) Другой момент, если его нету. То каторга вам светит за обход антимакроса :)
@  Артемий Шан : (Yesterday, 15:34) В пвпдисе платном можно, да.
@  Bexe : (Yesterday, 15:24) NIL Esli u tebja est PRofs + disable tibe antimakros viprigivaet seravno

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

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






0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users