TOP-5 активистов форума  
  НикПостов  
  Incubus7229  
  BiohazardIK609  
  Deathclaw482  
  Ag3r0n329  
  Azazello258  
  TOP-5 флудеров форума  
  НикФлуда  
  BiohazardIK287  
  Blind173  
  Deathclaw141  
  Azazello137  
  Incubus113  
  TOP-5 геймеров форума  
  НикПобед  
  СуперскаяПарочка8  
  Incubus7  
  Gag7  
  BaRoMIR5  
  zuza5  
  5 последних сообщений  
  Тема Ник  
  Олмер онлайн DarkZeal  
  Ну что старперы, кто тут живой то есть ? :) Damir  
  Форум wh2 - переехал Quasimodo  
  Состояние сервера. Что, где, когда? DarkZeal  
  Арендуем 1 кв метр в проходимых местах Blind  
Внимание!!! Гость. Большинство разделов форума предназначены для зарегистрированных участников, поэтому ув. Гость, лучше бы тебе зарегистрироваться :). Тем более, что регистрация займет у тебя не более 1 минуты, зато существенно расширит твои права и возможности на этом форуме

Правила форума Правила форума
  Закрыта Новая тема

> срипты(для скива), список
loader
Дата 20.04.2006 - 18:16

Детально о участнике

Незарегистрированный участник


Главное: Регистрация
Вопросы: Помощь
Сообщения: Поиск





фишинг
тайлор через кожу
алхимия
и если нетрудно сделай скрипт чтоб он в себя кастовал стрелку и если остается 50 хп хелился бинтами
   
Top  
Skiv
Дата 21.04.2006 - 13:13

Пользователя сейчас нет на форуме Детально о участнике

Эльф
Познающий

Кол-во флуда: 81
Пред.: (20%) X----
Репутация: 7
Хм... А можно поконкретней? Когда описываете нужный скрипт пишите не только название, но и последовотельность действий нужных вам...


--------------------
img151.imageshack.us/img151/7602/punknotdeadkb3.jpg
  PM e-mail ICQ  
Top  
loader
Дата 21.04.2006 - 13:27

Детально о участнике

Незарегистрированный участник


Главное: Регистрация
Вопросы: Помощь
Сообщения: Поиск





фишинг:пускай ловит всю рыбу вокруг себя и подберает её если кончилась рыба пускай отойдёт
тайлор:чтоб делал из кожи блэнк скроллы
алхимия ненада
мэджери.паринг.резист.хелинг:скрипт чтоб он в себя кастовал стрелку и если остается 50 хп хелился бинтами и потом начинал опять кастовать в себя
И для всего если сейв чтоб он останавливался если так возможно зделать.
   
Top  
Skiv
Дата 21.04.2006 - 14:50

Пользователя сейчас нет на форуме Детально о участнике

Эльф
Познающий

Кол-во флуда: 81
Пред.: (20%) X----
Репутация: 7
Fishing:
Цитата

#########################
#########################
###################
; Fishing 4 Helios by Skiv=P
;
; Рыбачим вокруг чара
;
sub FishingAround()
   VAR Ms0 = "You can't see"         ; не можем ловит здесь
   VAR Ms1 = "You can't fish under the ship"   ; не можем ловить здесь
   VAR Ms2 = "You are too far away"      ; далеко
   VAR Ms3 = "There are no fish here"      ; кончилось тут
   VAR Ms4 = "You fish a while, but fail to catch anything"   ; физл
   VAR Ms5 = "You pull out"         ; поймал что-то
   VAR Ms6 = "Try fishing in water."      ; не можем ловить здесь
   VAR k, t, v, x, y
   VAR MaxTime = 800
   For y = -4 To 4
      For x = -4 To 4
         k = 0
         repeat
            If UO.Dead() Then
               return
            Endif
            DeleteJournal(ms0)
            DeleteJournal(ms1)
            DeleteJournal(ms2)
            DeleteJournal(ms3)
            DeleteJournal(ms4)
            DeleteJournal(ms5)
            DeleteJournal(ms6)
            t = UO.Timer()
            If UO.Waiting() Then
               UO.CancelTarget()
            Endif
            UO.WaitTargetTile( '0', STR( UO.GetX() + x ), STR( UO.GetY() + y ), '251')
            UO.UseObject( UO.GetSerial( UO.ObjAtLayer( 'Lhand' ) ) )
            repeat
               wait(100)
            until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR ((t + MaxTime) < UO.Timer())
            k = k + 1
            If UO.InJournal(ms5) Then
               k = 0
            Endif
            If UO.Dead() Then
               return
            Endif
            If UO.InJournal( ms5 ) Then
               GetResultFish()
            Endif
         until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR (k > 6)
         If UO.Dead() Then
            return
         Endif
      Next
   Next
endsub

Sub GetResultFish()
   ; ------- улов -------
   DIM Fish[18]
   Fish[0]  = '0x170B'   ; сапоги
   Fish[1]  = '0x170F'   ; тапки
   Fish[2]  = '0x170D'   ; сандалии
   Fish[3]  = '0x1711'   ; сапоги
   Fish[4]  = '0x09CC'   ; тип рыбы 1
   Fish[5]  = '0x09CD'   ; тип рыбы 2
   Fish[6]  = '0x09CE'   ; тип рыбы 3
   Fish[7]  = '0x09CF'   ; тип рыбы 4
   Fish[8]  = '0x0FC4'   ; ракушка, тип 1
   Fish[9]  = '0x0FC5'   ; ракушка, тип 2
   Fish[10] = '0x0FC6'   ; ракушка, тип 3
   Fish[11] = '0x0FC7'   ; ракушка, тип 4
   Fish[12] = '0x0FC8'   ; ракушка, тип 5
   Fish[13] = '0x0FC9'   ; ракушка, тип 6
   Fish[14] = '0x0FCA'   ; ракушка, тип 7
   Fish[15] = '0x0FCB'   ; ракушка, тип 8
   Fish[16] = '0x0FCC'   ; ракушка, тип 9
   Fish[17] = '0x14ED'   ; карта
   VAR Razmer = 17      ; размер массива - 1
   VAR Scissor = '0x0F9E'   ; тип ножниц
   VAR Bandag = '0x0E21'      ; Тип бинтов
   VAR i
   For i = 0 To Razmer
      UO.FindType( Fish[i], '-1', 'ground' )
      If UO.FindCount() > 0 Then
         If i < 4 Then
            ; обувь
            UO.WaitTargetObject( 'finditem' )
            UO.UseType( Scissor )
            Wait( 3000 )
            UO.FindType( Bandag )
         Endif
         UO.Grab( '0', 'finditem' )
         Wait( 2000 )
         If i > 7 AND i < 17 Then
            ; ракушка
            UO.UseObject( 'finditem' )
            wait(1000)
         Endif
      Endif
   Next
endsub


Крафт из кожи делал на ходу, без теста. Если чё не так, напиши тут.
Цитата

#Исправил, должен не глючитьsmile.gif
sub Sctolls()
Repeat
UO.WaitMenu('Leather','Deed, scrolls, map','Deed, scrolls, map','Scrolls')
wait (1000)
uo.waittargettype('0x1067')
UO.Usetype('0x0F9D')
wait (1000)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("Tailoring failed"))
wait(300)
wend
wait(200)
until UO.Dead()
end sub


На таких скриптах проверка на СВС не нужна, так как они требуют контроля. Вес и т.п. Более сложные скрипты сомневаюсь что кто-то будет делать бесплатно... Хотяsmile.gif Стрелку ща намучу...

Magery
Писал тоже без возможности проверить... Если чо не так, пиши - переправлюsmile.gif
Цитата

#####################
####H.World Easy Magery
#####################
sub Magery() 
   VAR targ = '0x4041C420'
   VAR mir = 'You are at peace'
   While UO.SkillVal( 'Magery' ) < 1000
      If UO.Mana < 99 Then
         DeleteJournal( mir )
         repeat
            UO.UseSkill( 'Meditation' )
            wait(2000)
         until UO.InJournal( mir )
      Endif
      UO.WaitTargetObject( targ )
      UO.Cast( 'MagicArrow' )
      wait(3000)
   Wend
endsub


Это сообщение отредактировал Skiv - 21.04.2006 - 15:57


--------------------
img151.imageshack.us/img151/7602/punknotdeadkb3.jpg
  PM e-mail ICQ  
Top  
loader
Дата 21.04.2006 - 15:32

Детально о участнике

Незарегистрированный участник


Главное: Регистрация
Вопросы: Помощь
Сообщения: Поиск





в фишинге он выдаёт ошибку в строках
DeleteJournal(ms0)
DeleteJournal(ms1)
DeleteJournal(ms2)
DeleteJournal(ms3)
DeleteJournal(ms4)
DeleteJournal(ms5)
DeleteJournal(ms6)
в тайлоринге он тормозит на выборе типо какой раздел выбрать диды или т.д.
   
Top  
Skiv
Дата 21.04.2006 - 15:55

Пользователя сейчас нет на форуме Детально о участнике

Эльф
Познающий

Кол-во флуда: 81
Пред.: (20%) X----
Репутация: 7
Миля... с Делит журналом мой косяк=) Добавь в скрипт вот этот кусок:
Цитата

Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub

Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub


В тайлоре просто псц=) Исправил в топеsmile.gif

Это сообщение отредактировал Skiv - 21.04.2006 - 15:58


--------------------
img151.imageshack.us/img151/7602/punknotdeadkb3.jpg
  PM e-mail ICQ  
Top  
loader
Дата 21.04.2006 - 16:48

Детально о участнике

Незарегистрированный участник


Главное: Регистрация
Вопросы: Помощь
Сообщения: Поиск





теперь он ваще неоткрывает менбшку
   
Top  
Skiv
Дата 21.04.2006 - 20:14

Пользователя сейчас нет на форуме Детально о участнике

Эльф
Познающий

Кол-во флуда: 81
Пред.: (20%) X----
Репутация: 7
Он и не должен её открывать. Он сразу скрол рисует. А ты не пробывал проверить типы и саму меню? Я же грю что проверить не могу, а по памяти меню не очень хорошо востонавливается...


--------------------
img151.imageshack.us/img151/7602/punknotdeadkb3.jpg
  PM e-mail ICQ  
Top  
loader
Дата 22.04.2006 - 09:59

Детально о участнике

Незарегистрированный участник


Главное: Регистрация
Вопросы: Помощь
Сообщения: Поиск





он ваще ничего не делает токо пишет жолтым то что в скрипте[s]
   
Top  
Skiv
Дата 22.04.2006 - 10:37

Пользователя сейчас нет на форуме Детально о участнике

Эльф
Познающий

Кол-во флуда: 81
Пред.: (20%) X----
Репутация: 7
loader что пишет? Ты мжеш нормально проблемму описать? Или вылови меня в игре и скинь шкуру и нитки что бы я всё проверил.
Дополнение @ 11:41
Надыбал я кожи и нашол время всё проверить... Я же говорил измени строку меню... Вообщем вот рабочая на 100% версия:
Цитата

sub Sctolls()
Repeat
UO.WaitMenu('Leather','Deed, scrolls, map','Deed, scrolls, map','Blank Scroll')
wait (1000)
uo.waittargettype('0x1067')
UO.Usetype('0x0F9D')
wait (1000)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("Tailoring failed"))
wait(300)
wend
wait(200)
until UO.Dead()
end sub

Если нужна с сундуком и перекладыванием, пиши=Р


--------------------
img151.imageshack.us/img151/7602/punknotdeadkb3.jpg
  PM e-mail ICQ  
Top  
loader
Дата 22.04.2006 - 17:15

Детально о участнике

Незарегистрированный участник


Главное: Регистрация
Вопросы: Помощь
Сообщения: Поиск





лучше на карпентри чтоб брал логи из сундука и делал torches потом когда логи кончатся выклабывал torches в сундук и брал логи и так покругу. yes.gif
а на тайлор тоже самое токо скролы tongue.gif

Это сообщение отредактировал loader - 22.04.2006 - 17:18
   
Top  
Skiv
Дата 22.04.2006 - 19:07

Пользователя сейчас нет на форуме Детально о участнике

Эльф
Познающий

Кол-во флуда: 81
Пред.: (20%) X----
Репутация: 7
Цитата
#########################


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


###################
; Carpentry Skiv
sub Carp()
  VAR Sunduk = '0x40008867'     
  VAR Logs = '0x1BDD'   
  VAR Instrum = '0x0F51'  # замени на тип инструмента
  VAR Torch = '0x1BD4'        # замени на тип торчей
  VAR Kolvo = 40       
  VAR k = 0
  UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
  While TRUE
      UO.FindType( Logs, -1, Sunduk ) 
      If UO.FindCount() == 0 Then
        UO.Print("Logs not found, script terminated")
        return
      Endif
      UO.Grab( Str( Kolvo ), 'finditem' )
      wait( 2000 )
      While UO.Count( Logs ) > 2
        UO.Print('Ostalos ' + Str( UO.Count( Logs) ) + ' logs' )
        UO.DeleteJournal()
        UO.WaitMenu ('Carpetry','Torch') # менюшку перепиши, не помню чё там как...
        uo.waittargettype(Logs)
        UO.UseType( Instrum )
        k = 0
        while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
            k = k + 1
            wait(500)
        wend
        if UO.Count( Torch ) > 0 then
            UO.FindType( Torch, -1, -1 )
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait( 1000 )
            UO.Print( 'Torch moved' )
        end if
      Wend
  Wend
end sub


--------------------
img151.imageshack.us/img151/7602/punknotdeadkb3.jpg
  PM e-mail ICQ  
Top  
OldUltimist
  Дата 25.04.2006 - 00:42

Детально о участнике

Незарегистрированный участник


Главное: Регистрация
Вопросы: Помощь
Сообщения: Поиск





Цитата (Skiv @ 21.04.2006 - 14:50)

#####################
####H.World Easy Magery
#####################
sub Magery() 
   VAR targ = '0x4041C420'
   VAR mir = 'You are at peace'
   While UO.SkillVal( 'Magery' ) < 1000
      If UO.Mana < 99 Then
         DeleteJournal( mir )
         repeat
            UO.UseSkill( 'Meditation' )
            wait(2000)
         until UO.InJournal( mir )
      Endif
      UO.WaitTargetObject( targ )
      UO.Cast( 'MagicArrow' )
      wait(3000)
   Wend
endsub

забыл перед делетжурналом UO. поставить nono.gif

Это сообщение отредактировал OldUltimist - 25.04.2006 - 00:44
   
Top  
Skiv
Дата 25.04.2006 - 11:49

Пользователя сейчас нет на форуме Детально о участнике

Эльф
Познающий

Кол-во флуда: 81
Пред.: (20%) X----
Репутация: 7
Не забыл. Просто делит журнал не дефолтный юзаю. Чтоб без глюков вот этот надо юзать:
Цитата
Sub DeleteJournal( string1 )
  VAR nom = UO.InJournal( string1 )
  If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
  Endif
endsub


--------------------
img151.imageshack.us/img151/7602/punknotdeadkb3.jpg
  PM e-mail ICQ  
Top  
Dertas
Дата 21.05.2006 - 20:50

Детально о участнике

Незарегистрированный участник


Главное: Регистрация
Вопросы: Помощь
Сообщения: Поиск





Skiv,у меня есть скрипты с другого шарда.Я могу те их подкинуть....если надо...Моя аська 339970651
   
Top  
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:

Опции темы Закрыта Новая тема
Закрыто Skiv 28-05-2006: