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

Прокачка боевых скилов
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7867		 Page 1 of 1
Author:  Doktor_Kor [ 2006-06-04 16:27:14 ]
Post subject:  Прокачка боевых скилов
Много тем поэтой тематике. вот у меня есть 2 скрипта рабочих, сам качаюся на них

I ПРокачка осуществляеться дома(сортир) зажимаешь животное(лучше лошадь) камнями в углу, но так чтоб ты его мог бить. Одеваешь БР фулл, в руки берёшь то оружее которым качаешь скилл(Сворда-Кливер,Фенс-даггер,Майса-молоточек,Врестлинг-перчатки) и врубаешь скрипт.
При использование этого скрипта качаються такие скиллы как
1-Ветеренария
2-Тактика
3-Боевой(взависимости от оружия в руках)
4-Парринг(если включена прокачка)

Code:
var anim='0x00E2' ;тип животины
var band='0x0E21' ;тип бинтов
var color='0x0000' ;цвет животины

sub veterinar() 
 uo.Set('finddistance','3') 
 uo.FindType(anim,color,'ground') 
 while uo.isNPC('finditem') 
   uo.WarMode(true) 
   uo.Attack('finditem') 
   while uo.GetHP('finditem') > uo.GetMaxHP('finditem')/3 
     wait(500) 
   wend 
   uo.WarMode(false) 
   while uo.GetHP('finditem') <> uo.GetMaxHP('finditem') 
     uo.waittargetobject('finditem') 
     uo.UseType(band) 
     wait(1000) 
   wend 
  sword() 
  wend 
end sub 

sub sword() 
Var Svord='0x0F51' Тип оружия успользуемый вами
Var Shield='0x1B76' ;Тип щита используемый вами
UO.Equipt('Lhand',Svord) 
wait(1000)
;UO.Equipt('Rhand',Shield) 
wait(1000)
end sub


II - Собственно скрипт на спарринг с партнёром( скрипт хороший, сколько качался сбоев не давал)
Вносишь изменения в скрипт,встаёшь рядом с партнёром, и врубаешь скрипт
При использовании этого скрипта качаються такие скилы как:
1-Боевой(взависимости от выбренного вами оружия)
2-Тактика
3-Парринг(если включен)

Code:
###################################################################
#                                                                 #
#                       Sparring  ver. 1.0                        #
#                                                                 #
###################################################################

   VAR Char1='0x003668CA'      #   ID первого чара
   VAR Char2='0x0035152A'      #   ID второго чара
   VAR MinLife=90              #   минимальная жизнь
   
   VAR TazikType='0x1008'      #   Тип тазика с водой
   VAR BloodBndg='0x0E20'      #   тип кровавых бинтов

##################################################################   
                                                                 #
   VAR Enemy, GO, STOP                                           #
   VAR GO1=  'GOO-1'                                             #
   VAR GO2=  'GOO-2'                                             #
   VAR STOP1='STOP-1'                                            #
   VAR STOP2='STOP-2'                                            #
                                                                 #
##################################################################

sub Start()  #####################################################
uo.DeleteJournal()
    if UO.GetSerial('self')==Char1 then 
      Enemy=Char2 
      GO=GO2
      STOP=STOP2
    else 
      Enemy=Char1 
      GO=GO1
      STOP=STOP1
    endif 
  
      uo.DeleteJournal()
      wait(4000)
While not uo.InJournal(GO1) or not uo.InJournal(GO2) 
      uo.say(GO)
      wait(3000)
wend      

IF uo.InJournal('Ready') then
      wait(3200)
   Sparring()
else  
      uo.Say('Ready')
      wait(5000)
  Sparring()

end sub   ########################################################


sub Sparring()   #################################################

UO.Exec('warmode 1')
uo.DeleteJournal()
uo.DeleteJournal()
REPEAT
if uo.InJournal('apply bandages to self') then
StopWar()
else
wait(5000)
UO.Attack(Enemy)
end if
until uo.Life<=MinLife or uo.InJournal(STOP1) or uo.InJournal(STOP2) or uo.InJournal('apply bandages to self')
StopWar()

end sub   ########################################################

sub StopWar()   ##################################################

    
IF uo.InJournal(STOP1) or uo.InJournal(STOP2) then
  UO.Exec("warmode 0")
  wait(1000)
  UO.Exec("warmode 0")
 Heling()
else

# While not uo.InJournal('apply bandages to self')
#    UO.Say(STOP)
#    UO.Exec("warmode 0")
#    wait(2000)
# wend   

     UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(2000)
     UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(2000)
     UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(2000)
     UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(1000) 
     UO.Exec("warmode 0")
     wait(200)
UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(1000) 
     UO.Exec("warmode 0")
     wait(200)
end if
 Heling()

end sub  ########################################################

sub Heling()   ##################################################

     
         UO.FindType('0x0E21','0x0000','backpack') 
      If UO.GetQuantity('finditem')<50 Then 
         UO.FindType('0x0E20','0x0000','backpack') 
         UO.WaitTargetType(TazikType) 
         UO.UseObject('finditem')
         wait(1000)
      Endif 



      while  uo.Life<uo.STR
         uo.SetArm('armset')
         uo.disarm()
         wait(200)
         while uo.Life<uo.STR
            uo.bandageself()
            wait(3000)
            UO.Exec("warmode 0")
         wend
         uo.arm('armset')
         wait(2000)
      wend
      
     UO.Exec("warmode 0")
     wait(200)

Start()

end sub   ######################################################


вот так
Author:  Doktor_Kor [ 2006-06-05 15:13:50 ]
Post subject:  Re: Прокачка боевых скилов
пойднимаю топик вверх, мож кому понадо биться :)
Author:  Scripts Writer [ 2006-06-05 15:57:52 ]
Post subject: 
Ну чтобы твои скрипты не пропали в куче других тем- отпишу их в теме "То , что ищут многие" -думаю ты не против.
Author:  Doktor_Kor [ 2006-06-05 18:06:47 ]
Post subject: 
You Must Die wrote:
Ну чтобы твои скрипты не пропали в куче других тем- отпишу их в теме "То , что ищут многие" -думаю ты не против.


конечно;)
Author:  ghost_hnt [ 2006-06-05 20:54:07 ]
Post subject: 
ок скоро опробуем)*! :wink:
Author:  Doktor_Kor [ 2006-06-06 07:28:43 ]
Post subject: 
ghost_hnt wrote:
ок скоро опробуем)*! :wink:



за работы скрипта ручаюся


2! Кретину ZWERb'y

viewtopic.php?t=7159&postdays=0&postorder=asc&start=0

на посмотри кто скрипт писал , олень, и его я получил не от тебя. а что мол ты такой перец и вы все качались на этом скрипте,можешь другим рассказывать. нет бы людям дал покачаться!а то так ,зажрался ты совсем
Author:  ZWERb [ 2006-06-06 15:32:59 ]
Post subject:  Re: Прокачка боевых скилов
Doktor_Kor wrote:
Много тем поэтой тематике. вот у меня есть 2 скрипта рабочих, сам качаюся на них

I ПРокачка осуществляеться дома(сортир) зажимаешь животное(лучше лошадь) камнями в углу, но так чтоб ты его мог бить. Одеваешь БР фулл, в руки берёшь то оружее которым качаешь скилл(Сворда-Кливер,Фенс-даггер,Майса-молоточек,Врестлинг-перчатки) и врубаешь скрипт.
При использование этого скрипта качаються такие скиллы как
1-Ветеренария
2-Тактика
3-Боевой(взависимости от оружия в руках)
4-Парринг(если включена прокачка)

Code:
var anim='0x00E2' ;тип животины
var band='0x0E21' ;тип бинтов
var color='0x0000' ;цвет животины

sub veterinar() 
 uo.Set('finddistance','3') 
 uo.FindType(anim,color,'ground') 
 while uo.isNPC('finditem') 
   uo.WarMode(true) 
   uo.Attack('finditem') 
   while uo.GetHP('finditem') > uo.GetMaxHP('finditem')/3 
     wait(500) 
   wend 
   uo.WarMode(false) 
   while uo.GetHP('finditem') <> uo.GetMaxHP('finditem') 
     uo.waittargetobject('finditem') 
     uo.UseType(band) 
     wait(1000) 
   wend 
  sword() 
  wend 
end sub 

sub sword() 
Var Svord='0x0F51' Тип оружия успользуемый вами
Var Shield='0x1B76' ;Тип щита используемый вами
UO.Equipt('Lhand',Svord) 
wait(1000)
;UO.Equipt('Rhand',Shield) 
wait(1000)
end sub


II - Собственно скрипт на спарринг с партнёром( скрипт хороший, сколько качался сбоев не давал)
Вносишь изменения в скрипт,встаёшь рядом с партнёром, и врубаешь скрипт
При использовании этого скрипта качаються такие скилы как:
1-Боевой(взависимости от выбренного вами оружия)
2-Тактика
3-Парринг(если включен)
[/code]

вот так


Ты думаеш открыл америку??? у нас вся гильда BRIGADA качалась на етом скрипте как только нпа дрв врубили нормальнужю прокачку! и написал етот скрипт Я!!!!! Хотя не спорю что именно етот скрипт писал ты! ТУТ ВСЕ КАКТО ПО КРИВОМУ!!! у меня он + ко всему еще и бинты МЫЛ! и слажывал их в сундук!!! А перед хилом животинки хилил себя(если ето было нада)! :lol: :lol: :lol: :lol:
Author:  Scripts Writer [ 2006-06-07 11:15:31 ]
Post subject: 
Code:
#################################################
################ veterinar 1.01 #################
################# You Must Die ##################
# 1.Тип животного
# 2.Тип бинтов
# 3.Цвет животного
# 4.Тип кровавых бинтов
# 5.Тип вещи, где мыть кровавые бинты
# 6.Сундук откуда добирать чистые бинты
################################################# 
# Veterinaria , Healing , Tactics ,
# Sword/Mace/Fenc/Wrest/Archery/Parrying
#
# Ищем животину в радиусе 3ёх клеток.
# Если нашли-то пока не убили бьём её, 
# хелим и её и себя, моем бинты, берём
# чистые в случае если их меньше 50 из сундука. #
################################################# 
# Если убили животное или нету больше бинтов-
# останавливаем скрипт и закрываем окно уо.
#################################################

var anim='0x00E2' ;тип животины 
var band='0x0E21' ;тип бинтов 
var color='0x0000' ;цвет животины 
var bband=' type of blody bandages '
var water=' ID of item, where bband can be cleaned '
var Sunduk=' ID where are clean bandages '
sub veterinar() 
 uo.Set('finddistance','3') 
 uo.FindType(anim,color,'ground') 
 while uo.isNPC('finditem') 
   uo.WarMode(true)
   sword() # Если при хелинге, оружие и щит на вашем шарде не выпадает-убрать эту строку.   
   uo.Attack('finditem') 
   while uo.GetHP('finditem') > uo.GetMaxHP('finditem')/3 
     wait(500) 
   wend 
   uo.WarMode(false) 
   while uo.life <> uo.str
     uo.bandageself()
     wait(3500)
   wend
   while uo.GetHP('finditem') <> uo.GetMaxHP('finditem') 
     uo.waittargetobject('finditem') 
     uo.UseType(band) 
     wait(1000) 
   wend 
   uo.FindType(bband,'-1','backpack')
   if uo.Count('finditem') > 500 then
     uo.WaitTargetObject(water)
     uo.UseType(bband)
   end if
   uo.FindType(band,'-1','backpack')
   if uo.Count('finditem') < 50 then
     uo.FindType(band,'-1',Sunduk)
     if uo.FindCount() then
       uo.moveitem('finditem','500')
       wait(500)
     else
       uo.Print('No bandages')
       uo.Exec('terminate veterinar') 
       uo.Closeuo()
     end if
   end if 
   sword() # Если при хелинге, оружие и щит на вашем шарде не выпадает-убрать эту строку.
 wend
 uo.Print('NPC is dead')
 uo.Exec('terminate veterinar')  
 uo.Closeuo()
end sub

Sub sword() 
Var Svord='0x0F51' ;Тип оружия успользуемый вами 
Var Shield='0x1B76' ;Тип щита используемый вами 
UO.Equipt('Lhand',Svord) 
wait(100) 
UO.Equipt('Rhand',Shield) 
wait(100) 
end sub
Author:  ZWERb [ 2006-06-28 01:45:37 ]
Post subject: 
Doktor_Kor wrote:
ghost_hnt wrote:
ок скоро опробуем)*! :wink:



за работы скрипта ручаюся


2! Кретину ZWERb'y

viewtopic.php?t=7159&postdays=0&postorder=asc&start=0

на посмотри кто скрипт писал , олень, и его я получил не от тебя. а что мол ты такой перец и вы все качались на этом скрипте,можешь другим рассказывать. нет бы людям дал покачаться!а то так ,зажрался ты совсем
:lol: :lol: :lol: :lol: :lol: :lol: :lol: я ведь не писал что ты его украл! У меня немного по другому написанно было(и у меня работало =-)) я к тому что есть уже такие скрипты! и ты зря его писал! И К СТАТЕ - САМ КРИТИН! :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol:
Author:  Dominik [ 2006-06-29 22:35:49 ]
Post subject: 
Вопрос: дракон зажатый камнями может ударить(ДРВ)? Если да, то на каком животном лучше качать? Скажите пожалуйста, не так: у которого больше хп. А конкретно. Спс.
Author:  ZWERb [ 2006-06-29 23:03:20 ]
Post subject: 
Dominik wrote:
Вопрос: дракон зажатый камнями может ударить(ДРВ)? Если да, то на каком животном лучше качать? Скажите пожалуйста, не так: у которого больше хп. А конкретно. Спс.

Насчет дракона ХЗ! НЕ ПРОБОВАЛ! Но я до 71.6 сворду на коняке прокачал! Раньше(как только обновили) вся наша гильда на мишках качалась(толи на черных, толи на бурых)
Author:  ZWERb [ 2006-06-29 23:56:47 ]
Post subject: 
Да и к стате... Раз уж на то пошло! 1 скрипт НЕ ПАШЕТ! А ДАЖЕ ЕСЛИ И ПАШЕТ ТО ПАШЕТ ХРЕНОВО! Бинты он мыть НЕ МОЖЕТ! и спирит не качает=-)
Вот вам скриптик! САМ НАПИСАЛ! ПАШЕТ 100% И моет бинты! кароч
Code:
####################################################################
##############        D R W             ############################
####################################################################
###################  v 1.2b        #################################
####################################################################
#################   UNHOLY     #####################################
####################################################################


var BandCL ='0x0E21' ; Тип чистых бинтов
var BandBL ='0x0E20' ; Тип грязных бинтов
var Moy ='0x40118407' ; ID Мойки
var GEPTBA ='0x0018425C' ; ID Жертвы
var Mech = '0x0F52' ; Тип Мечя
var Wit ='0x1B78' ; тип Щита
;Ну вот пожалуй и все! Приступим!

Sub Main()
while 1 > 0
UO.Equipt('Rhand',mech)
wait(500)
UO.Equipt('Lhand',Wit)
wait(500)
While uo.getHP(GEPTBA)> 100
if uo.life < 20 then
while uo.Life<uo.str
uo.warmode(0)
uo.bandageself()
wait(1000)
wend
UO.Equipt('Rhand',mech)
wait(500)
UO.Equipt('Lhand',Wit)
wait(500)
end if
uo.warmode(0)
CheckLag()
uo.attack(GEPTBA)
wait(1500) ; ТУТ НАДА ПОМЕНЯТЬ НА ТО КОЛИЧЕСТВО ВРЕМЕНИ КОТОРОЕ ВАМ НУЖНО ДЛЯ УДАРА!
wend
Bint()
wend
end sub 

Sub Bint()
while uo.GetHP(GEPTBA)<uo.GetMaxHP(GEPTBA)
uo.warmode(0)
UO.WaitTargetObject(GEPTBA)
UO.UseType(BandCL)
wait(3000)
wend
while uo.Life<uo.str
uo.warmode(0)
uo.bandageself()
wait(1000)
wend
UO.Equipt('Rhand',mech)
UO.Equipt('Lhand',Wit)
wait(500)
uo.warmode(0)
uo.useskill('Spirit Speak')
wait(1500)
UO.WaitTargetObject(Moy) 
UO.UseType(BandBL)
wait(1500)
end sub 

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


P. S. + тут 100% вероятность что при сейве или лаге вы не кильнете животину
Author:  BuTT [ 2008-03-20 02:18:37 ]
Post subject: 
Quote:
Code:
###################################################################
# #
# Sparring ver. 1.0 #
# #
###################################################################

VAR Char1='0x003668CA' # ID первого чара
VAR Char2='0x0035152A' # ID второго чара
VAR MinLife=90 # минимальная жизнь

VAR TazikType='0x1008' # Тип тазика с водой
VAR BloodBndg='0x0E20' # тип кровавых бинтов

##################################################################
#
VAR Enemy, GO, STOP #
VAR GO1= 'GOO-1' #
VAR GO2= 'GOO-2' #
VAR STOP1='STOP-1' #
VAR STOP2='STOP-2' #
#
##################################################################

sub Start() #####################################################
uo.DeleteJournal()
if UO.GetSerial('self')==Char1 then
Enemy=Char2
GO=GO2
STOP=STOP2
else
Enemy=Char1
GO=GO1
STOP=STOP1
endif

uo.DeleteJournal()
wait(4000)
While not uo.InJournal(GO1) or not uo.InJournal(GO2)
uo.say(GO)
wait(3000)
wend

IF uo.InJournal('Ready') then
wait(3200)
Sparring()
else
uo.Say('Ready')
wait(5000)
Sparring()

end sub ########################################################


sub Sparring() #################################################

UO.Exec('warmode 1')
uo.DeleteJournal()
uo.DeleteJournal()
REPEAT
if uo.InJournal('apply bandages to self') then
StopWar()
else
wait(5000)
UO.Attack(Enemy)
end if
until uo.Life<=MinLife or uo.InJournal(STOP1) or uo.InJournal(STOP2) or uo.InJournal('apply bandages to self')
StopWar()

end sub ########################################################

sub StopWar() ##################################################


IF uo.InJournal(STOP1) or uo.InJournal(STOP2) then
UO.Exec("warmode 0")
wait(1000)
UO.Exec("warmode 0")
Heling()
else

# While not uo.InJournal('apply bandages to self')
# UO.Say(STOP)
# UO.Exec("warmode 0")
# wait(2000)
# wend

UO.Say(STOP)
UO.Exec("warmode 0")
wait(2000)
UO.Say(STOP)
UO.Exec("warmode 0")
wait(2000)
UO.Say(STOP)
UO.Exec("warmode 0")
wait(2000)
UO.Say(STOP)
UO.Exec("warmode 0")
wait(1000)
UO.Exec("warmode 0")
wait(200)
UO.Say(STOP)
UO.Exec("warmode 0")
wait(1000)
UO.Exec("warmode 0")
wait(200)
end if
Heling()

end sub ########################################################

sub Heling() ##################################################


UO.FindType('0x0E21','0x0000','backpack')
If UO.GetQuantity('finditem')<50 Then
UO.FindType('0x0E20','0x0000','backpack')
UO.WaitTargetType(TazikType)
UO.UseObject('finditem')
wait(1000)
Endif



while uo.Life<uo.STR
uo.SetArm('armset')
uo.disarm()
wait(200)
while uo.Life<uo.STR
uo.bandageself()
wait(3000)
UO.Exec("warmode 0")
wend
uo.arm('armset')
wait(2000)
wend

UO.Exec("warmode 0")
wait(200)

Start()

end sub ######################################################


Скрипт просто суперр...но есть 2проблемки..
1. Он почему-то не хочет после отхилла Брать ствол и Щит, берёт только щит..хз почему(((
Когда оставляю (вначале) только щит..то все норма...
2.Он не хочет мыть бинты...хотя настроил все правельно((

Подскажите...
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/