Нужна помощь....

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
d1e 4 y0u
Posts: 9
Joined: 2007-05-20 01:14:11
Location: Ireland

Нужна помощь....

Post by d1e 4 y0u »

Привет всем,нужен очень простой (я так думаю) скриптик
На прокачьку Хеллинга на Улии (под Оском)

Юзал поиск-непомогло...есть скрипты для ДРВ,но их в Топку,на Оскоме не кактит прокачька Хеллинга на Курсе :cry:

Если есть добрые Люди-помогите....
Top
Ururu
Posts: 479
Joined: 2007-02-21 20:15:57

Post by Ururu »

Вначале напиши что именно от скрипта нужно?
Можно кроме курсы использовать фаер бол, можно второго чара и т.д. Что нужно то??
Шард [b]Антарес[/b]
[color=blue][b]Ururu[/b][/color]
Top
$keR
Posts: 185
Joined: 2006-05-25 23:02:02
Location: Uoo

Post by $keR »

кто ищет - тот всегда наидет..
ищи, где то был тут..сам на нем качал.. давно правда..
kak to tak
Top
u0rypT
Posts: 175
Joined: 2004-12-30 18:13:16
Location: Russia
Contact:
Contact u0rypT

Post by u0rypT »

Code: Select all

sub healing() 
repeat
repeat
uo.usefromground('0x091A')#Улей
Lag()
until UO.Life < 20
repeat
UO.Exec("bandageself")
wait(8000)
until UO.Life > 139#-1 от макс хп
Lag()
until UO.Dead()
end sub 


sub Lag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(500) 
   until UO.InJournal('backpack') 
end sub


sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
;UO.Exec('terminate all') 
;UO.Exec('exec autoload') 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub
Design, webdev, coding, c#, php, asp.net, xml, perl, sql, ajax, drawing, illustrating, restoration, photo, photoshop, schedule, pron, guitar, lead-guitar, js, jsp, java, dom, html, *nix, struts, cs, etc
Top
d1e 4 y0u
Posts: 9
Joined: 2007-05-20 01:14:11
Location: Ireland

Post by d1e 4 y0u »

Ururu wrote:Вначале напиши что именно от скрипта нужно?
Можно кроме курсы использовать фаер бол, можно второго чара и т.д. Что нужно то??
Я помоему написал - на Улии - или ты не когда невстречял слово "Улий"? :lol:

Тб. чар кликает на улий , пчёлы его кочают,когда у чара ХП меньше 50 он хелиться и так поновой...
Top
d1e 4 y0u
Posts: 9
Joined: 2007-05-20 01:14:11
Location: Ireland

Post by d1e 4 y0u »

3Jlo6Hblu' u0ry®T wrote:

Code: Select all

sub healing() 
repeat
repeat
uo.usefromground('0x091A')#Улей
Lag()
until UO.Life < 20
repeat
UO.Exec("bandageself")
wait(8000)
until UO.Life > 139#-1 от макс хп
Lag()
until UO.Dead()
end sub 




sub Lag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(500) 
   until UO.InJournal('backpack') 
end sub


sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
;UO.Exec('terminate all') 
;UO.Exec('exec autoload') 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub

Бдагодарю Bum Bam BigloOoO :) :) :) :)


UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) , а в етой строке нада что-то меньят или нет?
Top
Rivory
Posts: 205
Joined: 2005-01-06 11:49:28

Post by Rivory »

нет
Top
Tiny
Posts: 79
Joined: 2007-04-21 14:06:19

Post by Tiny »

Если интересно! то хиты до 50 доводить не ндо зачем?
просто тупо долбишЬ 1 раз по улью и хилшся! быстрее, удомнее меньше шанс умереть! точнее не умрешь)
Adept DRW
Top
d1e 4 y0u
Posts: 9
Joined: 2007-05-20 01:14:11
Location: Ireland

Post by d1e 4 y0u »

Windows Xp wrote:Если интересно! то хиты до 50 доводить не ндо зачем?
просто тупо долбишЬ 1 раз по улью и хилшся! быстрее, удомнее меньше шанс умереть! точнее не умрешь)


если есть скриптик то мог бы скинуть
Top
d1e 4 y0u
Posts: 9
Joined: 2007-05-20 01:14:11
Location: Ireland

Post by d1e 4 y0u »

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

sub healing()
repeat
repeat
uo.usefromground('0x091A')#Улей
Lag()
until UO.Life < 20
repeat
UO.Exec("bandageself")
wait(8000)
until UO.Life > 139#-1 от макс хп
Lag()
until UO.Dead()
end sub


sub Lag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub


sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
;UO.Exec('terminate all')
;UO.Exec('exec autoload')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
Top
u0rypT
Posts: 175
Joined: 2004-12-30 18:13:16
Location: Russia
Contact:
Contact u0rypT

Post by u0rypT »

d1e 4 y0u можеш стукнуть - 1748747
Откуда знаеш ? кстате уже играю Wicked'ом.. но сегодня забил)
Design, webdev, coding, c#, php, asp.net, xml, perl, sql, ajax, drawing, illustrating, restoration, photo, photoshop, schedule, pron, guitar, lead-guitar, js, jsp, java, dom, html, *nix, struts, cs, etc
Top
Tiny
Posts: 79
Joined: 2007-04-21 14:06:19

Post by Tiny »

d1e 4 y0u wrote:мона сюда ещё всунуть что бы он стамину пил,а то на оскоме она афигеть как падает...а без неё чар зависает и ждёт пока хелл пройдёт...
куру одеваешь +72 помойму и стамину делаешь 0 или 1 и пашел! и рефрехи не надо)
Adept DRW
Top
d1e 4 y0u
Posts: 9
Joined: 2007-05-20 01:14:11
Location: Ireland

Post by d1e 4 y0u »

Windows Xp wrote:
d1e 4 y0u wrote:мона сюда ещё всунуть что бы он стамину пил,а то на оскоме она афигеть как падает...а без неё чар зависает и ждёт пока хелл пройдёт...
куру одеваешь +72 помойму и стамину делаешь 0 или 1 и пашел! и рефрехи не надо)
если, тебя не затруднит,то мона всё поподробнее описать?
Top
Tiny
Posts: 79
Joined: 2007-04-21 14:06:19

Post by Tiny »

Вообщем так! делаешь себе статы примерно такие 150Str 70Dex 130Int!
берешь в себя 6-7к бинтов, стаёшь рядом с ульем, одеваешь курсу, одеваешь до тех пор пока DEX не останется 1 или 0 ( я качал оставлял 1)
собсно и всё! Тыкаешь 1-2 раза и хилишся!
Буддешь хилится всегда отменно так как у тебя всегда стамина будет полная 1:1 или 1:0! как то так! удачи в прокачке! если что то не понятно, вдруг ещё чем могу памочь стучи 479128054
Adept DRW
Top
d1e 4 y0u
Posts: 9
Joined: 2007-05-20 01:14:11
Location: Ireland

Post by d1e 4 y0u »

Sub main()
repeat
repeat
uo.usefromground('0x091A')
Lag()
until UO.Life < 40
repeat
if uo.stam < 50 then
uo.useobject('0x0F0B')
else
UO.Exec("bandageself")
wait(8000)
end_if
until UO.Life > 109

Lag()
until UO.Dead()
end sub


sub Lag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub


sub Reconnector()
var ReconnectTime, Rflag
ReconnectTime = '0'
Rflag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if Rflag Then
ReconnectTime = MakeTime()
Rflag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LdblClick(357,164)
UO.Lclick(616,459)
Wait(3000)
Wend
Wait(3000)
if (Rflag == 0) and (ReconnectTime <> '0') Then
;UO.Exec('terminate all')
;UO.Exec('exec autoload')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
Rflag = 1
ReconnectTime = '0'
endif
Until false
end sub



народ в чём трабл???
почему не пашет??
пмшет типо "Эрор Лаин 41"
непойму что не так
Top
Post Reply

Return to “I need script!”