Yoko

All sides of Injection
It is currently 2025-12-03 03:13:52

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 18 posts ] 
  Print view Previous topic | Next topic 
Author Message
tcl70
 Post subject: LastCorpse > 3
PostPosted: 2006-05-11 15:32:35 
Offline

Joined: 2006-05-11 15:28:15
Posts: 13
kak sdelat' script na proverku skolko v trupe veshej ? :) , pomogite kto mozet atu ja dazhe neznaju s 4ego na4at'
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-05-11 16:01:28 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Code:
uo.findtype(-1, -1, "lastcorpse")
uo.print(str(uo.findcount()))
Top
   
Reply with quote  
tcl70
 Post subject:
PostPosted: 2006-05-11 20:14:42 
Offline

Joined: 2006-05-11 15:28:15
Posts: 13
sposiba bolshoe :D

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:
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
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-05-11 23:29:58 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
труп считается открытым когда lastcontainer == lastcorpse
Top
   
Reply with quote  
Edred
 Post subject:
PostPosted: 2006-05-11 23:59:40 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
Grin wrote:
труп считается открытым когда lastcontainer == lastcorpse


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

_________________
Ни один скрипт не работает? Пора обновить Инжект...
Все работает, но хочется большего? Пора переходить на стелс...
Top
   
Reply with quote  
tcl70
 Post subject:
PostPosted: 2006-05-12 03:15:08 
Offline

Joined: 2006-05-11 15:28:15
Posts: 13
ja zaputalsja :? s skriptom mne nado 4tob mne ktota v asku postu4al i pomog :-/
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-05-12 05:02:19 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Edred wrote:
Grin wrote:
труп считается открытым когда lastcontainer == lastcorpse


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

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

tcl70 кидай сюда скрипт...
Если ты открываешь труп который только что упал или ыты его нашел через файнд тайп, то ничего страшного нет. Если труп только что упал то его ИД лутше сохранить, что бы избежать случия описаного эдредом.
тоесть
Code:
corpse=uo.GetSerial("lastcorpse")
if uo.GetDistanse(corpse) < 3 then
    uo.useobject(corpse)
    while corpse <> uo.GetSerial("lastcontainer")
        wait(100)
    wend
end if

через файнд дтайп без всяких сохранений...
А вообще выкладывай свой скрипт.
Top
   
Reply with quote  
tcl70
 Post subject:
PostPosted: 2006-05-12 20:34:08 
Offline

Joined: 2006-05-11 15:28:15
Posts: 13
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 :)
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-05-13 07:24:58 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
зато может убить ктонибудь другой... + поблизости могут когото убить...
Top
   
Reply with quote  
tcl70
 Post subject:
PostPosted: 2006-05-13 12:35:11 
Offline

Joined: 2006-05-11 15:28:15
Posts: 13
Grin wrote:
зато может убить ктонибудь другой... + поблизости могут когото убить...


somnevajus' 4to ktonit' hot' mima projdet :)) , tam krome menja nekogo bolshe i netu uzhe nedelu :)

Image
Top
   
Reply with quote  
tcl70
 Post subject:
PostPosted: 2006-05-14 06:16:22 
Offline

Joined: 2006-05-11 15:28:15
Posts: 13
u menja script ne lutaet i govorit wrong grafic type :-/ iza 4ego eto mozet bit' ? pomogite esli vam ne zalko
Code:
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
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-05-14 12:04:49 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Code:
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
Top
   
Reply with quote  
tcl70
 Post subject:
PostPosted: 2006-05-14 17:08:02 
Offline

Joined: 2006-05-11 15:28:15
Posts: 13
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 :D
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-05-14 18:57:07 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
UO.grab(0, "finditem")
Top
   
Reply with quote  
tcl70
 Post subject:
PostPosted: 2006-05-14 20:19:58 
Offline

Joined: 2006-05-11 15:28:15
Posts: 13
sposiba bolshoe rabotaet super teper' :)
Top
   
Reply with quote  
tcl70
 Post subject:
PostPosted: 2006-05-15 01:04:46 
Offline

Joined: 2006-05-11 15:28:15
Posts: 13
kak sdelat' tak 4tob script dozhidalsja trupa i ne4ego ne delal poka on ne otkroetca ?
Code:
##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
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-05-15 09:46:09 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Code:
##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
Top
   
Reply with quote  
tcl70
 Post subject:
PostPosted: 2006-05-15 10:23:34 
Offline

Joined: 2006-05-11 15:28:15
Posts: 13
Sposiba tebe OGROMNOE Image

PS: ja ne Gay
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 18 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 1 guest

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited