Прокачка боевых скилов

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Doktor_Kor
Posts: 31
Joined: 2006-05-29 15:29:42

Прокачка боевых скилов

Post by Doktor_Kor »

Много тем поэтой тематике. вот у меня есть 2 скрипта рабочих, сам качаюся на них

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

Code: Select all

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: Select all

###################################################################
#                                                                 #
#                       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   ######################################################


вот так
Doktor_Kor
Posts: 31
Joined: 2006-05-29 15:29:42

Re: Прокачка боевых скилов

Post by Doktor_Kor »

пойднимаю топик вверх, мож кому понадо биться :)
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Ну чтобы твои скрипты не пропали в куче других тем- отпишу их в теме "То , что ищут многие" -думаю ты не против.
Doktor_Kor
Posts: 31
Joined: 2006-05-29 15:29:42

Post by Doktor_Kor »

You Must Die wrote:Ну чтобы твои скрипты не пропали в куче других тем- отпишу их в теме "То , что ищут многие" -думаю ты не против.


конечно;)
ghost_hnt
Posts: 156
Joined: 2006-02-03 19:32:33

Post by ghost_hnt »

ок скоро опробуем)*! :wink:
ЦСКА- чЕмПиОн, кто не верит, тот ...... (нехороший человек)
Doktor_Kor
Posts: 31
Joined: 2006-05-29 15:29:42

Post by Doktor_Kor »

ghost_hnt wrote:ок скоро опробуем)*! :wink:



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


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

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

на посмотри кто скрипт писал , олень, и его я получил не от тебя. а что мол ты такой перец и вы все качались на этом скрипте,можешь другим рассказывать. нет бы людям дал покачаться!а то так ,зажрался ты совсем
ZWERb
Posts: 122
Joined: 2006-03-08 11:59:41

Re: Прокачка боевых скилов

Post by ZWERb »

Doktor_Kor wrote:Много тем поэтой тематике. вот у меня есть 2 скрипта рабочих, сам качаюся на них

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

Code: Select all

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:
СМЕРТЬ ФЛУДЕРАМ!
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Code: Select all

#################################################
################ 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
ZWERb
Posts: 122
Joined: 2006-03-08 11:59:41

Post by ZWERb »

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:
СМЕРТЬ ФЛУДЕРАМ!
Dominik
Posts: 24
Joined: 2006-05-03 02:25:00

Post by Dominik »

Вопрос: дракон зажатый камнями может ударить(ДРВ)? Если да, то на каком животном лучше качать? Скажите пожалуйста, не так: у которого больше хп. А конкретно. Спс.
ZWERb
Posts: 122
Joined: 2006-03-08 11:59:41

Post by ZWERb »

Dominik wrote:Вопрос: дракон зажатый камнями может ударить(ДРВ)? Если да, то на каком животном лучше качать? Скажите пожалуйста, не так: у которого больше хп. А конкретно. Спс.

Насчет дракона ХЗ! НЕ ПРОБОВАЛ! Но я до 71.6 сворду на коняке прокачал! Раньше(как только обновили) вся наша гильда на мишках качалась(толи на черных, толи на бурых)
СМЕРТЬ ФЛУДЕРАМ!
ZWERb
Posts: 122
Joined: 2006-03-08 11:59:41

Post by ZWERb »

Да и к стате... Раз уж на то пошло! 1 скрипт НЕ ПАШЕТ! А ДАЖЕ ЕСЛИ И ПАШЕТ ТО ПАШЕТ ХРЕНОВО! Бинты он мыть НЕ МОЖЕТ! и спирит не качает=-)
Вот вам скриптик! САМ НАПИСАЛ! ПАШЕТ 100% И моет бинты! кароч

Code: Select all

####################################################################
##############        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% вероятность что при сейве или лаге вы не кильнете животину
СМЕРТЬ ФЛУДЕРАМ!
BuTT
Posts: 8
Joined: 2007-08-29 01:47:16

Post by BuTT »

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.Он не хочет мыть бинты...хотя настроил все правельно((

Подскажите...
Post Reply