Вопрос по скрипту на Столб Проверки от ГМа.

Angelok · Post by **Angelok** » 2005-02-12 12:46:34

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

666Man666 · Post by **666Man666** » 2005-02-12 13:39:49

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

AlexeyVorotnikov · Post by **AlexeyVorotnikov** » 2005-02-12 13:47:58

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

Code: Select all

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

Angelok · Post by **Angelok** » 2005-02-12 15:02:04

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

Angelok · Post by **Angelok** » 2005-02-12 15:03:28

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

AlexeyVorotnikov · Post by **AlexeyVorotnikov** » 2005-02-12 18:19:03

Angelok wrote:GetTime() это фунция реального времени???

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

Angelok · Post by **Angelok** » 2005-02-12 20:40:35

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

Angelok · Post by **Angelok** » 2005-02-12 20:45:43

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

AlexeyVorotnikov · Post by **AlexeyVorotnikov** » 2005-02-12 23:06:04

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

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

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

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

Morgan · Post by **Morgan** » 2005-02-12 23:58:33

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

Code: Select all

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

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

Code: Select all

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

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

BETEPAH · Post by **BETEPAH** » 2005-02-14 09:38:13

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

Code: Select all

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

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