Fishing

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

Moderátor: Caleb

Uživatelský avatar
Wizzy
Evil League Of Evil
Příspěvky: 1437
Registrován: 07 zář 2006 19:19
Kontaktovat uživatele:

Fishing

Příspěvek od Wizzy »

Download vsech skriptu mnou uvedenych: http://dl.dropbox.com/u/7651700/fena/wizzy.cs
Objects.dll: http://dl.dropbox.com/u/7651700/fena/Objects.dll


!!! Pozor, je potreba knihovna Objects.dll !!!
Neni to officialni schvalena knihovna, takze pokud se bojite ze to zabije vas, vase deti a deti vasich detich, nestahujte ji

Pridat do hlavicky *.cs:
using System.Linq;
,exec Fishing
- Fishing 6x6 policek kolem
- nastaveni hidingu, rezani a sbirani steaku, pauza pri krakenovi/serpente, nastaveni baglu kam se ryby ukladaji
- pokracuje se slovem "pokracovat"

Kód: Vybrat vše

[Executable]
public void fishing()
{
ushort[] ryba = new ushort[9];
ushort[] cryba = new ushort[9];
string hid, steaky, bagl;
/*  *************************  */
/*  Nastaveni - "Ano" / "Ne"   */
/*  *************************  */

/*         Hidovat ?           */
hid = "ano";

/* Rezat ryby a sbirat steaky? */
steaky = "ne";

/* Ukladat do specialni baglu? */
bagl = "ne";

/*  *************************  */


ryba[0] = 0x09CC;
ryba[1] = 0x09CD;
ryba[2] = 0x09CE;
ryba[3] = 0x09CF; 
ryba[4] = 0x09CD;
ryba[5] = 0x09CD; 
ryba[6] = 0x09CD; 
ryba[7] = 0x099B; 
ryba[8] = 0x097A;

cryba[0] = 0x0000;
cryba[1] = 0x0000;
cryba[2] = 0x0000;
cryba[3] = 0x0000;
cryba[4] = 0x0850;
cryba[5] = 0x0482;
cryba[6] = 0x084C;
cryba[7] = 0x08A4;
cryba[8] = 0x0000;

hid=hid.ToUpper();
steaky=steaky.ToUpper();
bagl=bagl.ToUpper();

UOItem b = new UOItem(Aliases.GetObject("fishbag"));
if (!(b.Exist) && (bagl == "ANO"))
{
    UO.Print(0x480, "Nastav bagl kam maji padat ryby:");
    UO.Exec("addobjectzalozkascript", "fishbag", UIManager.TargetObject());
}

UO.PrintWarning("Hiding: {0}, Sbirani steaku: {1}, Bagl: {2}", hid, steaky, bagl);

    while (!World.Player.Dead)
    {
        if ((World.Player.Backpack.AllItems.Count(0x0DBF, 0x0000) > 0) || (World.Player.Layers[Layer.LeftHand].Graphic == 0x0DBF))
        {
            UO.DeleteJournal();
            for (int x = -6; x < 7; x++)
            {
                for (int y = -6; y < 7; y++)
                {
                    UO.DeleteJournal();
                    do
                    {
                        if (hid == "ANO")
                        {
                            while (!World.Player.Hidden)
                            {
                                UO.UseSkill("Hiding");
                                UO.Wait(1000);
                                if (UO.InJournal("preoccupied with"))
                                {
                                    World.Player.ChangeWarmode(WarmodeChange.Switch);
                                    UO.Wait(500);
                                    if (!World.Player.Hidden) UO.UseSkill("Hiding");
                                }
                                UO.Wait(1500);
                                Journal.WaitForText("hidden yourself well", "to hide here.", "preoccupied with");
                            }

                        }

                        UO.DeleteJournal();
                        UO.PrintWarning("Chytam na {0}, {1}", x, y);
                        UO.WaitTargetTileRel(x, y, World.Player.Z, 0);
                        UO.UseType(0x0DBF);
                        UO.Wait(1500);

                        Journal.WaitForText("no fish here", "location", "far away", "in water", "You pull", "You fish a while");
                        if (UO.InJournal("Kraken") || UO.InJournal("Sea Serpent"))
                        {
                            UO.Print(SpeechFont.Bold, 0x0481, "Detekovano monstrum");
                            UO.PlayWav("c:\\windows\\media\\ringin.wav");
                            while (!(UO.InJournal("pokracovat")))
                            {
                                UO.Print("Detekovano monstrum, skript je pausnut!");
                                UO.Wait(2500);
                            }
                        }
                            if (UO.InJournal("no fish here"))
                            {
                                if (steaky == "ANO")
                                {
                                    for (int i = 0; i < 5; i++)
                                    {
                                        if (!(World.Player.Layers[Layer.RightHand].Graphic == 0x0F51))
                                        {
                                            UO.Print("oblikam kudlicku");
                                            UO.WaitTargetCancel();
                                            UO.UseType(0x0F51);
                                        }
  
                                        foreach (UOItem item in from q in World.Ground where q.Distance < 2 && q.Graphic == ryba[i] && q.Color == cryba[i] select q)
                                        {
                                            UO.WaitTargetObject(item.Serial);
                                            UO.UseObject(World.Player.Layers[Layer.RightHand].Serial);
                                            UO.Wait(500);
                                        }
                                    }
                                }
                            }
                                for (int i = 4; i < 9; i++)
                                {
                                    foreach (UOItem item in from q in World.Ground where q.Distance < 2 && q.Graphic == ryba[i] && q.Color == cryba[i] select q)
                                    {
                                        if (bagl == "ANO")
                                        {
                                            item.Move(100, Aliases.GetObject("fishbag"));
                                        }
                                        else
                                        {
                                            item.Move(100, World.Player.Backpack);
                                        }
                                        UO.Wait(500);
                                    }
                                }                               
                    }
                    while (UO.InJournal("You pull") || UO.InJournal("You fish a while"));
                }
            }
            UO.Print("-6x6 Vychytano!");
            break;
        }
        else
        {
            UO.Print("Nemas prut!");
            break;
        }
    }
}
Naposledy upravil(a) Wizzy dne 14 zář 2010 20:00, celkem upraveno 5 x.
ICQ:242676139 | IRC: #dp

... Vision vs Speech test ...
Uživatelský avatar
Wizzy
Evil League Of Evil
Příspěvky: 1437
Registrován: 07 zář 2006 19:19
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Wizzy »

update postu:

Pridat do hlavicky *.cs:
using System.Linq;
ICQ:242676139 | IRC: #dp

... Vision vs Speech test ...
Mianek
Book Snake
Book Snake
Příspěvky: 135
Registrován: 08 zář 2006 22:31
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Mianek »

slo by dopsat zvukove upozorneni na vytazenou mapku, kdyz uz ji to nehodi do batuzku a necha lezet u nohou?
Legie (navzdy!!)
Uživatelský avatar
Wizzy
Evil League Of Evil
Příspěvky: 1437
Registrován: 07 zář 2006 19:19
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Wizzy »

lahev by to sbirat melo, jestli teda sedi
ryba[7] = 0x099B;

ktery sem vytah kdesi z yoko skriptu :p
ICQ:242676139 | IRC: #dp

... Vision vs Speech test ...
Mianek
Book Snake
Book Snake
Příspěvky: 135
Registrován: 08 zář 2006 22:31
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Mianek »

Wizzy píše:lahev by to sbirat melo, jestli teda sedi
ryba[7] = 0x099B;

ktery sem vytah kdesi z yoko skriptu :p

sedi to

Kód: Vybrat vše

Serial: 0x40223815  Position: 111.65.0  Flags: 0x0000  Color: 0x08A4  Graphic: 0x099B  Amount: 1  Layer: None  Container: 0x401C3A37

ale nesbira :(
Legie (navzdy!!)
Uživatelský avatar
Mole Two
Book Snake
Book Snake
Příspěvky: 113
Registrován: 07 zář 2006 18:25
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Mole Two »

spatne nastavena barva

cryba[7] = 0x0000;


a velice fuj fuj skript :p
Evil League of Evil
Mianek
Book Snake
Book Snake
Příspěvky: 135
Registrován: 08 zář 2006 22:31
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Mianek »

Mole Two píše:spatne nastavena barva

cryba[7] = 0x0000;


a velice fuj fuj skript :p
mas pravdu..... ten color me vubec nenapadl :) upraveny color a uz to sbira... diky moc

pokud se ti tenhle script nelibi, muzes postnout svuj :)
Legie (navzdy!!)
Uživatelský avatar
Mole Two
Book Snake
Book Snake
Příspěvky: 113
Registrován: 07 zář 2006 18:25
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Mole Two »

nemuzu, od doby co nepadaj l5 mapy ryby nechytam :p
Evil League of Evil
Mianek
Book Snake
Book Snake
Příspěvky: 135
Registrován: 08 zář 2006 22:31
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Mianek »

Mole Two píše:nemuzu, od doby co nepadaj l5 mapy ryby nechytam :p
nevadi.. muzes to napsat pro nas :mrgreen:
Legie (navzdy!!)
Uživatelský avatar
Castian
Undead Scriber
Undead Scriber
Příspěvky: 752
Registrován: 08 zář 2006 13:05
Bydliště: Blava
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Castian »

Kdyz nastavim vybirani baglu na ukladani ryb tak to pri pusteni scriptu vyhodi error: "Runtime Error: Method of name "addobjectzalozkascript" not found".

Taky by se hodilo kdyby to zvukem oznamilo, ze si vytahl monstrum, pripadne taky zvuk na mapku..
Ta pauza po resumovani scriptu po monstru az po hidnuti je docela dlouha, efektivnejsi by byla o neco kratsi..
[b]Save a horse, ride a tractor![/b]
Uživatelský avatar
Wizzy
Evil League Of Evil
Příspěvky: 1437
Registrován: 07 zář 2006 19:19
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Wizzy »

Castian píše:Kdyz nastavim vybirani baglu na ukladani ryb tak to pri pusteni scriptu vyhodi error: "Runtime Error: Method of name "addobjectzalozkascript" not found".

Taky by se hodilo kdyby to zvukem oznamilo, ze si vytahl monstrum, pripadne taky zvuk na mapku..
Ta pauza po resumovani scriptu po monstru az po hidnuti je docela dlouha, efektivnejsi by byla o neco kratsi..
1. !!! Pozor, je potreba knihovna Objects.dll !!!
cteni zas tolik neboli ne ? :p

2./3.
updated v prvnim postu
(zvuk u monstra a nizsi timer)
ICQ:242676139 | IRC: #dp

... Vision vs Speech test ...
Uživatelský avatar
Castian
Undead Scriber
Undead Scriber
Příspěvky: 752
Registrován: 08 zář 2006 13:05
Bydliště: Blava
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Castian »

kam treba nakopirovat tu knihovnu? mam ji v hlavni zlozke phoenixu.
[b]Save a horse, ride a tractor![/b]
Uživatelský avatar
Wizzy
Evil League Of Evil
Příspěvky: 1437
Registrován: 07 zář 2006 19:19
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Wizzy »

../plugins
ICQ:242676139 | IRC: #dp

... Vision vs Speech test ...
Uživatelský avatar
Castian
Undead Scriber
Undead Scriber
Příspěvky: 752
Registrován: 08 zář 2006 13:05
Bydliště: Blava
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Castian »

mel bych jete jednu malou pripominku. to jak tam mas udelane to "detekovano monstrum" je tak trochu nestastne.. po tom co vylovim monstrum to kazdych par sekund vyhodi hlasku "detekovano monstrum" a vzdy kdyz to tu hlasku vyhodi se taky ozve zvuk kterej si tam pridaval. Nedalo by se to upravit tak, ze se ti to proste ozve jen jednou kdyz to monstrum vytahnes a pak si da celej script pauzu a bude cekat az do momentu nez napises "pokracovat"? Bo takhle to zbytecne spamuje a huka pocas doby kdy se snazis toho monstra zbavit..
[b]Save a horse, ride a tractor![/b]
Uživatelský avatar
Wizzy
Evil League Of Evil
Příspěvky: 1437
Registrován: 07 zář 2006 19:19
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Wizzy »

Castian píše:mel bych jete jednu malou pripominku. to jak tam mas udelane to "detekovano monstrum" je tak trochu nestastne.. po tom co vylovim monstrum to kazdych par sekund vyhodi hlasku "detekovano monstrum" a vzdy kdyz to tu hlasku vyhodi se taky ozve zvuk kterej si tam pridaval. Nedalo by se to upravit tak, ze se ti to proste ozve jen jednou kdyz to monstrum vytahnes a pak si da celej script pauzu a bude cekat az do momentu nez napises "pokracovat"? Bo takhle to zbytecne spamuje a huka pocas doby kdy se snazis toho monstra zbavit..
mas to tam
ICQ:242676139 | IRC: #dp

... Vision vs Speech test ...
Sir Arthorius
Walking Scribbler
Walking Scribbler
Příspěvky: 39
Registrován: 11 úno 2010 17:03
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Sir Arthorius »

ja bych se chtěl zeptat po tom co to monstrum zabije ono to spamuje že je detekovany monstrum ale už nepokračuje v rybařeni na tom poli kde zkončil dalo by se s tim něco udělat? že když zabije monstrum tak že bude pokračovat dal jko to je na joku? a nebo když ho to monstrum neatakuje a nebude mu vyset na udici bude dal pokračovat v chytani?
Playboy
Inkless
Inkless
Příspěvky: 29
Registrován: 29 srp 2011 19:34

Re: Fishing

Příspěvek od Playboy »

Sir Arthorius píše:ja bych se chtěl zeptat po tom co to monstrum zabije ono to spamuje že je detekovany monstrum ale už nepokračuje v rybařeni na tom poli kde zkončil dalo by se s tim něco udělat? že když zabije monstrum tak že bude pokračovat dal jko to je na joku? a nebo když ho to monstrum neatakuje a nebude mu vyset na udici bude dal pokračovat v chytani?
- pokracuje se slovem "pokracovat"
Uživatelský avatar
Atalia
Paper Elemental
Paper Elemental
Příspěvky: 290
Registrován: 14 čer 2007 13:53
Kontaktovat uživatele:

Re: Fishing

Příspěvek od Atalia »

Pěkný script. Díky
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: Fishing

Příspěvek od Amigor »

Mužete mi někdo poradit porad mi to piše "Hotkey error: Method of name "fishing" not found
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
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: Fishing

Příspěvek od Helloween »

Amigor píše:Mužete mi někdo poradit porad mi to piše "Hotkey error: Method of name "fishing" not found
a co do hotkey napsat: ,exec Fishing ? pokud tam nemáš jen fishing, nebo ,exec fishing...fena rozlišuje i malá a velká písmena, jeslti se nepletu
Odpovědět