עמוד ראשי מירק סקריפטינג סניפטים מונה בתים

מונה בתים

mIRC Snippets - בפורום זה יפורסמו קודים שימושיים למירק. לפרסום קודים יש לפרסמם תחילה בפורום "פרסום קודים ומדריכים" ולאחר מכאן הם יועברו לפורום זה.

TrAsKy
משתמש רשום
מונה בתים
הצטרף: 17 יולי 2010, 16:07
הודעות: 51
פורסם: 21 יולי 2010, 11:02
שם הקוד: מונה בתים
יוצר: Kol
תיאור: מונה בתים בקודים
הפעלה: שמים ברימוט, לוחצים מקש ימיני בכל מקום ו Byte Counter
תמונה:
תמונה

menu * {
  Byte Counter: dialog -m bytes bytes
}

dialog Bytes {
  title "Byte Counter"
  size -1 -1 228 179
  option dbu
  edit "", 1, 12 9 199 136, multi return hsbar vsbar
  edit "0", 2, 24 161 29 10, read autohs center
  edit "0", 3, 85 161 29 10, read autohs center
  text "Bytes", 4, 5 161 17 8
  text "KiloBytes", 5, 59 161 25 8
  box "Text", 6, 2 1 220 150
  box "Size", 7, 2 152 116 24
  button "Exit", 8, 201 161 23 10, cancel
  button "Clear", 9, 174 161 23 10
  box "Lines", 10, 123 152 45 24
  edit "", 11, 128 161 33 10, read autovs center
}

on *:dialog:bytes:init:0: { .timerbyte -m 0 100 did -ra bytes 11 $!did(bytes,1,1).sel $!+ / $!+ $!did(bytes,1).lines }
on *:dialog:bytes:close:0: { .timerbyte off }
on *:dialog:bytes:edit:1: {
  var %x = 1, %len
  while (%x <= $did(bytes,1).lines) {
    var %i = $regsubex($did(bytes,1,%x),/^\s*;.*|^\s*|\s*$/g,)
    if ($left(%i,2) == /*) {
      var %comment on
    }
    if ($right(%i,2) == */ && %comment == on) {
      var %comment off
    }
    elseif (%comment != on) {
      inc %len $len(%i)
    }
    inc %x
  }
  did -ra bytes 2 %len
  did -ra bytes 3 $bytes(%len,k)
}
on *:dialog:bytes:sclick:9: { did -ra bytes 2,3 0 | did -r bytes 1 }

Ohad
מנהל האתר
Re: מונה בתים
הצטרף: 29 יוני 2010, 16:13
הודעות: 111
פורסם: 21 יולי 2010, 11:10
סקריפט מעולה, תודה.

uns
משתמש רשום
Re: מונה בתים
הצטרף: 01 יולי 2010, 07:18
הודעות: 95
פורסם: 21 יולי 2010, 11:11
סקריפט מצויין תודה !
תמונה


חזור אל סניפטים