Yoko

Есть ли у кого-нибудь скрипт или может кто подскажет как - сделать чтобы все услышанные фразы чар записывал в файл как тайлы для мининга или ламбера.

Суть в том - что я пытаюсь сделать на своём шарде некое подобие нпц квестолога, пополам с шутником и мне хотелось узнать наиболее часто употребляемые слова.

Спасибо заранеее.

вот пример:

sub SaveToFile(TreeCount,TreeX,TreeY,TreeT)
var f=file("C:\trees3.dat")
var s=0,i=0
f.open()
f.create()
s=safe call f.writeln(TreeCount)
for i=1 to TreeCount
s=safe call f.writeln(str(TreeT[i])+' '+str(treeX[i])+' '+str(TreeY[i]))
next
f.close()
end sub 

поищи ищо чтото в поиске...

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

вот недавно писал другу можно использовать для всего пишет даже имена тока не в файл а в техбокс

sub timecreater()

var tip='-1'
var cvet='-1'

var ReconnectTime
var name
uo.set('finddistance','14')
uo.ignorereset()
UO.TextOpen()
uo.textclear()
while 1==1
 uo.findtype(tip,cvet,'ground')
 if uo.findcount()>0 then
  uo.click('finditem')
  wait(500)
  name=uo.getname('finditem')
  ReconnectTime = MakeTime()
  UO.TextPrint(name+' '+ReconnectTime) 
  uo.ignore('finditem')
  wait(500)
  uo.say("naiden "+name)
 else
  wait(3000)
  uo.say("poka novenkih nema")
 endif
wend
endsub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub 

Проще в конфиге включить вывод журнала в файл. И где-то на просторах инета (а также в моей свалке на компе) есть программка, позволяющая читать и преобразовывать полученный файл в текстовый...

_________________
Ни один скрипт не работает? Пора обновить Инжект...
Все работает, но хочется большего? Пора переходить на стелс...

а если креш- тогда все пропадёт...

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

Щас буду пыхтетсь проверять ))

Текстбокс короткий. Быстро забьется.

_________________
Ни один скрипт не работает? Пора обновить Инжект...

Все работает, но хочется большего? Пора переходить на стелс...