Yoko

Posted: **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'

Posted: **2006-05-11 16:01:28**

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

Posted: **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

Posted: **2006-05-11 23:29:58**

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

Posted: **2006-05-11 23:59:40**

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

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

Posted: **2006-05-12 03:15:08**

ja zaputalsja

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

Posted: **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

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

Posted: **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

Posted: **2006-05-13 07:24:58**

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

Posted: **2006-05-13 12:35:11**

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

somnevajus' 4to ktonit' hot' mima projdet

) , tam krome menja nekogo bolshe i netu uzhe nedelu

Posted: **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

Posted: **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

Posted: **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

Posted: **2006-05-14 18:57:07**

UO.grab(0, "finditem")

Posted: **2006-05-14 20:19:58**

sposiba bolshoe rabotaet super teper'

Posted: **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

Posted: **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

Posted: **2006-05-15 10:23:34**

Sposiba tebe OGROMNOE

PS: ja ne Gay

Yoko

LastCorpse > 3

LastCorpse > 3