mIRC Log okuyucu Dialog

alias loglist { dialog -m blog blog }
dialog blog {
  title "Log Okuyucu - Aytac ScRipT"
  size 183 106 385 260
  box "", 8, 1 -2 382 260
  list 1, 2 6 212 250, size
  box "Ara:", 2, 215 -2 168 116, flat
  check "Nick:", 3, 222 15 53 13, flat
  edit "", 4, 221 28 115 23, multi return
  text "for", 23, 49 60 21 13, hide
  text ".log", 5, 338 36 25 17
  check "Yazılarda Ara:", 6, 222 55 103 13, flat
  edit "", 7, 221 68 145 23, multi return
  box "Info:", 9, 215 106 168 102
  text "Kayıt:", 10, 222 122 53 13
  text "oster", 25, 71 73 27 13, hide
  text "Son Değişiklik:", 11, 222 147 113 13
  text "Add-on", 21, 21 33 38 14, hide
  text "Boyut:", 12, 220 171 101 13
  box "Tercih:", 13, 215 200 168 58
  text "Rc", 24, 56 72 15 13, hide
  text "", 14, 222 135 153 13
  text "", 15, 222 159 151 13
  text "", 16, 222 185 151 13
  button "Oku", 17, 222 219 45 21, flat
  button "Sil", 18, 269 219 45 21, flat
  button "Kapat", 19, 316 219 45 21, ok flat
  text "Feito", 22, 41 47 26 14, hide
  button "Ara", 26, 306 91 75 21, flat
}
on *:dialog:blog:sclick:17:{  window @log | loadbuf -rp @log $+(",%blog.dir,$$did(blog,1,$did(blog,1).sel).seltext,") }
on *:dialog:blog:sclick:18:{ .remove $+(",%blog.dir,$$did(blog,1,$did(blog,1).sel).seltext,") | did -d blog 1 $did(blog,1).sel }
on *:dialog:blog:sclick:26:{
  if ($did(3).state == 1) || ($did(6).state == 1) {
    if ($did(3).state == 1) {
      set %blog.nome $+($as1($did(blog,4)).log)
    }
    else {
      set %blog.nome *.log
    }
    if ($did(6).state == 1) {
      set %blog.text $as1($did(blog,7))
    }
    else {
      set %blog.text *
    }
    blog.findfile1 
    halt
  }
  echo -a 12 Arama yapılması için seçenek kutusuna tıklayınız 
}
on *:dialog:blog:init:*:{
  set %blog.dir $logdir
  blog.finddir
}
on *:dialog:blog:sclick:1:{
  if (*.log iswm $did(blog,1,$did(blog,1).sel).seltext) {
    did -r blog 14,15,16
    var %blog.arquivo $+(%blog.dir,$did(blog,1,$did(blog,1).sel).seltext)
    did -a blog 14 $asctime($file(%blog.arquivo).ctime)
    did -a blog 15 $asctime($file(%blog.arquivo).mtime)
    did -a blog 16 $bytes($file(%blog.arquivo),k).suf
  }
}

on *:dialog:blog:dclick:1:{
  if (*.log !iswm $did(blog,1,$did(blog,1).sel).seltext) {
    did -r blog 14,15,16
    if ($left($right($did(blog,1,$did(blog,1).sel).seltext,-1),-1) == ..) && ($did(blog,1).sel == 1) {
      if (!%blog.busca) {
        var %blog1 $wildtok(%blog.dir,*,0,92) 
        var %blog3 [ $+(1-,[ [  $calc(%blog1 - 1) ] ]) ]
        var %blog2 $+($gettok(%blog.dir,[ [ %blog3 ] ],92),\)
        set %blog.dir [ %blog2 ]   
        did -r blog 1 
        blog.finddir
        halt
      }
      did -r blog 1
      unset %blog.busca
      blog.finddir
      halt
    }
    set %blog.dir $+(%blog.dir,$left($right($did(blog,1,$did(blog,1).sel).seltext,-1),-1),\)
    did -r blog 1
    blog.finddir
    halt
  }
  window @log
  loadbuf -rp @log $+(%blog.dir,$did(blog,1,$did(blog,1).sel).seltext)
}

alias as1 {
  if ($1) {
    if ($left($1,1) == *) {
      var %r $1-
      goto 2
    }
    var %r $+(*,$1-)
    :2
    if ($right($1-,1) == *) {
      var %r [ %r ]
      goto 3
    }
    var %r $+(%r,*)
    :3
    return %r
  }
  return *
}

alias blog.findfile1 {
  did -r blog 1
  window -hs @logview
  window -hs @logview1
  set %blog 0
  :comeco
  inc %blog
  tokenize 32 $findfile(%blog.dir,%blog.nome,%blog)
  var %blog1 $wildtok($1-,*,0,92) 
  var %blog3 $+(1-,[ [  $calc(%blog1 - 1) ] ])
  var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)
  if (%blog2) {
    if (%blog2 == %blog.dir) && (%blog.text != *) {
      filter -p $+(",$1-,") @logview1 %blog.text
      if ($filtered) {
        did -r blog 1
        aline @logview $remove($1,%blog.dir)
        goto comeco
      }
      goto comeco
    }
    if (%blog2 == %blog.dir) {
      aline @logview $remove($1,%blog.dir)
      goto comeco
    }
  }
  if ($line(@logview,1)) {
    set %blog 1
    did -a blog 1 [..]
    while ($line(@logview,%blog)) {
      did -a blog 1 $line(@logview,%blog)
      inc %blog
    }
  }
  else {
    did -a blog 1 [..]
    did -a blog 1 No file was found
  }
  set %blog.busca CURIOSO!!!
  window -c @logview1
  window -c @logview
}
alias blog.finddir {
  var %blog 0 
  if (%blog.dir != $logdir) {
    did -a blog 1 [..]
  }
  :comeco
  inc %blog
  tokenize 32 $finddir(%blog.dir,*,%blog)
  var %blog1 $wildtok($1-,*,0,92) 
  var %blog3 $+(1-,[ [  $calc(%blog1 - 1) ] ])
  var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)
  if (%blog2 == %blog.dir) {
    did -a blog 1 $+([,$remove($1-,%blog.dir),])
    goto comeco
  }
  blog.findfile
}
alias blog.findfile {
  window -sh @logview
  var %blog 0 
  :comeco
  inc %blog
  tokenize 32 $findfile(%blog.dir,*.log,%blog)
  var %blog1 $wildtok($1-,*,0,92) 
  var %blog3 $+(1-,[ [  $calc(%blog1 - 1) ] ])
  var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)
  if (%blog2 == %blog.dir) {
    aline @logview $remove($1-,%blog.dir)
    goto comeco
  }
  var %blog 1
  while ($line(@logview,%blog)) {
    did -a blog 1 $line(@logview,%blog)
    inc %blog
  }
  window -c @logview
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

alias loglist { dialog -m blog blog }

dialog blog {

title "Log Okuyucu - Aytac ScRipT"

size 183 106 385 260

box "", 8, 1 -2 382 260

list 1, 2 6 212 250, size

box "Ara:", 2, 215 -2 168 116, flat

check "Nick:", 3, 222 15 53 13, flat

edit "", 4, 221 28 115 23, multi return

text "for", 23, 49 60 21 13, hide

text ".log", 5, 338 36 25 17

check "Yazılarda Ara:", 6, 222 55 103 13, flat

edit "", 7, 221 68 145 23, multi return

box "Info:", 9, 215 106 168 102

text "Kayıt:", 10, 222 122 53 13

text "oster", 25, 71 73 27 13, hide

text "Son Değişiklik:", 11, 222 147 113 13

text "Add-on", 21, 21 33 38 14, hide

text "Boyut:", 12, 220 171 101 13

box "Tercih:", 13, 215 200 168 58

text "Rc", 24, 56 72 15 13, hide

text "", 14, 222 135 153 13

text "", 15, 222 159 151 13

text "", 16, 222 185 151 13

button "Oku", 17, 222 219 45 21, flat

button "Sil", 18, 269 219 45 21, flat

button "Kapat", 19, 316 219 45 21, ok flat

text "Feito", 22, 41 47 26 14, hide

button "Ara", 26, 306 91 75 21, flat

}

on *:dialog:blog:sclick:17:{ window @log | loadbuf -rp @log $+(",%blog.dir,$$did(blog,1,$did(blog,1).sel).seltext,") }

on *:dialog:blog:sclick:18:{ .remove $+(",%blog.dir,$$did(blog,1,$did(blog,1).sel).seltext,") | did -d blog 1 $did(blog,1).sel }

on *:dialog:blog:sclick:26:{

if ($did(3).state == 1) || ($did(6).state == 1) {

if ($did(3).state == 1) {

set %blog.nome $+($as1($did(blog,4)).log)

}

else {

set %blog.nome *.log

}

if ($did(6).state == 1) {

set %blog.text $as1($did(blog,7))

}

else {

set %blog.text *

}

blog.findfile1

halt

}

echo -a 12 Arama yapılması için seçenek kutusuna tıklayınız

}

on *:dialog:blog:init:*:{

set %blog.dir $logdir

blog.finddir

}

on *:dialog:blog:sclick:1:{

if (*.log iswm $did(blog,1,$did(blog,1).sel).seltext) {

did -r blog 14,15,16

var %blog.arquivo $+(%blog.dir,$did(blog,1,$did(blog,1).sel).seltext)

did -a blog 14 $asctime($file(%blog.arquivo).ctime)

did -a blog 15 $asctime($file(%blog.arquivo).mtime)

did -a blog 16 $bytes($file(%blog.arquivo),k).suf

}

on *:dialog:blog:dclick:1:{

if (*.log !iswm $did(blog,1,$did(blog,1).sel).seltext) {

did -r blog 14,15,16

if ($left($right($did(blog,1,$did(blog,1).sel).seltext,-1),-1) == ..) && ($did(blog,1).sel == 1) {

if (!%blog.busca) {

var %blog1 $wildtok(%blog.dir,*,0,92)

var %blog3 [ $+(1-,[ [ $calc(%blog1 - 1) ] ]) ]

var %blog2 $+($gettok(%blog.dir,[ [ %blog3 ] ],92),\)

set %blog.dir [ %blog2 ]

did -r blog 1

blog.finddir

halt

}

did -r blog 1

unset %blog.busca

blog.finddir

halt

}

set %blog.dir $+(%blog.dir,$left($right($did(blog,1,$did(blog,1).sel).seltext,-1),-1),\)

did -r blog 1

blog.finddir

halt

}

window @log

loadbuf -rp @log $+(%blog.dir,$did(blog,1,$did(blog,1).sel).seltext)

}

alias as1 {

if ($1) {

if ($left($1,1) == *) {

var %r $1-

goto 2

}

var %r $+(*,$1-)

if ($right($1-,1) == *) {

var %r [ %r ]

goto 3

}

var %r $+(%r,*)

return %r

}

return *

}

alias blog.findfile1 {

did -r blog 1

window -hs @logview

window -hs @logview1

set %blog 0

:comeco

inc %blog

tokenize 32 $findfile(%blog.dir,%blog.nome,%blog)

var %blog1 $wildtok($1-,*,0,92)

var %blog3 $+(1-,[ [ $calc(%blog1 - 1) ] ])

var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)

if (%blog2) {

if (%blog2 == %blog.dir) && (%blog.text != *) {

filter -p $+(",$1-,") @logview1 %blog.text

if ($filtered) {

did -r blog 1

aline @logview $remove($1,%blog.dir)

goto comeco

}

goto comeco

}

if (%blog2 == %blog.dir) {

aline @logview $remove($1,%blog.dir)

goto comeco

}

if ($line(@logview,1)) {

set %blog 1

did -a blog 1 [..]

while ($line(@logview,%blog)) {

did -a blog 1 $line(@logview,%blog)

inc %blog

}

else {

did -a blog 1 [..]

did -a blog 1 No file was found

}

set %blog.busca CURIOSO!!!

window -c @logview1

window -c @logview

}

alias blog.finddir {

var %blog 0

if (%blog.dir != $logdir) {

did -a blog 1 [..]

}

:comeco

inc %blog

tokenize 32 $finddir(%blog.dir,*,%blog)

var %blog1 $wildtok($1-,*,0,92)

var %blog3 $+(1-,[ [ $calc(%blog1 - 1) ] ])

var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)

if (%blog2 == %blog.dir) {

did -a blog 1 $+([,$remove($1-,%blog.dir),])

goto comeco

}

blog.findfile

}

alias blog.findfile {

window -sh @logview

var %blog 0

:comeco

inc %blog

tokenize 32 $findfile(%blog.dir,*.log,%blog)

var %blog1 $wildtok($1-,*,0,92)

var %blog3 $+(1-,[ [ $calc(%blog1 - 1) ] ])

var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)

if (%blog2 == %blog.dir) {

aline @logview $remove($1-,%blog.dir)

goto comeco

}

var %blog 1

while ($line(@logview,%blog)) {

did -a blog 1 $line(@logview,%blog)

inc %blog

}

window -c @logview

}

önceki yazımızda « Proxy Host Koruması Dialog makelemiz var.

Makale Yazarı : admin

27 Kasım, 2018

199

Yazı kategorisi : mIRC Parça Kodlar

yorum yok

mIRC Log okuyucu Dialog

Etiketler

mIRC Log okuyucu Dialog İle Benzer Sohbet Yazıları

[!.]hapis NICK

Çeviri Diyalogu (TRANSLATE DİALOG)

mIRC Fihrist

mIRC Log okuyucu Dialog

mIRC Log okuyucu Dialog İle Benzer Sohbet Yazıları

mIRC Log okuyucu Dialog yazına yapılan yorumlar

Bir Yorum Yazmak İstermisiniz ?