Yoko

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

Хм... а время говорить какое нужно? и как говорить просто словами например: "18.00" типа этого? Или кликать на столб и говорить время с него?....
вобшем тут нечё сложного нету...

Немного не в тему, зато время говорит

sub ReaderReciter()
  dim verse[15]
  var numLines = 15

  verse[0] = "Хорошо живёт на свете Винни-Пух,"
  verse[1] = "Потому от пьянства он давно опух."
  verse[2] = "И неважно чем он занят"
  verse[3] = "Пить медведь не перестанет"
  verse[4] = "Даже если по утру отпустит дух."

  verse[5] = "Трам парам парару рару трам пам пам"
  verse[6] = "Похмеляется он часто по утрам,"
  verse[7] = "Днём по новой начинает,"
  verse[8] = "Вечерами продолжает"
  verse[9] = "И весёлый вечно бродит по лесам."

  verse[10] = "Если кончилась вся водка - не беда,"
  verse[11] = "Потребляет наркоту он иногда,"
  verse[12] = "А также дурилки, смешилки,"
  verse[13] = "Чумилки, крошилки, опилки"
  verse[14] = "Колит, нюхает, глотает без труда."

  var forever = true
  var i

  while forever
    for i = 0 to numLines-1
      UO.Msg(verse[i])
      wait(1000)
    next
    wait(1000)
    UO.Msg("Кстати, текущее время " + GetTime())
    wait(1000)
  wend
end sub

да время говорить просто четыре цифры , а вопрос GetTime() это фунция реального времени???

то МЕН : нет время говорить не нада столб сам по себе на нем просто написано Харкор Макрос детектид что-то типа этого.

GetTime() -- написанная мною функция, возвращающая текущее время в виде текстовой строки в формате HH:MM:SS

со временем разобрались спасибо, а как теперь лучше зделать проверку местности на наличие столбика ХМ что не мешал работае самого скрипта , ну не притормаживала чтобы эта проверка.??

неа , фигу пишет GetTime неизвестная функция , инжекшн.длл меня несколько дней назад....

Можно попробовать использовать [yhlp_findtype]. Как-нибудь вроде этого: UO.FindType(тип_столбика, -1, "ground"). Чтоб не мешало и не притормаживало -- это из области фантастики.

Я же писал, что GetTime() -- моя собственная функция. Её нет в инжекте.

Все гениальное просто!

sub ReaderReciter() 
  dim verse[15] 
  var numLines = 15 

  verse[0] = "Хорошо живёт на свете Винни-Пух," 
  verse[1] = "Потому от пьянства он давно опух." 
  verse[2] = "И неважно чем он занят" 
  verse[3] = "Пить медведь не перестанет" 
  verse[4] = "Даже если по утру отпустит дух." 

  verse[5] = "Трам парам парару рару трам пам пам" 
  verse[6] = "Похмеляется он часто по утрам," 
  verse[7] = "Днём по новой начинает," 
  verse[8] = "Вечерами продолжает" 
  verse[9] = "И весёлый вечно бродит по лесам." 

  verse[10] = "Если кончилась вся водка - не беда," 
  verse[11] = "Потребляет наркоту он иногда," 
  verse[12] = "А также дурилки, смешилки," 
  verse[13] = "Чумилки, крошилки, опилки" 
  verse[14] = "Колит, нюхает, глотает без труда." 

  var forever = true 
  var i 

  while forever 
    for i = 0 to numLines-1 
      UO.Msg(verse[i]) 
      wait(1000) 
    next 
    wait(1000) 
    UO.Msg("Кстати, текущее время "+ UO.asmGetTime('hh:nn:ss'))
    wait(1000) 
  wend 
end sub 

Для тебя представляет ценность только эта строка:

UO.Msg("Текущее время в Липецке"+ UO.asmGetTime('hh:nn:ss'))

P.S. Все дружно качаем ASM.

хз запапшит или нет .........ляпал от болды __)))
Тести

sub ReaderReciter() 
  var forever = true 
  var Time
Time = Time() 
while not uo.dead()
repeat 
wait(5000) 
UO.Findtype('ТИП СТОЛБА',-1,'ground')
if UO.GetQuantity('finditem')>0 then 
UO.Msg(Time) 
wait(10000) 
Else 
Exit=1 
endif 
until Exit==1 
 wend 
end sub

sub time()
var hh,mm,ss,hms,t=str(UO.Time())
if len(t)<=2 then
hh="0"
mm="0"
ss=t
endif
if len(t)==3 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-1)
endif
if len(t)==4 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-2)
endif
if len(t)==5 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-1)
ss=right(t,len(t)-3)
endif
if len(t)==6 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-2)
ss=right(t,len(t)-4)
endif
return hh+":"+mm+":"+ss
end sub

Функция времени Саши....

_________________
Все просто.
BETEPAH ™