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

Новый скрипт на меджери
http://forum.yoko.com.ua/viewtopic.php?f=20&t=371		 Page 1 of 1
Author:  Kosmozone [ 2004-05-18 10:47:04 ]
Post subject:  Новый скрипт на меджери
ИДея такая, если мана 100
каст спел пойзон
пока мана не будет допустим 5....
чтоб до 5 маны он кастовал пойзон подряд
кому не сложно сделайте плиз
Author:  Psimorph [ 2004-05-18 14:16:58 ]
Post subject:  Re: Новый скрипт на меджери
Kosmozone wrote:
ИДея такая, если мана 100
каст спел пойзон
пока мана не будет допустим 5....
чтоб до 5 маны он кастовал пойзон подряд
кому не сложно сделайте плиз


Code:
#каст пойзона на последний таргет.
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
Author:  Kosmozone [ 2004-05-19 06:50:41 ]
Post subject: 
не... не работает....
мне нужен для прокачки магии :)
что со 100 кастовал кастовал кастовал пока маны не будет допустим 5
если маны 5 юз скил медитация
Author:  Psimorph [ 2004-05-19 11:00:03 ]
Post subject: 
Kosmozone wrote:
не... не работает....
мне нужен для прокачки магии :)
что со 100 кастовал кастовал кастовал пока маны не будет допустим 5
если маны 5 юз скил медитация



Ты бы если хоть чуть чуть понимал скрипт, не ответил бы таким тупым постом. Советую почитать хелп, просмотреть все команды используемые в этом скрипте, понять что они делают, и потом уже просить что то другое.
Author:  Kosmozone [ 2004-05-19 11:12:33 ]
Post subject: 
Psimorph wrote:
Kosmozone wrote:
не... не работает....
мне нужен для прокачки магии :)
что со 100 кастовал кастовал кастовал пока маны не будет допустим 5
если маны 5 юз скил медитация



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

по-моему не я не понимаю скрипт, а ты не понимаешь идею, твой скрипт я потестил, он не для меня, все команды у тебя элементарные.... имхо
Author:  Psimorph [ 2004-05-19 15:07:39 ]
Post subject: 
добавь туда while NOT Uo.Dead()
и if UO.Mana<ManaNeed then
UO.Skill('meditation')
wait(5000)
endif

и тд.. добавь проверку на медитациЮ, тоесть отмедитировал он или нет, и всё будет ок. я ж гаварю, нужно самому просто малёха его модифицировать и всё ок
Author:  user [ 2004-05-20 01:46:30 ]
Post subject: 
Что вы за бред гоните?
Code:
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


Можно проще но мне нужен был такой!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/