Сайт Гильдии NoBodys

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.



Скрипты

Сообщений 1 страница 19 из 19

1

Кого что интересует, волнует, раздражает и бесит пишите, поможем!  :D Скрипты на любой вкус и цвет =)

0

2

Хорошая тема,нужная!Одобрямс! ;)

0

3

а моя значит тупая?) ниче-ниче.. я вам выдам еще))))

0

4

раз так... хочу скрипт на спаринг арчери. считаю до 2-х!

0

5

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

0

6

Зип есели не трудно.... ша ввели возможность запуска одновременно 2х клиентов...
По этомо оч хотелось бы скрипт на резист! Один кастует и медитирует второй хёлится....

0

7

SquirE написал(а):

Зип есели не трудно.... ша ввели возможность запуска одновременно 2х клиентов...
По этомо оч хотелось бы скрипт на резист! Один кастует и медитирует второй хёлится....

Оки! к завтрему будет готово, я сам юзать его буду)

0

8

SquirE написал(а):

Много надо будет регов,очень,очень много!Мне кажется проще резист качать на мобах...

0

9

K!$JI0TA написал(а):

Много надо будет регов,очень,очень много!Мне кажется проще резист качать на мобах...

Нет, резист нужно качать именно в спаринге... реги не так проблемно будет закупить..

0

10

Вот у меня чувак знакомый качал када резист,ему кастовали 5 чаров,но прокачал он быстро,где то около 50ч.!

0

11

K!$JI0TA написал(а):

Вот у меня чувак знакомый качал када резист,ему кастовали 5 чаров,но прокачал он быстро,где то около 50ч.!

5 чаров неплохо.. =)

0

12

ПОДЕЛИТЕСЬ ПЛИЗ ХОРОШИМ СКРИПТОМ НА СПАРИНГ!!!

0

13

sub main()
   VAR E, t, Enemy='' , MinHP=20, G=true, L, Weap=''
   

uo.print("Choose your friend")
uo.Exec('addobject Enemy')

while uo.targeting()
wait(100)
wend

uo.print("Choose your weapon")
uo.Exec('addobject Weap')

while uo.targeting()
wait(100)
wend

     UO.Attack(Enemy)
   UO.DeleteJournal()
   while G==true
      wait(500)
      if  not UO.ObjAtLayer("Rhand") then
         UO.FindType(Weap,-1,'backpack')
         if  UO.FindCount() then
            UO.Equip('Rhand','finditem')
         endif
      endif
      if  UO.InJournal("stay") or UO.Life<MinHP then
         UO.Say("stay")
         t=UO.Timer()
         repeat
            E=true
            UO.Exec('warmode 0')
            wait(500)
            if  UO.WarMode()==1 then
               E=false
               UO.Say("stay")
               t=UO.Timer()
            endif
         until E==true and UO.Timer()>=t+30
         CheckLag()
         UO.SetArm('myarm')
         while UO.Life<UO.Str
            L=UO.Life
            UO.Exec('warmode 0')
            DelJ("the")
            t=UO.Timer()
            UO.Exec('bandageself')
            repeat
               Wait(500)
            until UO.InJournal("You put") or UO.InJournal("barely help") or UO.InJournal("need healing") or UO.Life<L or UO.Timer()>t+100
            CheckLag()
            if UO.Life<L then
               UO.Say("stay")
            endif
           
wend
         CheckBandage()
         UO.Arm('myarm')
         if not UO.InJournal("iiaoaee!") then
            UO.Say("go")
            repeat
               wait(50)
            until UO.InJournal("go") or UO.Life<UO.Str
            DelJ(UO.GetName()+": go")
            repeat
               wait(50)
            until UO.InJournal("go") or UO.Life<UO.Str
         else
            UO.Say("go")
         endif
         UO.DeleteJournal()
         UO.Attack(Enemy)
      endif
      if UO.Dead() then
         UO.Exec('warmode 1')
      endif
   wend
end sub

sub DelJ(s)
   VAR MN=UO.InJournal(s)
    while MN > 0   
       UO.SetJournalLine(MN-1, '')   
       MN=UO.InJournal(s)
    wend
end sub

sub CheckLag()
   DelJ("backpack")
   UO.Click('backpack')
   repeat
      wait(500)
   until UO.InJournal('backpack')
end sub

sub CheckBandage()
   VAR Banka='0x40109A6E' ; ID of wash basin
   UO.waittargetobject(banka)
   UO.usetype(0x0e20)
   Wait(1000)
end sub

0

14

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

0

15

СПС

0

16

Зип, а разве нельзя просто тупо поставить 2 инжи на комп?

0

17

SquirE написал(а):

Зип, а разве нельзя просто тупо поставить 2 инжи на комп?

Попробуй запусти...  :D Клиент то один будет, два клиента, даже разных так просто не запустить, а мультиклиент отключили пока, да и инжу он походу не поддерживал...

0

18

у мну ваще не полчалось через мульти клиент заходить=(

0

19

дайте мне скрипт на шитье!

0