Dark Paradise

Oficiálni fórum shardu
https://www.darkparadise.eu/Forum/

Bowcraft

https://www.darkparadise.eu/Forum/viewtopic.php?t=1868

Stránka 1 z 2

Bowcraft

Napsal: 11.06.2007 19:27:49
od Hitman
Hodil bym i sem niekto makro na vyrobu sipiek po jednom?

Re: Bowcraft

Napsal: 11.06.2007 19:32:03
od 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

Napsal: 11.06.2007 19:35:11
od Tobias
na co makro lenochu!

Napsal: 11.06.2007 19:39:47
od Dante
Tobias píše:na co makro lenochu!
neni kazdej masochista ako ty :)))

Napsal: 11.06.2007 20:42:56
od Aldaris
fujtajxl zadne dynamicke pauzy :) az budu na druhem kompu, pastnu sem korektnejsi makro, pokud me nepredbehne Carda :twisted:
jinak tusim, ze to nepojede, pac tam jsou stare nazvy menu, ale nejsem si ted jisty..

Napsal: 11.06.2007 20:54:29
od 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 :-)

Napsal: 11.06.2007 21:04:07
od Hitman
Nefunguje no...

Napsal: 11.06.2007 21:16:07
od 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 :)

Napsal: 11.06.2007 21:19:28
od 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(?).

Napsal: 11.06.2007 21:50:23
od Hitman
Jn bol som to ja :)

Napsal: 11.06.2007 21:51:51
od Drakulia
Q:

Kód: Vybrat vše

UO.Exec ("cancelmenu")
Toto tu zrusi vopred urcene menu?

Napsal: 11.06.2007 22:02:45
od 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..

Napsal: 12.06.2007 13:55:12
od Drakulia
Dik za vysvetlenie, som zas o nieco mudrejsi :lol:

Melo by fachat

Napsal: 12.06.2007 17:39:28
od 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..

Napsal: 12.06.2007 17:45:26
od 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 :-)

Napsal: 12.06.2007 20:03:52
od Pepik
CancelMenu ruší i nastavení WaitMenu.

Napsal: 13.06.2007 22:09:33
od Hitman
Tak nenajde sa niaky dobrak co mi to makro sem hodi :)?

Napsal: 14.06.2007 20:13:39
od 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 :D)

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

Napsal: 14.06.2007 20:22:22
od 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 ;-)

Napsal: 14.06.2007 20:34:37
od 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 :D
Všechny časy jsou v UTC+02:00
Stránka 1 z 2

Založeno na phpBB® Forum Software © phpBB Limited

Český překlad – phpBB.cz