Yoko
http://forum.yoko.com.ua/

Запись фраз в файл
http://forum.yoko.com.ua/viewtopic.php?f=20&t=9130		 Page 1 of 1
Author:  Sebastian [ 2006-10-21 13:53:29 ]
Post subject:  Запись фраз в файл
Есть ли у кого-нибудь скрипт или может кто подскажет как - сделать чтобы все услышанные фразы чар записывал в файл как тайлы для мининга или ламбера.

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

Спасибо заранеее.
Author:  Nmy [ 2006-10-21 16:51:21 ]
Post subject: 
вот пример:
Code:
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


поищи ищо чтото в поиске...
Author:  GimFlex [ 2006-10-21 18:46:00 ]
Post subject: 
вот недавно писал другу можно использовать для всего :) пишет даже имена :) тока не в файл а в техбокс :lol: :roll:
Code:
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
Author:  Edred [ 2006-10-21 18:46:10 ]
Post subject: 
Проще в конфиге включить вывод журнала в файл. И где-то на просторах инета (а также в моей свалке на компе) есть программка, позволяющая читать и преобразовывать полученный файл в текстовый...
Author:  Nmy [ 2006-10-21 18:49:05 ]
Post subject: 
Question wrote:
вот недавно писал другу можно использовать для всего :) пишет даже имена :) тока не в файл а в техбокс :lol: :roll:
Code:
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


а если креш- тогда все пропадёт...
Author:  Sebastian [ 2006-10-22 01:14:30 ]
Post subject: 
Щас буду пыхтетсь проверять ))
Author:  Edred [ 2006-10-22 01:53:31 ]
Post subject: 
Question wrote:
вот недавно писал другу можно использовать для всего :) пишет даже имена :) тока не в файл а в техбокс :lol: :roll:


Текстбокс короткий. Быстро забьется.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/