Dark Paradise

Napsal: **31.05.2007 20:40:25**

Hoj. Nemohl byste mi nekdo prosim upravit tenhle script na Tinekr na vyrobu pantu tak, aby kdyz to dodela tu zasobu tech 100 ingu co nabaral, nejdriv prehodil ty hotovy panty do ty bedny co na zacatku targetuju a pak az nabiral dalsi Iron?A pripadne opravit nejaky chyby ve scriptu ja tomu vubec nerozuim a nekde jsem ho stahnul:). Diky moc:)

Kód: Vybrat vše

sub vpanty()
    uo.addobject("batoh")   # batoh kam panty
    uo.targeting()
 zacatek:
    if UO.Count("0x1BEF,0x0000") < 1 then
        UO.Print("dosel iron doplnuji!")
        if UO.FindType("0x1BEF,0x0000","-1","ground") > 100 then
            UO.Moveitem("finditem","100","backpack")
            wait(500)
        else
            UO.Say(" neni iron! ")
             return
        endif
    endif
    wait(1000)
    repeat
        UO.Exec("waitmenu 'Tinkering' 'Parts' 'Parts' 'Hinge'")
        UO.Exec("usetype 0x1EBC")
        wait(4000)
    until UO.Count("0x1BEF,0x0000") < 1
    UO.Print("pokladam!")
    UO.FindType(0x1055,-1,'backpack')
      UO.Moveitem("finditem","100","batoh")
 goto zacatek
end sub

EDIT BY Pudor: kod vlozen do tagu CODE

Napsal: **31.05.2007 21:02:06**

Koukam ze to nekdo upravil ale takhle to nefunguje uz vubec:p.
Nebo vono kdyz se to hodi do toho Codu tak se to zmeni? Protoze oproti tomu puvodnimu scriptu tam neco chybi:p

Napsal: **31.05.2007 21:29:31**

Tak ted jsem zjistil ze to co jsem chtel delalo uz to puvodni makro akorat kdyz jsem to porve zkousel tak to nejak buglo asi:p. Takze asi vyreseno pokud tam nekdo nenajde nejaky chybky jakou pauzy atd:).

Napsal: **31.05.2007 22:13:32**

Todle fórum si asi nějak rádo hraje s delšíma postama, s věcma vloženejma do code a taky s postama, kde je "<>"

Jinak ke skriptu: Chtělo by to dyn. pauzu, odstranit goto, odstranit exec. Možná ještě něco dalšího, ale to se z toho zbytku kerej tam zbyl těžko dozvim :p

Napsal: **01.06.2007 13:53:11**

Vyzkoušej před postnutím Zakázat HTML v příspěvku.

Napsal: **01.06.2007 14:15:25**

Encore píše:Vyzkoušej před postnutím Zakázat HTML v příspěvku.

No jo fakt to funguje

. Takze ted uz to tam je tak jak to melo vypadat to puvodni makro:).

Napsal: **01.06.2007 14:25:56**

uo.targeting() - Blbost. UO.Targeting() vrací jenom nulu nebo jedničku, takže todle tam jaksi zcela ztrácí význam.
if UO.FindType("0x1BEF,0x0000","-1","ground") > 100 - Taky blbost. UO.FindType(asdf) imo nevrací nic. A když by už něco vracelo tak to určitě nebude počet

Edit: A navíc tam máš navíc to "-1"

>>>

Kód: Vybrat vše

sub vpanty()
  uo.addobject("batoh")
  while uo.targeting()
    wait(100)
  wend
  while true
    if not uo.count("0x1bef", "0x0000") then
      uo.print("doplnuji iron")
      UO.FindType("0x1bef", "0x0000", "batoh")
      if not uo.findcount() then
        uo.print("dosel matros, konec")
        return
      endif
      UO.Moveitem("finditem", 100, "backpack") 
      wait(500)
    endif
    uo.deletejournal()
    UO.waitmenu("Tinkering","Parts","Parts","Hinge") 
    UO.usetype("0x1EBC") 
    repeat
      wait(100)
    until uo.injournal("You put|nevimprostedyztitofizne")
    wait(500)
    if uo.count("0x1055") > 50 then
      uo.moveitem("finditem",-1,"backpack"),
      wait(500)
    endif
  wend
end sub

Možná tam mám nějakou chybku, psal sem to z hlavy. Hlášku o fizzu si doplň.

Napsal: **01.06.2007 15:09:48**

Ok dik zkusim to:). Rikam ja tomu nerorumim a nekde jsem to stahnul

.
Akorat myslim ze moje Yoko nebere tu carku mezi tim textem (You put|nevimprostedyztitofizne) jde to nejak rozepsat pro moje asi starsi Yoko?:) Nebo kde stahnout nejnovejsi Yoko:p.

Napsal: **13.10.2007 10:32:01**

Tak jsem se po dlouhy dobe zase vrhnul na trenovani Crafta. Pustil jsem script na Tinker co mne tady upravil Carda a vono kdyz mne to udela nejakej vyrobek tak mne to tu hromadu Ironu v baglu prehodi na jiny misto, ma to tam bejt nebo to je nejaka chybicka?:)

Edit: Tak novy poznatky:p..Normalne zacinam s prazdnym batohem jen s naradim na Tinker..Targetnu pytlik kde mam Iron..normalne si to vezme 100 ingu z pytliku a zacne delat..ale kdyz dojde Iron tak si to veme dalsich 100 ingu z pytliku ale nepresune to ty hotovy vyrobky do toho pytliku a v tuhle dobu mne zacnou v baglu litat ty Iron ingy, proste po kazdym udelanym vyrobku se ty ingy presunou na jiny misto v baglu.tot asi vse:p

Napsal: **13.10.2007 20:10:10**

Carda tam udělal malou chybku, tady to máš opravený:

Kód: Vybrat vše

sub vpanty()
	UO.AddObject("batoh")
	while UO.Targeting()
		Wait(100)
	wend
	while true
		if not UO.Count("0x1bef", "0x0000") then
			UO.Print("Prehazuji hinges a doplnuji iron...")
			UO.FindType("0x1055",-1,"backpack")
			if UO.FindCount() then
				UO.MoveItem("finditem",-1,"batoh")
				wait(500)
			endif
			UO.FindType("0x1bef", "0x0000", "batoh")
			if not UO.FindCount() then
				UO.Print("dosel matros, konec")
				return
			endif
			UO.Moveitem("finditem", 100, "backpack")
			wait(500)
		endif
		UO.DeleteJournal()
		UO.WaitMenu("Tinkering","Parts","Parts","Hinge")
		UO.UseType("0x1EBC")
		repeat
			Wait(100)
		until UO.InJournal("You put|Tinkering failed")
		Wait(500)
	wend
end sub

Pro ty, co si neuměj uklidit u crafta v báglu:

Kód: Vybrat vše

UO.Moveitem("finditem", 100, "backpack")

si nahraďte za

Kód: Vybrat vše

UO.MoveItem("finditem", (((UO.Str*4)+20)-UO.Weight), "backpack")

a užijte si...

Napsal: **13.10.2007 20:30:11**

Njn, to je to ctrl+c ctrl+v bez rozmejšlení no :p

Napsal: **13.10.2007 21:00:42**

Nj, nevadí - funguje. Už ho testuju skoro 2 hoďky

Napsal: **14.10.2007 00:09:50**

Supr diky. Vypada to ze funguje:)

Napsal: **15.10.2007 13:41:45**

Pepik píše:Carda tam udělal malou chybku, tady to máš opravený:

Kód: Vybrat vše

sub vpanty()
	UO.AddObject("batoh")
	while UO.Targeting()
		Wait(100)
	wend
	while true
		if not UO.Count("0x1bef", "0x0000") then
			UO.Print("Prehazuji hinges a doplnuji iron...")
			UO.FindType("0x1055",-1,"backpack")
			if UO.FindCount() then
				UO.MoveItem("finditem",-1,"batoh")
				wait(500)
			endif
			UO.FindType("0x1bef", "0x0000", "batoh")
			if not UO.FindCount() then
				UO.Print("dosel matros, konec")
				return
			endif
			UO.Moveitem("finditem", 100, "backpack")
			wait(500)
		endif
		UO.DeleteJournal()
		UO.WaitMenu("Tinkering","Parts","Parts","Hinge")
		UO.UseType("0x1EBC")
		repeat
			Wait(100)
		until UO.InJournal("You put|Tinkering failed")
		Wait(500)
	wend
end sub

Hezky, ale neco bych tomu prece jen vytknul, konkretne pevne nastaveny pocet prenasenych itemu. Copak se asi stane kdyz budu vazit 460 stounu, nebudu mit u sebe zadnej iron ingot, zadny hinges, budu mit zakladni staty, tj zadnej boost ani brnko co pridava staty a pustim tenhle skriptik?

Napsal: **15.10.2007 14:54:03**

Spike píše:Hezky, ale neco bych tomu prece jen vytknul, konkretne pevne nastaveny pocet prenasenych itemu. Copak se asi stane kdyz budu vazit 460 stounu, nebudu mit u sebe zadnej iron ingot, zadny hinges, budu mit zakladni staty, tj zadnej boost ani brnko co pridava staty a pustim tenhle skriptik?

No to potom vypneš tenhle script, vyložíš a zapneš ho znovu.

Scripty fakt nemusí umět žehlit, prát a vařit podle mě...

Napsal: **15.10.2007 15:12:40**

Spike píše:Hezky, ale neco bych tomu prece jen vytknul, konkretne pevne nastaveny pocet prenasenych itemu. Copak se asi stane kdyz budu vazit 460 stounu, nebudu mit u sebe zadnej iron ingot, zadny hinges, budu mit zakladni staty, tj zadnej boost ani brnko co pridava staty a pustim tenhle skriptik?

A co až ti bouchne za prdelí atomovka? To teprv bude!

Napsal: **15.10.2007 15:30:29**

Rixx píše:
Spike píše:Hezky, ale neco bych tomu prece jen vytknul, konkretne pevne nastaveny pocet prenasenych itemu. Copak se asi stane kdyz budu vazit 460 stounu, nebudu mit u sebe zadnej iron ingot, zadny hinges, budu mit zakladni staty, tj zadnej boost ani brnko co pridava staty a pustim tenhle skriptik?
No to potom vypneš tenhle script, vyložíš a zapneš ho znovu. Scripty fakt nemusí umět žehlit, prát a vařit podle mě...

Mam rad ve skriptech eleganci, nemuzu si pomoct

Jaky je problem cislo nahradit jednoduchym vzoreckem?? Vypada to profi a nemusis na nic myslet.
Skripty jsou od toho, aby mi zlehcovali zivot. Proc by nemeli umet zehlit, prat varit, kdyz to je uskutecnitelny a usnadni mi to praci?

Napsal: **15.10.2007 15:34:08**

Carda píše:A co až ti bouchne za prdelí atomovka? To teprv bude!

To se nestane

Napsal: **15.10.2007 20:34:22**

Spike píše:Mam rad ve skriptech eleganci, nemuzu si pomoct Jaky je problem cislo nahradit jednoduchym vzoreckem?? Vypada to profi a nemusis na nic myslet.
Skripty jsou od toho, aby mi zlehcovali zivot. Proc by nemeli umet zehlit, prat varit, kdyz to je uskutecnitelny a usnadni mi to praci?

A co kdyby jsi si to tam dopsal a přestal otravovat?*

Za 1. takhle na to aspoň bude muset dávat bacha a nebude úplně AFK (jakože to je script na hodně AFK) a za 2. psal tady někdo v topiku, že chce, aby mu to hlídalo váhu, gmka, gárdilo PKčka vedle v baráku, pak ještě script šel posekat logy, nadělat boardy, sehnat další matroš, udělat loďky a pak postávat na trhu a řvát "Prodam lode - 10k, vymenim locky za vas bronz"?

*Možná to je sprostý, ale docela se držím, abych nebyl víc...

Edit: Když jsme u tý elegance, tak jsem tady otevřel pár topiců, ale neviděl jsem jedinej tvůj script. Tak se pochlub - a já to klidně celý editnu...

Napsal: **16.10.2007 22:15:39**

Imo spike by rad script co ho odnesie na najblizsiu plosku ktora vedie do delu a vyhadzalo mu to all items na zem...

Pochop ze nie kazdy ma ten luxus domova. A script co ti otvori banku a vyhadze veci do nej, potom vytiahne z banky z truhlicky x dajme tomu 100 Ironu... no to uz je trochu pritiahnute za vlasy... Ja osobne si pred vyrobou hocicoho(aj ked je to stakovatelne ako santy) spravim maximalny poriadok u seba...