Народ хелп!!

[118710900]

пришлите плиз скрипт на Магери!чтоби поел,пускал поисон пока мана некончится,медит пока мана ненаберётся и опять сначала...мани у меня 100

[DaPoHuC]

тебе в пов

[Aritomo Takashi]

Есть специальный топик для людей, которые не знают как написать простейший скрипт...

[xmm]

1 ) тебе в В/О.
2) Лучше качать через 2 УОлупы сам догадайся как.

[VINT]

Ой добрый я сегодня! На сайте на интерестном нашел!)))


################################################## ##############
;Magery v.1.00. (c) DamneD
;Чар берёт из сундука Nighshade и кастует Poison на себя.
;Если Mana закончилась- медетирует.
;Если Nighshade в backpack'е закончился, берёт из сундука.
;
;
;
var TypeFood='0x097B' ## - Тип еды которую будем кушать.(сейчас фиштейки)
var Reconnect=1 ## 1 - Включить реконнект на сервер если выкинет, 0 - отключить реконнект.

sub Magery()
VAR NS='0x0F88' ; Тип Nighshade.
VAR Sunduk='0x41461664' ; Сериал(ID) Сундука.
VAR Kolvo=100 ; Количество регов, которое чар берёт из сундука.


if Reconnect==1 then
uo.Exec('exec Reconnect')
end if

While NOT UO.Dead()
While UO.Mana>=9 AND UO.NS>0 ; здесь можно менять со скаких маны чар начнёт медетировать, то же число следует поставить в строку *.
UO.DeleteJournal()
UO.Cast('Poison', '0x40EE484E')
wait(3000)
CheckLag()
wend
EatingFood()
If UO.Mana<9 Then ;*
While UO.Mana<UO.Int
UO.DeleteJournal()
wait(1000)
UO.Useskill('Meditation')
Repeat
wait(100)
until UO.InJournal("You are") OR UO.InJournal("You lose")
Wend
Endif
If UO.NS == 0 Then
UO.FindType(NS, '-1', Sunduk)
UO.Grab(str(Kolvo), 'finditem')
repeat
wait(100)
until UO.NS>0
Endif
Wend
end sub

sub EatingFood()
repeat
uo.UseType(TypeFood)
CheckLag()
until uo.InJournal('You are simply too full to eat any more!')
wait(500)
end sub

sub Reconnect()
var ReconnectTime,rFlag
ReconnectTime='0'
rFlag=1
repeat
while (uo.ObjAtLayer('Bpack')=='')
if rFlag then
ReconnectTime=MakeTime()
rFlag=0
end if
wait(200000)
uo.Say('')
wait(10000)
uo.Say('')
wait(10000)
uo.Say('')
wait(10000)
uo.LDblClick(357,164)
uo.LClick(616,459)
wait(10000)
wend
wait(10000)
if (rFlag==0) and (ReconnectTime<>'0') then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
rFlag=1
ReconnectTime='0'
end if
until false
end sub

sub MakeTime()
var d,t,ret,i
ret=str(uo.Time())
t=""
for i=0 to Len(ret)
t=ret[Len(ret)-i]+t
if (i==2) or (i==4) then
t=":"+t
end if
next
ret=str(uo.Date())
d=""
for i=0 to Len(ret)
d=ret[Len(ret)-i] + d
if (i==2) or (i==4) then
d="."+d
end if
next
ret=t+" @ "+d
return ret
end sub

sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub

[lohvamp]

Это скриптик для инжекта ака запрещенное ПО .

[118710900]

ой сорри модери..я ошибился форумом..топ клоуз..