UPDATED

Aku seronok dpt jumpa member2 zaman sekolah dulu2. Semuanya melalui Facebook !! Betullah kata member, kalo ko nak cari member ko, ko taip jer nama dia dlm facebook mesti jumpa punya.. Tapi bukan semua.. Menariknya, jumpa seorang, akan jumpa yg lain lagi ๐Ÿ™‚

Skang ni aku tengah bangunkan laman web Jabatan Maklumat Kesihatan. Nampak simple tetapi ada beberapa interactive function yang akan menjadikan ianya lebih menarik utk dikunjungi. Team webmaster dah ada.. Depa cari/tambah/kemaskini content.. aku lak, buat programming utk function2 ni… nasib baik ada Hezra yg bantu aku buat layout… senang skit kerja.

mIRC !! Dah lama aku x online, abg Mahmud balik kg sempena cuti sekolah 2 minggu ni.. So segala perkembangan utk mIRC terbantut !!

Input warna2

Saja buat time boring !!

menu channel {
  Input Warna
  .Aktifkan:.enable #kaler
  .Diaktifkan:.disable #kaler
}
#kaler on
ON *:INPUT:*: {
  if ($left($1,1) == $chr(47) || $ctrlenter) { return }
  else {
    var %a 1 , %b 2 , %c
    var %d $replace($1-,$chr(32),$chr(135)) , %e 1 , %b $r(2,14)
    while (%a < $calc($len(%d) + 1)) {
      if (%b > 15) %b = 2
      %c = $+(%c,$chr(3),%b,$mid(%d,%a,1))
      .inc %a | .inc %b
    }
    msg $active $replace(%c,$chr(135),$chr(32)) | halt
  }
}
#kaler end

Simple MP3 Player

Usage: Taip /addmp3 utk masukkan senarai lagu. Script akan auto info (/ame) selepas 60s connect ke server

alias uw {
var %a = 1
while (%a <= $numtok($1-,32)) { var %b = $gettok($1-,%a,32) var %c = %c $+($upper($left(%b,1))) $+ $mid(%b,2) var %a $calc(%a +1) } return %c } alias addmp3 { var %mp3.dir $sdir="Set MP3 Dir" if (!%mp3.dir) { return } var %mp3.num $findfile(%mp3.dir, *.mp3, 0), %mp3.loop 1 :mp3_loop if (%mp3.loop <= %mp3.num) { .write mp3.txt $findfile(%mp3.dir,*.mp3,%mp3.loop) inc %mp3.loop goto mp3_loop } } alias mp3info { var %lagu = $qt($read(mp3.txt)) .splay -cwmp %lagu ame sedang mendengar lagu $uw($replace($lower($remove($nopath(%lagu),.mp3)),_,$chr(32))) [ $+ $duration($calc($sound(%lagu).length / 1000)) $+ / $+ $round($calc($file(%lagu) / 1000000),2) $+ mb $+ / $+ $sound(%lagu).bitrate $+ kbps] .timermp3info 1 $calc($sound(%lagu).length / 1000 + 60) mp3info } ON *:CONNECT: { .timer 1 60 mp3info } [/sourcecode]

Auto Voice

Okey… Remote ni.. akan autovoice user setelah dia msg channel sekurang-kurangnya 7 baris dalam tempoh 15 saat.

ON @*:TEXT:*:#: { 
  if ($nick isreg $chan) { 
    .inc -u15 %voice. [ $+ [ $cid ] $+ [ $chan ] $+ [ $nick ] ] 1 
    if (%voice. [ $+ [ $cid ] $+ [ $chan ] $+ [ $nick ] ] > 6) { 
      mode $chan +v $nick | halt
    } 
  } 
}

Nick Completor

Okey, utk tidak menghampakan bro Zek, ni remote nick completor yg pakcu pakai… Feel free to edit it ๐Ÿ˜‰

alias ncomp {
  var %color = $+($base($r(2,14),10,10,2))
  return $+($left($nick($1,$2).pnick,1),,%color,$left($2,1),,$mid($2,2,-1),,%color,$right($2,1),,$chr(44)) $3-
}
ON *:INPUT:*: {
  if ($left($1,1) == $chr(47) || $ctrlenter || $inpaste) { return }
  else {
    if ($chr(35) isin $active && c !isin $gettok($chan($active).mode,1,32)) {
      if ($1 ison $active) {
        msg $target $ncomp($active,$1,$2-) | halt
      }
      else {
        msg $target $1- | halt 
      }
    }
    else { 
      msg $target $1- | halt 
    }
  }
}