Dark Paradise

Napsal: **24.08.2007 14:15:59**

Edit: Pro nově příchozí: Tak tohle byl původně topic o skriptu, kterým se přesunou všechny možný regy všude možně poházený v batohu do nějakého pytlíku. K tomu se tu objevily nějaký alternativy. JENŽE. Pak se tu páni skripteři porafali, pan moderátor z toho kus poslal do Pokecu a výsledný topic nedává moc smysl. Tak si to, milý čtenáři, užij
/Edit

Jiná možnost, jak udržet pořádek v looterově batohu, je namést na začátku dungu všechny regy do jednoho rohu báglu a ty nově lootlé se budou samy uklízet rovnou na ně:

Kód: Vybrat vše

sub RegBroom()
   For var reg = 0x0F78 to 0x0F91
      UO.FindType(reg, -1, "backpack")
      If UO.FindCount() Then
         UO.MoveItem("finditem", -1, "backpack", 30, 140,0)
         Wait(500)
      EndIf
   Next
end sub

Edit2: Skript není odolný proti WorldSave. Přijde-li WS, je nutné skript manuálně přerušit.

Napsal: **24.08.2007 14:21:14**

Pak ale nedoporučuju nešikovně umírat :p

Napsal: **25.08.2007 01:48:59**

dokazes to udelat i tak abych vybral pitlik a nahazelo to do nej

Napsal: **25.08.2007 09:48:00**

Kód: Vybrat vše

sub RegPresun()
UO.AddObject("regpack")
while UO.Targeting()
   wait(200)
wend
   For var reg = 0x0F78 to 0x0F91
      UO.FindType(reg, -1, "backpack")
      If UO.FindCount() Then
         UO.MoveItem("finditem", -1, "regpack")
         Wait(500)
      EndIf
   Next
end sub

Přepisoval jsem to narychlo tady na fóru, ani jsem to nezkoušel, tak za případné chyby se omlouvám.

Napsal: **25.08.2007 09:52:43**

Jn, todle mi právě připadá dost silně nepraktický, dycky na ten pytlík klikat :p

Napsal: **25.08.2007 10:17:19**

Pravda...
Takže jinak:

Kód: Vybrat vše

sub zadej_regpack()
UO.AddObject("regpack")
while UO.Targeting()
   wait(200)
wend
end sub

Kód: Vybrat vše

sub RegPresun()
   For var reg = 0x0F78 to 0x0F91
      UO.FindType(reg, -1, "backpack")
      If UO.FindCount() Then
         UO.MoveItem("finditem", -1, "regpack")
         Wait(500)
      EndIf
   Next
end sub

Na začátku výpravy (nebo bohužel po každém pádu klienta) zapneš jenou script zadej_regpack a zaměříš jím batoh, do kterého přesouvat regy. A potom už jenom zapínáš script RegPresun.

BTW: Nezapínejte ho po lootnutí každé mrtvoly, ale pouze párkrát za dung, jinak by změna systému lootu neměla moc velký smysl.

Edit: Oprava prvního scriptu - chyběl end sub.

Napsal: **25.08.2007 10:38:54**

Mám pocit, že UO.Saveconfig() /případně ,saveconfig/ ukládá pouze nastavení Yoka (to co jde změnit na záložce Main apod.), nikoliv hodnoty proměnných ze hry/scriptu. Ale monžá se pletu, chtělo by to prozkoušet.

Napsal: **25.08.2007 10:56:06**

Encore: Ukládá i objekty.

Napsal: **25.08.2007 10:57:23**

Carda píše:Ukládá i objekty.

ty se ukladaj samy pokud hru vypnes standartne pres logout > X nebo jen X

mizej jen pri cc

Napsal: **25.08.2007 11:01:01**

(tu byli nějaký blbosti)

Edit: Ale nevim, možná máš spešl edici yoka, nebo nějakýho super klienta nebo si prostě bůh, ale mě to teda při normální odlogu a vypnutí klienta (log out -> ok -> quit) objekty neukládá.

Napsal: **25.08.2007 11:15:56**

To Carda: Vyzkoušeno, ,savegonfig ukládá i objekty.

To Wizzy: Samy se neukládaj, ani když použiješ logout. Taky vyzkoušeno na Yoku 505.18 a clientu 1.26.4b (a nevěřím, že 1.26.4a by tohle uměl, když to je záležitost spíš Yoka).

BTW: Cardo, co to je tady za Edity?

Napsal: **25.08.2007 11:16:00**

Aha.

Edit: Encore: Pozor postuješ tu úplně nejvíc "nedpfriendly" skripty, odnesou tě mimozemšťani a budou tě sondovat studenými nástroji po celém těle!

Btw. Aspoň vyzkoušíme jak sou modové aktivní, než to smažou no :p

Napsal: **25.08.2007 11:20:37**

Encore píše: To Wizzy: Samy se neukládaj, ani když použiješ logout. Taky vyzkoušeno na Yoku 505.18 a clientu 1.26.4b (a nevěřím, že 1.26.4a by tohle uměl, když to je záležitost spíš Yoka).

na tom samim se mi po logout > X a znovuspusteni klienta normalne ulozej a po nalogovani de v klidu ,useobject xxx

,addobject neco
logout > X
spusteni klienta > login
a ",useobject neco" funguje

Napsal: **25.08.2007 11:30:55**

Ještě je otázka, jestli je Logout > Quit a Logout > X to samé.
U mě je vidět malá prodleva před zavřením okna, pokud použiju Quit, pokud použiju X tak zmizí hned.
Edited by Bluespace: Pročištěno, upraven název.

Napsal: **25.08.2007 12:58:29**

Encore píše:Ještě je otázka, jestli je Logout > Quit a Logout > X to samé.

Není no. Ono bych řekl, že standartnější je teda vypínat to přes quit a ne přes křížek. Proto je lepší použít uo.saveconfig. Bohužel Wizzyho způsob odlogu přes křížek je dle něj asi jedinej způsob -> on přeci musí mít pravdu!!!
Jinak, Wizzy pls, kterej skript z těhdle je lepčí (víc dp-odladěnej), abych ho mohl používat?

Kód: Vybrat vše

sub Cleaner()
	var batoh = "0x4001E132"
	For var reg = 0x0F78 to 0x0F91
		UO.FindType(reg, -1, "backpack")
		If UO.FindCount() Then
			MoveItem("finditem", -1, batoh)
		EndIf
	Next
	UO.Print("Presunuto.")
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub MoveItem(what, quantity, to)
	var timeout = 10000
	var container = UO.ContainerOf(what)
	UO.MoveItem(what, quantity, to)
	Wait(500)
	While container == UO.ContainerOf(what) && timeout
		timeout = timeout - 100
		Wait(100)
	Wend
end sub

Kód: Vybrat vše

sub Cleaner()
	var batoh = "0x4001E132"
	UO.DeleteJournal()
	For var reg = 0x0F78 to 0x0F91
		UO.FindType(reg, -1, "backpack")
		If UO.FindCount() Then
			UO.MoveItem("finditem", -1, batoh)
			Wait(500)
			WS()
		EndIf
	Next
	UO.Print("Presunuto.")
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub WS()
	If UO.InJournal("World save has been initiated.") Then # nejsem si jistej jak ta hlaska je :-)
		UO.Print("SAVE!!!")
		UO.Click("self")
		Repeat
			Wait(100)
		Until UO.InJournal(UO.GetName("self"))
		UO.DeleteJournal()
	Endif
end sub

Kód: Vybrat vše

sub Cleaner()
	var batoh = "0x4001E132"
	UO.DeleteJournal()
	For var reg = 0x0F78 to 0x0F91
		UO.FindType(reg, -1, "backpack")
		If UO.FindCount() Then
			UO.MoveItem("finditem", -1, batoh)
			Wait(500)
			If UO.InJournal("World save has been initiated.") Then # nejsem si jistej jak ta hlaska je :-(
				UO.ShutdownWindows("force")
			Endif
		EndIf
	Next
	UO.Print("Presunuto.")
end sub

Prosím pomoc, todle nemám odkud zkopírovat no

A bez tvýho svolení si nedovolim nic takovýho použít

Napsal: **26.08.2007 01:53:54**

Carda píše:...

Kód: Vybrat vše

UO.ShutdownWindows("force")

Tak to ten 3ti scriptik je v celku funny

Napsal: **26.08.2007 02:17:01**

Kód: Vybrat vše

sub Cleaner() 
   var batoh = "0x4001E132" 
   UO.DeleteJournal() 
   For var reg = 0x0F78 to 0x0F91 
      UO.FindType(reg, -1, "backpack") 
      If UO.FindCount() Then 
         UO.MoveItem("finditem", -1, batoh) 
         Wait(500) 
         If UO.InJournal("World save has been initiated.") Then # nejsem si jistej jak ta hlaska je :-( 
            UO.ShutdownWindows("force") 
         Endif 
      EndIf 
   Next 
   UO.Print("Presunuto.") 
end sub

Ty, cardo, a jak to že mě to vyplo počítač ?

Napsal: **26.08.2007 10:32:03**

Tommy píše:

Kód: Vybrat vše

sub Cleaner() 
   var batoh = "0x4001E132" 
   UO.DeleteJournal() 
   For var reg = 0x0F78 to 0x0F91 
      UO.FindType(reg, -1, "backpack") 
      If UO.FindCount() Then 
         UO.MoveItem("finditem", -1, batoh) 
         Wait(500) 
         If UO.InJournal("World save has been initiated.") Then # nejsem si jistej jak ta hlaska je :-( 
            UO.ShutdownWindows("force") 
         Endif 
      EndIf 
   Next 
   UO.Print("Presunuto.") 
end sub

Ty, cardo, a jak to že mě to vyplo počítač ?

viz drakuliov post

Napsal: **26.08.2007 11:26:19**

Carda píše:...

nebud furt urazenej :( prece te muj nazor vubec nezajima 8)

Napsal: **26.08.2007 11:57:24**

Psal sem k tomu dodatek, že si mě trošku špatně pochopil, resp. myslel sem to trošku jinak, ale to bys musel nejdřív moje posty číst, než na ně odpovíš :p
Ten první skript je zároveň laguvzdornej (dyž se reg nestihne přesunout do 500ms, tak čeká dál), ale za save tam možná nějaký ty tři requesty pošle no. Druhej je jenom ošetřenej na ws a pauzne se. Třetí je speciálně pro Wizzyho :p

Dark Paradise

Úklid regů v batohu

Úklid regů v batohu