Bowcraft

[Hitman]

Hodil bym i sem niekto makro na vyrobu sipiek po jednom?

[Dante]

Kód: Vybrat vše

var chest           = 0x4003CBF6         ;bedna  s logy
var base_chest      = 0x4003CBF6
    
var dagger          = 0x0F51
var log             = 0x1BDD
var Unfinished_Shafts = 0x1BD6
var shafts          = 0x1BD4
var feathers_t      = 0x1BD1
var crossbow_bolt_t = 0x1BFB
var arrows_t        = 0x0F3F

; dela shafty po jednom
sub make_shaft_by_one()   
    var max_count       = 10
    var count
       
    UO.Exec ("cancelmenu")  
    UO.AutoMenu('What do you want to carve the wood','Shafts')
    ;UO.Say("bank")
    UO.UseObject(base_chest)
    Wait(1000)    
    UO.UseObject(chest)
    Wait(1000)
    While TRUE
        if UO.Count(log, "-1") < 1 then
            ;UO.Print("LOGS REFILL")
            UO.FindType(log, "-1", chest)
            If UO.FindCount() < 1 Then
                UO.Print("NO LOGS.")
                goto end
            endif
            UO.MoveItem("finditem","1","backpack")
            wait(1200)
        end if    
        UO.DeleteJournal()
        count = 0
        UO.WaitTargetType(log, 0x0000)
        UO.UseType(dagger, 0x0000)
        Wait(1000)
        While NOT UO.InJournal("You put the") AND NOT UO.InJournal("You fail to") AND count <max_count> 0 then
            UO.UseType(Unfinished_Shafts, 0x0742)
            wait(1000)
        end if    
        
        ; vrat hotove shafts do bedny
        UO.FindType(shafts, 0x0000)
        if  UO.GetQuantity("finditem") > 100 then
            UO.MoveItem("finditem", "0", chest)
            Wait(2000)
        end if
    Wend
end:
UO.Exec ("cancelmenu")
end sub

; dala sipky do kuse
sub make_crossbow_bolts()
   make_bolts('Crossbow bolts')
end sub

; dela sipy
sub make_arrows()
   make_bolts('Arrows')
end sub

Sub make_bolts(what_to_do)    
    ; do not change
    var max_count       = 10
    var count
    
    UO.Exec ("cancelmenu")  
    UO.AutoMenu('Select arrow type',what_to_do)
    UO.UseObject(base_chest)
    Wait(1000)    
    UO.UseObject(chest)
    Wait(1000)
    
    While TRUE
        if UO.Count(shafts, "-1") < 1 then
            ;UO.Print("shafts REFILL")
            UO.FindType(shafts, "-1", chest)
            If UO.FindCount() < 1 Then
                UO.Print("NO shafts.")
                goto end
            endif
            UO.MoveItem("finditem","2","backpack")
            wait(1200)
        end if    
        if UO.Count(feathers_t, 0x0000) < 1 then
            ;UO.Print("feathers REFILL")
            UO.FindType(feathers_t, -1, chest)
            If UO.FindCount() < 1 Then
                UO.Print("NO feathers.")
                goto end
            endif
            UO.MoveItem("finditem", 2, "backpack")
            wait(1500)
        end if            
        UO.DeleteJournal()
        count = 0
        ;UO.WaitTargetType(shafts, 0x0000)
        UO.UseType(shafts, 0x0000)
        Wait(1000)
        While NOT UO.InJournal("You put the") AND NOT UO.InJournal("You fail to") AND count <max_count> 100 then
            UO.MoveItem("finditem", "0", chest)
            Wait(2000)
        end if

        ; vrat hotove sipy do bedny
        UO.FindType(arrows_t, 0x0000)
        if  UO.GetQuantity("finditem") > 100 then
            UO.MoveItem("finditem", "0", chest)
            Wait(2000)
        end if        
        
        
    Wend
end:
UO.Exec ("cancelmenu")
end sub

sub my_terminate()
UO.Exec ("cancelmenu")
UO.Exec ("terminate all")
end sub

starsi script od xDreama


len zmenis tie rpve dve veci na svoju truhlu

[Tobias]

na co makro lenochu!

[Dante]

na co makro lenochu!

neni kazdej masochista ako ty ))

[Aldaris]

fujtajxl zadne dynamicke pauzy az budu na druhem kompu, pastnu sem korektnejsi makro, pokud me nepredbehne Carda
jinak tusim, ze to nepojede, pac tam jsou stare nazvy menu, ale nejsem si ted jisty..

[Carda]

Ani ne
Jen by mě zajímalo co je todle

Kód: Vybrat vše

count <max_count>

? Sem nějako nepobral
Jinak, i ty masochisto! :p Udělám šíp(ku), než se udělá, tak přesunuju nevim co do bedny? Tj rly cool

[Hitman]

Nefunguje no...

[Aldaris]

carda: vypada to, ze je to dohromady

Kód: Vybrat vše

count < max_count > 100 

cili count je mensi nez max a zaroven max je vetsi jak 100... ale nad vyznamem se mi nechce farat

[Carda]

Mám takovej divnej pocit, že todle zrovna moc v Yoku ne-e
2Hitman: Ano, a je dobře, že nefunguje. Je to docela harakiri skript, viz. post předtim, že.
P.S: Grats k výhře (teda jesis to byl ty :p) baráku(?).

[Hitman]

Jn bol som to ja

[Drakulia]

Q:

Kód: Vybrat vše

UO.Exec ("cancelmenu")

Toto tu zrusi vopred urcene menu?

[Aldaris]

CancelMenu rusi nastavene AutoMenu, protoze aoutomenu napises jednou a pak to mas uz nafurt dokud to nezrusis..

oproti tomu WaitMenu je podle me lukrativnejsi. Musi se sice napsat pred kazdou akci, ktera to menu vyvola, ale zato se nemusis starat o jekkoliv ruseni..

edit preklep..

[Drakulia]

Dik za vysvetlenie, som zas o nieco mudrejsi

[Surralis]

Kód: Vybrat vše

sub Sipky()
while 1
   if UO.Weight > 500 then
        UO.Say(" mam toho moc! ")
        goto konec:
   endif

   UO.FindType('0x1bd1',-1,'ground')
   if UO.FindCount() < 1 then
        UO.Print("Doslo peri! ")
        goto konec:
   endif
   UO.MoveItem("finditem","1","backpack")
   
   UO.UseType('0x1bd4')
;   UO.Exec("waitmenu 'Select arrow type''Arrows'")
   UO.Exec("waitmenu 'Select arrow type''Crossbow bolts'")
   wait(2000)
   wend
konec:
end sub

Peri na zemi, shafty u sebe nebo naopak Vyzkousej si to s par kusama, a kdyztak me opravte pauzy, , jsem ten script malicko poupravoval, protoze me nefachal kdyz jsem ho stahl..

[Carda]

Chce to dynamickou pauzu, moveitem bez pauzy je docela zajímavý, goto na nic, exec fuj. Dyž ti to náhodou hodněkrát fizne, tak tě to přeplní peřím/shaftama A taky mám ten pocit, že dyž do počtu předmětů k přesunu u moveitem prdneš string (něco v uvozovkách :p [např. tvoje "1"]), tak ti to přesune šecko

[Pepik]

CancelMenu ruší i nastavení WaitMenu.

[Hitman]

Tak nenajde sa niaky dobrak co mi to makro sem hodi ?

[Pepik]

No, je to hodně starý.... Shafty v báglíku, peří někde bokem v truhle, pytlíku atd... (pokud si to dobře pamatuju, dělal jsem s tím asi tak před rokem naposled - ať žijou i starý zálohy )

Kód: Vybrat vše

Sub WaitForJournal(text)
	repeat
		wait(200)
	until UO.InJournal(text)
end sub

Sub addObj(obj)
	UO.Set("quiet",1) ;hlasky co je co, si nastav v makru...
	UO.addObject(obj)
	while UO.targeting()
		wait(100)
	wend
	UO.Set("quiet",0)
end sub

sub Sipky()
	UO.Print("Z ktereho pytliku chces brat shafty a peri?")
	AddObj("pytlik")
	Wait(500)
	UO.UseObject("pytlik")
	Wait(1000)
	while 1 ;blba podminka taky podminka
		UO.DeleteJournal()
		if UO.Weight > 500 then ;tak co vaha...
			UO.Say("Mam toho moc! ")
			return 1
		endif
		UO.FindType("0x1bd4",-1,"bagpack"); mame shafty v bagliku?
		if UO.FindCount() < 1 then
			UO.Print("Dosly shafty")
			return 0
		end if
		UO.FindType("0x1bd1",-1,"pytlik") ;mame peri?
		if UO.FindCount() < 1 then
			UO.Print("Doslo peri! ")
			return 0
		endif
		UO.MoveItem("finditem","1","backpack")
		Wait(500)
		UO.UseType("0x1bd4") ;shaft?
;		UO.WaitMenu("Select arrow type","Arrows")
		UO.WaitMenu("Select arrow type","Crossbow bolts")
		WaitForJournal("You put the|You fail to create|No item|target")
		if UO.InJournal("No item found") then ;obcas v lagu to zablbne - nestihne vzit item
			UO.Print("Neco doslo...")
			return 0
		endif
		Wait(500)
	wend
end sub

[Carda]

Kód: Vybrat vše

UO.FindType("0x1bd4",-1,!!!"bagpack"!!!)

:p

Kód: Vybrat vše

      if UO.FindCount() < 1 then 
         UO.Print("Dosly shafty") 
         return 0 
      end if

Nestačilo by místo findtype jednoduše uo.count?

Kód: Vybrat vše

;obcas v lagu to zablbne - nestihne vzit item

Možná by to veřešila dyn. pauza

[Pepik]

Jo, dneska jo, ale tenkrát jsem byl hroznej myšák a scripty jsem skládal, jak se dalo, a byl rád, že to aspoň chodí... Navíc - je to taková self AFK kontrola