Новый скрипт на меджери

[Kosmozone]

ИДея такая, если мана 100
каст спел пойзон
пока мана не будет допустим 5....
чтоб до 5 маны он кастовал пойзон подряд
кому не сложно сделайте плиз

[Psimorph]

ИДея такая, если мана 100
каст спел пойзон
пока мана не будет допустим 5....
чтоб до 5 маны он кастовал пойзон подряд
кому не сложно сделайте плиз

Code: Select all

#каст пойзона на последний таргет.
sub Pois()
   VAR ManaNeed=5 ;  сколько надо маны сам ставь, по идее 9
   UO.Set('lasttarget','laststatus')
   If NOT UO.Poisoned('lasttarget') Then
   
      If UO.Mana>=ManaNeed Then
         UO.Cast('Poison','laststatus')
      Else
         UO.Print("Malo manki!")
      Endif
   Else
      UO.Print("4ar uge otravlen")
   Endif
end sub

[Kosmozone]

не... не работает....
мне нужен для прокачки магии
что со 100 кастовал кастовал кастовал пока маны не будет допустим 5
если маны 5 юз скил медитация

[Psimorph]

не... не работает....
мне нужен для прокачки магии
что со 100 кастовал кастовал кастовал пока маны не будет допустим 5
если маны 5 юз скил медитация

Ты бы если хоть чуть чуть понимал скрипт, не ответил бы таким тупым постом. Советую почитать хелп, просмотреть все команды используемые в этом скрипте, понять что они делают, и потом уже просить что то другое.

[Kosmozone]

не... не работает....
мне нужен для прокачки магии
что со 100 кастовал кастовал кастовал пока маны не будет допустим 5
если маны 5 юз скил медитация

Ты бы если хоть чуть чуть понимал скрипт, не ответил бы таким тупым постом. Советую почитать хелп, просмотреть все команды используемые в этом скрипте, понять что они делают, и потом уже просить что то другое.

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

[Psimorph]

добавь туда while NOT Uo.Dead()
и if UO.Mana<ManaNeed then
UO.Skill('meditation')
wait(5000)
endif

и тд.. добавь проверку на медитациЮ, тоесть отмедитировал он или нет, и всё будет ок. я ж гаварю, нужно самому просто малёха его модифицировать и всё ок

[user]

Что вы за бред гоните?

Code: Select all

VAR Fish='0x097B'
VAR TAR='0x009C15FF'

Sub Main()
VAR x = 0,y = 0,z = 0
   While NOT UO.Dead()
      If UO.Mana == UO.Int Then
         Repeat
            UO.DeleteJournal()
            UO.WaitTargetObject(TAR)
            UO.Cast('Poison')
            x = UO.Mana
            Repeat
               Wait(100)
            Until UO.InJournal("fizzle") OR x > UO.Mana
         Until UO.Mana < 9
      Else
         Repeat
            UO.UseSkill('Medit')
            Wait(1000)
         Until UO.Mana == UO.Int
      EndIf
      y = UO.SkillVal('Magery',2)/10
      z = UO.SkillVal('Meditation',2)/10
      UO.Print('Your skill Magery is '+str(y)+' And Meditation '+str(z)+'')
      UO.UseType(Fish)
      Wait(100)
      UO.UseType(Fish)
      Wait(100)
      UO.UseType(Fish)
   Wend
End Sub

Можно проще но мне нужен был такой!