Page 1 of 1
Запись фраз в файл
Posted: 2006-10-21 13:53:29
by Sebastian
Есть ли у кого-нибудь скрипт или может кто подскажет как - сделать чтобы все услышанные фразы чар записывал в файл как тайлы для мининга или ламбера.
Суть в том - что я пытаюсь сделать на своём шарде некое подобие нпц квестолога, пополам с шутником и мне хотелось узнать наиболее часто употребляемые слова.
Спасибо заранеее.
Posted: 2006-10-21 16:51:21
by 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
поищи ищо чтото в поиске...
Posted: 2006-10-21 18:46:00
by 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
Posted: 2006-10-21 18:46:10
by Edred
Проще в конфиге включить вывод журнала в файл. И где-то на просторах инета (а также в моей свалке на компе) есть программка, позволяющая читать и преобразовывать полученный файл в текстовый...
Posted: 2006-10-21 18:49:05
by Nmy
Question wrote:вот недавно писал другу можно использовать для всего
пишет даже имена
тока не в файл а в техбокс
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
а если креш- тогда все пропадёт...
Posted: 2006-10-22 01:14:30
by Sebastian
Щас буду пыхтетсь проверять ))
Posted: 2006-10-22 01:53:31
by Edred
Question wrote:вот недавно писал другу можно использовать для всего
пишет даже имена
тока не в файл а в техбокс
Текстбокс короткий. Быстро забьется.