vazmozhnoe li takoe?

Ask for help

Moderators: Murderator+, Murderator

Post Reply
kapatuct
Posts: 26
Joined: 2007-12-03 20:11:19

vazmozhnoe li takoe?

Post by kapatuct »

vazmozhno li takoe.zdelat hotkey naprimer kogda nazhimaesh ALT+A vkluchaetsa script loot.sc ?
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Re: vazmozhnoe li takoe?

Post by Kynep »

kapatuct wrote:vazmozhno li takoe.zdelat hotkey naprimer kogda nazhimaesh ALT+A vkluchaetsa script loot.sc ?


Все возможно, но проще сделать скрипт autoload.sc, сохранить в дире инжы, туда вставить нужные тебе процедуры и за тем забиндить на нужные клавиши.
kapatuct
Posts: 26
Joined: 2007-12-03 20:11:19

Post by kapatuct »

ja ochen izveniajus mozhete napisat kakoi nebud primer kak pravelno nado delat etot autoload.sc .
stickman
Posts: 139
Joined: 2005-04-05 04:13:24
Location: DRW
Contact:

Post by stickman »

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

Например:

Code: Select all

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

sub resbint()
VAR Exit=0, i
DIM Gost[2]
Gost[0]=0x0192 ;Man GHOSTTYPE
Gost[1]=0x0193 ;Woman GHOSTTYPE
For i=0 to 1
UO.SetArm("1")
uo.set('finddistance','2')
uo.findtype(Gost[i],'-1','ground')
UO.WaitTargetobject('finditem')
UO.usetype('0x0E21')
wait (500)
      next
wait (500)
      UO.Arm("1")
      UO.UnSetArm("1")
end sub

#############################
sub Equipt()
VAR i
dim weapon[4]
weapon[1]=0x143e ; Halberd
weapon[2]=0x0f4d ; Bardiche
weapon[3]=0x0e87 ; PitchFork
weapon[4]=0x0f62 ; Spear
For i=1 to 4
uo.findtype(weapon[i])
uo.equip('Rhand','finditem')
next
End sub

############################
Sub Sword()
Var Svord='0x13B9'
Var Sheld='0x1B76'
UO.Equipt('Rhand',Svord)
UO.Equipt('Lhand',Sheld)
Endsub

############################
Sub Bow()
Var i
dim bow[2]
bow[1]=0x13B1
bow[2]=0x13B2
For i=1 to 2
uo.findtype(bow[i])
UO.Equip('Lhand','finditem')
next
Endsub

############################
Sub Ataka_Last()
UO.Attack('laststatus')
end sub

###########################AnOrt таргет
Sub Ort()
If UO.Mana>=17 AND UO.BP>0 AND UO.NS>0 Then
   uo.cast('Dispel')
Else
   UO.Print("#############")
   UO.Print("## No mana ##")
   UO.Print("#############")
Endif
end sub

###########################ParalyzeField laststatus
Sub PF()
UO.Set('lasttarget','laststatus')
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
uo.cast("Paralyze Field")
end sub

############################AnOrt на себя
Sub AnOrt()
If UO.Mana>=17 AND UO.BP>0 AND UO.NS>0 Then
   uo.cast('Dispel','self')
Else
   UO.Print("#############")
   UO.Print("## No mana ##")
   UO.Print("#############")
Endif
endsub

############################хилинг бинтами
Sub Heal()
   If UO.STR==UO.Life Then
      UO.Print("Life is full")
   Else
      UO.SetArm("1")
           
      UO.BandageSelf()
      wait(1100)
      UO.Arm("1")
      UO.UnSetArm()
   Endif
end sub

###########################выпивание МАНКИ
Sub Manka()
Var Type='0x0F0E'
Var Color='0x09DF'
UO.FindType(Type, Color, 2)
UO.UseObject('finditem')
End sub

###########################выпивание ГХ
Sub GreaterHeal()
Var Type='0x0F0E'
Var Color='0x09BB'
UO.FindType(Type, Color, 2)
UO.UseObject('finditem')
End sub

###########################hiding
Sub Hiding()
UO.WarMode(0)
UO.UseSkill('Hiding')
End sub

###########################meditation
Sub Meditation()
UO.WarMode(0)          
UO.UseSkill('Meditation')
End sub

###########################ARROW laststatus
Sub Arrow()
If UO.Mana>=11 AND UO.BP>0 AND UO.NS>0 Then
   UO.Cast('Magic Arrow','laststatus')
Else
   UO.Print("#############")
   UO.Print("## No mana ##")
   UO.Print("#############")
Endif
End sub

###########################ПАРАЛИЗ laststatus
Sub Paralyze()
   UO.Set('lasttarget','laststatus')
   UO.FindType('0x1F52',-1,'my')
   If UO.GetQuantity('finditem')>0 then
      if UO.Mana>=14 then
         UO.WaitTargetObject('lasttarget')
         UO.UseObject('finditem')
         UO.Print("Scroll")
      else
         UO.Print("Low mana!!! Scroll!")
      endif
   else
      if UO.Mana>=28 then
         UO.Cast('Paralyze','laststatus')
         UO.Print("Spell")
      else
   UO.Print("#############")
   UO.Print("## No mana ##")
   UO.Print("#############")
      endif
   endif
end sub

и т.д. и т.п.
kapatuct
Posts: 26
Joined: 2007-12-03 20:11:19

Post by kapatuct »

plin nu ne mogu ... pazorno tak sprashivat :oops: a kak bindit ja ne kak razobratsa ne mogu . scripting bolemenije uzhe ponemaju koe chto nauchilsia a vot auto run nekak :/
kapatuct
Posts: 26
Joined: 2007-12-03 20:11:19

Post by kapatuct »

Sposibo Kynep i stickman bez vas ja bi tochno nekogda bi ne rozobralsia :) !!!
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post by Kynep »

kapatuct wrote:Sposibo Kynep i stickman bez vas ja bi tochno nekogda bi ne rozobralsia :) !!!


Достаточно почитать хелп и уроки что бы во всем разобраться. Про бинды в разделе FAQ написано.
Post Reply