Запись фраз в файл

[Sebastian]

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

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

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

[Nmy]

вот пример:

Code: Select all

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 

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

[GimFlex]

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

Code: Select all

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 

[Edred]

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

[Nmy]

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

Code: Select all

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 

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

[Sebastian]

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

[Edred]

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

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