Category: Pengaturcaraan

Currently…

+ ICMS
+ Sistem eLatihan
+ Sistem eQA
+ Web JMK

Coming…
+ Task management
+ Sistem tempahan borang klinikal
+ Sistem tempahan bilik mesyuarat

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 
    }
  }
}

AutoDeop & AutoDevoice On Idle

Tgh ni.. tengah boring-boring, PakTam (DALNet) ajak buat remote autodevoice bila user idle lebih dari 15 minit.

ON *:JOIN:#: {
  if ($nick == $me) {
    .timer 1 300 checkidle $chan
  }
}
alias checkidle {
  if ($me isop $1) {
    var %i 1
    while (%i < = $nick($1,0,o)) {
      if ($nick($1,%i,o).idle > 300 && $nick($1,%i,o) != $me) {
        .inc %z 1
        var %x = $addtok(%x,$nick($1,%i,o),32)
        if (%z == $modespl) { mode $1 $+(-,$str(o,$modespl)) %x | .unset %x %z }
      }
      .inc %i 1
    }
    mode $1 $+(-,$str(o,$numtok(%x,32))) %x | .unset %z
  }
  .timer 1 5 checkidle2 $1
}
alias checkidle2 {
  if ($me isop $1) {
    var %i 1
    while (%i < = $nick($1,0,v)) {
      if ($nick($1,%i,v).idle > 300 && $nick($1,%i,v) != $me) {
        .inc %z 1
        var %x = $addtok(%x,$nick($1,%i,v),32)
        if (%z == $modespl) { mode $1 $+(-,$str(v,$modespl)) %x | .unset %x %z }
      }
      .inc %i 1
    }
    mode $1 $+(-,$str(v,$numtok(%x,32))) %x | .unset %z
  }
  .timer 1 2000 checkidle $1
}