LastCorpse > 3

tcl70 · Post by **tcl70** » 2006-05-11 15:32:35

kak sdelat' script na proverku skolko v trupe veshej ?

, pomogite kto mozet atu ja dazhe neznaju s 4ego na4at'

Grin · Post by **Grin** » 2006-05-11 16:01:28

uo.findtype(-1, -1, "lastcorpse")
uo.print(str(uo.findcount()))

tcl70 · Post by **tcl70** » 2006-05-11 20:14:42

sposiba bolshoe

PS: kak mne skript po4enit' ? tak 4tob on zdal poka trup otkroetca i ne4ego 4tob bolshe ne delal ?

i topom po o4eredi po scriptam prohodil ?

Code: Select all

sub cheaker()
	while true
		uo.findtype("-1","-1","lastcorpse") 
		uo.Waiting("lastcorpse")
		if uo.FindCount() > 3 then
			loot()
			else
			wait(1000)
		endif
		if uo.FindCount() <= 3 then
			sac()
			else
			wait(1000)
		endif	
	wend
endsub

sub loot() 
	 UO.waittargetobject("lastcorpse"); 
	 UO.emptycontainer("550", "lastcorpse");
	 wait(3000)
	 sac()
endsub

sub sac() 
	uo.waittargetobject("lastcorpse")
	uo.sayu(".sac") 
	wait(1000)
	cheaker()
endsub

Grin · Post by **Grin** » 2006-05-11 23:29:58

труп считается открытым когда lastcontainer == lastcorpse

Edred · Post by **Edred** » 2006-05-11 23:59:40

Grin wrote:труп считается открытым когда lastcontainer == lastcorpse

Ну, наверное, не всегда? Вполне вероятно, что пока ты открываешь труп, рядом появится еще один и тогда ласткотейнер не будет равен ласткорпс.

tcl70 · Post by **tcl70** » 2006-05-12 03:15:08

ja zaputalsja

s skriptom mne nado 4tob mne ktota v asku postu4al i pomog :-/

Grin · Post by **Grin** » 2006-05-12 05:02:19

Edred wrote:
Grin wrote:труп считается открытым когда lastcontainer == lastcorpse
Ну, наверное, не всегда? Вполне вероятно, что пока ты открываешь труп, рядом появится еще один и тогда ласткотейнер не будет равен ласткорпс.

Естественно... А есле быть внимательным то я гдет ос пару месяцев назад выкладывал версию инжекта с маленьким фиксом...
Я выкинуд возможность устанавливать lasttarget за менил его на lastcontainer и народ меня не понял%))

tcl70 кидай сюда скрипт...
Если ты открываешь труп который только что упал или ыты его нашел через файнд тайп, то ничего страшного нет. Если труп только что упал то его ИД лутше сохранить, что бы избежать случия описаного эдредом.
тоесть

Code: Select all

corpse=uo.GetSerial("lastcorpse")
if uo.GetDistanse(corpse) < 3 then
    uo.useobject(corpse)
    while corpse <> uo.GetSerial("lastcontainer")
        wait(100)
    wend
end if

через файнд дтайп без всяких сохранений...
А вообще выкладывай свой скрипт.

tcl70 · Post by **tcl70** » 2006-05-12 20:34:08

Sposiba vam oboim , no serial trupika mne nenuzhen potomu kak sak delaju trup is'shezaet i 4erez 3secundi spawnitca novim mob , i ego jaa tak bistro ne ubevaju

Grin · Post by **Grin** » 2006-05-13 07:24:58

зато может убить ктонибудь другой... + поблизости могут когото убить...

tcl70 · Post by **tcl70** » 2006-05-13 12:35:11

Grin wrote:зато может убить ктонибудь другой... + поблизости могут когото убить...

somnevajus' 4to ktonit' hot' mima projdet

) , tam krome menja nekogo bolshe i netu uzhe nedelu

tcl70 · Post by **tcl70** » 2006-05-14 06:16:22

u menja script ne lutaet i govorit wrong grafic type :-/ iza 4ego eto mozet bit' ? pomogite esli vam ne zalko

Code: Select all

sub test()
	var WaitTime=800
	dim iTake[2]
	iTake[0]=0x0EED ; gold
	iTake[1]=0x1422 ; tix
	var l 
	var corpse = uo.getserial("lastcorpse")
	if UO.GetDistance(corpse) < 3 then 
		uo.useobject(corpse) 
		while corpse <> uo.GetSerial("lastcontainer") 
			wait(100) 
		wend 
	end if
	wait(550) 
	For l = 0 To 1 
		repeat 
		if UO.FindCount("finditem") >= 1 then
			UO.FindType(iTake[l], "-1", "lastcontainer" ) 
			UO.MoveItem( "finditem" ) 
			wait( 1000 ) 
			UO.FindType(iTake[l], "-1", "lastcontainer" )
		endif	
		until UO.FindCount("finditem") <= 1
	next
	UO.Print(UO.Count(corpse))
endsub

Grin · Post by **Grin** » 2006-05-14 12:04:49

Code: Select all

sub test()
	var WaitTime=800
	var l
	var corpse = uo.getserial("lastcorpse")
	dim iTake[2]
	iTake[0]=0x0EED ; gold
	iTake[1]=0x1422 ; tix
	if UO.GetDistance(corpse) < 3 then
		uo.useobject(corpse)
		while corpse <> uo.GetSerial("lastcontainer")
			wait(100)
		wend
		For l = 0 To 1
			repeat
				UO.FindType(iTake[l], "-1", corpse)
				if uo.FindCount() then
					UO.grab("finditem")
					wait(1000)
				end if
			until UO.FindCount() <= 1
		next
	end if
	UO.Print(UO.GetGraphic(corpse))
end sub

tcl70 · Post by **tcl70** » 2006-05-14 17:08:02

Grin sposiba tebe snova za pomosh no uo.grab 4et na tom servake nepashet kak nado , tolko precel vilezaet i vse :-/

PS: script zarabotal kogda grab na moveitem smenil

Grin · Post by **Grin** » 2006-05-14 18:57:07

UO.grab(0, "finditem")

tcl70 · Post by **tcl70** » 2006-05-14 20:19:58

sposiba bolshoe rabotaet super teper'

tcl70 · Post by **tcl70** » 2006-05-15 01:04:46

kak sdelat' tak 4tob script dozhidalsja trupa i ne4ego ne delal poka on ne otkroetca ?

Code: Select all

##Cheaker##
sub iLook()
	while true 
		uo.findtype("-1","-1","lastcorpse") 
		if uo.FindCount() >= 3 then 
			iLoot() 
			else 
			iTake()
			wait(1000) 
		endif
	wend
end sub

##Looter##
sub iLoot()
   var WaitTime=800 
   var l 
   var corpse = uo.getserial("lastcorpse") 
   dim iTake[2] 
   iTake[0]=0x0EED ; gold 
   iTake[1]=0x1422 ; tix 
   if UO.GetDistance(corpse) < 3 then 
      uo.useobject(corpse) 
      while corpse <> uo.GetSerial("lastcontainer") 
         wait(100) 
      wend 
	  UO.SetReceivingContainer(0x40004DD6)
      For l = 0 To 1 
         repeat 
            UO.FindType(iTake[l], "-1", corpse) 
            if uo.FindCount() then 
               UO.grab(0, "finditem") 
               wait(1000) 
            end if 
         until UO.FindCount() <= 1 
      next 
   end if 
   UO.UnSetReceivingContainer()
   UO.Print(UO.GetGraphic(corpse))
   wait(3000)
   iSac()
end sub

##Loot all items##
sub iTake()
	UO.waittargetobject("lastcorpse");
	UO.emptycontainer("550", "lastcorpse");
	wait(3000)
	iSac()
end sub

##Corpse .sac script##
sub iSac()
	uo.waittargetobject("lastcorpse");
	uo.sayu(".sac");
	wait(2000) 
	iLook()	
end sub

Grin · Post by **Grin** » 2006-05-15 09:46:09

Code: Select all

##Cheaker## 
sub iLook()
	var corpse 
	while true 
		uo.findtype("0x2006","-1","ground") 
		wait(500)
		if uo.FindCount() then
			corpse=uo.GetSerial("finditem")
			uo.findtype("-1","-1",corpse)
			if uo.findcount()>=3 then
				iLoot(corpse) 
			else 
				iTake(corpse) 
				wait(1000)
			end if
			uo.ignore(corpse) 
		endif 
	wend 
end sub 

##Looter## 
sub iLoot(corpse) 
var WaitTime=800 
var l 
dim iTake[2] 
iTake[0]=0x0EED ; gold 
iTake[1]=0x1422 ; tix 
if UO.GetDistance(corpse) < 3 then 
uo.useobject(corpse) 
while corpse <> uo.GetSerial("lastcontainer") 
wait(100) 
wend 
UO.SetReceivingContainer(0x40004DD6) 
For l = 0 To 1 
repeat 
UO.FindType(iTake[l], "-1", corpse) 
if uo.FindCount() then 
UO.grab(0, "finditem") 
wait(1000) 
end if 
until UO.FindCount() <= 1 
next 
end if 
UO.UnSetReceivingContainer() 
UO.Print(UO.GetGraphic(corpse)) 
wait(3000) 
iSac(corpse)
end sub 

##Loot all items## 
sub iTake(corpse) 
UO.waittargetobject(corpse); 
UO.emptycontainer("550", corpse); 
wait(3000) 
iSac(corpse) 
end sub 

##Corpse .sac script## 
sub iSac(corpse) 
uo.waittargetobject(corpse); 
uo.sayu(".sac"); 
wait(2000) 
end sub

tcl70 · Post by **tcl70** » 2006-05-15 10:23:34

Sposiba tebe OGROMNOE

PS: ja ne Gay