| Rules | 14 Haziran 2016 17:44 |
Helper online kod hatası
Selamın Aleyküm Kolay gelsin arkadaşlar
bu kodda hata alıyorum veriler düzgün bir şekilde kayd edilmiyor yardımcı olabilirmisiniz acaba Kod:
alias online {
if $read(back.txt,w,$+(*,$1,*)) {
write $+(-,l,$readn) back.txt $1 $calc($token($read(back.txt,$readn),2,32) + 1) saniye gorev yapmistir. }
else { write back.txt $1 1 saniye gorev yapmistir. }
}
on *:rawmode:#Help:{
if +o == $1 {
/timer $+ $2 0 1 /online $2
}
if +h == $1 {
/timer $+ $2 0 1 /online $2
}
if +oa == $1 {
/timer $+ $2 0 1 /online $2
}
if +oq == $1 {
/timer $+ $2 0 1 /online $2
}
if -o == $1 {
/timer $+ $2 off
}
if -oa == $1 {
/timer $+ $2 off
}
if -h == $1 {
/timer $+ $2 off
}
}
on *:part:#Help:{ /timer $+ $nick off }
on *:quit:{ /timer $+ $nick off }
on *:text:*:#Helpteam:{
if $nick ison #Helpsop {
if $1 == .online {
if !$2 { msg $chan Yanlis kullanim .online rumuz seklinde kullaniniz. }
if (!$read(back.txt,w,$+(*,$2,*))) { /msg $chan $2 rumuzu veritabaninda bulunmamaktadir. }
else {
/msg $me * $read(back.txt,w,$+(*,$2,*)))
}
}
}
if $1 == .olist {
if $nick ison #Helpsop {
msg $chan ( $+ $lines(back.txt) $+ ) tane kayitli helper bulunmakta.
msg $chan Veritabanindaki kayitli rumuzlarin gorev suresi bilgilerine bakmak icin .online rumuz yaziniz.
var %ok 0
while %ok <= $lines(back.txt) {
/msg $me * $read(back.txt,%ok)
inc %ok
}
}
}
if $1 == .osil {
if $nick ison #Helpsop {
if !$2 { msg $chan Yanlis kullanim .osil nick seklinde kullaniniz. }
if (!$read(back.txt,w,$+(*,$2,*))) { /msg $chan $2 rumuzu veritabaninda bulunmamaktadir. }
else {
if ($read(back.txt,w,$+(*,$2,*))) {
write -dl $+ $readn back.txt
.msg $chan $2 rumuzu veritabanindan silindi.
timer $+ $2 off
}
}
}
}
if $1 == .osıfırla {
if $nick == D3Li {
/msg $chan Online veritabanini sifirlamak istediginizden emin misiniz?
/msg $chan Sifirlamayi onaylamak icin .Oevet
/msg $chan Sifirlama islemini iptal etmek icin .Ohayır
}
else {
/msg $chan Bu komutu kullanma yetkiniz bulunmamaktadir.
}
}
if $1 == .oevet {
if $nick = D3Li {
/remove back.txt
/msg $chan Online veritabani basari ile sifirlandi $nick
}
else {
/msg $chan Bu komutu kullanma yetkiniz bulunmamaktadir.
}
}
if $1 == .ohayır {
if $nick == D3Li {
/msg $chan Online veritabani sifirlanma islemi durduruldu.
}
else {
/msg $chan Bu komutu kullanma yetkiniz bulunmamaktadir.
}
}
}
on *:text:*:?:{
if $nick == $me {
if *saniye* iswm $1- {
/msg #Helpteam $2 $replace($duration($($+($3),2)),mins, $chr(32) dakika,hrs, $chr(32) saat,hr, $chr(32) saat,days, $chr(32) gün,day, $chr(32) gün,wks, $chr(32) hafta,wk, $chr(32) hafta,secs, $chr(32) saniye,min,dakika,hr,saat,sec,saniye) gorev yapmistir.
/close -m $me
}
}
}
verdiği hata ise
-
* /write: Güncellemede Hata 'D:\Yeni klasör (2)\Help\Help\Help\HelpTeam\back.txt' (Satır 3, osys3.txt)
-
rica etsem bi yardımcı olabilirmisn |
