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

Помашь В Скрепте


  • Please log in to reply
1 reply to this topic

#1 Ultimate

Ultimate

    Novice

  • Members
  • 32 posts
  • Gender:Male
  • Interests:.

Posted 30 December 2017 - 00:41

можно сделать этот скрипт чтоб он летал дамай все скидавать и чинится

 

 

 
initevents
set %minimalHP 100 ;Kogda pjet Heal
set %criticalHP 90 ;Kogda pjet invis
set %invishits 200 ; do skolki budet lechitsa v invise
 
;Resources
Set %HealAmmount 15
Set %InvisAmmount 10 ;!!! Samoe vazhnoe v skripte.... zalog vizhivanija chara. ne budet invisok, Budet bolshaja verojatnostj sdohnutj.
;Rekomenduju minumum 10
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 2
Set %BeaconAmmount 2
;set %MandrakeRoot 0 ; Neieuei aa??i a Noieo ?aaia Mandrake Root . ( Iiiieoa ?oi aey Ii?oa iaiaoiaeii iei ii 20 ?aaia )
;set %NightShide 0 ; Neieuei aa??i a Noieo ?aaia NightShide.
;set %sulf 0 ; Neieuei aa??i a Noieo ?aaia Sulferash .
;set %garlic 0 ; Neieuei aa??i a Noieo ?aaia Garlic .
;set %ginseng 0 ; Neieuei aa??i a Noieo ?aaia Ginseng .
;----------------------------------------------
 
set %charName Strax ; nickname
Set %Bank #true
set %box FAUMLMD         ;************
 
;Bags  dolzhni lezhatj v BOX
Set %BizhaBag  VEFEMMD ;ID sumki dlja bizhuterii                      ;*********
Set %GoldBag  ZUEBMMD  ;Id sumki dlja golda                           ;*********
Set %PandoraBag BDPJLMD ;Id sumki dlja pandor                         ;*********
Set %FoodBag  UPYTKMD   ;Id sumki dlja edi                           ;*********
Set %lettersbag UPYTKMD  ;Id sumki dlja bukv                          ;*********
Set %OtherBag UPYTKMD     ;id sumki dlja spell rob , sash itd         ;*********
Set %ResourceBox GQJAKMD ;id sumki gde ingoti dlja pochinki i tools   :*********
Set %MiscBag GQJAKMD ; sumka gde lezhat Heals, inviski, stamina, kidlingi, eda, binti streli itd.
set %runebookID ECMALMD   ; ID Runebooka
set %runebookID2 SVRVJMD   ; ID Runebooka
Set %BookMaxCharges 50 ;skolko zarjadov v knige  ;***********************
Set %BookMaxCharges2 50 ; sk rech
Set %Cargescp Recharge  ; exeshnik iz injecta na perezarjadku
Set %Cargescp2 Recharg  ; 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
Set %Armor2  MSK_IMH ; steel sisjki
set %weapon VOH     ; weapon (ID)   ;*************
set %Shield CIK ; UEO
Set %ResourceAmmount 25
Set %HamelionRepair #false
Set %Material1 ZLK ;weapon ings    ;*************
Set %Material2  RMK ;armor ings     ;*************
Set %Material3  RMK ;armor ings     ;*************
Set %MaterialColor1 1063 ;weaponings color   ;**************
Set %MaterialColor2 1159 ;armorings color     ;*************
Set %MaterialColor3 2421 ;metal na siski i chain nogi
Set %MaterialShieldColor 1159 ;metal na shield
Set %Tool TRINLMD ;id repair toolsa cloath    ;**************
 
; 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 Ememdems

Ememdems

    Newbie

  • Members
  • 7 posts

Posted 30 December 2017 - 10:42

net






1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users