KuMiS wrote:Асканели спасибо за скрипты.
Незачто ...
Скрипты от Askaneli
Moderators: Murderator+, Murderator
-
Destruction
- Junior Expert
- Posts: 3221
- Joined: 2004-06-24 22:08:56
Destruction wrote:Askaneli wrote:Destruction wrote:Ну так ходилка Beyonder'а так умеет -)
Ты знаешь? Моя тоже ...
Твою не видел - кинь в ПМ ссылку на топик, в прибитый повешу.
Я ж в скриптах не разбираюсь, ламер так сказать... Приходиться самому всё писать
Влом выкладывать чё та )))
Сделал дело - флуди смело !!!
-
eX-Clusive
- Posts: 4
- Joined: 2006-02-07 19:16:37
Скрипт для фабрики ...
Code: Select all
VAR Sunduk='0x400E90E6' ## Сундук, откуда берут айрон и кладут обратно бутылки
VAR ResCount=500 ## Количество забираемого айрона, зависит от силы игрока
sub Tinkering()
VAR LastTimer,p
uo.Exec("filterspeech clear")
uo.Exec("filterspeech on")
uo.Exec("filterspeech add 'You make the item'")
uo.Exec("filterspeech add 'The item is of'")
uo.Exec("filterspeech add 'Due to your exceptional skill, the item is of superior quality'")
uo.Exec('terminate Reconnector')
wait(1000)
uo.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Tinkering','Tools')
uo.automenu('Tools','empty bottle (3 iron ingot)')
uo.useobject(Sunduk)
wait(1000)
LastTimer=uo.Timer()
while not uo.dead()
ToHide()
if uo.Timer()>(LastTimer+3000) then
if uo.skillval("Spirit Speak",1)<1000 then
uo.print("Spirit Speak...")
p=0
repeat
p=p+1
uo.useskill("Spirit Speak")
uo.deletejournal()
repeat
wait(10)
until uo.InJournal("netherworld") or uo.InJournal("You must wait to perform another action") or uo.dead()
until (uo.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
end if
Eda()
LastTimer=uo.Timer()
end if
if uo.count('0x1BEF','0x0000')<30 then
uo.FindType('0x0F0E','0x0000','backpack')
cheklag()
uo.moveitem('finditem','-1',Sunduk)
wait(1000)
uo.FindType('0x1BEF','0x0000',Sunduk)
cheklag()
uo.moveitem('finditem',STR(ResCount),'backpack')
wait(1000)
cheklag()
end if
if uo.count('0x1BEF','0x0000')<3 then
uo.closeuo()
end if
uo.deletejournal()
uo.usetype('0x1EBC','0x0000')
repeat
Wait(10)
until uo.InJournal("You put the") OR uo.InJournal("Tinkering failed")
wend
end sub
Sub Eda()
if uo.count('0x097B','0x0000')<50 then ## Жрачка, кушаем до изнеможения
uo.findtype('0x097B','0x0000',Sunduk)
Cheklag()
uo.moveitem('finditem',STR(50-uo.count('0x097B','0x0000')),'backpack')
wait(1000)
end if
uo.deletejournal()
repeat
uo.usetype('0x097B','0x0000')
wait(1000)
until uo.injournal("You are stuffed!") or uo.injournal("You can't think of a way to use that item.")
end sub
Sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
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(70000) # WorldSave Protection
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.LDblClick(357,164)
uo.LClick(616,459)
Wait(5000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
uo.RClick(196,193)
wait(2000)
uo.RClick(196,193)
wait(2000)
uo.useobject('self')
wait(2000)
uo.useobject('backpack')
wait(2000)
uo.Exec('terminate Tinkering')
wait(5000)
uo.Exec('exec Tinkering')
wait(5000)
RFlag = 1
ReconnectTime = '0'
endif
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
EndIf
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
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
Sub ToHide()
while not uo.hidden()
uo.exec("warmode 0")
uo.DeleteJournal()
uo.useskill("Hiding")
repeat
wait(10)
until uo.InJournal("You have hidden yourself well") or uo.InJournal("You can't seem to hide here.") or uo.InJournal("You are preoccupied with thoughts of battle.")
if uo.InJournal("You are preoccupied with thoughts of battle.") then
uo.exec("warmode 0")
end if
wend
end sub
Last edited by Askaneli on 2006-04-28 06:20:51, edited 1 time in total.
Сделал дело - флуди смело !!!
Askaneli wrote:Детект
Основному чару запускаем Detect_Hidden
Левачку соответственно Hiding
Основной до кучи качает Спирит (это уже параноя, как бы прокачать спирит)Code: Select all
sub Detect_Hidden()
Var i=0
repeat
i=i+1
cheklag()
uo.UseSkill('Detect Hidden')
uo.deletejournal()
repeat
wait(10)
until UO.InJournal("You can see nothing hidden there.") or UO.InJournal("You find")
if i==50 then
i=0
cheklag()
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat
wait(10)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.")
uo.usetype('0x09BB')
wait(1000)
end if
until uo.Dead()
end sub
sub Hiding()
repeat
while not UO.Hidden()
UO.Warmode("0")
uo.print("Hiding...")
UO.UseSkill("Hiding")
UO.DeleteJournal()
Repeat
Wait(10)
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.")
wend
until uo.dead()
end sub
sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub
Вы не видете ничего и никого спрятонного в округе (Ето типо физл)
СЛух ты подправь скрипт Когда физл у меня пишит Вот ето когда он детектит или физл или тот неуспел в хайд Подправь плиз ( И спирит убери плиз)
Geroy wrote:Асканели можешь выложить свой скрипт на прокачку ветеринарии, там где чар в демона морфиться и лечится.
А Тут не смотрел??!?
Askaneli wrote:Я вернулся ...
с возвращением
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net