помогите со скриптом, Плизз))

Гости
Сообщений: 5
Рег. 18.08.2013
29 августа 2013 13:08
Сообщение #1
помогите со скриптом чтоб он их сам убивал и лут не работает я не шарю ПЛИЗЗЗ


sub Tam()
VAR TamTime = UO.Timer()
var tam='0x00CF'
var ser, kk, MaxVes
VAR SpiritTime = UO.Timer()
uo.ignorereset()
UO.Exec( 'set finddistance 9' )
#uo.Exec('terminate Herding')
#AddObject('tam','Кого тамим?')
while Uo.skillval ( 'Animal Timing' ) < 110
kk=0
UO.FindType( '0x00CF', '-1', '1' )
if UO.FindCount() > 0 then
UO.Click( 'finditem' )
wait(200)
tam=UO.GetSerial('finditem')
uo.print( 'serial'+tam )
wait(200)
UO.WarMode( 0 )
UO.DeleteJournal()
UO.WaitTargetObject(tam)
UO.UseSkill( 'Animal Taming' )
repeat
wait(1000)
kk=kk+1
until UO.InJournal('to accept you|You fail to tame|is already|of battle|see the creature|kk>10|You are too far')
if UO.InJournal('master|already') then
wait(1000)
UO.WaitTargetObject(tam)
uo.say("all kill")
wait(1000)
kk=0
repeat
kk=kk+1
wait(1000)
until UO.InJournal('Body') or kk>12
UO.WarMode( 0 )
wait(100)
if UO.InJournal('Body') then
LootRat()
wait(1000)
endif
If ( UO.Timer() - SpiritTime ) / 600 > 15 Then ; Прошло 5 минут с момента последней кормежки
UO.UseType( '0x097B' ) ; фишстейки
wait(1000)
endif
UO.Ignore( tam )
end if
endif
# MaxVes = 0
# MaxVes = ((UO.STR) * 4)
# If UO.Weight > MaxVes Then
# RecallHome()
# wait(5000)
# NechegoDelat()
# Endif
wait(1000)
wend
uo.ignorereset()
endsub

sub LootRat()
DIM R[3]
var c
R[1] = 0x0C4F
R[2] = 0x1078
R[3] = 0x09F1

UO.UseObject('lastcorpse')
wait(400)
uo.waittargetobject('lastcorpse')
uo.usetype(0x0F51)
wait(800)

for c=1 to 3
repeat
uo.findtype(R[c],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
UO.Grab("0","finditem")
wait(1000)
end if
until UO.FindCount()<1
wait(10)
uo.usetype('0x0F9E')
wait(20)
uo.waittargettype('0x1078')
UO.DeleteJournal()
next
end sub
Ефрейтор (116480)11 лет
Ranger
Сообщений: 73
Рег. 19.08.2013
29 августа 2013 13:14
Сообщение #2
Для начала - скрипты в теги засовывают.
Для продолжения - в данный момент скрипт не читаем практически ввиду отсутствия отступов.
Для окончания - кого их и какой лут ?

Гости
Сообщений: 5
Рег. 18.08.2013
29 августа 2013 14:57
Сообщение #3
sub Tam()
VAR TamTime = UO.Timer()
var tam='0x00CF'
var ser, kk, MaxVes
VAR SpiritTime = UO.Timer()
uo.ignorereset()
UO.Exec( 'set finddistance 9' )
#uo.Exec('terminate Herding')
#AddObject('tam','Кого тамим?')
while Uo.skillval ( 'Animal Timing' ) < 110
kk=0
UO.FindType( '0x00CF', '-1', '1' )
if UO.FindCount() > 0 then
UO.Click( 'finditem' )
wait(200)
tam=UO.GetSerial('finditem')
uo.print( 'serial'+tam )
wait(200)
UO.WarMode( 0 )
UO.DeleteJournal()
UO.WaitTargetObject(tam)
UO.UseSkill( 'Animal Taming' )
repeat
wait(1000)
kk=kk+1
until UO.InJournal('to accept you|You fail to tame|is already|of battle|see the creature|kk>10|You are too far')
if UO.InJournal('master|already') then
wait(1000)
UO.WaitTargetObject(tam)
uo.say("all kill")
wait(1000)
kk=0
repeat
kk=kk+1
wait(1000)
until UO.InJournal('Body') or kk>12
UO.WarMode( 0 )
wait(100)
if UO.InJournal('Body') then
LootRat()
wait(1000)
endif
If ( UO.Timer() - SpiritTime ) / 600 > 15 Then; Прошло 5 минут с момента последней кормежки
UO.UseType( '0x097B' ); фишстейки
wait(1000)
endif
UO.Ignore( tam )
end if
endif
# MaxVes = 0
# MaxVes = ((UO.STR) * 4)
# If UO.Weight > MaxVes Then
# RecallHome()
# wait(5000)
# NechegoDelat()
# Endif
wait(1000)
wend
uo.ignorereset()
endsub

sub LootRat()
DIM R[3]
var c
R[1] = 0x0C4F
R[2] = 0x1078
R[3] = 0x09F1

UO.UseObject('lastcorpse')
wait(400)
uo.waittargetobject('lastcorpse')
uo.usetype(0x0F51)
wait(800)

for c=1 to 3
repeat
uo.findtype(R[c],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
UO.Grab("0","finditem")
wait(1000)
end if
until UO.FindCount()<1
wait(10)
uo.usetype('0x0F9E')
wait(20)
uo.waittargettype('0x1078')
UO.DeleteJournal()
next
end sub


Гости
Сообщений: 5
Рег. 18.08.2013
29 августа 2013 14:58
Сообщение #4
лут кожу и мясо))

Гости
Сообщений: 5
Рег. 18.08.2013
29 августа 2013 15:06
Сообщение #5
сначало тамил потом убивал и резал Sheep и лутил кожу и мясо))
Ефрейтор (116480)11 лет
Ranger
Сообщений: 73
Рег. 19.08.2013
29 августа 2013 15:09
Сообщение #6
GOBLIN,

Так и не написал, что должен делать скрипт. Кого он тамит и кого атакует и где.
13 лет
Ranger
Сообщений: 1043
Рег. 18.06.2011
29 августа 2013 15:56
Сообщение #7
2 Id Это ты МЕНЯ называешь занудным? :taunt:

1)+2) Суровый скриптер ;)
3) у него в срипте написано var tam='0x00CF' через инсайд можно помсотреть что за зверек. И как бы Sheep это не корабль :)

Страннее другое
var tam='0x00CF' что как бы ТИП
а потом вдруг UO.WaitTargetObject(tam) что как бы ОБЪЕКТ и что как бы не одно и тоже.

На старом форуме вроде был скрипт на ворон и на овечек - притамил, подозвал и зарезал. Лутать нельзя по правилам сервера.
13 лет
Ranger
Сообщений: 1043
Рег. 18.06.2011
29 августа 2013 16:03
Сообщение #8
твой скрипт как то вот так будет выглядеть.

sub Tam()
    VAR TamTime = UO.Timer()
    var tam=
    var ser, kk
    VAR SpiritTime = UO.Timer()
    uo.ignorereset()
    UO.Exec( 'set finddistance 9' )
    while Uo.skillval ( 'Animal Timing' ) < 1100; значение скилла 110.0
        kk=0
        UO.FindType( '0x00CF', '-1', '1' )
        if UO.FindCount() > 0 then
            tam=UO.GetSerial('finditem')
            UO.WarMode( 0 )
            wait(200)
            UO.DeleteJournal()
            UO.WaitTargetObject(tam)
            UO.UseSkill('Animal Taming')
            repeat
                wait(1000)
                kk=kk+1
            until UO.InJournal('to accept you|fail to tame|already|of battle|the creature|too far') or kk>10
            if UO.InJournal('master|already') then
                wait(1000)
                UO.WaitTargetObject(tam)
                uo.say("all kill")
                wait(1000)
                kk=0
                repeat
                    kk=kk+1
                    wait(1000)
                until UO.InJournal('Body') or kk>12
                UO.WarMode( 0 )
                wait(100)
                If ( UO.Timer() - SpiritTime ) / 600 > 15 Then
                    UO.UseType( '0x097B' ); фишстейки
                    wait(1000)
                endif
                UO.Ignore( tam )
            end if
        endif
        wait(1000)
    wend
    uo.ignorereset()
endsub

Хотя он и странный.
Я не проверял работу.
Ефрейтор (116480)11 лет
Ranger
Сообщений: 73
Рег. 19.08.2013
29 августа 2013 22:00
Сообщение #9
Alucard,

Меня еще Animal Timing смущает чутка =)

А насчет овец и кораблей, на момент написания моего сообщения, текст выглядел примерно так: "injfal8w643y8ltg2l3tg4c72tgl7ctg23tg643t2gc6"... и потом лутит их.
Последние посетители (0):

 
Сейчас: 25 ноября 2024 10:28