Page 1 of 1

4 вопроса 4 ответа ....БУДЬТЕ ТАК ЛЮБЕЗНЫ -)

Posted: 2010-08-24 07:26:28
by BOSS manCCCP
1-вый вопрос:Как на инжекте забиндить кнопку (CircleTrans)прозрачность стен on/off как в уо это делается(просто у меня это забиндено таким макаром что когда я делаю лог аут не в английском формате кнопка сбрасывается в самой уо макросах,мне это жутко надоело,через инжект будет железно)так как же это сделать?

2-рой вопрос:Как мне сделать так чтобы я мог зажимать кнопку с забиндиным кастом магии,да так чтобы зарание нажатая таже клавиша не сбивало идущий(кастующий каст)и следовательно моментально после кастовки ,кастовало заного если я продолжаю зажимать.Просто иногда хочется максимальной скорости кастования (БЕЗ ФИЗЛОВ САМОМУ СЕБЕ ЖЕ) в простейшем варианте НАЖАТИЙ клавиш с забинд.заклинаниями.

3-й вопрос:хочу сделать так чтобы я мог кастануть с ванда(волшебной палочки)на указанаю цель и чтобы после кастовки он синхронно назад одевал оружие и щит,цель макроса такова чтобы невидно было что я с ванда кастанул,безпаливное юзание ванда на цель и мгновеное одевание вепов назад.Будьте так добры.

4-тый ГЛАВЫЙ:Я хотел бы при нажатии кнопки чтобы ключался скрипт хелинга с бинта до полного столба после чего одевался щит и меч после чего аттаковал последнюю цель и главный момент чтобы если полный столб скрип сам выключался.
У меня все это есть в отдельных вариантах...вот есть три скрипта один на хелинг с магии кидает Heal до полного столба чтобы не случилось будет хелитсямагией нон стоп,максимально быстро не сбивая себе каст от себя же,его так же зарание можно остановить нажав еще раз на забинженую кнопку с этим скриптом .Вот:
############################################################################################
########Хелит нон стоп Heal Магией до полногостолба,с кнопки(включается/выключается)########
############################################################################################
sub MageHeal()
If UO.Dead() Then
UO.Print("You are Dead")
return
Else
If UO.GetGlobal('MageHeal')=='on' Then
UO.Print("MageHeal: Off")
UO.SetGlobal('MageHeal','off')
UO.Exec('terminate MageHeal')
End If
End If

If UO.Mana >= 4 and UO.GetHP() < UO.GetMaxHP() Then
UO.SetGlobal('MageHeal','on')
UO.Print("MageHeal: On")
UO.DeleteJournal()
REPEAT
UO.Cast('Heal','self')
CastWait()
Until UO.Mana < 4 or UO.InJournal("You are frozen") or UO.GetHP() >= UO.GetMaxHP() or UO.Dead()
UO.SetGlobal('MageHeal','off')
End If
end sub

Sub CastWait()
var LastMana = UO.Mana
var Fizzles = "You lack|fizzles"
REPEAT
If UO.Mana < LastMana Then
return
Else
If UO.Journal(2)=="Select Target" and UO.Journal(1)=="The spell fizzles." Then
DeleteJournal(Fizzles)
UO.Print("Wait other cast...")
CastWait()
Else
If UO.InJournal(Fizzles) Then
DeleteJournal(Fizzles)
return
Else
If UO.Mana > LastMana Then
LastMana = UO.Mana
End If
End If
End If
End If
Wait(150)
Until UO.Dead()
end sub

Sub DeleteJournal(Message)
While UO.InJournal(Message)
UO.SetJournalLine(UO.InJournal(Message)-1,' ')
Wend
end sub
------------------------------------------------------------------------------
Этот скрипт на автомате начинает хелится бинтами когда определенное количество хп,хелит до полного столба после чего одевает выбраные вепы и продолжает ждущий режим чтобы повторить хел когда указаные хп упадут до нужного числа.также можно остановить с кнопки,Минус этого скрипта что находясь в парализ филде или просто фризе,он сам себе непонятным образом физлит стрелку и любые другие касты(неудобно)

sub hilkpatos()
VAR X=0
repeat
if UO.Life <= 90 then ;;; healing
uo.unequip("Rhand")
while uo.life < uo.str
uo.exec("bandageself")
uo.deletejournal()
while not (X == 80 or uo.injournal("backpack") or uo.injournal ("reach that") or uo.injournal("current state") or uo.injournal("barely") or uo.injournal("mummy") or uo.injournal("target info"))
UO.WarMode(0)
wait(100)
X=X+1
if uo.injournal("reach that") or uo.injournal("current state") or uo.injournal("target info") then
wait(1000)
endif
if uo.stamina < 25 then
uo.usetype("") ;пьем рефрешку
endif
wend
X=0
wend
uo.deletejournal()
uo.usetype("0x1B76") ;щит
uo.usetype("0x1402") ;стучалка
endif
wait(100)
until uo.dead()
end if
end sub
------------------------------------------------------------
А этот просто тупо хелится до полного столба ничего не одевая когда полный столб,так же выключается с той же кнопки и отдельно одеваю забинженые вепы

###########################################
#########Нон стоп хелится,несбивая бинт####
###########################################
sub HealHealHeal()
UO.DeleteJournal()
If UO.Dead() Then
UO.Print("You are Dead")
return
End If
If UO.GetGlobal('HealHealHealCheck')<>'on' Then
UO.SetGlobal('HealHealHealCheck','on')
UO.Print("HealHealHeal: On")
REPEAT
#uo.exec("canceltarget")
IF (UO.Stamina < (UO.DEX/1.30)) THEN
UO.Exec("usetype '0x0f0b'")
wait(1000)
UO.DeleteJournal()
END IF
uo.exec("bandageself")
repeat
wait (200)
until ((UO.InJournal("bloody")) || (UO.InJournal("mummy")) || (UO.InJournal("barely")))
UO.DeleteJournal()
UNTIL UO.Life<1
Else
UO.SetGlobal('HealHealHealCheck','off')
UO.Print("HealHealHeal: Off")
UO.Exec('terminate HealHealHeal')
End If
end sub

-------------------------------------------------
Хочется чтобы вы помогли осуществить поставленые цели до UPGREAT-ить склеить из этих трех ПУТНЫЙ...думаю 3тий данный мной скрипт надо довести до ума,cклеев по частям и доработав,для знающих людей это как два пальца...помогите,а то я только начинаю разбиратся во всем этом,пока еще нулевой...СПАСИБО ЗА ВНИМАНИЕ!

Re: 4 вопроса 4 ответа ....БУДЬТЕ ТАК ЛЮБЕЗНЫ -)

Posted: 2010-08-24 08:37:49
by Savage
1.Никак
2.Такое можно сделать только если будет постоянно запущен скрипт - монитор отслеживающий нажатие клавиши. На мой взгляд такие сложные схемы в бою только мешают и ведут к крашам.
3.Нужны признаки того что каст завершился. А так ничего сложного, смотри ниже.
4.

Code: Select all

#==============================================================
#  HealFull() - memoryzed current weapon, bandageself, armed
#--------------------------------------------------------------
sub HealFull()
   If UO.Life<UO.STR Then
      UO.SetArm('CWeapon')
      While UO.Life<>UO.STR
         UO.DeleteJournal()
         UO.BandageSelf()
         Repeat
            wait(300)
         Until UO.InJournal("bloody|barely|need")
      Wend
      UO.Arm('CWeapon')
   End if
   UO.Attack('lastattack')
end sub

Re: 4 вопроса 4 ответа ....БУДЬТЕ ТАК ЛЮБЕЗНЫ -)

Posted: 2010-08-25 19:50:57
by BOSS manCCCP
Есть здесь те кто имеет больший опыт,уважаемый аппанент не смог мне клалифицировано помочь -) Есть MAD-люди -) ?

Re: 4 вопроса 4 ответа ....БУДЬТЕ ТАК ЛЮБЕЗНЫ -)

Posted: 2010-08-27 12:35:02
by Mirage
либо так:
Until UO.InJournal("mummy|bloody|barely|need")

либо так:
Until UO.InJournal("bloody|barely|need") or UO.Life>=UO.str

Re: 4 вопроса 4 ответа ....БУДЬТЕ ТАК ЛЮБЕЗНЫ -)

Posted: 2010-08-30 16:11:02
by BOSS manCCCP
Дружище,а по следующим вопросам проинформировать меня можешь?

Re: 4 вопроса 4 ответа ....БУДЬТЕ ТАК ЛЮБЕЗНЫ -)

Posted: 2010-09-27 09:25:34
by admir
Проверка по уо журналу легко сбивается

Надо прилеплять еще дополнительную проверку на системное сообщение :)

Re: 4 вопроса 4 ответа ....БУДЬТЕ ТАК ЛЮБЕЗНЫ -)

Posted: 2010-09-27 11:08:06
by BOSS manCCCP
admir wrote:Проверка по уо журналу легко сбивается

Надо прилеплять еще дополнительную проверку на системное сообщение :)



Как мне это сделать,подскажи плс...

Re: 4 вопроса 4 ответа ....БУДЬТЕ ТАК ЛЮБЕЗНЫ -)

Posted: 2010-09-27 13:28:48
by admir
Посмотреть серийник любого системного сообщения из журнала и поставить в проверку.

посмотреть серийник можно так

Code: Select all

uo.JournalSerial(uo.InJournal('You put')-1)

Re: 4 вопроса 4 ответа ....БУДЬТЕ ТАК ЛЮБЕЗНЫ -)

Posted: 2010-11-12 13:16:12
by BOSS manCCCP
admir wrote:Посмотреть серийник любого системного сообщения из журнала и поставить в проверку.

посмотреть серийник можно так

Code: Select all

uo.JournalSerial(uo.InJournal('You put')-1)



как этот скрипт выглядеть должен?
куда мне вставить то о чем ты говоришь?

вот скрипт ,что дальше:

# HealFull() - memoryzed current weapon, bandageself, armed
#--------------------------------------------------------------
sub HealFull()
If UO.Life<UO.STR Then
UO.SetArm('CWeapon')
While UO.Life<>UO.STR
UO.DeleteJournal()
UO.BandageSelf()
Repeat
wait(300)
Until UO.InJournal("bloody|barely|need")
Wend
UO.Arm('CWeapon')
End if
UO.Attack('lastattack')
end sub

Еще трабл с этим скриптом что Uo.Arm,бывает затупливает щит или меч,да так что он одевает что нибудь одно из вепов после хила,а вторая вещи(щит или пуха) пропадают вообще из пака и надо двинуть какую нибудь вещь в паке чтобы опять пропавшее появилось...+как мне сделать чтобы я ТАБлся нон стоп пока хелюсь,а то когда я в инвиз ухожу и хелюсь,то примерно зная где я стою противник на замахе в меня,харкает со своего ездового дракона и я из инвиза ХЕЛЯСЬ начинаю из кулака ему поносу бить ,соответственно раздетекчиваясь при этом и ЛОВЛЮ сразу УДАР который был у него на замахе...Я УЖЕ УСТАЛ,ХОЧЕТСЯ ЧЕТКУЮ КНОПКУ на ХИЛИНГ чтобы не встревать,буду очень признателен,помоги обезьяне гулпой которая еще не шарит -)) !

Re: 4 вопроса 4 ответа ....БУДЬТЕ ТАК ЛЮБЕЗНЫ -)

Posted: 2010-12-13 15:45:02
by Blood Slayer
Savage wrote:1.Никак
2.Такое можно сделать только если будет постоянно запущен скрипт - монитор отслеживающий нажатие клавиши. На мой взгляд такие сложные схемы в бою только мешают и ведут к крашам.
3.Нужны признаки того что каст завершился. А так ничего сложного, смотри ниже.
4.

Code: Select all

#==============================================================
#  HealFull() - memoryzed current weapon, bandageself, armed
#--------------------------------------------------------------
sub HealFull()
   If UO.Life<UO.STR Then
      UO.SetArm('CWeapon')
      While UO.Life<>UO.STR
         UO.DeleteJournal()
         UO.BandageSelf()
         Repeat
            wait(300)
         Until UO.InJournal("bloody|barely|need")
      Wend
      UO.Arm('CWeapon')
   End if
   UO.Attack('lastattack')
end sub


1.Никак - Почему ни как то?

В опциях УО бинд клавиши, поотм в инже Uo.Press() и все норм

Re: 4 вопроса 4 ответа ....БУДЬТЕ ТАК ЛЮБЕЗНЫ -)

Posted: 2010-12-13 18:23:34
by Mirage
Blood Slayer wrote:1.Никак - Почему ни как то?
В опциях УО бинд клавиши, поотм в инже Uo.Press() и все норм


Конкретно задан был вопрос - Как в ИНЖЕКТЕ. В ИНЖЕКТЕ именно такой возможности нет.
Я делал скрипт на переключалку бег/шаг - аналогично.

Re: 4 вопроса 4 ответа ....БУДЬТЕ ТАК ЛЮБЕЗНЫ -)

Posted: 2010-12-14 00:26:04
by Blood Slayer
Mirage wrote:
Blood Slayer wrote:1.Никак - Почему ни как то?
В опциях УО бинд клавиши, поотм в инже Uo.Press() и все норм


Конкретно задан был вопрос - Как в ИНЖЕКТЕ. В ИНЖЕКТЕ именно такой возможности нет.
Я делал скрипт на переключалку бег/шаг - аналогично.


Если для скриптов, ток ток через нажатие клавиши ... поэтому так и написал :)