Прямая связь с администрацией по скайпу: gods.dragon
We've noticed that you've been inactive for over 10 minute(s). We've stopped running the Shoutbox due to your inactivity. If you are back again, please click the I'm Back button below.
(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
[codebox]#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub craft()
var Tip, dealay=13000
uo.exec("set norbcheck 1")
uo.exec("set norbcalc 1")
uo.Exec('addobject source')
while uo.Targeting()
wait(100)
wend
Tip = uo.GetGraphic('source')
while not uo.dead()
uo.Findtype(Tip)
uo.Recall('finditem',3)
wait(dealay)
wend
endsub[/codebox]
ïðèöåëîì íà øìîòêó êîòîðàÿ ïîâûøàåò ñèëó.
[codebox]#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub KachSS()
var tmpHp
uo.Exec('addobject shmot')
while uo.Targeting()
wait(100)
wend
uo.useobject('shmot')
wait(3000)
tmpHp=uo.Str
while not uo.Dead()
uo.msg('.Undress')
uo.Useskill('Meditation')
while not uo.Life<tmpHp
wait(100)
wend
uo.useobject('shmot')
uO.Useskill('Spirit Speak')
while not uo.Life>=tmpHp
wait(100)
wend
wend
end sub[/codebox]
òàðãåòîì ïî ïëþñîâîé øìîòêå.
[codebox]#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub KachH()
var tmpHp
uo.Exec('addobject shmot')
while uo.Targeting()
wait(100)
wend
uo.useobject('shmot')
wait(3000)
tmpHp=uo.Str
while not uo.Dead()
uo.msg('.Undress')
while not uo.Life<tmpHp
wait(100)
wend
uo.useobject('shmot')
uo.waittargetself()
uo.msg(".usebandage")
while not uo.Life>=tmpHp
wait(100)
wend
wend
end sub[/codebox]
è áåç ìîéêè, â êîíöå 1 ðàç ïîìîåòå. íåõ òðàôèê òóäà ñþäà ãîíÿòü.
[codebox]#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub ReBook()
UO.Findtype('0x1F4C')
if uo.FindCount()>0 then
UO.Findtype('0x0EFA','0x0221')
if uo.FindCount()==1 then
uo.exec('addobject RBook finditem')
else
uo.exec('addobject RBook')
while uo.Targeting()
wait(100)
wend
endif
uo.DeleteJournal()
repeat
uo.Recall('RBook',1)
checklag()
until UO.InJournal('The book')
endif
end sub[/codebox]
óäîáíî…