Author: PakCu

I'm a simple person

Dugaan mu datang lagi Ya Allah

1st skali aku nak ucapkan syukur kpd Mu Ya Allah atas nikmat dan dugaan yang engkau berikan.

Ahad (14/03/2010)

On the way nak pegi Ahmad (member PTM) kawen.. Tetiba kete jammed kat highway berdekatan dengan Tol Bukit Mahkota. Kesiannya anak dan isteri, terpaksa berpanas dan menunggu di tengah-tengah highway. Aku bukak bonet depan keta. Nampak kesan gasket bocor.. Check minyak itam… Ya Allah !! Kering langsung… Nasib baik dlm 10 minit ada towing crane sampai.. Bincang punya bincang.. RM 200 kalo nak dia tarik sampai rumah di Sungai Besi. Okeylah.. aku setuju.. Janji anak + isteri aku selesa dan cepat sampai rumah. Cancel pegi rumah Ahmad kawen.

Rupanya tgh tu.. Tengah lepak-lepak, dalam kul 2… anak buah aku nak mai rumah. Petang tu lak Abg Nain sekeluarga mai rumah !! Patutlah Engkau x mo kasi aku pegi, rupanya ada rezeki yg Kau nak berikan… Ya lah… tetamu ni kan membawa rezeki (kata arwah mak dulu)… Petang dalam kul 6 kami pegi rumah Abg Chain. Lepas maghrib baru balik rumah… Aduh letihnya !!

Isnin (15/03/2010)

Syahwal (anak buah aku merangkap pomen keta) amik keta. Confirm block enjin aku pecah !! Aduh… kena tukar enjin arr nie.. Tidak-tidak pun kena beli enjin kosong.. Syahwal sms kata ada enjin cantek tapi RM 1500.00 !! Okey.. aku agree janji dia pasang cun dan esok leh siap !!

Tengahari bos aku panggil. Sesi kaunseling pertama aku dengan bos. Pasal prestasi kerja aku semakin merosot. Aku dah cakap, tukarkan aku ke jabatan/unit lain !! Aku tertekan kat situ !!

Selasa (16/03/2010)

Enjin keta sampai.. Petang tu Syahwal start pasang.. Malam dia call.. “PakCu malam ni tak boleh hantar ketalah.. Oil-seal grand-shaft PakCu bocor.. Takut minyak itam keluar balik nanti.. ”

So kena tunggu esoklah keta aku ni…

Rabu (17/03/2010)

Pagi ni aku tak pegi kerja. Nak bawak anak pegi Klinik. Seminggu ni Damia kena demam + ruam (macam campak). Sian dia.. selera makan pun berkurangan.. Nasib dia anak yang tabah. Tak meragam langsung. Syukur aku padaMu kerna dikurniakan anak yang menyenangi hati orang tuanya.

Ketika aku menghantar post nie.. Isteriku baru je keluar pergi ke Cheras. Ada ujian memandu keta. Aku doakan kau Lulus dengan cemerlang wahai isteri kesayanganku…

p/s: Aku dah betulkan addon Simple MP3 Player tu. Lain kali sebelum aku post addon, aku test dulu.. 🙂

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]

Alhamdulillah…. sesungguhnya Engkaulah Maha Pemurah lagi Maha Mengasihani

KPKT !! Rezeki !! Rezeki !! Alhamdulillah. Aku bersyukur padaMu ya Allah atas rezeki dah kemudahan yang engkau berikan ini…

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

Balik Kampung !!

Beshnya balik kampung… Rasanya kali ni aku lama kat kampung (Teluk Intan, Perak). Masa aku banyak terluang bersama keluarga. Meskipun, Mak Mok telah tiada, namun suasana dan kemesraan antara kami sekeluarga amat akrab skali. Teringat aku masa zaman kanak-kanak.

Saja aku balik kg ikut jalan lama (KL – Klang – Meru – Kapar – Kuala Selangor – Tanjung Karang – Sekinchan – Sungai Besar – Sabak Bernam – Teluk Intan). Boleh rilek-rilek… meskipun aku dh 2x kena saman laju melebihi had dibenarkan ikut jalan tu. Sepanjang jalan aku dok bercerita ngan isteri kenangan-kenangan lama.

Sampai kampung, Pak Uda sekeluarga ada. Memang aku balik ni pun sebab nak ikut sama pak Uda mengantar anak bongsu dia (apit) bertunang di Taiping esoknya. Mak Ana pun ada. Dah menjadi kebiasaan keluarga, kami adik-beradik lebih mesra dipanggil gelaran diperingkat anak saudara. Cthnya, Pak Uda (Abg Salleh), Allahyarhamah Mak Mok (Kak Arah), Mak Cho (Kak Yam), Mak Ana (Kak Ana), Pakcu (aku)… tu yg aku lekat nama PakCu tu.

Esoknya kami ke Taiping. Balik Taiping singgah ke Zoo Taiping (antara zoo yg tua di Malaysia). Mak Cho belanja… ehehhehe… Tq Mak Cho. Tiket dewasa RM 12 sorang, kanak-kanak RM 8 sorang. Ramai gak yg pergi masa tu; Bapak, Mak Cik, Mak Cho sekeluarga, Mak Anjang sekeluarga, Aku sekeluarga, Lan sekeluarga dan Mak Ana sekeluarga. Seronok dapat berjalan dengan family kat tempat-tempat cam tu.

Petang balik Tapah, rumah Mak Cho. Letih punya pasal, aku decided tido situ. Lagi pun tu 1st time aku tido rumah Mak Cho. Mak Ana pun sama tido situ. Mana taknya, aku cakap kalo dia balik.. aku pun balik sama.. Hehehehe kena ugut baru dia nak tido situ !! Makan malam lauk ayam goreng minyak (masakan keluarga) dan sambal goreng telur. Sungguh menyelerakan.

Esok pepagi kami dah balik Teluk Intan, sebab nak bakar ikan. Tengahari tu makan arr ikan bakar. Kebetulan bapak pun ada. Bestnya dapat makan bersama keluarga. Kiranya kami pun makan besar gak lah pada raya cina ni… Petang tu ziarah kubur, buat tahlil ringkas utk arwah Mak ngan arwah Mak Mok, tak lupa gak utk arwah Along (Syahril) dan arwah Munzir. Semoga Allah mencucuri rahmatNya ke atas roh-roh mereka. Amin !!

Esoknya pepagi Abg Zali pi pekan Teluk Intan cari bubur gandum. Dah berapa kali aku balik kampung cari bubur gandum tak dapat. Kali nie dia yang pegi. Kali pertama pegi kedai mamak tu belum bukak. Kali kedua pegi baru ada. Teringat masa bebujang dulu, bila balik kg jer.. pepagi mesti arwah Mak Mok ajak beli bubur gandum mamak tu. Aku memang tak suka bubur kacang. Kebetulan Abg Zali pun suka bubur gandum.

Lebih kurang pukul 10 pagi, Pak Uda ajak pegi kebun. Aku pegi ngan Abg Man. Kat kebun Pak Uda ada dengan Pak Ulong. Sian aku tengok dua beradik tu. Kami berempat memotong pokok getah. Kata Pak Uda biar senang pokok durian sebelahnya nak naik. Tengahari balik rumah, makanan dah siap. Palagi.. Makan terus disebabkan perut lapar + letih. Lepas makan baring jap, rehatkan badan sebab pastu nak balik Kuala Lumpur.

Jam 4:40 petang aku balik KL. Ikut jalan dalam gak. Memang jalan tak jammed. Sampailah kat pekan Kapar, hujan lebat. Pastu masuk Setia Alam (pasal Pak Uda cakap ikut tu dekat). Terus masuk Federal Highway. Best jalan tak jammed. Makan malam kat kedai Mek Acham jer.

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
}