BS

Skripty týkající se tohoto externího programu

Moderátor: Caleb

Odpovědět
Uživatelský avatar
balík
Orc Writer
Orc Writer
Příspěvky: 76
Registrován: 10 úno 2012 22:18
Kontaktovat uživatele:

BS

Příspěvek od balík »

Předělanej skript od někud na blacksmithy. Počká na world save a funguje good.

Kód: Vybrat vše


 
 /////////////////////////////////////////////////////////////////////////
 //
 //     www.ultima.smoce.net
 //     Name: BsTrain
 //
 /////////////////////////////////////////////////////////////////////////
using System;
using System.Collections.Generic;
using System.Text;
using Phoenix.WorldData;
using Phoenix.Runtime;
using Phoenix;


namespace Phoenix.Script
{
  public class bstrain
  {
    public static void EnsureItem(UOItem item)
    {
      if (String.IsNullOrEmpty(item.Name)) item.Click();
      UO.Wait(250);
    }

    public static void EnsureContainer(UOItem container)
    {
      EnsureItem(container);
      container.Use();
      UO.Wait(250);
    }

    [Executable]
    public static void bs()
    {
      EnsureContainer(UO.Backpack);
      UOItem kladivko = UO.Backpack.Items.FindType(0x13E4, 0x0000);
      

      
      if (kladivko.Serial == Serial.Invalid) 
      {
        kladivko = World.Player.Layers.FindType(0x13E4, 0x0000);
        if (kladivko.Serial == Serial.Invalid)
        {
          UO.Print("Nemas kladivko");
          return;
        }
      }

      UO.Print("Zvol kontejner s ingy:");
      UOItem container = new UOItem(UIManager.TargetObject());
      EnsureContainer(container);
      UOItem ingy = null;
      if ((ingy = container.Items.FindType(0x1BEF, 0x0000)) == null)
      {
        UO.Print("DoslyIngy:");
        return;
      }

      int count = ingy.Amount;

      for (int i = 2; i > 1; i++)
      {
        if (UO.InJournal("World save"))
                  {
                     UO.Wait(30000);
                     UO.DeleteJournal();
                     
                  }
        
        UOItem ing = GetIng(container);
        if (ing.Serial == Serial.Invalid)
        {
          UO.Print("Invalid:");
          return;
        }
        //UO.Print("Dalsi prosim.");
        //UO.WaitTargetObject(ingy);
        UO.UseObject(ing);
        UO.WaitMenu("Blacksmithing", "Iron Weapons", "Iron Weapons", "Swords & Blades", "Swords & Blades", "Dagger");
        JournalEventWaiter jew = new JournalEventWaiter(true, "You put the", "You fail to create the item" );
        jew.Wait(6200);
        if (UO.Count(0x0F51, 0x0000) >= 10)  //bs noziky
            {
                UOItem bstrian = World.Ground.FindType(0x0FB1, 0x0161);
                bstrian.Use();
                UO.Wait(100);
            }


      }
    }

    public static UOItem GetIng(UOItem container)
    {
      UOItem ing = null;
      if ((ing = UO.Backpack.Items.FindType(0x1BEF, 0x0000)).Serial != Serial.Invalid) return ing;
      container.Items.FindType(0x1BEF, 0x0000).Move(200, UO.Backpack);
      UO.Wait(500);      
      return UO.Backpack.Items.FindType(0x1BEF, 0x0000);
    }
  }
}
 
Uživatelský avatar
Ján Páleš
Book Snake
Book Snake
Příspěvky: 92
Registrován: 16 zář 2013 18:38
Kontaktovat uživatele:

Re: BS

Příspěvek od Ján Páleš »

nevieš pls aký je item type na "a smiths hammer"? odmieta mi ho nájsť, či už mám kladivo v bágli alebo equipnuté.
moja armáda núbov zahŕňa - Ecki (vamp), Joneleth (necro), Nubik Obycajny (loladin), Astar (cleric), Katrina (craft), Silverblade (craft), Beregond (warr), Elliara (mage), Asminia (ranger). because I can... ICQ = 261129403, email = eckister@gmail.com
Uživatelský avatar
Helloween
Pencil Master
Pencil Master
Příspěvky: 591
Registrován: 07 zář 2006 23:17
Bydliště: Nekde blizko hospody :P
Kontaktovat uživatele:

Re: BS

Příspěvek od Helloween »

Ján Páleš píše:nevieš pls aký je item type na "a smiths hammer"? odmieta mi ho nájsť, či už mám kladivo v bágli alebo equipnuté.
zde je serial a color:
kladivko = World.Player.Layers.FindType(0x13E4, 0x0000);
if (kladivko.Serial == Serial.Invalid)
Uživatelský avatar
Ján Páleš
Book Snake
Book Snake
Příspěvky: 92
Registrován: 16 zář 2013 18:38
Kontaktovat uživatele:

Re: BS

Příspěvek od Ján Páleš »

no bisťu, tak ale čo sa mu potom nepáči? 0_o
presne toto mám totiž zadané a napriek tomu mi tvrdí, že kladivo nemám. -.-
moja armáda núbov zahŕňa - Ecki (vamp), Joneleth (necro), Nubik Obycajny (loladin), Astar (cleric), Katrina (craft), Silverblade (craft), Beregond (warr), Elliara (mage), Asminia (ranger). because I can... ICQ = 261129403, email = eckister@gmail.com
Uživatelský avatar
Helloween
Pencil Master
Pencil Master
Příspěvky: 591
Registrován: 07 zář 2006 23:17
Bydliště: Nekde blizko hospody :P
Kontaktovat uživatele:

Re: BS

Příspěvek od Helloween »

Ján Páleš píše:no bisťu, tak ale čo sa mu potom nepáči? 0_o
presne toto mám totiž zadané a napriek tomu mi tvrdí, že kladivo nemám. -.-
A jakej má serial kladíko? ten co je v tom skriptu?
Uživatelský avatar
Ján Páleš
Book Snake
Book Snake
Příspěvky: 92
Registrován: 16 zář 2013 18:38
Kontaktovat uživatele:

Re: BS

Příspěvek od Ján Páleš »

ako sa serial vôbec zisťuje? :-) v skripte mám napísané presne toto. ostatne - copy-paste-oval som ten skript z tejto diskusie.
aby si hľadať nemusel: UOItem kladivko = UO.Backpack.Items.FindType(0x13E4, 0x0000);
moja armáda núbov zahŕňa - Ecki (vamp), Joneleth (necro), Nubik Obycajny (loladin), Astar (cleric), Katrina (craft), Silverblade (craft), Beregond (warr), Elliara (mage), Asminia (ranger). because I can... ICQ = 261129403, email = eckister@gmail.com
Uživatelský avatar
Helloween
Pencil Master
Pencil Master
Příspěvky: 591
Registrován: 07 zář 2006 23:17
Bydliště: Nekde blizko hospody :P
Kontaktovat uživatele:

Re: BS

Příspěvek od Helloween »

Ján Páleš píše:ako sa serial vôbec zisťuje? :-) v skripte mám napísané presne toto. ostatne - copy-paste-oval som ten skript z tejto diskusie.
aby si hľadať nemusel: UOItem kladivko = UO.Backpack.Items.FindType(0x13E4, 0x0000);
ve hře napíšeš: ,info a targetneš kladivo co máš a podle toho serialu zjistší jestli to souhlasí ve skriptu, pakliže ne, přepsat na psrávné hodnoty, compile a hotovo....pakliže to je správ a hodnoty sedí, je špatně ještě někde něco...

hodnota by měla být přepsaná v těcto dvou polích
EnsureContainer(UO.Backpack);
UOItem kladivko = UO.Backpack.Items.FindType(0x13E4, 0x0000);



if (kladivko.Serial == Serial.Invalid)
{
kladivko = World.Player.Layers.FindType(0x13E4, 0x0000);
if (kladivko.Serial == Serial.Invalid)
{
UO.Print("Nemas kladivko");
return;
Uživatelský avatar
Ján Páleš
Book Snake
Book Snake
Příspěvky: 92
Registrován: 16 zář 2013 18:38
Kontaktovat uživatele:

Re: BS

Příspěvek od Ján Páleš »

vyhodilo mi to iba jednu hodnotu:
Graphic=0x0000

potom už iba súradnice:
Tile X=65535 Y=65535 Z=0

skúsim to v skripte prepísať

edit - stále to isté. -.- v akej verzii phoenixa tento skript vlastne funguje? ja som si stiahol tú, ktorú mi odporúčilo ako podporovanú pre DP (0.7.2.0).
moja armáda núbov zahŕňa - Ecki (vamp), Joneleth (necro), Nubik Obycajny (loladin), Astar (cleric), Katrina (craft), Silverblade (craft), Beregond (warr), Elliara (mage), Asminia (ranger). because I can... ICQ = 261129403, email = eckister@gmail.com
Polarka
Book Snake
Book Snake
Příspěvky: 103
Registrován: 05 kvě 2013 10:53
Kontaktovat uživatele:

Re: BS

Příspěvek od Polarka »

To targetujes neco zle... Netrafils kusok mimo prazdne miesto v batohu bo tak? Kazdy item ma naky Graphic a naky Color :)
Uživatelský avatar
Ján Páleš
Book Snake
Book Snake
Příspěvky: 92
Registrován: 16 zář 2013 18:38
Kontaktovat uživatele:

Re: BS

Příspěvek od Ján Páleš »

som si na 100% istý - kladivko sa normálne "rozsvietilo" keď som naň mieril.
idem si vyrobiť druhé, možno je toto (ktoré som dostal na začiatku) nejaké "zglupene", ako hovoria na východe.

update - jop, je to kladivom. Serial: 0x4030174A Position: 76.70.0 Flags: 0x0000 Color: 0x0000 Graphic: 0x13E4 Amount: 1 Layer: None Container: 0x4001EB3F

update 2 - a s druhým kladivom skript funguje normálne. :-D
moja armáda núbov zahŕňa - Ecki (vamp), Joneleth (necro), Nubik Obycajny (loladin), Astar (cleric), Katrina (craft), Silverblade (craft), Beregond (warr), Elliara (mage), Asminia (ranger). because I can... ICQ = 261129403, email = eckister@gmail.com
Polarka
Book Snake
Book Snake
Příspěvky: 103
Registrován: 05 kvě 2013 10:53
Kontaktovat uživatele:

Re: BS

Příspěvek od Polarka »

Ján Páleš píše:som si na 100% istý - kladivko sa normálne "rozsvietilo" keď som naň mieril.
idem si vyrobiť druhé, možno je toto (ktoré som dostal na začiatku) nejaké "zglupene", ako hovoria na východe.

update - jop, je to kladivom. Serial: 0x4030174A Position: 76.70.0 Flags: 0x0000 Color: 0x0000 Graphic: 0x13E4 Amount: 1 Layer: None Container: 0x4001EB3F

update 2 - a s druhým kladivom skript funguje normálne. :-D
:) Aky to odpad davaju zacianajucim hracom.... Hroza! Ale aspon ze uz to ide
Odpovědět