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

Нужна помощь...
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2955		 Page 1 of 1
Author:  Партизан [ 2005-02-02 20:34:07 ]
Post subject:  Нужна помощь...
Привет народ... я здесь в первые... и не знаю что и как делать... инжект тока поставил и плохо ещё в нём разобрался... мне нужна небольшая помощь в редактирование пару скриптом...

Нужно собственно чтобы в каждом скрипте на Касты одевался щит и вэпон как в скрипте "sub Sword" т.к. там где я играю при касте орижие и щит выпадает из рук :(. И можно ли как-нить в скрипте sub Healing так где UO.SetArm("1") заменить как в sub Sword ???




sub Sword() ; Одевание щита и оружия
Var Svord='0x13B9' ;Тип оружия, используемый вами
Var Sheld='0x1B76' ;Тип щита, используемого вами
UO.Equipt('Rhand',Svord)
UO.Equipt('Lhand',Sheld)
Endsub



sub Heal() ;Хилинг
If UO.STR==UO.Life Then
UO.Print("Life is full")
Else
UO.SetArm("1")
UO.BandageSelf()
wait(1000)
UO.Arm("1")
UO.UnSetArm()
Endif
end sub


Sub Manka() ; Выпивание тотал манок.
Var Type='0x0F06'
Var Color='0x076A'
UO.FindType(Type, Color, 2)
UO.UseObject('finditem')
Endsub


Sub GreaterHeal() ; Выпивание Грейт Хилок
Var Type='0x0F0C'
Var Color='0x0000'
UO.FindType(Type, Color, 2)
UO.UseObject('finditem')
Endsub


Sub Invise() ; Выпивание инвизки
Var Type='0x0F09'
Var Color='0x0060'
UO.FindType(Type, Color, 2)
UO.UseObject('finditem')
Endsub



Sub Arrow() ; кидание стрелки по последнему статусу.
If UO.Mana>=4 AND UO.BP>0 AND UO.NS>0 Then
UO.Cast('Magic Arrow','laststatus')
Else
UO.Print("No mana")
Endif
Endsub


Sub Paralyze() ; кидание парализа по последнему статусу
If UO.Mana>=12 AND UO.GA>0 And UO.MR>0 AND UO.SS>0 Then
UO.Cast('Paralyze','laststatus')
Else
UO.Print("No mana")
Endif
Endsub


Sub Poison() ; кидание пойзона по последнему статусу
If UO.Mana>=9 AND UO.NS>0 Then
UO.Cast('Poison','laststatus')
Else
UO.Print("No mana")
Endif
Endsub


Sub FlameStrike() ; кидание флеймстрайка по последнему статусу
If UO.Mana>=40 AND UO.SS>0 AND UO.SA>0 Then
UO.Cast('Flame Strike','laststatus')
Else
UO.Print("No mana")
Endif
Endsub


Sub Cure() ; кидание куре на себя
If UO.Mana>=6 AND UO.GA>0 Then
UO.Cast('Cure','self')
Else
UO.Print("No mana")
Endif
Endsub


Sub GHeal() ; кидание Грейт Хила на себя
If UO.Mana>=11 Then
UO.Cast('Greater Heal','self')
Else
UO.Print("No mana")
Endif
Endsub


Sub UnParalyze() ; Кидание стрелки в себя, для выхода из парализа
If UO.Mana>=4 AND UO.BP>0 AND UO.NS>0 Then
UO.Cast('Magic Arrow','self')
Else
UO.Print("No mana")
Endif
Endsub


Sub Reflect() ; кидание зеркала на себя
If UO.Mana>=12 AND UO.GA>0 AND UO.MR>0 AND UO.SS>0 Then
UO.Cast('Magic Reflect','self')
Else
UO.Print("No mana")
Endif
Endsub
Author:  Партизан [ 2005-02-02 20:40:25 ]
Post subject: 
Сорри что не написал всё в одном посте... просто этот скрипт очень длинный... Я думаю этот скрипт уже многим извесетн :) это скрипт на пракачку вар скиллов с помощью Мишек :) в нём мне тоже нужна ваша помощь...! Во-первых нужно чтобы скрипт после каста одевал оружие и щит... как в sub Sword что в первом посте... + ещё нужно чтоб мишку он кастовал перед сабой... так как у нас нельзя кастовать суммон на себя :(. Возможно ли это как-то переделать ???? За ранее за всё БОЛЬШОЕ ЧЕЛАВЕЧЕСКОЕ СПАСИБО!!!


ой тока вспомнил... он же там ещё и лечиться... после лечения нужно тоже чтоб он одевал щит и вэп! Большое Спасибо!


sub battle()
var Mana
var LastTimer
UO.CancelMenu()
UO.DeleteJournal()
UO.AutoMenu('What','Polar')
while NOT UO.Dead()
UO.DeleteJournal()
if UO.Life<UO.Str then
repeat
UO.Bandageself()
wait(5000)
until UO.Life==UO.Str
endif
UO.Arm('arm')
repeat
UO.DeleteJournal()
If UO.Mana<20 then
uo.deletejournal()
repeat
wait(1000)
until UO.Mana>20
endif
UO.WaitTargetSelf()
UO.Cast('Summ. Crea')
Mana=UO.Mana
repeat
wait(1000)
until Mana>UO.Mana
until NOT UO.InJournal('fizzles')
UO.Msg('Fight')
repeat
wait(1000)
UO.findtype('0x00d5','0x08FD','ground')
until uo.FindCount()>0
LastTimer=Uo.Timer()
repeat
wait(1000)
UO.Attack('finditem')
walkN('0','0','finditem')
UO.findtype('0x00d5','0x08FD','ground')
until uo.FindCount()==0 or UO.Timer()==LastTimer+600
wend
end sub

sub WalkN(x,y,Target)
VAR i,StepSucess
VAR dx,dy,Exit=0

While Exit<>1
If Target<>"" Then
dx=UO.GetX(Target)-UO.GetX()
dy=UO.GetY(Target)-UO.GetY()
; UO.Print("Target locked!")
If UO.GetDistance(Target)<2 Then
Exit=1
Endif
Else
dx=x-UO.GetX()
dy=y-UO.GetY()
If dx==0 AND dy==0 Then
Exit=1
Endif

Endif

If dx<>0 AND dy<>0 Then
If dx>0 AND dy>0 Then
StepSucess=Go(3,40,300) ;SE - DownArrow
If StepSucess==-1 Then
StepSucess=Go(7,38,300) ;WN - UpArrow
StepSucess=Go(1,39,300) ;NE - RightArrow
If StepSucess==-1 Then
StepSucess=Go(5,37,300) ;SW - LeftArrow
Endif
Endif
Endif

If dx>0 AND dy<0 Then
StepSucess=Go(1,39,300) ;NE - RightArrow
If StepSucess==-1 Then
StepSucess=Go(5,37,300) ;SW - LeftArrow
StepSucess=Go(3,40,300) ;SE - DownArrow
If StepSucess==-1 Then
StepSucess=Go(7,38,300) ;WN - UpArrow
Endif
Endif
Endif

If dx<0 AND dy>0 Then
StepSucess=Go(5,37,300) ;SW - LeftArrow
If StepSucess==-1 Then
StepSucess=Go(1,39,300) ;NE - RightArrow
StepSucess=Go(7,38,300) ;WN - UpArrow
If StepSucess==-1 Then
StepSucess=Go(3,40,300) ;SE - DownArrow
Endif
Endif
Endif

If dx<0 AND dy<0 Then
StepSucess=Go(7,38,300) ;WN - UpArrow
If StepSucess==-1 Then
StepSucess=Go(3,40,300) ;SE - DownArrow
StepSucess=Go(5,37,300) ;SW - LeftArrow
If StepSucess==-1 Then
StepSucess=Go(1,39,300) ;NE - RightArrow
Endif
Endif
Endif

Endif

If dx<>0 AND dy==0 Then
If dx>0 Then
StepSucess=Go(2,34,300) ;E - PgDown
If StepSucess==-1 Then
StepSucess=Go(3,40,300) ;SE - DownArrow
If StepSucess==-1 Then
StepSucess=Go(1,39,300) ;NE - RightArrow
Endif
StepSucess=Go(2,34,300) ;E - PgDown
Endif
Endif

If dx<0 Then
StepSucess=Go(6,36,300) ;W - Home
If StepSucess==-1 Then
StepSucess=Go(7,38,300) ;WN - UpArrow
If StepSucess==-1 Then
StepSucess=Go(5,37,300) ;SW - LeftArrow
Endif
StepSucess=Go(6,36,300) ;W - Home
Endif
Endif
Endif


If dx==0 AND dy<>0 Then
If dy>0 Then
StepSucess=Go(4,35,300) ;S - End
If StepSucess==-1 Then
StepSucess=Go(3,40,300) ;SE - DownArrow
If StepSucess==-1 Then
StepSucess=Go(5,37,300) ;SW - LeftArrow
Endif
StepSucess=Go(4,35,300) ;S - End
Endif
Endif

If dy<0 Then
StepSucess=Go(0,33,300) ;N - PgUp
If StepSucess==-1 Then
StepSucess=Go(1,39,300) ;NE - RightArrow
If StepSucess==-1 Then
StepSucess=Go(7,38,300) ;WN - UpArrow
Endif
StepSucess=Go(0,33,300) ;N - PgUp
Endif
Endif
Endif
Wend
end sub


sub Go(dir,key,walkwait)
VAR x,y, OldDir

x=UO.GetX()
y=UO.GetY()
OldDir=UO.GetDir()

If UO.GetDir()<>dir Then
UO.Press(key)
wait(walkwait)
If UO.GetDir()<>dir Then

Endif
Endif

UO.Press(key)
wait(walkwait)

If x==UO.GetX() AND y==UO.GetY() Then
Endif

If x==UO.GetX() AND y==UO.GetY() AND OldDir<>UO.GetDir() Then
UO.Press(key)
wait(walkwait)
Endif

If x==UO.GetX() AND y==UO.GetY() Then

Endif

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