Taming

Vaše problémy, rady a skripty týkající se tohoto prográmku
Odpovědět
Uživatelský avatar
Amigor
Elder Letter
Elder Letter
Příspěvky: 163
Registrován: 28 kvě 2010 16:27
Bydliště: Trutnov
Kontaktovat uživatele:

Taming

Příspěvek od Amigor »

#---------------------------------------------------------------
sub Tamovani_zvere()
#---------------------------------------------------------------
UO.DeleteJournal()
UO.Print("Zacinam trenovat taming.")
UO.Print("Zvol zvire:")
UO.UseType(0x13F4,0x096D)
wait(200)
while not UO.InJournal("accepts you as master") AND not UO.InJournal("Animal already tamed") AND not UO.InJournal("Not table") AND not UO.InJournal("Not tamable") AND not UO.InJournal("byl tamnut a opet propusten")AND not UO.InJournal("Too far..")AND not UO.InJournal("Nemuzes mluvit na zvire, kdyz jsi skryty!")
if UO.InJournal("Your taming failed") then
UO.DeleteJournal()
UO.UseType(0x13F4,0x096D)
UO.WaitTargetLast()
wait(1000)
endif
wait(200)
wend
if UO.InJournal("Not tamable.") then
UO.ConColor('88')
UO.Print(UO.GetName('lasttarget')+" nejde tamnout.")
UO.ConColor('1088')
endif
if UO.InJournal("You are not able to tame this animal") then
UO.ConColor('88')
UO.Print(UO.GetName('lasttarget')+" neumis tamnout.")
UO.ConColor('1088')
endif
UO.DeleteJournal()
UO.Print("konec tamovani")
end sub

Mužete mi někdo poradit ? Jednou to tamuje a kdyz netamne skonči to... Nemohl by mi někdo poradit aby to tamovalo dokaď to tamne ....
Amigor - Padlý anděl,vyhnán svatým Michealem z nebe,jenž bloudí po zemi,a zotročuje všechny duše.
Zortlak - Temny Elfí mág, jenž poznal černou magii, a snaži se zotročit duše, živých i mrtvých.
Uživatelský avatar
Ian
Book Snake
Book Snake
Příspěvky: 84
Registrován: 07 zář 2006 18:39
Bydliště: Čamlíkov u Zlína :)
Kontaktovat uživatele:

Re: Taming

Příspěvek od Ian »

nic konkrétního mě nenapadá.
Zkus místo last targetu použít objekty

waitarget se spravně píše před use, ale to na funkčnost většinou nemívá vliv
zeleninový taveňák je největší zlo na Zemi!!
Uživatelský avatar
Amigor
Elder Letter
Elder Letter
Příspěvky: 163
Registrován: 28 kvě 2010 16:27
Bydliště: Trutnov
Kontaktovat uživatele:

Re: Taming

Příspěvek od Amigor »

Ian píše:nic konkrétního mě nenapadá.
Zkus místo last targetu použít objekty

waitarget se spravně píše před use, ale to na funkčnost většinou nemívá vliv
To mi nepomáha.... neuměl bys napsat sckript na tamovani taming paličkou, do tamnutí ?
Něco na styl tohoto , at to tamuje zaměřené npc, a pak jen hodí hlašku povedlo se, nebo ne...
Amigor - Padlý anděl,vyhnán svatým Michealem z nebe,jenž bloudí po zemi,a zotročuje všechny duše.
Zortlak - Temny Elfí mág, jenž poznal černou magii, a snaži se zotročit duše, živých i mrtvých.
Uživatelský avatar
Johny Matovic
Lord Ancestral Grafoman
Lord Ancestral Grafoman
Příspěvky: 1317
Registrován: 22 pro 2007 12:29
Kontaktovat uživatele:

Re: Taming

Příspěvek od Johny Matovic »

neviem ti pomoct ale tu mas skript ktory funguje ;p (dokonca 2)

Kód: Vybrat vše

sub ttaming()
UO.Deletejournal()
UO.Print('Zamer zvire, ktery chces tamovat')
UO.Addobject('animal')
while UO.Targeting()
   wait(200)
wend
UO.Deletejournal()
while NOT UO.Dead() AND NOT UO.Injournal('byl tamnut|Not tamable|You are not able')
   UO.Waittargetobject('animal')
   UO.Usetype('0x13F4','0x04B9')
   UO.Deletejournal()
   repeat
      wait(200)
     if UO.Injournal('byl tamnut') then 
UO.PlayWav('C:\WINDOWS\Media\tada.wav')
endif

         if UO.Injournal('You advance') then 
UO.PlayWav('C:\WINDOWS\Media\ringin.wav')
endif
   until UO.Injournal('Your taming|byl tamnut|Not tamable|You are not able|Ochoceni se nezdarilo|Too far|Jsi moc daleko')
   if UO.Injournal('Too far|Jsi moc daleko') then
      UO.Print('Musis jit blize k zvireti!')
      wait(2000)
   end if
   wait(2500)
wend
end sub

sub Taming()
    UO.DeleteJournal()
    UO.FindType('0x13F4','0x076B','my')#nenabita tamovaci hul
    If UO.FindCount() > 0 Then
        UO.FindType('0x0F09','0x045E','my')#shrink
        If UO.FindCount() > 0 or UO.Count("0x1843", "0x0724") > 0 Then
            If UO.Count("0x1843", "0x0724") > 0 Then
                UO.WaitTargetType("0x1843", "0x0724")
                UO.UseType("0x13F4","0x076B")
            else
                UO.WaitTargetObject("finditem")
                UO.UseType("0x13F4","0x076B")
            endif
            Repeat
                UO.FindType('0x13F4','0x096D','my')#nabita tamovaci hul
                Wait(200)
            until UO.FindCount() > 0
            UO.Print("Zvol zvire:")
            UO.UseType(0x13F4,0x096D)
        Else
            UO.Print('Nemas shrink...')
            Return
        EndIf    
    Else
        UO.FindType('0x13F4','0x096D','my')#nabita tamovaci hul
        If UO.FindCount() > 0 Then
            UO.Print("Zvol zvire:")
            UO.UseType(0x13F4,0x096D)
        Else
            UO.Print('Nemas tamovaci hul...')                
            Return
        EndIf
    EndIf
    While not UO.InJournal("byl tamnut a opet propusten") AND not UO.InJournal("Nemuzes mluvit na zvire, kdyz jsi skryty!") AND not UO.InJournal("Ale co to delas?") AND not UO.InJournal("Zviratko bylo shrinknuto") AND not UO.InJournal("Bez bliz") AND not UO.InJournal("byl tamnut.") AND not UO.InJournal("Jsi moc daleko") AND not UO.InJournal("Toto zvire nelze ochocit.") AND not UO.InJournal("Zviratko uz ma majitele") AND not UO.InJournal("Toto zvire nedokazes ochocit") AND not UO.InJournal("Targeting Cancelled")
        If UO.InJournal("Ochoceni se nezdarilo.") then
            UO.DeleteJournal()
            UO.WaitTargetLast()
            UO.UseType(0x13F4,0x096D)
            Wait(500)
        EndIf
        wait(200)
    wend
    If UO.InJournal("Targeting Cancelled") then
        UO.Print("Zrusil jsi tamovani...")
    endif
    
    if UO.InJournal("byl tamnut.") then
        TamingLoot()
    endif
    
    UO.DeleteJournal()
    UO.Print("konec tamovani")
    UO.PlayWav("C:\Program Files\Alwil Software\Avast4\Czech\ready.wav")
end sub

sub TamingLoot()
    var i
    Dim A[47]
    
    A[0] = 0x20CF ; Bear
    A[1] = 0x20D0 ; Giant Rat
    A[2] = 0x20D1 ; Chicken
    A[3] = 0x20D4 ; Hind
    A[4] = 0x20D5 ; Dog
    A[5] = 0x20DB ; Bear
    A[6] = 0x20DD ; Horse
    A[7] = 0x20E1 ; Polar Bear
    A[8] = 0x20E2 ; Rabbit
    A[9] = 0x20E6 ; Sheep
    A[10] = 0x20EA ; Wolf
    A[11] = 0x20EB ; Sheep
    A[12] = 0x20EF ; Bull
    A[13] = 0x20F0 ; Bull
    A[14] = 0x20F1 ; Dolphin
    A[15] = 0x20F5 ; Gorilla
    A[16] = 0x20F6 ; Llama
    A[17] = 0x20F7 ; Cougar
    A[18] = 0x20FC ; Snake
    A[19] = 0x20FE ; Snake
    A[20] = 0x20FF ; Walrus
    A[21] = 0x2101 ; Pig
    A[22] = 0x2102 ; Panther
    A[23] = 0x2103 ; Cow
    A[24] = 0x2108 ; Mountain Goat
    A[25] = 0x2118 ; Bear
    A[26] = 0x2119 ; Big Cat
    A[27] = 0x211A ; Bird
    A[28] = 0x211B ; Cat
    A[29] = 0x211C ; Dog
    A[30] = 0x211D ; Eagle
    A[31] = 0x211E ; Grizzly Bear
    A[32] = 0x211F ; Horse White
    A[33] = 0x2120 ; Horse
    A[34] = 0x2121 ; Horse Brown
    A[35] = 0x2122 ; Wolf
    A[36] = 0x2123 ; Rat
    A[37] = 0x2124 ; Horse
    A[38] = 0x2125 ; Rabbit
    A[39] = 0x2126 ; Pack Horse 
    A[40] = 0x2127 ; Pack Llama
    A[41] = 0x2130 ; Bullfrog
    A[42] = 0x2131 ; Alligator
    A[43] = 0x2135 ; Ostard
    A[44] = 0x2136 ; Ostard
    A[45] = 0x2137 ; Ostard
    A[46] = 0x20EE ; Bird

    FOR i=0 TO 46
        UO.FindType(A[i],"-1","ground")
        if UO.FindCount() > 0 then
            UO.Grab(0,"finditem")
            UO.Print("Zviratko sebrano")
            return
        end if
    Next
    UO.Print("Zviratko chybi v databazi")
end sub
Sklb - okrasny clovek
Please, for fuck sake, no revolution.
Odpovědět