GonzaLeS
06ofkalfasi
WriteFile;
Belirttiğiniz yola dosya yaratmaya, mevcut dosyaya yazmaya yarar.
Kod:Belirttiğiniz yola dosya yaratmaya, mevcut dosyaya yazmaya yarar.
[function writefile]
if !(<file.inuse>)
file.mode.create 1
file.mode.append 1
file.mode.writeflag 1
if (<file.open <strarg <args>>>)
file.writeline <streat <args>>
file.close
endif
endif
[function test]
writefile logs\.txt
.test Deneme //yazarak test edebilirsiniz
ReadFile;
Belirtilen yolda, belirtilen dosyayı çağırarak okumaya yarar. Çağırılacak dosyada birden fazla satır varsa, yardımcı fonksiyon olan [LINES] devreye girer.
[function readfile]
if !(<file.inuse>)
file.mode.create 1
file.mode.append 1
file.mode.readflag 1
if (<file.open <strarg <args>>>)
local.a = <file.readline <streat <args>>>
file.close
endif
endif
return <local.a>
[function test]
src.sysmessage .txt 1>
.test //yazarak sadece 1 satırlık yazıyı test edebilirsiniz.
Birden fazla satır okutmak için ise; [LINES] fonksiyonunu görelim.
Lines;
[function lines]
if !(<file.inuse>)
file.mode.create 1
file.mode.append 1
file.mode.readflag 1
if (<file.open <strarg <args>>>)
local.a = <file.filelines <strarg <args>>>
file.close
endif
endif
return <local.a>
[function test]
for 1 .txt> -1>
src.sysmessage .txt >>
endfor
.test //yazarak çok satırlık yazıyı test edebilirsiniz.
DeleteFile;
Belirtilen dosyayı, silme işleminde kullanılır.
[function deletefile]
if !(<file.inuse>)
file.mode.append 1
file.deletefile <args>
file.close
endif
[function test]
serv.deletefile logs\.txt
.test //yazarak silme işlemini test edebilirsiniz.
Bu kod bütünleriyle, gelişmiş staff komut kayıt sistemi, staff – player konuşma kayıt sistemi, anti-edit gibi sistemleri rahatlıkla yapabilirsiniz.
Teşekkürler.
Mac-Fusion