Kdosi to po mně chtěl, tak to dám i sem (post+, třeba někdo využije :p), snad je to dost "dp-odladěný" :p Stačí zapnout a probíhat kolem potvor, který to má poiznout (ale je třeba u ní bejt tak dlouho, aby to stihlo poisonou, a taky dostatečně blízko). Možná se to bude pokoušet poiznout i vampa, nebo kohokoliv v morfu, ale to snad vadit nebude :p Nevim jesi poisoning může fiznout, mě se to ještě nepovedlo, tak jesi jo, tak tam tu hlášku dopsat :p Pokud nejde poisnout, bo provadíte nějakou akci (= hláška Kdyz se snazis pracovat s jedem blabal), tak přepne war mod a zkusí poiznout znova. Pokud se poizn povede, tak ignorne potvoru a hledá dál
Kód: Vybrat vše
sub Poisoning()
UO.Set("finddistance",1)
While True
UO.FindType(-1, -1,"ground")
If UO.IsNPC("finditem") && UO.GetGraphic("finditem") <> "0x0190" && UO.GetGraphic("finditem") <> "0x0191" Then
UO.DeleteJournal()
UO.WaitTargetObject("finditem")
UO.UseType("0x1837")
Repeat
Wait(100)
Until UO.InJournal("Uspesne jsi otravil|Kdyz se snazis pracovat s jedem|Na cili jiz nekdo|You can't see")
Wait(500)
If UO.InJournal("Kdyz se snazis pracovat s jedem|You can't see") Then
UO.Exec("warmode flip")
Else
UO.Ignore("finditem")
EndIf
Else
UO.Ignore("finditem")
EndIf
Wait(500)
Wend
end sub
Fungovat by to mělo, testoval sem to :p Pokud ne, tak napsat, pokusím se opravit (teda jestli to vůbec někdo použije, že :p). Využítí to má asi jen zezačátku na slabejch potvorách, v dungu asi nic moc
Edit: Opraveny hlášky.
Edit2: Opravena oprava opravy.
