Yoko

All sides of Injection
It is currently 2026-01-21 03:56:08

All times are UTC+02:00




Post new topic  Reply to topic  [ 7 posts ] 
Author Message
 Post subject: АвтоЛут
PostPosted: 2006-07-03 15:55:33 
Offline

Joined: 2006-03-15 14:29:33
Posts: 75
Location: Латвия
Дайте пожалуйста скрипт на авто лут... тоесть еслы кто-то падает и откреваетса его труп так сразу чтоб лутал без нажатия кнопки!
За ранное спасибо! :!: :arrow:

_________________
It's t1m3 to pvp....


Play hard Go pro


Top
   
 Post subject:
PostPosted: 2006-07-03 21:36:34 
Offline
User avatar

Joined: 2006-05-23 11:48:22
Posts: 145
Может чтобы когда в журнале появлялься надпись Боди?????


Top
   
 Post subject:
PostPosted: 2006-07-03 21:53:59 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
Code:
sub dasfbfad()
uo.deletejournal()
while true
if uo.injournal('Body') then
uo.deletejournal()
Loot()
else
wait(1000)
end if
wend
end sub


Code:
Sub Loot()
   If uo.getglobal('Loot')=='On' then
   uo.setglobal('Loot',0)
   uo.exec('terminate Loot')
   uo.print(' !!! -= Loot Terminated =- !!! ')
   else
   uo.setglobal('Loot','On')
   uo.print(' !!! -= Looting =- !!! ')

 repeat
  UO.FindType('-1','-1','lastcontainer')
  UO.Print(' !!! Looting Items: '+str(UO.findcount()))
  UO.Ignore('finditem')
  UO.MoveItem('finditem')
  Wait(500)
 until UO.FindCount()==0
 
uo.setglobal('Loot',0)
uo.print(' !!! -= Done =- !!! ')
end sub
[/code]

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2006-07-03 22:09:04 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Для рботы нужна модификация инжекта;) работать будет на ОЛДП версии
(берет деньги)
Перл
Code:
sub autograb{
   while (!uo::dead()){
      &wait(100);
      if (uo::getserial('lastcorpse') eq uo::getserial('lastcontainer')){
         uo::findtype(0xeed, -1, 'lastcontainer');
         if (uo::findcount){
            uo::grab(0, 'finditem');
            &wait(700);
         }
         uo::set('lastcontainer', uo::getserial);
      }
   }
}

Стандартный
Code:
sub autograb()
   while not uo.dead()
      wait(100)
      if (uo.getserial("lastcorpse") == uo.getserial("lastcontainer")) then
         uo.findtype("0xeed", -1, "lastcontainer")
         if (uo.findcount) then
            uo.grab(0, "finditem")
            wait(700)
         end if
         uo.set("lastcontainer", uo.getserial())
      end if
   wend
end sub


Top
   
 Post subject:
PostPosted: 2006-07-03 23:37:03 
Offline
User avatar

Joined: 2006-02-28 13:39:53
Posts: 35
Code:
sub looting() 
var corpse,i,j
uo.set('finddistance','2')
uo.set('distance','2')
DIM Loot[11]
Loot[0] = 0x0EED; # Gold
Loot[1] = 0x0F26; # Diamond
Loot[2] = 0x0F21; # Star Sapphire
Loot[3] = 0x0F8C; # Sulfurous Ash
Loot[4] = 0x0F7B; # Blood Moss
Loot[5] = 0x0F86; # Mandrake Root
Loot[6] = 0x0F84; # Garlic
Loot[7] = 0x0F88; # Nightshade
Loot[8] = 0x0F8D; # Spiders Silk
Loot[9] = 0x0F7A; # Black Pearl
Loot[10] = 0x0F85; # Ginseng
Loot[11] = 0x0F7E; # Bone

DIM Text[11]
Text[0] = 'Gold Coins'
Text[1] = 'Diamons'
Text[2] = 'Star Sapphires'
Text[3] = 'Sulfurous Ash'
Text[4] = 'Blood Moss'
Text[5] = 'Mandrake Root'
Text[6] = 'Garlic'
Text[7] = 'Nightshade'
Text[8] = 'Spiders Silk'
Text[9] = 'Black Pearl'
Text[10] = 'Ginseng'
Text[11] = 'Bone'

DIM Vars[11]
Vars[0] = uo.gold
Vars[1] = uo.count('0x0F26')
Vars[2] = uo.count('0x0F21')
Vars[3] = uo.count('0x0F8C')
Vars[4] = uo.count('0x0F7B')
Vars[5] = uo.count('0x0F86')
Vars[6] = uo.count('0x0F84')
Vars[7] = uo.count('0x0F88')
Vars[8] = uo.count('0x0F8D')
Vars[9] = uo.count('0x0F7A')
Vars[10] = uo.count('0x0F85')
Vars[11] = uo.count('0x0F7E')

while true
while uo.countonground('0x2006') > 0
if UO.Weight > 40000 then
uo.print("Too much weight! There're "+STR(UO.Gold)+" gold coins in backpack!")
uo.waittargettype('0x0EED')
wait(1000)
uo.useobject('0x40157FBF')
wait(1000)
goto end
end if
uo.findtype('0x2006','-1','ground')
if uo.findcount() > 0 then
corpse=uo.getserial('finditem')
uo.print("Found "+str(uo.findcount())+" corpse(s)!")
for i=0 to 11
j=0
repeat
UO.FindType(Loot[i],-1,corpse)
if UO.GetQuantity('finditem') then
UO.MoveItem('finditem','0','backpack')
uo.print("Looted: "+STR(UO.GetQuantity('finditem'))+" "+Text[i]+"! In All: "+STR(vars[i]+UO.GetQuantity('finditem')))
wait(600)
end if
j = j + 1
if j > 15 then
goto stuck
end if
until uo.findcount()==0
next
stuck:
uo.ignore(corpse)
Else
uo.print("No Corpses Beside!!!")
end if
end:
wend
wait(600)
wend
end sub


Подставь нужные тайпы и лутит )


Top
   
 Post subject:
PostPosted: 2006-07-04 21:08:27 
Offline

Joined: 2006-03-15 14:29:33
Posts: 75
Location: Латвия
Всем спасибо... ну самое болшое спасибо последнему Horsior

_________________
It's t1m3 to pvp....





Play hard Go pro


Top
   
 Post subject:
PostPosted: 2006-07-13 02:09:05 
Offline
User avatar

Joined: 2006-03-08 11:59:41
Posts: 122
Не советую лут делать авто! Зделай его на кнопку! Просту будет ситуация когда идеш ты по ГЗ и тут бац кто-то падает и ты его лутаеш! Гварды налитают и ты крим!

_________________
СМЕРТЬ ФЛУДЕРАМ!


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 7 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