Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  GA GA GA : (17 October 2018 - 23:24) ish ty,sravnil tozhe :D
@  Riality : (17 October 2018 - 22:27) Глухо как-то... Тихо... Не то что в 2000ных... ��
@  Riality : (17 October 2018 - 22:17) Ну чё... ;)
@  Gogogo : (17 October 2018 - 18:21) Buy luxer amuleti "!
@  GA GA GA : (16 October 2018 - 18:08) Ogo neozidano,SEER na lost sozivaet narod...pohvalno,pohvalno...prodolzhaj v tomzhe duhe....
@  Djukok : (16 October 2018 - 17:56) :D
@  GA GA GA : (16 October 2018 - 17:53) Po4emu opohabit,esli stavitsa muzika k video,zna4it eto 4to-to zna4it...vot ja i pitajusj ponjat,prostoi vopros,a ne utverzdenie...tembolee strana u nas tolerantnaja maloli 4to...sorry esli zxadel 4jito nravy ;)
@  Djukok : (16 October 2018 - 17:50) @GA GA GA Тебе всё опохабить надо?
@  NIL : (16 October 2018 - 17:40) :D :D
@  GA GA GA : (16 October 2018 - 17:29) Audio rjad voobshe ogonj :) :) :) v na4ale eto 4to,boevoj kli4 BSE? :D
@  Djukok : (16 October 2018 - 16:30)
@  GA GA GA : (16 October 2018 - 15:55) 400 GP 1 rekal
@  WelcometoOld... : (16 October 2018 - 14:32) рекалами кто-то барыжит?
@  NIL : (16 October 2018 - 09:34) Buy RP 1-400k.
@  GA GA GA : (15 October 2018 - 22:14) Vam povezlo 4to Grigi ne bylo ;)
@  Djukok : (15 October 2018 - 22:08) Завтра залью часть видео концовки к сожалению  нету
@  Djukok : (15 October 2018 - 22:07) Что сейчас не так было?
@  sonyplayer : (15 October 2018 - 19:06) @GA GA GA продолжаем в том же духе
@  NIL : (15 October 2018 - 17:41) :D
@  GA GA GA : (15 October 2018 - 17:38) ty,ja i 18 clientov na skriptah u odnogo ``4eloveka`` ;)

Photo

Прошу Помочь Со Скриптом Pvmcorddjukok


  • Please log in to reply
13 replies to this topic

#1 1exa

1exa

    Advanced Player

  • Members
  • 323 posts
  • Gender:Male

Posted 22 January 2018 - 05:36

  1. Прошу помочь со скриптом PVM, не магу понять не фига. Выделил красным что не понятно. Икак первый сундук биндить ?? в котором это всё лежит ?

 
initevents
set %minimalHP 120 ;Kogda pjet Heal
set %criticalHP 100 ;Kogda pjet invis
set %invishits 250 ; do skolki budet lechitsa v invise
Set %CampCommand camp ; Kakoj camp budet zhech
 
;Resources
Set %HealAmmount 25
Set %InvisAmmount 25 ;!!! Samoe vazhnoe v skripte.... zalog vizhivanija chara. ne budet invisok, Budet bolshaja verojatnostj sdohnutj.
;Rekomenduju minumum 10
Set %StamAmmount 0  ; bolshaja stamina
Set %KindlingsAmmount 0c
Set %BandagesAmmount 50
 
 
set %charName Frostina
 
;Bags  dolzhni lezhatj v BOX
Set %box OPIQKMD  ; recalli regi i meshki, suda sbrosit grjaznie binti i dla ostalnogo
Set %ResourceBox OPIQKMD ;(boxik) sdesj resursi na pochinku, toolsi dlja repaira
Set %SimpleBizhaBag WPKUKMD ;(krasnaja) sumka dlja prostoj bizhi
Set %ExtraBizhaBag DGWNLMD ;(sinij) sumka dlja posion ozherelja, magic brasletov, spell rob, plashej, sashek, magic resist amuletov.
Set %GoldBag EAUGMMD ;(zholtaja) sumka dlja deneg
Set %MiscBag DYFKMMD ;(rozovaja) sumka gde lezhat Heals, inviski, stamina, kidlingi, eda, binti streli itd.
Set %LettersBag TWXRJMD ;(korichnevaja) sumka kuda skidivajutsa bukvi
Set %OtherBag NBYWJMD ; Seraja sumka. tuda budet kidatj lenti. karti. robi i.t.d.
;Pandora bags
Set %HighPandoraBag QWXRJMD ;Dlja Pandor Vishe 5 LVL
Set %PandoraBug1 OJLILMD      ;Sumka 1 LVL pandora
Set %PandoraBug2 VXOXKMD      ;Sumka 2 LVL pandora
Set %PandoraBug3 SDNWKMD      ;Sumka 3 LVL pandora
Set %PandoraBug4 NOAKLMD      ;Sumka 4 LVL pandora
Set %PandoraBug5 QBICMMD      ;Sumka 5 LVL pandora
;Cord
set %xCoord 1262 ; X koordinata okolo boxa
set %yCoord 1275 ; Y koordinata okolo boxa
;;;;;;;;;;;;;;;;;;;;;;;;;;;
Set %DoubleRuneBook #true
 
Set %Runebookid1 PXRJMMD
Set %RunetoSafeZone 16 ; Vsegda beret iz pervoj knigi
Set %spotsnumber1 15 ; skolko tochek v buke po ocheredi
Set %Book1MaxCharges 40 ;skolko zarjadov v knige  ;40
Set %Cargescp Grefcharge  ; exeshnik iz injecta na perezarjadku
Set %InjectWarmodeOffCommand waroff e ; comanda na inzject scp, kotorij stavit warmode 0
 
Set %Runebookid2 AQEVKMD
;Set %RunetoSafeZone 16 ; Vsegda beret iz pervoj knigi
Set %spotsnumber2 16 ; skolko tochek v buke po ocheredi
Set %Book2MaxCharges 40 ;skolko zarjadov v knige  ;40
Set %Cargescp2 Grefcharge2  ; exeshnik iz injecta na perezarjadku
Set %InjectWarmodeOffCommand waroff e ; comanda na inzject scp, kotorij stavit warmode 0
 
 
Set %Armor HSH_KSH_MSH_JSH_LSH_WSH_USH_ISH_NSH_TSH_OSH_CIK ;PlatemailArmor
;Set %Armor IMH_HMH_WLH_VLH_BMH_KMH_CSH_BSH_YLH_XLH ;Ringmail Armor
;Set %Armor ZOH_IKH_DPH_MKH_APH ;Chain Armor
Set %Armor2 LSK_IMH_MSK_ ;APH chain nogi
Set %Armor3 MLH_RLH_LLH_ULH_GLH_YKH_ALH_XKH_FLH_NJL_QJL ; Chasti Studed Armor
set %weapon QOH     ; weapon (ID)   ;GYCEKMD
set %Shield BIK                      ;YHTNLMD
Set %ResourceAmmount 30 ;skolko beret na pochinku. lishneee vigruzit
Set %Material1 ZLK ;weapon ings    ;IICEKMD
Set %Material2 RMK ;armor ings     ;SMYJMMD
Set %Material3 RMK ;armor ings     ;*************
Set %Material4 EEG ;armor ings     ;*************  dla kozh. armora
Set %MaterialColor1 1152 ;weaponings color   ;1152
Set %MaterialColor2 1107 ;armorings color     ;1107
Set %MaterialColor3 1107 ;metal na siski i chain nogi
Set %MaterialColor4 2179 ;kolor kozhi dla kozh. armora
Set %MaterialShieldColor 1107 ;metal na shield ; 1107
 
Set %Tool VDJ ;id repair toolsa    ;FJAALMD
Set %Tool2 KRXLLMD ; Tool dla repaira kozhanogo armora
set %RepairLaps 1 ; posle skolki krugov bduet pochinka
;Zaderzhki
Set %Loottime 30 ;zaderzhka na Loot
set %dropdelay 35 ;zaderzhka na razgruzku
set %putdelay 12  ;zaderzhka na razdevanie chara
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
set %HpotionTime 10 ; zaderzhka na pitje Heala
Set %IpotionTime 10 ; zaderzhka na pitje Invisa
Set %SpotionTime 8  ; Zaderzhka na pitje stamini
Set %CampWaitTime 33 ;Zaderzhka na camp
 
Set %tracking #false
Set %BattleTracking #false ; Budet li delatj tracking vo vremja boja
Set %Checkplayers #false ; esli uvidet lubuju frakciju to ulitaet
set %FightTracking 9 ; cherez kakoj interval budet delatj traking vo vremja boja
 
Set %distance 15 ; na kakom rastojanie budet iskatj mobov
Set %KvadratnajaZonapoiska 15 ;Na kakom rastojanie budet ubivatj mobov. otshet ot tochki prileta, vo vse storoni.
 
;----------------------
Set %AirMobs DD_BD_OD
Set %SimpleMobs IE_BF_YD_SE_PE_RE_AE_FE_DE_ED_JD_XC_UE_UC_UD_Q_IJB_HE_ZC_VC_AB_LE_XE_CD_FD_IS_U_DF_J_ID
Set %MageMobs UE_IS_HS_WD_WE_ND_QD_MD_X_Z_V_HS_K_
Set %ArcheryMobs CF
Set %loot DCI_POF_SJG_CUD_HKF_IJG_HSF_RVH_FZH_NZH_UJG_FWL_GEJ
;------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;Settings Ended!!!!;;;;;;;;;;;;;;;;;;;;
 
set %WLaps 0
set %ALaps 0
set %finded #false
Set %AirLoot #False
Set %patch #false
set %return #false
Set %Lap 0
Set %SpotNumber 0
set %home #false
set %return #false
Set %trackalarm #False
Set %WaitCooler #False
 
if #charname <> %charName
{
repeat
uoxl swap
until #charname = %charName
}
 
Set %Hamelionitem OIK
Set %HamelionColor 1063
Set %HamelionRes ZLK
 
StartMoving:
gosub box
gosub letrepair
start:
set %return #false
gosub spoter
If %Home
{
set %logoutscanner #scnt + 10
repeat
{
scanjournal
if stop_525 in #journal
terminate uo
wait 5
}
until %logoutscanner <= #scnt
ignoreitem reset
wait 1s
gosub razgruzka
wait 1s
gosub takescrolls
wait 1s
gosub takescrolls2
wait 1s
gosub Resources
wait 1s
Set %Lap %Lap + 1
If %Lap >= %RepairLaps
{
set %Lap 0
gosub LetRepair
}
Set %Home #False
Set %SpotNumber 0
If %WaitCooler
{
wait 5s
Set %WaitCooler #False
}
Goto Start
}
gosub scan
goto Start
 
 
 
 
 
 
sub scan
event exmsg #charid 3 80 Scaning Sector
ignoreitem reset
Ignoreitem #Charid 1
ignoreitem reset 2
gosub find
return
 
sub find
Set %PlusX #CharposX + %KvadratnajaZonapoiska
Set %MinusX #CharposX - %KvadratnajaZonapoiska
Set %PlusY #CharposY + %KvadratnajaZonapoiska
Set %MinusY #CharposY - %KvadratnajaZonapoiska
find:
set %d 0
If %return
{
set %return #false
return
}
Gosub Market
If %Checkplayers
{
gosub checkplayers
If %return
{
set %return #false
return
}
}
if %tracking
{
gosub tracking
If %return
{
set %return #false
return
}
}
set %Ignored #False
set %finded #false
set %d 0
;AirMbs
repeat
{
finditem %AirMobs G_ , %d  ;
if #findcnt >= 1
{
gosub bingo
If %return
{
set %return #false
return
}
if %finded
{
Set %AirLoot #True
gosub kill
set %Ignored #False
set %finded #false
set %d 0
}
}
finditem %MageMobs G_ , %d  ;
if #findcnt >= 1
{
gosub bingo
If %return
{
set %return #false
return
}
if %finded
{
gosub kill
set %Ignored #False
set %finded #false
set %d 0
}
}
finditem %ArcheryMobs G_ , %d  ;
if #findcnt >= 1
{
gosub bingo
If %return
{
set %return #false
return
}
if %finded
{
gosub kill
set %Ignored #False
set %finded #false
set %d 0
}
}
finditem %SimpleMobs G_ , %d  ;
if #findcnt >= 1
{
gosub bingo
If %return
{
set %return #false
return
}
if %finded
{
gosub kill
set %Ignored #False
set %finded #false
set %d 0
}
}
set %d %d + 2
}
until %d > %distance
if #findcnt = 0
{
gosub hp
set %return #false
return
}
If %return
set %return #false
return
 
Sub Bingo
set %bot #findid
gosub ignorecoords
gosub where
gosub antimorph
if %return
return
 if %Ignored
 return
 set %finded #true
 if %tracking
gosub tracking
return
 
sub hp
if #hits =< %minimalHP && %H < #scnt
{
msg $.drink heal$
wait 5
set %h #scnt + %HpotionTime
}
if #hits =< %criticalHP && %IpotionTime < #scnt
{
msg $,exec %InjectWarmodeOffCommand $
msg $.drink invis$
set %h #scnt + %IpotionTime
wait 10
If %K < #scnt

{
msg $.camp %CampCommand $
Set %K #scnt + %CampWaitTime

}
invisheal:
gosub Market
if #hits < %Invishits
{
If H in #charstatus || HG in #charstatus
{
msg $.usebandage $
event macro 23 0
wait 2s
}
}
If #Charstatus <> H && #Charstatus <> HG
return
if #hits >= %invishits
{
set %kill #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 Recall
set %CharX #charposx
set %CharY #charposy
set %j #jindex
Set %protect #True
set %recallhits #hits
msg $,exec %InjectWarmodeOffCommand $
openRunebook:
set %porttime #scnt + 14
If #Charstatus <> H && #Charstatus <> HG
gosub hider
If %Home
Goto first
If %SecondBook
{
finditem %Runebookid2 C_ , #backpackid
goto second
}
first:
finditem %Runebookid1 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:
deletejournal
repeat
{
If %Trackalarm && %GZ
click %x2 %y2
else
click %x1 %y1
wait 5
}
until #contname <> generic_gump && #contsize <> 577_426
letim:
repeat
{
scanjournal
if no_rune_in_this_spot in #journal && : notin #journal
{
Set %return #true
return
}
If spell_fizzles in #journal && : notin #journal
{
if %Trackalarm
{
msg $,exec %InjectWarmodeOffCommand $
msg $.drink invis$
goto openRunebook
}
deletejournal
goto openRunebook
}
scanjournal %j
If You_have_been_poisoned in #journal && : notin #journal
{
deletejournal
goto openRunebook
}
If %Protect
{
If #Hits < %recallhits
{
msg $,exec %InjectWarmodeOffCommand $
msg $.drink invis$
Set %Protect #False
goto openRunebook
}
}
If You_detected_by in #journal
{
set %trackalarm #true
gosub hider
deletejournal
}
if You_have_been_revealed in #journal && : notin #journal
{
set %mot #true
gosub checkplayers
If %Trackalarm
{
gosub hider
deletejournal
goto plikt
}
gosub hider
deletejournal
}
If You_can't_seem_to_hide_here in #journal && : notin #journal
{
gosub checkplayers
If %Trackalarm
{
gosub hider
deletejournal
goto plikt
}
gosub hider
deletejournal
}
plikt:
If World_save in #journal && : notin #journal
{
set %porttime %porttime + 10
deletejournal
}
if %porttime <= #scnt
goto openRunebook
if #jindex > %j
set %j %j + 1
}
until #charposx <> %CharX || #charposy <> %CharY
If %Home
wait 10
finditem %Weapon 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
}
If %Home
{
wait 10
}
If %GZ
Wait %Cooltime
wait 5
Set %TrackAlarm #False
ignoreitem reset 4
if %panti
set %panti #false
If %Anti
return
wait 5
Set %GZ %False
return
 
sub kill
set %patch #false
gosub checkpatch
If %Patch
goto kiling
return
kiling:
set #ltargetid %bot
event macro 27 0
set %rpdz #scnt + 5
repeat
{
scanjournal #jindex
finditem %bot G_ , %distance
event pathfind #findx #findy #findz
If World_save in #journal
set %rpdz %rpdz + 14
if Can't_get_there in #Journal
{
gosub ignore
return
}
wait 2
}
until #finddist <= 3 || #scnt > %rpdz
set %patch #false
Set %Protection #True
gosub ignoreBodies
finditem %bot G_ , %distance
If #Findtype = DD || #Findtype = BD || #Findtype = OD
Set %AirLoot #True
set #ltargetid #findid
event macro 27 0
deletejournal
set %ProtTime #scnt + 6
set %kill #Scnt + 12
set %Tracktime #scnt + %FightTracking
repeat
{
scanjournal
If %Checkplayers
gosub checkplayers
if %return
return
If World_save in #journal && : notin #journal
{
Set %kill %kill + 12
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
set %finded #false
return
}
If %Protection
{
If %ProtTime < #Scnt
{
event pathfind #findx #findy #findz
set %ProtTime #scnt + 6
}
if Your_total_damage in #sysmsg
Set %Protection #False
}
if #finddist > 9
move #findx #findY 0 5
gosub Market
gosub hp
If %BattleTracking
{
If %Tracktime < #scnt
{
set %Tracktime #scnt + %FightTracking
gosub tracking
if %return
return
event macro 27 0
}
}
wait 5
event pathfind #findx #findy #findz
rtm:
}
until #findcnt = 0
if %return
return
If %AirLoot
{
Set %AirLoot #False
gosub Airloot
Gosub Market
gosub hp
return
}
gosub loot
Gosub Market
gosub hp
return
 
sub checkpatch
set %XXX #charposX
set %YYY #charposY
Set %checktimer #scnt + 2
deletejournal
repeat
{
scanjournal #jindex
finditem %bot G_ , %distance
event pathfind #findx #findy #findz
if Can't_get_there in #Journal
{
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
{
wait 5
Finditem %Loot G_ , 3
If #Findcnt <> 0
{
Exevent Drag #Findid #Findstack
wait 1
Exevent dropc #Backpackid
wait 10
gosub hp
if #findcnt > 1
{
wait %Loottime
msg $,exec %InjectWarmodeOffCommand $
}
}
If %AirLootTime <= #scnt
return
}
until #Findcnt = 0
Set %AirLoot #False
gosub hp
return
 
sub loot
scanjournal
msg $,exec %InjectWarmodeOffCommand $
wait 3
event macro 13 21
set %lootOverTime #scnt + 10
if you_must_wait in #journal
return
wait 10
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
  if %lootOverTime <= #scnt
  return
  wait 10
 repeat
  {
   gosub hp
   finditem %loot C_ , %body
   if #findcnt >= 1
   {
   if #findcol = 1
   {
   ignoreitem #findid 4
   goto looter
   }
    exevent drag #findid #findstack
    wait 1
    exevent dropc #backpackid
    wait 5
    if You_can_not_pick_that_up in #sysmsg
  goto loot
   if #findcnt > 1
   {
    wait %Loottime
  msg $,exec %InjectWarmodeOffCommand $
    }
    wait 15
    looter:
   }
  }
until #findcnt = 0 || %lootOverTime < #scnt
}
set %finded #false
Gosub Market
gosub hp
return
 
sub ignore
 ignoreitem #findid 2
 Set %Ignored #True
return
 
sub ignoreBodies
repeat
{
finditem YFM G_12
if #findcnt >= 1
ignoreitem #findid 3
}
until #findcnt = 0
return
 
sub hider
If #Charstatus = H || #Charstatus = HG
return
if %Trackalarm
{
If #Hits < #MAxhits
goto invisker
repeat
{
finditem OIK C
if #findcol <> 1063
ignoreitem #findid 4
finditem OIK C
If #Findcnt <> 0 && #Findcol = 1063
{
Set #lobjectid #Findid
Event macro 17 0
wait 3
}
If #Hits < #MAxhits
goto invisker
}
until #findcol = 1063 || #findcnt = 0
wait 5
finditem %WeaponItem c_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
}
wait 3
finditem %ShieldItem c_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
}
invisker:
If #Charstatus = H || #Charstatus = HG
return
msg $,exec %InjectWarmodeOffCommand $
wait 1
msg .drink invis$
wait 5
If #Charstatus = H || #Charstatus = HG
return
}
event macro 13 21
return
 
Sub Antimorph
deletejournal
set #lobjectid %bot
scanjournal 1
event macro 17 0
If You_can't_reach_the_creature in #journal
return
wait 5
event macro 17 0
if #CONTKIND = MAGC && #CONTID <> #charid
{
contpos 1033 -3
ignoreitem %bot
click 1100 165 r
set %return #true
}
return
 
 
 
sub box
Repeat
{
move %xCoord %yCoord 0 3s
wait 10
}
Finditem %Box G_3
if #findcnt <> 0
{
set #lobjectid #Findid
event macro 17 0
wait 30
}
}
until #Contid = %Box
return
 
sub takescrolls
finditem WTL C_ , %Box
If #Findstack = 0 || #Findstack < %Book1MaxCharges
{
If %Terminate
Terminate UO
Display  Not enought Recalls!
halt
}
if %findcnt <> 0
{
exevent Drag #Findid %Book1MaxCharges
exevent Dropc #Backpackid
wait %dropdelay
}
wait 25
gosub recharge
wait 25
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 < %Book2MaxCharges
{
If %Terminate
Terminate UO
Display  Not enought Recalls!
halt
}
if %findcnt <> 0
{
exevent Drag #Findid %Book2MaxCharges
exevent Dropc #Backpackid
wait %dropdelay
}
wait 25
gosub recharge2
wait 25
finditem WTL C_ , #Backpackid
if %findcnt <> 0 && #Findtype = WTL
{
exevent Drag #Findid #Findstack
exevent Dropc %Box
wait %dropdelay
}
return
 
sub recharge
msg $,exec %Cargescp $
return
 
sub recharge2
msg $,exec %Cargescp2 $
return
 
 
 
sub razgruzka
gosub Box
wait 30
gosub DropSimpleBizha
gosub DropExtraBizha
gosub DropLetters
Gosub DropGold
Gosub DropPandora
gosub Droploot
return
 
sub backpack
event macro 9 7
wait 30
event macro 8 7
wait 30
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 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
}
}
until #Findcnt = 0
wait 10
Repeat
{
Finditem %Tool2 c_ , %ResourceBox
If #Findcnt <> 0
{
exevent drag #Findid #Findstack
Exevent dropc #Backpackid
wait %dropdelay
}
}
until #Findcnt = 0
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
gosub TakeTools
Gosub Repair %Weapon %MaterialColor1 %Material1 %Tool
Gosub Repair %Armor %MaterialColor2 %Material2 %Tool
Gosub Repair %Armor2 %MaterialColor3 %Material3 %Tool
Gosub Repair %Armor3 %MaterialColor4 %Material4 %Tool2
Gosub Repair %HamelionItem %HamelionColor %HamelionRes %Tool
Gosub DropTools
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
wait 5
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 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
;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
end3:
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
repeat
{
Finditem AMF C_ , #Backpackid
If #Findcnt <> 0
{
exevent drag #Findid #Findstack
Exevent dropc %Box
wait %dropdelay
}
}
until #Findcnt = 0
return
 
sub DropLetters
letter:
repeat
{
Finditem GEJ C_ , #Backpackid
if #findcnt <> 0
{
If #Findcol = 1095
{
exevent drag #Findid #Findstack
wait 5
exevent dropc %LettersBag
if world_save_has_been in #sysmsg
wait 15s
if ( You_can_not_pick_that_up. in #sysmsg )
{
gosub backpack
goto letter
}
wait %Dropdelay
}
If #Findcol <> 1095
ignoreitem #findid 10
}
}
until #findcnt = 0
ignoreitem reset 10
return
 
sub DropGold
gold:
Repeat
{
Finditem POF C_ , #backpackid
If #findcnt <> 0
{
exevent drag #Findid #Findstack
wait 5
exevent dropc %GoldBag
if world_save_has_been in #sysmsg
wait 15s
if ( You_can_not_pick_that_up. in #sysmsg )
{
gosub backpack
goto gold
}
wait %Dropdelay
}
}
until #findcnt = 0
return
 
sub DropPandora
pand:
Repeat
{
Finditem CUD_HKF C_ , #backpackid
If #findcnt <> 0
{
If #findcol = 1160
{
exevent drag #Findid #Findstack
wait 5
exevent dropc %PandoraBug1
}
If #findcol = 1159
{
exevent drag #Findid #Findstack
wait 5
exevent dropc %PandoraBug2
}
If #findcol = 1158
{
exevent drag #Findid #Findstack
wait 5
exevent dropc %PandoraBug3
}
If #findcol = 1172
{
exevent drag #Findid #Findstack
wait 5
exevent dropc %PandoraBug4
}
If #findcol = 1093
{
exevent drag #Findid #Findstack
wait 5
exevent dropc %PandoraBug5
}
If #findcol <> 1160 && #findcol <> 1159 && #findcol <> 1158 && #findcol <> 1172 && #findcol <> 1093
{
exevent drag #Findid #Findstack
wait 5
exevent dropc %HighPandoraBag
}
if world_save_has_been in #sysmsg
wait 15s
if ( You_can_not_pick_that_up. in #sysmsg )
{
gosub backpack
goto pand
}
wait %Dropdelay
}
}
until #Findcnt = 0
return
 
Sub DropSimpleBizha
Set %exit #False
Set %Firstitem #True
gosub bizhaitems
bizh:
ignoreitem reset 10
repeat
{
finditem %Bizhaitem c_ , #backpackid
if #findcol = 1173 || #findcol = 1095 || #findcol = 1094
{
exevent drag #Findid #Findstack
wait 5
exevent dropc %SimpleBizhaBag
if world_save_has_been in #sysmsg
wait 15s
if ( You_can_not_pick_that_up. in #sysmsg )
{
gosub backpack
goto bizh
}
wait %Dropdelay
}
If #Findcol <> 1073 && #Findcol <> 1095 && #Findcol <> 1094
ignoreitem #Findid 10
}
until #Findcnt = 0
set %Firstitem #False
if %exit
return
gosub bizhaitems
goto bizh
return
 
Sub DropExtraBizha
Set %exit #False
Set %Firstitem #True
gosub bizhaitems
extra:
ignoreitem reset 10
repeat
{
finditem %Bizhaitem c_ , #backpackid
if #findcol = 1060 || #findcol = 1075 || #findcol = 1093
{
exevent drag #Findid #Findstack
wait 5
exevent dropc %ExtraBizhaBag
if world_save_has_been in #sysmsg
wait 15s
if ( You_can_not_pick_that_up. in #sysmsg )
{
gosub backpack
goto extra
}
wait %Dropdelay
}
If #Findcol <> 1060 && #Findcol <> 1055 && #Findcol <> 1093
ignoreitem #Findid 10
}
until #Findcnt = 0
set %Firstitem #False
if %exit
return
gosub bizhaitems
goto extra
return
 
Sub DropLoot
pook:
repeat
{
finditem %loot 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 pook
}
wait %Dropdelay
}
}
until #findcnt = 0
return
 
sub bizhaitems
If %Firstitem
{
set %bizhaitem UJG
return
}
If %Seconditem
goto third
Set %Bizhaitem IJG
Set %Seconditem #True
return
third:
Set %Bizhaitem SJG
Set %Exit #True
Set %Seconditem #False
return
 
Sub Where
If #FindX > %PlusX || #FindX < %MinusX || #FindY > %PlusY || #FindY < %MinusY
gosub ignore
return
 
gosub NoMorePVP
if #charposx < 1398 && #charposx > 1373 && #charposy > 1610 && #charposy < 1632
{
Display Are You Sure You Have PVP Disable Pack?
halt
}
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 tracking
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 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
{
If %NoPVPDis
{
If %GZ
Set %Anti #True
Set %Trackalarm #True
Set %return #True
click 1118 153 r
}
finditem %bot G_
ignoreitem #findid 9
 Set %Ignored #True
click 1118 153 r
return
}
return
 
sub checkplayers
Finditem DF G_
if #findcnt <> 0
{
Set %Trackalarm #True
If %Secondbook
{
Set %IgnoredSpot2 %SpotNumber
Set %WaitCooler #True
Set %return #True
return
}
Set %IgnoredSpot %SpotNumber
Set %WaitCooler #True
Set %return #True
return
}
Scanjournal #jindex
If Chaos in #Journal || Criminal in #Journal || Order in #Journal || Kabosh in #journal
{
deletejournal
Set %Trackalarm #True
If %Secondbook
{
Set %IgnoredSpot2 %SpotNumber
Set %WaitCooler #True
Set %return #True
return
}
Set %IgnoredSpot %SpotNumber
Set %WaitCooler #True
Set %return #True
return
}
finditem %bot G_ , %distance
return
             .
 
Sub Spoter
spoter:
If %Secondbook
{
Set %SpotNumber %SpotNumber + 1
If %SpotNumber = %IgnoredSpot2
goto spoter
If %SpotNumber > %spotsnumber2
{
Set %Secondbook #False
Set %Home #True
goto fly
}
goto fly
}
Set %SpotNumber %SpotNumber + 1
If %SpotNumber = %IgnoredSpot
goto spoter
If %SpotNumber = %RunetoSafeZone && %SpotNumber <> 16
goto spoter
If %SpotNumber = %spotsnumber1 && %RunetoSafeZone = %spotsnumber1
{
If %DoubleRuneBook
Set %Secondbook #True
Set %Home #True
goto fly
}
If %SpotNumber > %spotsnumber1
{
If %DoubleRuneBook
Set %Secondbook #True
Set %Home #True
goto fly
}
fly:
If %Home
Set %SpotNumber %RunetoSafeZone
gosub Instalyze SpotNumber 1
If %Home
{
event exmsg #Charid 3 64 Going to Baza!!!
goto baza
}
event exmsg #Charid 3 64 Going to Point No: %SpotNumber
baza:
gosub recall
return



#2 Bobjor

Bobjor

    Master

  • Members
  • 929 posts
  • Gender:Male
  • Location:Город грехов

Posted 22 January 2018 - 08:54

название темы забавляет.



#3 Skotch

Skotch

    Journeyman

  • Members
  • 85 posts
  • Gender:Male
  • Location:Riga
  • Interests:Supermoto

Posted 22 January 2018 - 09:37

Могу помочь! пиши PM


TgpF7k.png


#4 sonyplayer

sonyplayer

    Advanced Player

  • Members
  • 436 posts

Posted 22 January 2018 - 10:14

Ору ;D



#5 1exa

1exa

    Advanced Player

  • Members
  • 323 posts
  • Gender:Male

Posted 23 January 2018 - 05:39

название темы забавляет.

Меня забавляют дебилы, жене лучше напиши или девушки Баран.

 

прошу помочь не берёт жрачку и не жрет и не пашет камп.. 



#6 sonyplayer

sonyplayer

    Advanced Player

  • Members
  • 436 posts

Posted 23 January 2018 - 10:08

Меня забавляют дебилы, жене лучше напиши или девушки Баран.

 

прошу помочь не берёт жрачку и не жрет и не пашет камп.. 

50рп и сделаю всё как надо или дам полностью рабочий =)



#7 Bobjor

Bobjor

    Master

  • Members
  • 929 posts
  • Gender:Male
  • Location:Город грехов

Posted 23 January 2018 - 12:04

Меня забавляют дебилы, жене лучше напиши или девушки Баран.
 
прошу помочь не берёт жрачку и не жрет и не пашет камп.. 

Откуда берутся такие как ты? Изза поста оскарбляют на ровном ходу, может ты ученик дамблдора?? Фростина с твоим языком бесплатно никто помогать не будет. Слишком многа нигатива... 50рп плати и сделают. По теме решу твою проблему в два счета за 45рп

#8 1exa

1exa

    Advanced Player

  • Members
  • 323 posts
  • Gender:Male

Posted 23 January 2018 - 14:55

Откуда берутся такие как ты? Изза поста оскарбляют на ровном ходу, может ты ученик дамблдора?? Фростина с твоим языком бесплатно никто помогать не будет. Слишком многа нигатива... 50рп плати и сделают. По теме решу твою проблему в два счета за 45рп

Не пиши мне не когда больше в темах.

50рп и сделаю всё как надо или дам полностью рабочий =)

Спасибо уже помогли 50рп не дороговато ?  :D



#9 Fckyou7

Fckyou7

    Advanced Player

  • Members
  • 321 posts

Posted 23 January 2018 - 15:06

50рп и сделаю всё как надо или дам полностью рабочий =)


лол .... ты сам недавно отписывал в другом топике мол как можно платить за помощь .. теперь сам просишь рп за это )))))

#10 :)))))

:)))))

    Master

  • Members
  • 779 posts
  • Gender:Male
  • Location:Latvia,Riga

Posted 23 January 2018 - 15:19

лол .... ты сам недавно отписывал в другом топике мол как можно платить за помощь .. теперь сам просишь рп за это )))))

On pisal po povodu PVP skripta,a ne makrosa dlja nazhivy,4uesh raznicu? :D



#11 sonyplayer

sonyplayer

    Advanced Player

  • Members
  • 436 posts

Posted 23 January 2018 - 16:44

лол .... ты сам недавно отписывал в другом топике мол как можно платить за помощь .. теперь сам просишь рп за это )))))

Доа писал, ну а хуле? раз тут так построен мир, то тоже бесплатно больше помогать не буду =) К томуже на таком скрипте отбить 50рп очень просто =)
Да и как написал человек выше я просил помощи в пвп скриптах на орионе (точнее разобраться что к чему), а тут чувак собираеться варить бабло ничего не делая при этом =)



#12 Fckyou7

Fckyou7

    Advanced Player

  • Members
  • 321 posts

Posted 23 January 2018 - 17:52

ну в пвп без скрипта тоже не так как с ним . и их гораздо труднее достать чем пвм . пвмить можно и с изиуо .. скриптов притом на форуме навалом ..

#13 sonyplayer

sonyplayer

    Advanced Player

  • Members
  • 436 posts

Posted 23 January 2018 - 18:01

ну в пвп без скрипта тоже не так как с ним . и их гораздо труднее достать чем пвм . пвмить можно и с изиуо .. скриптов притом на форуме навалом ..

Кривых =)



#14 1exa

1exa

    Advanced Player

  • Members
  • 323 posts
  • Gender:Male

Posted 24 January 2018 - 06:49

вы что тут устроили  :wacko:






0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users