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

не пашет скрипт на меджери
http://forum.yoko.com.ua/viewtopic.php?f=20&t=8287
Page 1 of 1

Author:  GrandMaster Ranger [ 2006-07-21 09:53:43 ]
Post subject:  не пашет скрипт на меджери

Code:
sub main()

UO.Set('finddistance','2')
UO.Set('distance','2')

var i, k, a
a=0
while uo.life>0

repeat
CheckIngridy()
UO.Exec("cast 'Resurrection' self")
repeat
         wait(300)
      until UO.InJournal('That isn') or UO.InJournal('spell')
uo.DeleteJournal()
UO.UseSkill("Meditation");
repeat
wait(300)
      until UO.InJournal('You lose your') or UO.InJournal('mana')
uo.DeleteJournal()
UO.ServerPrint(".hungry")
Wait(500)
i=UO.LastMessage()
If i=="You aren't hungry at all" Then
UO.Exec("usetype '0x097B'")
wend
EndIf

k=UO.LastMessage()
If k=="Saving World State" <>0 Then
Wait(20000)
UO.DeleteJournal()
endif

wend
wend
wend
wend
end sub

sub CheckIngridy()
var i
if uo.bm<10 OR uo.gs<10 OR uo.ga<10 then

i=50-uo.bm
if i then
uo.exec("findtype 0x0F7B 0xFFFF ground")
UO.Exec("moveitem finditem "+STR(50-uo.bm)+" my")
wait(200)
endif

i=50-uo.gs
if i then
uo.exec("findtype 0x0F85 0xFFFF ground")
UO.Exec("moveitem finditem "+STR(50-uo.gs)+" my")
wait(200)
endif

i=50-uo.ga
if i then
uo.exec("findtype 0x0F84 0xFFFF ground")
UO.Exec("moveitem finditem "+STR(50-uo.ga)+" my")
wait(200)
endif
endif
end sub

походу я знаю что скрипт дырявый :lol: преследовал цель сделать минимальные задержки между кастом магии , медитации и затем опять каста, ато от этого очень много времени теряется.
можете подкоректировать, ато он 1 раз проводит цикл , ато и пару раз, и затем функция не сотанавливается но ничего не происходит :?:
заранее спасибо :wink:

Author:  kazinak [ 2006-07-21 17:09:12 ]
Post subject: 

А с каких это пор качают а корпом? или у вас на шарде он мало маны тратит... Лучше пойзон кастуй :roll:

Author:  Destruction [ 2006-07-21 23:00:40 ]
Post subject: 

Попробуй этот скрипт:
viewtopic.php?t=7394&highlight=

Я его потимизировал уже до нельзя

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