Yoko :: Скрипты и клуб. for Utopia (Yo-burg)

Yoko http://forum.yoko.com.ua/

Скрипты и клуб. for Utopia (Yo-burg) http://forum.yoko.com.ua/viewtopic.php?f=20&t=2660	Page 1 of 1

Author:

M!kro$ [ 2005-01-16 14:39:24 ]

Post subject:

Скрипты и клуб. for Utopia (Yo-burg)

Я хочу начать выкладку, сначало простых, скриптов. Для шарда Utopia который находится в Екатеринбурге. В последствии может быть будут появлятся сложные скрипты например на мининг, ламберг, фишинг...но пока они находятся на продаже...
ПРЕДУПРЕЖДЕНИЕ: НА ДАННОМ ШАРДЕ ИНЖЕКТ ЗАПРЕЩЕН. И ВЫ ИСПОЛЬЗУЙТЕ ЕГО НА СВОЙ СТРАХ И РИСК. Я СИЖУ НА АССИСТЕ!!!.Но как не крути в инжекте очень много полезностей:)брр... Спасибо Yoko за такое чудо:)
Вот несколько скриптов для всех от ньюба до отца:)хотя у отцов такие скрипты уже конечно есть..но все-же...

Тоже хороший скрипт...
Бросание стрелки.... в чем самое главное преимущество скрипта, что он берет последний статус и кидает в него стрелку.... т.е. не надо ставить .buy на противника:) мона сразу как вы встретились смело кидать стрелку...но! если прибежит еще один чар, ваш друг то вы будете атачить его:)

Code:

#####################################################################
;  Arrow() - cast magic arrow on laststatus
sub Arrow()
   VAR ManaNeed=4
        UO.Print("Arrow in Enemy") 
   UO.Set('lasttarget','laststatus')
   if UO.Mana>=ManaNeed then
      UO.Cast('Magic Arrow','laststatus')
   else
      UO.Print("Low mana!!!")
   endif
        UO.Print("Пущена") 
end sub
#####################################################################

Лечимся, с забинденной кнопки:)
#####################################################################

Code:

sub GHeal() 
      UO.Cast('Greater Heal','self') 
end sub

#####################################################################

Ставим на себя зеркало..опятьже надо биндить на кнопку:)
#####################################################################

Code:

sub MRa() 
      UO.Cast('Magic Reflection','self') 
end sub

#####################################################################

Рекол по руне...этот скрипт позволяет с кнопки, предварительно настроенной...среколится по первой руне в указанной рунбуке...чтобы указать правельный рунбук...надо написать в УО ,info именно , а не . !!! в появившемся окне скопируйте значение после ID= и вставить его вместо ID runebuka...затем биндим на кнопку и вуаля:) реколимся по первой руне...а если сменить 2 на 3 тогда открываем гейт:)
#####################################################################

Code:

sub Recall2Home()
     uo.Recall(" ID runebuka ","2") 
endsub

#####################################################################

Если вам интересно тогда пишите отзывы и я постараюсь пополнять этот раздел..по возможности:)

P.S. некоторые скрипты взяту у ВЕТЕРАНа и переделаны под шард Utopia...За что ему отдельное спасибо..я думаю что он не будет против???

Author:	666Man666 [ 2005-01-16 15:03:10 ]
Post subject:
А вот ешё скрипт каторый вас спасёт от пойзона, биндите его в хот-кеях Code: cast 'Cure' self и вас некто не сможет отравить

Author:	M!kro$ [ 2005-01-25 16:04:45 ]
Post subject:
Скрипт который у меня забинден на кнопку... очень помогает при спаррингах.. если противник сбивает тебя с лошади ты в ту-же секунду оказываешся на ней... Code: sub UpToHorse() uo.usefromground('0x00CC') uo.usefromground('0x00C8') uo.usefromground('0x00E2') endsub

Author:	GimFlex [ 2005-01-25 16:14:00 ]
Post subject:
кстати как забиндить на кнопку кидание стрелки например

Author:

M!kro$ [ 2005-01-25 16:47:46 ]

Post subject:

Question wrote:

кстати как забиндить на кнопку кидание стрелки например

Заходиш в инже во вкладку "HotKeys" в строке "Command:" пишеш "exec + название твоей функции"... а в строке "HotKey" нажимаеш нужное сочетание клавиш, "Add new key", затем на вклавке "main" жмеш на кнопку "Save" и все...

Code:

sub Arrow()
UO.Cast('Magic Arrow','lasttarget')
ebd sub

Следовательно

Code:

Command: exec arrow
HotKey: Ctrl+W

Author:

M!kro$ [ 2005-01-27 15:36:51 ]

Post subject:

Скрипт на прокачку резиста до 60 стрелкой... т.к. на масскурсовых сборищах нужно иметь как минимум 60 резиста, а до 60 растет лучше всего на стрелке...

Code:

#####################################################################
sub Resist()
var LastTimer
var cnt,count
UO.Print("Loop Magery Runned")
cnt=uo.getserial('self')
while not uo.Dead()
uo.DeleteJournal()
CheckLag()
while uo.Mana>=5 and uo.life>15
uo.waittargetself()
wait(500)
#uo.Cast('Mass Dispel')
UO.Cast('Magic Arrow')
#uo.Recall("0x4488BD84","2")
wait(3000)
wend
while (uo.Mana<uo.INT) and (UO.life<=uo.str)
LastTimer=uo.Timer()
uo.UseSkill('Meditation')
repeat
wait(100)
until uo.InJournal("You are") or uo.InJournal("You lose") or uo.InJournal("You stop") or uo.Timer()>LastTimer+200
uo.DeleteJournal()
wait(2000)
wend

if UO.life<=25 then
wait(200)
UO.FindType('0x0E21','0x0000','backpack')
If UO.GetQuantity('finditem')<20 Then
UO.FindType('0x0E20','0x0000','backpack')
count=UO.GetQuantity('finditem')
uo.drop(count,str(uo.getx(cnt)),str(uo.gety(cnt)),0,"finditem")
uo.FindType('0x0E21','0x0000','ground')
uo.grab('50','finditem')
end if


UO.DeleteJournal()
#########################################
if UO.life<uo.str then
Repeat
UO.waittargetself()
UO.usetype("bandage")
wait(2500)
Until UO.life<uo.str
end if
#########################################
UO.DeleteJournal()
#########################################
end if
wend
end sub
#####################################################################

Работает он так... береш с собой регов NS и BP по 1700, на пол ложиш чистые бинты, в бэк паке должна быть книжка заклинаний... затем включаеш этот скрипт и ВЕТЕРАНовский реконектор... и оставлюеш на ночь... и у тебя 60 резиста:)

Author:	BETEPAH [ 2005-01-27 16:15:18 ]
Post subject:
Мика ....... да не парся вставь просто Реконект в скрипт и все )))) и запускай из структуры.

Author:	M!kro$ [ 2005-01-27 16:18:04 ]
Post subject:
BETEPAH wrote: Мика ....... да не парся вставь просто Реконект в скрипт и все )))) и запускай из структуры. Пускай хоть маленько ручками поработают... не все же готовое им:))))

Author:

M!kro$ [ 2005-01-27 16:54:57 ]

Post subject:

Code:

var Enemy='Enemy'
var Alias='Alias'

sub addAlias()
uo.print('Select Alias:')
uo.exec('addobject Alias')
while uo.targeting()
wait(100)
wend
end sub

sub addEnemy()
uo.print('Select Enemy:')
uo.exec('addobject Enemy')
while uo.targeting()
wait(100)
wend
end sub

#####################################################################
sub selfGHScroll()
castScroll('0x1F49',11,Alias)
end sub
#####################################################################
sub selfGHBook()
castBook('Greater Heal',11,Alias)
end sub
#####################################################################
<..>
sub castScroll(scrolID,ManaNeed,Target)
    UO.FindType(scrolID,-1,'my')
  If UO.GetQuantity('finditem') then
    if UO.Mana<ManaNeed then
       manadrink()
      endif
      if UO.Mana>=ManaNeed then
     UO.WaitTargetObject(Target)
      UO.UseObject('finditem')
      end if
   endif
end sub
#####################################################################
sub castBook(Spell,ManaNeed,Target)
  if UO.Mana<ManaNeed then
     manadrink()
    endif
    if UO.Mana>=ManaNeed then
   UO.Cast(Spell,Target)
    end if
end sub

sub manadrink()
   if UO.Count('0x0F08','0x0480') then
      UO.UseType ('0x0F08','0x0480')
   endif
end sub

<..>
#####################################################################
sub bandageHealFriend()
uo.waittargetobject(Alias)
UO.Print("Bandage Heal")
UO.usetype("bandage")
end sub
#####################################################################

Это нововведение в каст спеллов...так-же в проведение турниров(по крайней мере для меня)... значит это каст спеллов и лечение(зеркало и т.д.) напрарника и без переброса таргета кидание карпоров(ФСов и т.д) в противника... это очень удобно когда вы кидаете карпор в одного противника а другой кастует ФС в напарника... то умело брошеное зеркало со сврола спасет ему жизнь... а делается это все меньше чем за 1.5 секунды...как раз чтобы успеть до ФСа... так-же после некоторой доработки можно сделать кучу скриптов основаываясь на этих... и естнственно забиндить на кнопки... а так-же есть полезный скрипт питье манки(manadrink()) который при наличии прямых рук можно превратить в питье остальных поушенов:)

Author:

M!kro$ [ 2005-03-22 10:26:13 ]

Post subject:

Мой autoloud.sc..кому что не понятно не беспокоить...разбирайтесь сами....

Code:

#####################################################################
#              Autoload by M!kro$ v0.1 (25.01.2005)
#    Cамые необходимые скрипты для PvP
#             Сделано для шарда Utopia (Екатеринбург)
#**************************Begin*************************************
#####################################################################

#####################################################################
#####################################################################
#Константы
#####################################################################
#####################################################################
#ID противника
var Enemy='Enemy'
#ID союзника
var Alias='Alias'

#####################################################################
#####################################################################
#Добавление глобальных объектов
#####################################################################
#####################################################################
#Добавление союзника
sub addAlias()
uo.print('Select Alias:')
uo.exec('addobject Alias')
while uo.targeting()
wait(100)
wend
end sub
#####################################################################
#Добавление противника
sub addEnemy()
uo.print('Select Enemy:')
uo.exec('addobject Enemy')
while uo.targeting()
wait(100)
wend
end sub
#####################################################################

#####################################################################
#####################################################################
#Касты заклинаний на себя
#####################################################################
#####################################################################
#Каст со скрола GH
sub selfGHScroll()
castScroll('0x1F49',11,'self')
end sub
#####################################################################
#Каст из книги GH
sub selfGHBook()
castBook('Greater Heal',11,'self')
end sub
#####################################################################

#####################################################################
#Каст со скрола MR
sub selfMRScroll()
castScroll('0x1F50',14,'self')
end sub
#####################################################################
#Каст из книги MR
sub selfMRBook()
castBook('Magic Reflection',14,'self')
end sub
#####################################################################

#####################################################################
#Каст со скрола LT
sub selfLTScroll()
castScroll('0x1F4A',11,'self')
end sub
#####################################################################
#Каст из книги LT
sub selfLTBook()
castBook('Lightning',11,'self')
end sub
#####################################################################

#####################################################################
#Каст Стрелки в себя
sub selfARBook()
castBook('Magic Arrow',4,'self')
end sub
#####################################################################

#####################################################################
#####################################################################
#Касты заклинаний на друга
#####################################################################
#####################################################################
#Каст со скрола GH
sub aliasGHScroll()
castScroll('0x1F49',11,Alias)
end sub
#####################################################################
#Каст из книги GH
sub aliasGHBook()
castBook('Greater Heal',11,Alias)
end sub
#####################################################################

#####################################################################
#Каст со скрола MR
sub aliasMRScroll()
castScroll('0x1F50',14,Alias)
end sub
#####################################################################
#Каст из книги MR
sub aliasMRBook()
castBook('Magic Reflection',14,Alias)
end sub
#####################################################################

#####################################################################
#Каст со скрола LT
sub aliasLTScroll()
castScroll('0x1F4A',11,Alias)
end sub
#####################################################################
#Каст из книги LT
sub aliasLTBook()
castBook('Lightning',11,Alias)
end sub
#####################################################################

#####################################################################
#Каст Стрелки на друга
sub aliasARBook()
castBook('Magic Arrow',4,Alias)
end sub
#####################################################################

#####################################################################
#####################################################################
#Касты заклинаний в противника
#####################################################################
#####################################################################
#Каст Стрелки в противника
sub enemyARBook()
castBook('Magic Arrow',4,Enemy)
end sub
#####################################################################

#####################################################################
#Каст со скрола LT
sub enemyLTScroll()
castScroll('0x1F4A',11,Enemy)
end sub
#####################################################################
#Каст из книги LT
sub enemyLTBook()
castBook('Lightning',11,Enemy)
end sub
#####################################################################

#####################################################################
#Каст со скрола PR
sub enemyPRScroll()
castScroll('0x1F52',14,Enemy)
end sub
#####################################################################
#Каст из книги PR
sub enemyPRBook()
castBook('Paralyze',14,Enemy)
end sub
#####################################################################

#####################################################################
#Каст со скрола EB
sub enemyEBScroll()
castScroll('0x1F56',20,Enemy)
end sub
#####################################################################
#Каст из книги EB
sub enemyEBBook()
castBook('Energy Bolt',20,Enemy)
end sub
#####################################################################

#####################################################################
#Каст со скрола FS
sub enemyFSScroll()
castScroll('0x1F5F',40,Enemy)
end sub
#####################################################################
#Каст из книги FS
sub enemyFSBook()
castBook('Flame Strike',40,Enemy)
end sub
#####################################################################
#####################################################################

#####################################################################

#####################################################################
sub RessurectionAndHeal()
UO.usetype(0x1F49)
UO.waittargetobject(Alias)
wait(500)
UO.waittargetobject(Alias)
UO.usetype(0x0E21)
UO.waittargetobject(Alias)
wait(500)
UO.waittargetobject(Alias)
end sub
#####################################################################



#####################################################################
#####################################################################
#Автоматические касты
#####################################################################
#####################################################################
#При нападении противника кастуется в него стрелка
sub AutoCastAR()
var Enemy = 0x00000000
repeat
if UO.InJournal("attacking you") Then
Enemy = UO.JournalSerial(UO.InJournal("attacking you")-1)
UO.Cast('Magic Arrow',Enemy)
UO.DeleteJournal()
endif
Wait(1000)
until false
end sub
#####################################################################

#####################################################################
#####################################################################
#Бинтики
#####################################################################
#####################################################################
#Лечение бинтиками себя
sub bandageHealSelf()
uo.UseSkill('Meditation')
UO.waittargetself()
UO.usetype("bandage")
end sub
#####################################################################

#####################################################################
#Лечение бинтиками союзникаЯ
sub bandageHealFriend()
uo.waittargetobject(Alias)
UO.Print("Bandage Heal")
UO.usetype("bandage")
end sub
#####################################################################


#####################################################################
#####################################################################
#Уневерсальный каст спеллов
#####################################################################
#####################################################################
#Каст спелла со скрола
sub castScroll(scrolID,ManaNeed,Target)
    UO.FindType(scrolID,-1,'my')
  If UO.GetQuantity('finditem') then
    if UO.Mana<ManaNeed then
       manadrink()
      endif
      if UO.Mana>=ManaNeed then
     UO.WaitTargetObject(Target)
      UO.UseObject('finditem')
      end if
   endif
end sub
#####################################################################

#####################################################################
#Каст спелла с книжки
sub castBook(Spell,ManaNeed,Target)
  if UO.Mana<ManaNeed then
     manadrink()
    endif
    if UO.Mana>=ManaNeed then
   UO.Cast(Spell,Target)
    end if
end sub
#####################################################################

#####################################################################
#####################################################################
#Питье бутылочек
#####################################################################
#####################################################################
#Выпить манку
sub manadrink()
   if UO.Count('0x0F08','0x0480') then
      UO.UseType ('0x0F08','0x0480')
   endif
end sub
#####################################################################

#####################################################################
#Выпить Рефреш
sub Totldrink()
   if UO.Count('0x0F0B','0x000') then
      UO.UseType ('0x0F0B','0x000')
   endif
end sub
#####################################################################

#####################################################################
#Выпить любой хил поушен
sub GHdrink()
   if UO.Count('0x0F07','0x000') then
      UO.UseType ('0x0F07','0x000')
   endif
end sub
#####################################################################

#####################################################################
#Выпить Противоядие
sub KHdrink()
If (UO.Poisoned())and (UO.Count('0x0F0C','0x000')>0) Then
      UO.UseType ('0x0F0C','0x000')
end if
end sub
#####################################################################

#####################################################################
#####################################################################
#Разные скрипты
#####################################################################
#####################################################################
#Среколится по рунбуке
sub Recall2Home()
     uo.Recall('0x49D8D746',"2")
endsub
#####################################################################
#Среколится по рунбуке
sub Recall2HomeTwist()
     uo.Recall('0x71B485BF',"2")
endsub
#####################################################################

#####################################################################
#Залезть на любую лошадь
sub UpToHorse()
uo.usefromground('0x00CC')
uo.usefromground('0x00C8')
uo.usefromground('0x00E2')
endsub
#####################################################################
sub LootNearCorpse2()
   VAR WaitTime=500
   VAR Exit=0, i
   DIM Loot[14]
   Loot[1]=0x0e87; Pich
   Loot[2]=0x143e; Halb
   Loot[3]=0x0f4e; Berd
   Loot[4]=0x0f63; spear
   Loot[5]=0x1402; shot
   Loot[6]=0x1438; Warh
        Loot[7]=0x0eed; GP
   Loot[8]=0x1F49; GH
   Loot[9]=0x1F56; corpor
   Loot[10]=0x13BB; coif
   Loot[11]=0x1410; plechi
   Loot[12]=0x1411; nogi
   Loot[13]=0x1415; puzo
   Loot[14]=0x1414; ruki
        UO.UseObject('lastcorpse')
;   UO.SetReceivingContainer('0x00000000')
   For i=1 to 14
   UO.FindType(Loot[i],-1,'ground')
   if UO.GetQuantity('finditem') then 
   UO.Grab(0,'finditem')
   wait(WaitTime)
   endif
        if UO.GetQuantity('lastcorpse') then
   UO.FindType(Loot[i],-1,'lastcorpse')
   if UO.GetQuantity('finditem') then 
   UO.Grab(0,'finditem')
   endif            
   endif   
   next
;   UO.UnSetReceivingContainer()
end sub 
#####################################################################

#####################################################################
sub TakeAllFromGround() 
uo.ignorereset() 
uo.set("quiet","1") 
uo.set("finddistance","3") 
uo.findtype("-1","-1","ground")
while uo.findcount() 
uo.moveitem("finditem") 
wait(500) 
uo.ignore("finditem") 
uo.findtype("-1","-1","ground") 
wend 
uo.set("quiet","0") 
end sub 
#####################################################################
#Берет из трупа золото и мешочки
sub LootNearCorpse()
var i,n
Dim A[3]
A[1] = 0x0E76 ;Bag
A[2] = 0x0E75 ;Backpack
A[3] = 0x0EED ;Gold

i = 200
UO.Print("Loot a corpse")
FOR n=1 TO 3
uo.findtype(A[n],"-1","lastcontainer")
if uo.findcount() > 0 then
UO.grab(0, "finditem")
uo.print("Found "+str(uo.findcount()))
Wait(i)
END if
next
      uo.findtype("-1","-1","lastcontainer") 
      uo.grab(0,"finditem") 
      wait(600) 
   UO.Print("Finish")
end sub
#####################################################################

#####################################################################
#Автоматическая медитация(у меня всегда запущена)
sub autoMedit()
var LastTimer
while not uo.Dead()
uo.DeleteJournal()
CheckLag()
while uo.Mana>=uo.INT
wait(1000)
wend
while uo.Mana<uo.INT
LastTimer=uo.Timer()
uo.UseSkill('Meditation')
repeat
wait(100)
until uo.InJournal("You are") or uo.InJournal("You lose") or uo.InJournal("You stop") or uo.Timer()>LastTimer+200
uo.DeleteJournal()
wend
wend
end sub
#####################################################################

#####################################################################
#Вставание в хайд, пока не встанет
sub StayInHide()
repeat
while not UO.Hidden()
wait(100)
UO.Warmode("0")
UO.UseSkill('Hiding')
wait(700)
wend
wait(100)
until false
end sub
#####################################################################

#####################################################################
#Авто сбор регов в указанный мешок (получаемый мешок константа)
sub AutoTakeReagents()
#ID получаемого мешка
   VAR StoreRegCont=0x4E64FA2E
   VAR CharRegBag='CharRegBag'
   VAR CountReg=30
   VAR WaitTime=100
   VAR MainSafe=0x40057901

uo.print('Select char reagents bag:')
uo.exec('addobject CharRegBag')
while uo.targeting()
wait(100)
wend

   UO.UseObject(MainSafe)
   UO.UseObject(StoreRegCont)

   UO.SetReceivingContainer(CharRegBag)
   wait(WaitTime)

   if UO.BM<CountReg then
      UO.FindType('0x0F7B','-1',StoreRegCont) ; BM
      UO.Grab(STR((CountReg-UO.BM)),'finditem')
      wait(WaitTime)
   endif

   if UO.BP<CountReg then
      UO.FindType('0x0F7A','-1',StoreRegCont) ; BP
      UO.Grab(STR(CountReg-UO.BP),'finditem')
      wait(WaitTime)
   endif

   if UO.GA<CountReg then
      UO.FindType('0x0F84','-1',StoreRegCont) ; GA
      UO.Grab(STR(CountReg-UO.GA),'finditem')
      wait(WaitTime)
   endif

   if UO.GS<CountReg then
      UO.FindType('0x0F85','-1',StoreRegCont) ; GS
      UO.Grab(STR(CountReg-UO.GS),'finditem')
      wait(WaitTime)
   endif

   if UO.MR<CountReg then
      UO.FindType('0x0F86','-1',StoreRegCont) ; MR
      UO.Grab(STR(CountReg-UO.MR),'finditem')
      wait(WaitTime)
   endif

   if UO.NS<CountReg then
      UO.FindType('0x0F88','-1',StoreRegCont) ; NS
      UO.Grab(STR(CountReg-UO.NS),'finditem')
      wait(WaitTime)
   endif

   if UO.SA<CountReg then
      UO.FindType('0x0F8C','-1',StoreRegCont) ; SA
      UO.Grab(STR(CountReg-UO.SA),'finditem')
      wait(WaitTime)
   endif

   if UO.SS<CountReg then
      UO.FindType('0x0F8D','-1',StoreRegCont) ; SS
      UO.Grab(STR(CountReg-UO.SS),'finditem')
   endif
end:
   UO.UnsetReceivingContainer()
end sub
#####################################################################

#####################################################################
#Авто одевание брони из указанного мешка и взятие поушенов
sub autoDress()

   VAR WaitTime=100
   VAR Bag='Bag'
   VAR Exit=0, i, p

DIM Loot[40]

Loot[0]=0x0EED ; gp
Loot[1]=0x0F7B ; BM
Loot[2]=0x0F7A ; BP
Loot[3]=0x0F84 ; GA
Loot[4]=0x0F85 ; GI
Loot[5]=0x0F86 ; MR
Loot[6]=0x0F88 ; NS
Loot[7]=0x0F8C ; SA
Loot[8]=0x0F8D ; SS
Loot[9]=0x1BFB ; Bolts
Loot[10]=0x0F3F ; Arrow
Loot[11]=0x1F03 ; роба
Loot[12]=0x1515 ; плащь
Loot[13]=0x1B76 ; щит
Loot[14]=0x1414 ; перчи
Loot[15]=0x1410 ; руки
Loot[16]=0x1415 ; досп
Loot[17]=0x1411 ; ноги
Loot[18]=0x1413 ; горло
Loot[19]=0x1412 ; шлем
Loot[20]=0x0F0E ; бутылки
Loot[21]=0x0F0E ; бутылки
Loot[22]=0x0F0E ; бутылки
Loot[23]=0x0F0D ; бутылки
Loot[24]=0x0F0D ; бутылки
Loot[25]=0x1F5F ; скролы
Loot[26]=0x1F5F ; скролы
Loot[27]=0x1F5F ; скролы
Loot[28]=0x1F5F ; скролы
Loot[29]=0x0E76 ; Bag
Loot[30]=0x0E76 ; Bag
Loot[31]=0x09B0 ; Pounch
Loot[32]=0x09B0 ; Pounch
Loot[33]=0x0E21 ; бинты
Loot[34]=0x13B9 ; викинг
Loot[35]=0x13BB ; руна
Loot[36]=0x0F0D ; бутылки
Loot[37]=0x0F0D ; бутылки
Loot[38]=0x0F0D ; бутылки
Loot[39]=0x0F0D ; бутылки
Loot[40]=0x0F0D ; бутылки

DIM Armor[17]

Armor[0]=0x1F03 ; роба
Armor[2]=0x1515 ; плащь
Armor[3]=0x1B76 ; щит
Armor[4]=0x1414 ; перчи
Armor[5]=0x1410 ; руки
Armor[6]=0x1415 ; досп
Armor[7]=0x1411 ; ноги
Armor[8]=0x1413 ; горло
Armor[9]=0x1412 ; шлем
Armor[10]=0x13B9 ; викинг
Armor[11]=0x1406 ; мейса
Armor[12]=0x13B1 ; лук
Armor[13]=0x0F4F ; арбалет
Armor[14]=0x13FC ; тяжелый арб
Armor[15]=0x13FE ; катана
Armor[16]=0x143E ; алеба
Armor[17]=0x1541 ; повязка


uo.print('Select shaste for arm:')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
UO.UseObject('Bag')
UO.SetReceivingContainer('backpack')
For i=0 to 40
UO.FindType(Loot[i],-1,'Bag')
if UO.GetQuantity('finditem') then
UO.Grab(STR(1),'finditem')
wait(WaitTime)
endif
if UO.GetQuantity('Bag') then
UO.FindType(Loot[i],-1,'Bag')
if UO.GetQuantity('finditem') then
if Loot[i]==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(1),'finditem')
endif
wait(WaitTime)
endif
endif
next
UO.UnSetReceivingContainer()
wait(100)
uo.equipt('Lhand','0x1B76') ;Shield
wait(100)
uo.equipt('Gloves','0x1414')
wait(100)
uo.equipt('Torso','0x1415')
wait(100)
uo.equipt('Legs','0x1411')
wait(100)
uo.equipt('Hat','0x13BB')
wait(100)
uo.equipt('Brace','0x1413')
wait(100)
uo.equipt('Arms','0x1410')
endif
end sub
#####################################################################

#####################################################################
#Авто раздевание в указанный мешок
sub autoUnDress()
uo.addobject("undressbag")
while uo.targeting()
wait(100)
wend
uo.exec("setdressspeed 100")
uo.undress()
end sub
#####################################################################

#####################################################################
#Проверка на лаги (используется в некоторых скриптах)
sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(500)
until uo.InJournal('backpack')
end sub
#####################################################################

#####################################################################
#Очистка журнала
Sub DeleteJournal( string1 )
  VAR nom = UO.InJournal( string1 )
  If nom > 0 Then
    UO.SetJournalLine( Nom - 1, 'string replaced' )
    DeleteJournal( string1 )
  Endif
endsub
#####################################################################
#####################################################################
#              Autoload by M!kro$ v0.1 (25.01.2005)
#    Cамые необходимые скрипты для PvP
#             Сделано для шарда Utopia (Екатеринбург)
#****************************End*************************************
#####################################################################

Author:

M!kro$ [ 2005-04-01 16:37:06 ]

Post subject:

Скрипт на ковку и переплавку, работает так... кидаеш под себя инги и встаеш рядом с наковальней и переплавкой, в сумке должны быть тонги и молоток.
Кует простые metal shield, на них надо качаться до 60, если прямые руки то этот скрипт переделывается под другие тзделия

Code:

sub BlackSmythi()
var i,z,ingotsID
uo.set('finddistance','2') 
repeat
UO.FindType('0x1B7B','0x0000','my')  
if (UO.GetQuantity('finditem')>0) and (UO.Weight>=60) then
i=UO.FindCount()-1
for z=0 to i 
uo.waittargettype('0x1B7B') 
uo.usetype('0x0FBB') 
uo.deletejournal() 
repeat 
wait(500) 
until uo.injournal('failed') or uo.injournal('You place')
next
wait(100)
endif

UO.FindType('0x1BF2','0x0000','backpack') ; Iron ingots
if UO.GetQuantity('finditem')>=15 then
uo.drophere('finditem')
endif

UO.FindType('0x1BF2','0x0000','ground') ; Iron ingots
if UO.GetQuantity('finditem')<20 then
uo.ignore('finditem')
endif

if UO.GetQuantity('finditem')>=20 then
uo.Say('.macro off')
uo.print('BlackSmything')
uo.waittargetground('0x1BF2','0x0000')
UO.UseType('0x13E3')
uo.WaitMenu('What do you wish to make?','Shields','Select item','(4)')
uo.deletejournal()
uo.Say('.macro on')
repeat
wait(500)
until (UO.Weight>=360) or (uo.injournal('You don'))
endif
uo.Say('.macro off')
wait(10000)
until 2==1
uo.closeuo()
end sub

Author:	Данил [ 2005-04-04 07:06:39 ]
Post subject:
Зря скипты на лут с кнопки выложил Итак халявщики в оккло достали, дак ты им еще все на блюдечке с голубой коемочкой выкладываешь. (с)PaSt0r

Author:	I'm [ 2005-04-04 17:22:59 ]
Post subject:
Тебе жалко нечитай, тут люди делятся идеями и вопросами ну еще флудят помаленьку.

Author:	M!kro$ [ 2005-04-04 17:44:51 ]
Post subject:
Данил wrote: Зря скипты на лут с кнопки выложил Итак халявщики в оккло достали, дак ты им еще все на блюдечке с голубой коемочкой выкладываешь. (с)PaSt0r Пастор, поделись скриптом на пушкаря... здесь ваще с утопии народа мало, такчто читать небудут...заипался я уже делать а суки надоели шакалить пора им тоже люлей отвесить.я вроде сделал, но что-то глючит:(

Author:

Данил [ 2005-04-06 09:38:06 ]

Post subject:

M!kro$ wrote:

Пастор, поделись скриптом на пушкаря... здесь ваще с утопии народа мало, такчто читать небудут...заипался я уже делать а суки надоели шакалить пора им тоже люлей отвесить.я вроде сделал, но что-то глючит:(

Самая первая, прими-шая версия... В ней много недочетов, недодумок и недоделок...
Только как писча для размышления...
В настоящий момент есть более злющяя версия, под 2х пушкарей и более.

Code:

########################################################## 
################## Пушечное мясо v1.0 #################### 
########################################################## 
############ Шард Utopia / www.purga.ru/utopia ###########
########################################################## 
################ Copiright by PaSt0r #####################
##########################################################
##########################################################
# Данный скрипт был написан в целях экономии личного времени. 
# Не из из-за скуки и желания прославится.
# Скрипт поставляется как есть, техническая поддержка не осуществляется.
# Вам разрешено изменять скрипт и копаться в его коде, но запрешено выдавать данный продук за свое творение. 
# В противном случае ВЫ будете выебаны в нос, и другие дыры.
# Все права ебаны в рот. Скрипт написан для детей от 3 до 5 лет.
##########################################################

sub killers()
uo.ignorereset()
UO.print('Please select CANNON') 
uo.addobject('cannon')
wait(5000)
uo.set("finddistance","10") 
WG:
repeat
UO.FindType('0x0F6C',-1,'ground') 
wait(400)
until UO.FindCount()>0

ignor()

auto()
goto WG
endsub



sub auto() 
Var LastTimer 
LastTimer=UO.Timer() 

repeat
uo.findtype("0x0190","-1","ground") 
uo.addobject('enemy','finditem')
If UO.FindCount()>0 Then 
UO.WaitTargetObject('cannon','enemy') 
uo.usefromground('0x0E73')
wait(1550)
uo.ignore("finditem") 
UO.Say("Targeting to " + UO.GetName("finditem"))
UO.Say("boooom")
wait(400)
endif 
uo.findtype("0x0191","-1","ground") 
uo.addobject('enemy','finditem')
If UO.FindCount()>0 Then 
UO.WaitTargetObject('cannon','enemy') 
uo.usefromground('0x0E73')
wait(1550)
uo.ignore("finditem") 
UO.Say("Targeting to " + UO.GetName("finditem"))
UO.Say("boooom")
endif 
wait(400)
until UO.InJournal("stop") or LastTimer+1800<UO.Timer() ;will wait 180 seconds 
endsub
#|||||||||||||||||||||||||||||||||||#

#####################################
############ ЧАРЫ В ИГНОРЕ ##############
#####################################
sub ignor()
DIM ignor[2] 
ignor[0]='self' #Pushkar
ignor[1]='0x00000000' #PaStOr[nWo]
ignor[2]='0x00000000' #Albert K
VAR i=0 
var ignored
repeat
for i=0 to 2 
Uo.Ignore(ignor[i]) 
NEXT
until ignor[i]==ignor[4]
endsub
#|||||||||||||||||||||||||||||||||||#

Author:	Viloko [ 2005-04-06 14:36:06 ]
Post subject:
Данил wrote: M!kro$ wrote: Пастор, поделись скриптом на пушкаря... здесь ваще с утопии народа мало, такчто читать небудут...заипался я уже делать а суки надоели шакалить пора им тоже люлей отвесить.я вроде сделал, но что-то глючит:( ......\|\|\|\|\|\|\|#[/code] вот и это зря .. ну нафиг ... щас чаек с этим макросом будет непройти спокойно .. итак испаганили шард

Author:	Данил [ 2005-04-06 20:09:03 ]
Post subject:
Viloko wrote: Данил wrote: M!kro$ wrote: Пастор, поделись скриптом на пушкаря... здесь ваще с утопии народа мало, такчто читать небудут...заипался я уже делать а суки надоели шакалить пора им тоже люлей отвесить.я вроде сделал, но что-то глючит:( ......\|\|\|\|\|\|\|#[/code] вот и это зря .. ну нафиг ... щас чаек с этим макросом будет непройти спокойно .. итак испаганили шард Ой... Вил... ну кто бы говорил... Испаганели шард: откаты и голозадые нубы, которые обгоняют плейеров на райдах как стояxи[... и лутают все с кнопки... Не понимают люди всей прелести игры, ЖИВУТ ради НАЖИВЫ! ps:На этом макросе нынче одного-то чела завлить будет оч.трудно, фиксы, фиксы, фиксы...

Author:	Jonny [ 2005-04-27 07:10:45 ]
Post subject:
Макрос на пушкаря довольно таки просто выглядит... Не буду выкладывать, а шард давно уже испоганили...

Author:	Данил [ 2005-05-11 21:53:28 ]
Post subject:
Jonny wrote: Макрос на пушкаря довольно таки просто выглядит... Не буду выкладывать, а шард давно уже испоганили... не все еще потерено... но было славы ему не вернуть

Author:	miha [ 2005-05-14 21:50:45 ]
Post subject:
знакомые всё лица

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/