Люди у мя скрипт поработает дето 2-3-4 часа и выкидывает табличку типа да нет инжект совершыл ошыбку шо делать??
Посоветуйте плиз
Пмогите с инжектом
Moderators: Murderator+, Murderator
666Man666 wrote:Скрипт я не дамвоенная тайна )))
насчёт компа... тока не падайте со стульев ))))
Целка 667Mhz, 386MB SDRAM, 815i Cipset(Asus), GeForse2MX 32MB(Asus).... + модем... задротный ))
вотак вот и макросим.... Эх!!
Такс, все назад! А то понаставили пней четвертых с гигами оперативы, сели на дсл-и, надо назад, поближе к матушке-природе, вот и клиент с инжой будут жить дружнее...
ЗЫ: Ты бы версию клиента обнародовал, да и версия инжи тоже интересна...
Edred wrote:Такс, все назад! А то понаставили пней четвертых с гигами оперативы, сели на дсл-и, надо назад, поближе к матушке-природе, вот и клиент с инжой будут жить дружнее...
ЗЫ: Ты бы версию клиента обнародовал, да и версия инжи тоже интересна...
Хе-хе прикалист, ты так зарплату у Петросяна отнимеш )))
Ну вообше клиент 2.0.3, версия последния (4s2)
Вот скрипт посмотри может он корявый как ты говориш?
########################################
# Revenant / Antares / Animal Taming
########################################
# В загончик площадью один тайл загоняется туча живности
# все равно какой, любых видов и расцветок, лишь бы тамилась.
# Для корректной работы желательно больше 50 шт.
# Отпускаете ее и ждете пока забудет вас (на Антаресе - 5 мин)
# Заползаете в этот же загончик.
# Единственный раз запускается процедура saver() при которой
# скрипт заносит ID всех тварей в файл count.dat
# после этого смело запускаете процедуру main() и идете
# досматривать фильм по телеку
# Да, и еще, галочка в TWI отнюдь не помешает для первого запуска.
var f=file("C:\count.dat")
var i, ii
var food='0x098C' ; еда, по умолчанию лук
sub saver()
dim a[50]
var ser, nam
var s=0
var exit=0
uo.ignorereset()
uo.set('finddistance','3')
i=0
repeat
repeat
uo.findtype('-1','-1','ground')
if not UO.FindCount() then
exit=1
endif
uo.ignore("finditem")
wait(100)
until uo.IsNPC("finditem") and uo.getserial("finditem")<>uo.getserial("self") or not UO.FindCount()
if not exit then
i=i+1
ser = uo.getserial("finditem")
ii=i
a[i]=ser
uo.Print('ser = '+ a[i])
uo.Print(uo.GetName(ser))
endif
wait(100)
until i==50 or exit==1
uo.Print('Open file')
f.open()
f.create()
uo.Print('elements = '+ str(ii))
s=safe call f.writeln(ii)
for i=1 to ii
s=safe call f.writeln(a[i])
next
f.close()
uo.Print('All IP saved')
end sub
sub main()
dim b[50]
var count=0
VAR LastTimer, start
f.open()
ii=safe call f.ReadNumber()
uo.Print('ii='+str(ii))
for i=1 to ii
b[i]=safe call f.ReadString()
next
f.close()
uo.DeleteJournal()
while not uo.Dead()
uo.DeleteJournal()
start = UO.Timer()
for i=1 to ii
uo.Print(str(i))
repeat
UO.DeleteJournal()
uo.WaitTargetObject(b[i])
UO.Useskill('Animal Taming')
LastTimer=UO.Timer()
repeat
wait(1000)
until UO.InJournal('You fail') OR UO.InJournal('It seems') OR UO.InJournal('You can not see')OR UO.InJournal('away') OR UO.InJournal('remember') OR UO.InJournal('cancelled')OR UO.InJournal('already')OR UO.InJournal('target')OR UO.Timer()>LastTimer+400
until Uo.InJournal('It seems') OR UO.InJournal('remember') OR UO.InJournal('cancelled')OR UO.InJournal('already')OR UO.InJournal('target')
uo.Say('All release')
next
eat()
wend
end sub
sub eat()
UO.DeleteJournal()
repeat
if UO.Count(food)>0 then
UO.UseType(food)
wait(500)
else
return
end if
Until UO.InJournal("stuffed!") OR UO.InJournal("think")
end sub
########################################
# Revenant / Antares / Animal Taming
########################################
# В загончик площадью один тайл загоняется туча живности
# все равно какой, любых видов и расцветок, лишь бы тамилась.
# Для корректной работы желательно больше 50 шт.
# Отпускаете ее и ждете пока забудет вас (на Антаресе - 5 мин)
# Заползаете в этот же загончик.
# Единственный раз запускается процедура saver() при которой
# скрипт заносит ID всех тварей в файл count.dat
# после этого смело запускаете процедуру main() и идете
# досматривать фильм по телеку
# Да, и еще, галочка в TWI отнюдь не помешает для первого запуска.
var f=file("C:\count.dat")
var i, ii
var food='0x098C' ; еда, по умолчанию лук
sub saver()
dim a[50]
var ser, nam
var s=0
var exit=0
uo.ignorereset()
uo.set('finddistance','3')
i=0
repeat
repeat
uo.findtype('-1','-1','ground')
if not UO.FindCount() then
exit=1
endif
uo.ignore("finditem")
wait(100)
until uo.IsNPC("finditem") and uo.getserial("finditem")<>uo.getserial("self") or not UO.FindCount()
if not exit then
i=i+1
ser = uo.getserial("finditem")
ii=i
a[i]=ser
uo.Print('ser = '+ a[i])
uo.Print(uo.GetName(ser))
endif
wait(100)
until i==50 or exit==1
uo.Print('Open file')
f.open()
f.create()
uo.Print('elements = '+ str(ii))
s=safe call f.writeln(ii)
for i=1 to ii
s=safe call f.writeln(a[i])
next
f.close()
uo.Print('All IP saved')
end sub
sub main()
dim b[50]
var count=0
VAR LastTimer, start
f.open()
ii=safe call f.ReadNumber()
uo.Print('ii='+str(ii))
for i=1 to ii
b[i]=safe call f.ReadString()
next
f.close()
uo.DeleteJournal()
while not uo.Dead()
uo.DeleteJournal()
start = UO.Timer()
for i=1 to ii
uo.Print(str(i))
repeat
UO.DeleteJournal()
uo.WaitTargetObject(b[i])
UO.Useskill('Animal Taming')
LastTimer=UO.Timer()
repeat
wait(1000)
until UO.InJournal('You fail') OR UO.InJournal('It seems') OR UO.InJournal('You can not see')OR UO.InJournal('away') OR UO.InJournal('remember') OR UO.InJournal('cancelled')OR UO.InJournal('already')OR UO.InJournal('target')OR UO.Timer()>LastTimer+400
until Uo.InJournal('It seems') OR UO.InJournal('remember') OR UO.InJournal('cancelled')OR UO.InJournal('already')OR UO.InJournal('target')
uo.Say('All release')
next
eat()
wend
end sub
sub eat()
UO.DeleteJournal()
repeat
if UO.Count(food)>0 then
UO.UseType(food)
wait(500)
else
return
end if
Until UO.InJournal("stuffed!") OR UO.InJournal("think")
end sub
BAGRAM wrote:Вот скрипт посмотри может он корявый как ты говориш?
Нет уж, такой длинный я смотреь не буду.... впадлу (
Last edited by 666Man666 on 2004-12-29 16:26:50, edited 1 time in total.