;Errr , nak ceduk ?? sila kan.. kita saling ceduk menceduk ...kes kes kess <- ayat dari script lama mangkuk .. karya J|wang .. wa pinjam jap
;_____________________
;### Event  ###
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
menu menubar {
  .$iif(%tmasa,$style(1)) «× &Masa ׻:tmasa
}
alias tmasa {
  set %tmasa $iif(%tmasa,0,1)
}
on ^*:TOPIC:#: {
  if ($address == $null) goto No
  if ($address != $null) goto Yes
  :No
  echo -te $chan $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(topic) $+ * $nick tukar topik baru $1- | Halt
  :Yes
  echo -te $chan $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(topic) $+ * $nick tukar topik baru $1- | Halt
}
on ^*:NICK: {
  if ($nick == $me) {
    var %channick 1
    while (%channick <= $comchan($newnick,0)) {
      set %channumnick $comchan($newnick,%channick)
      echo $comchan($newnick,%channick) $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(own) $+ * $me dikenali sebagai $newnick
      haltdef
      inc %channick
    }
    echo -s $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(own) $+ * $me dikenali sebagai $newnick
    haltdef
  }
  else {
    set %channick 1
    while (%channick <= $comchan($newnick,0)) {
      set %channumnick $comchan($newnick,%channick)
      echo %channumnick $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(nick) $+ * $nick dikenali sebagai $newnick
      haltdef
      inc %channick
    }
  }
}
on *:TEXT:*:#:{ namaku $1- | $bot }
on *:ACTION:*:#:{ namaku $1- }
on *:NOTICE:*:#:{ namaku $1- }
alias namaku {
  ;if (amboi == $nick) { msg $chan !roll }
  ; bawah nie nama bot yg kita serabut nak tengok kalu nak tambah taip || (namabot == $nick) tengok contoh kat bawah
  if (ingore.nick == $nick) { halt } 

  var %a $replace($1-,$chr(160),$chr(32))
  noop $regsub(%a,/[ $+ $prefix $+ ]/Sig,,%a)
  if ($istok(%a,$me,32)) || ($istok(%a,%lain,32)) && ($chan != $active) {
    echo -a $iif(%tmasa == 1,$time(hh:nntt)) $+($chr(3),4) $+ $chr(91) $+ $chr(15) $+ $&
      Dari $+ $+($chr(3),4) $+ : $+ $chr(15) $+ $remove($chan,$chr(35)) $+ $+($chr(3),4) $&
      $+ $chr(93) $+ $chr(15) $+($chr(3),4) $+ < $+ $chr(15) $+ $chr(3) $+ $color(text) $+ $&
      $nick($chan,$nick).pnick $+ $+($chr(3),4) $+ > $+ $chr(15) $& 
      $+ $chr(3) $+ $color(text) $1-
    if ($query($nick)) .flash -r3 $nick
    $iif(%bunyi == 1,splay -p burung.wav)
  }
}
menu menubar,channel {
  .$iif(%tmasa,$style(1)) &Masa:tmasa
  .$iif(%namaecho,$style(1)) Nama Echo:namaecho
  .$iif(%bunyi,$style(1)) Isyarat Bunyi:bunyi
}
;_____________________
;### Alat Pengesan ###
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
menu menubar {
  .$iif(%kesanclone,$style(1)) «× &Pengesan ׻:kesanclone
}
alias kesanclone {
  set %kesanclone $iif(%kesanclone,0,1)
  if (%kesanclone == 1) { .enable #pengesan }
  if (%kesanclone == 0) { .disable #pengesan }
}
on ^*:JOIN:#: { 
  if ($nick == $me) { echo -te $chan $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(info) $+ * Anda Sekarang Berada Di $chan | %chanscan = $addtok(%chanscan,$chan,164) }
  ;  if ($nick != $me) && (Staff isin $address($nick,2)) { echo -ast $iif(%tmasa == 1,$time(hh:nntt)) $nick sudah masuk $chan $iif($network,$network,$gettok($server,2,46)) | echo -ast $iif(%tmasa == 1,$time(hh:nntt)) 4Awas Dengan $nick Mangkuk Hayun Ni Polis IRC }
  if ($me == $nick) { halt }
  echo $chan $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(join) $+ * $+ $chr(160) $+ Masuk : $nick ( $+ $remove($address($nick,0),*!) $+ ) | haltdef
  %channelchecknicks = $addtok(%channelchecknicks,$addtok($nick,$chan,164),47)
  unset %channelchecknicks* %chanscan*
  var %clones = $ialchan($wildsite,#,0)
  if (%clones > 1) && (%kesanclone == 1) {
    var %count = 1
    var %clone.nicks
    while (%count <= %clones)  {
      %clone.nicks = %clone.nicks $ial($wildsite,%count).nick
      inc %count
    }
    echo $colour(notify) $chan $iif(%tmasa == 1,$time(hh:nntt)) * %clones Kelon Dikesan %clone.nicks  
    if (%clones >= 3) { window -e @Kelon | echo $colour(notify) @Kelon $iif(%tmasa == 1,$time(hh:nntt)) * Awas %clones Kelon Dikesan %clone.nicks $chan $iif($network,$network,$gettok($server,2,46)) }
    halt
  }
}
on ^*:JOÏN:#:{
  if ($nick == $me) {
    echo -te $chan $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(info) $+ * Anda Sekarang Berada Di $chan | %chanscan = $addtok(%chanscan,$chan,164)
    if ($nick != $me) && (Staff isin $address($nick,2)) { echo -ast $iif(%tmasa == 1,$time(hh:nntt)) $nick sudah masuk $chan $iif($network,$network,$gettok($server,2,46)) | echo -ast $iif(%tmasa == 1,$time(hh:nntt)) 4Awas Dengan $nick Mangkuk Hayun Ni Polis IRC }
  }
  else {
    echo $chan $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(join) $+ * $+ $chr(160) $+ Masuk : $nick ( $+ $remove($address($nick,0),*!) $+ ) | haltdef
    %channelchecknicks = $addtok(%channelchecknicks,$addtok($nick,$chan,164),47)
    unset %channelchecknicks
    var %clones = $ialchan($wildsite,#,0)
    if (%clones > 1) {
      var %count = 1
      var %clone.nicks
      while (%count <= %clones) {
        %clone.nicks = %clone.nicks $ial($wildsite,%count).nick
        inc %count
      }
      echo $colour(notify) $chan $iif(%tmasa == 1,$time(hh:nntt)) * %clones Kelon Dikesan %clone.nicks  
      if (%clones >= 3) { window -e @Kelon | echo $colour(notify) @Kelon $iif(%tmasa == 1,$time(hh:nntt)) * Awas %clones Kelon Dikesan %clone.nicks $chan $iif($network,$network,$gettok($server,2,46)) }
    }
  }
  halt
}
menu menubar {
  .$iif(%namaecho,$style(1)) «× Nama Echo ׻:namaecho
}
alias namaecho {
  set %namaecho $iif(%namaecho,0,1)
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;
; Adds some colors! ;)
; Usage: /mixit <text>
; Usage: $mixit(<text to convert>)
alias mixit {
  !var  %out,%t,%c,%c1,%c2,%c3,%c4,%c5,%i,%x,%u,%upper,%text,%len,%conv,%upper ,%lower,%cu,%fellow,%iclass,%last,%li,%new,%numbers,%special,%ignoresp ace
  ; b for bold
  ; u for underlined
  ; r for reversed
  ; e. g. %upper = bu
  %upper = bu
  %lower = u
  %special = b 
  %numbers = b

  ; Counts space as "last normal char and converts the LOWER CASE text  to the "fellower"
  %ignorespace = $true
  if ($prop == rand) {
    %t = r
    ; no need to change!
    %c1 = $r(0,15)
    %c2 = $r(0,15)
    %c3 = $r(0,15)
    %c4 = $r(0,15)
    %c5 = $r(0,15)
  }
  elseif ($prop == mix) {
    %t = m
    ; NEVER REALLY NEVER CHANGE THIS! :P
    ; (maybe the 2nd number inside the $r()
    ; if Khaled adds more than just 16)
    %c = $!r(0,15)
  }
  else {
    %t = n
    ; Uppercase 
    %c1 = 9 
    ; First char after uppercase
    %c2 = 3
    ; Lowercase
    %c3 = 8
    ; Special chars
    %c4 = 15
    ; Numbers 
    %c5 = 9
  }
  %text = $strip($replace($1-,$chr(32),$chr(160)))
  %len = $len(%text)
  %conv = $false
  ; Lets start a run ;)
  %x = 0
  while (%x < %len) {
    inc %x
    ; current char
    %i = $mid(%text,%x,1)
    ; changing the colors
    if (%t == m) {
      %u = $eval(%c,2)
      %c1 = $chr(3) $+ $base(%u,10,10,2)
      %c2 = $chr(3) $+ $base(%u,10,10,2)
      %c3 = $chr(3) $+ $base(%u,10,10,2)
      %c4 = $chr(3) $+ $base(%u,10,10,2)
      %c5 = $chr(3) $+ $base(%u,10,10,2)
    }
    elseif (!%conv) {
      %conv = $true
      %c1 = $chr(3) $+ $base(%c1,10,10,2)
      %c2 = $chr(3) $+ $base(%c2,10,10,2)
      %c3 = $chr(3) $+ $base(%c3,10,10,2)
      %c4 = $chr(3) $+ $base(%c4,10,10,2)
      %c5 = $chr(3) $+ $base(%c5,10,10,2)
    }
    %iclass = ""
    ; color tag builder starts here
    if (%i islower) && (%i isalpha) {
      if (%li isupper) {
        %iclass = %c2
      }
      else {
        %iclass = %c3
      }
      %iclass = %iclass $+ $bur(%lower)
    }
    elseif (%i isupper) && (%i isalpha) {
      %iclass = %c1
      %iclass = %iclass $+ $bur(%upper)
    }
    elseif (%i isnum) {
      %iclass = %c4
      %iclass = %iclass $+ $bur(%numbers)
    }
    elseif (%i != $chr(160)) {
      %iclass = %c5
      %iclass = %iclass $+ $bur(%special)
    }
    elseif ((%i == $chr(160)) && (!%ignorespace)) {
      %iclass = %last
    }
    if (%last != %iclass) {
      %last = %iclass
      %new = $chr(15) $+ %iclass $+ %i
    }
    else {
      %new = %i
    }
    %li = %i
    %out = %out $+ %new

  }
  %out = $replace(%out,$chr(160),$chr(32))
  if ($len(%out)) {
    if ($isid) {
      !return %out
    }
    else {
      ; the reason why i don't use !say here is that i have a custom  say alias which splits the text after 420 chars
      say %out
    }
  }
}
alias -l bur {
  var %class = $1,%return
  if ($c($1).b) {
    %return = %return $+ $chr(2)
  }
  if ($c($1).u) {
    %return = %return $+ $chr(31)
  }
  if ($c($1).r) { 
    %return = %return $+ $chr(22)
  }
  return %return
}
alias -l c {
  if ($prop isincs $1) { return $true }
  return $false
}


menu @Kelon {
  Cuci:clear @Kelon
  Tutup:window -c @Kelon
}
on ^*:kick:*: {
  haltdef
  if ($knick == $me) { echo -s $chan $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(kick) $+ * Anda telah ditendang dari $chan oleh $nick ( $+ $1- $+ ) | echo -a >¶Mángkµk:D< percubaan untuk masuk semula | .join $chan | HALT }
  if ($knick != $me) { echo -t $chan $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(kick) $+ * $knick ditendang dari # oleh $nick kerana ( $+ $1- $+ ) | halt }
}
on ^*:PART:#: {
  if ($nick == $me) { halt }
  haltdef
  echo -t $chan $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(quit) $+ * Keluar: $nick ( $+ $address $+ ) 
}

on ^*:quit: {
  if ($comchan($nick,0) == 1) {
    echo $comchan($nick,1) $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(quit) $+ * Keluar: $nick ( $+ $address $+ ) sebab ( $+ $1- $+ ) 
    haltdef  
  }
  else {
    set %channum 1  
    while (%channum <= $comchan($nick,0)) {
      set %channels $comchan($nick,%channum)    
      echo %channels $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(quit) $+ * Keluar: $nick ( $+ $address $+ ) kerana ( $+ $1- $+ )
      haltdef    
      inc %channum  
    }
  }
}

;_____________________________
;### Slap & Action Revenge ###
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
menu menubar {
  .$iif(%slap.status,$style(1)) «× &Balas Aksi ׻:slap.status
}
menu menubar {
  .$iif(%slap.defence,$style(1)) «× &Elak Slaps ׻:slap.defence
}

alias slap.status {
  set %slap.status $iif(%slap.status,0,1)
}
alias slap.defence {
  set %slap.defence $iif(%slap.defence,0,1)
}
on *:action:$(* $+ $me $+ *):#:{
  if (%slap.defence) && ($wildtok($strip($1-),$me,1,32) == $me) && (slap isin $strip($1-)) { 
    slaps 
  }
  elseif (%slap.status) && ($wildtok($strip($1-),$me,1,32) == $me) { 
    inc -u10 %actionback. [ $+ [ $chan ] $+ . $+ [ $address($nick,3) ] ] 1)
    if (%actionback. [ $+ [ $chan ] $+ . $+ [ $address($nick,3) ] ] >= 2) {
      describe $chan maleh nak melayan $nick | set %slap.status 0 | set %slap.defence 0 | .timer 1 30 set %slap.status 1 | .timer 1 30 set %slap.defence 1 | halt 
      else { unset %actionback. [ $+ [ $chan ] $+ . $+ [ $address($nick,3) ] ] }
    }
    ;get string
    var %action.me = $gettok($1-,1-100,32)
    ;slap him back 
    describe $chan $replace(%action.me,$me,$nick) $+  
  }
}

alias slaps {
  inc -u10 %missslaps. [ $+ [ $chan ] $+ . $+ [ $address($nick,3) ] ] 1)
  if (%missslaps. [ $+ [ $chan ] $+ . $+ [ $address($nick,3) ] ] >= 2) {
    describe $chan suruh $nick main sensowang ... $me maleh nak melayan $nick | set %slap.status 0 | set %slap.defence 0 | .timer 1 30 set %slap.defence 1 | .timer 1 30 set %slap.status 1 | halt 
    else { unset %missslaps. [ $+ [ $chan ] $+ . $+ [ $address($nick,3) ] ] }
  }
  var %id $rand(1,$nick($chan,0))
  var %me = $rand(1,10)
  if (%me == 1) describe $chan nampak $nick slaps ... cepat² $me mengelak PANG terkena muke $nick($chan,%id) >¶Mángkµk:D<
  if (%me == 2) describe $chan tunduk .. ZaSss~!!! fuh lagi sket nak kena .. terkena org belakang ---> $nick($chan,%id) >¶Mángkµk:D<
  if (%me == 3) describe $chan tepis slaps $nick "mana kena" ... terslaps pulak si $nick($chan,%id) >¶Mángkµk:D<
  if (%me == 4) describe $chan tengok jea $nick slaps ... laaa... kena org lain --> $nick($chan,%id) >¶Mángkµk:D<
  if (%me == 5) describe $chan lari dari $nick nyer slaps ... HAH! $nick slaps org lain ---> $nick($chan,%id) >¶Mángkµk:D<
  if (%me == 6) describe $chan mengelak dengan tenang terus kena pada muka $nick($chan,%id) >¶Mángkµk:D<
  if (%me == 7) describe $chan tahan dengan keyboard ... terus terpelanting ke arah $nick($chan,%id) >¶Mángkµk:D<
  if (%me == 8) describe $chan lari belakang $nick($chan,%id) (((( PANG )))) terkena $nick($chan,%id) >¶Mángkµk:D< 
  if (%me == 9) describe $chan kata kat $nick "awak salah slaps nie" ... awak dah slaps si $nick($chan,%id) >¶Mángkµk:D<
  if (%me == 10) describe $chan tengok $nick ... slaps terus elak. langsung terkena muka $nick($chan,%id) >¶Mángkµk:D<
}
--------------------------------------------------------------------------------------------
on *:OPEN:?:*: {
  Window -ezl10 @Msg
  aline -ln @Msg $nick
  echo @Msg $time(hh:nntt) < $+ $iif($network,$network,$gettok($server,2,46)) $+ / $+ $nick $+ > $1-
  .flash -r3 PM : $nick
  closemsg $nick
}
menu @Msg {
  dclick:{
    set %tmp $lower($line($active,$1,1))
    if ($pos(%tmp,@,1) == 1 || $pos(%tmp,+,1) == 1) {
      set %tmp $fin(%tmp)
    }
    set %query @Msg %tmp $server
    if ($window(%query,0) == 0) {
      query $pilihnama($active)
    }
    unset %tmp
  }
  Tutup:window -c @Msg
  Siapa:whois $pilihnama($active)
  Tenet:query $pilihnama($active)
  ctcp
  .ping: ctcp $pilihnama($active) ping
  .finger: ctcp $pilihnama($active) finger
  .version: ctcp $pilihnama($active) version
  .time: ctcp $pilihnama($active) time
  .userinfo: ctcp $pilihnama($active) userinfo
  .clientinfo: ctcp $pilihnama($active) clientinfo
  Cuci:clear @Msg
}

;---------------------------------------------------------------------------------------------
menu menubar {
  .$iif(%salam,$style(1)) «× &Auto Salam ׻:jwpsalam
}
alias jwpsalam {
  set %salam $iif(%salam,0,1)
}
on *:nick:{ if ($fline(@msg,$nick,1,1)) { .dline -l @msg $fline(@msg,$nick,1,1) | .aline -l @msg $newnick } }
on *:action:*:#: { $salam($1-)) }
on *:notice:*:#: { $salam($1-)) }
on *:TEXT:*:#: { $salam($1-)) }

alias salam {
  if (%salam == 1) {
    if ($regex($strip($1-),/as?[`'\54]?k[uo]m|s[a|e]mek[ou]m|assalam?m[uo]'?alaik[uo]m/i)) && (!%salam. [ $+ [ $nick ] ]) { inc -u160 %salam. [ $+ [ $nick ] ] | msg # $slm | return }
  }
}
alias slm {
  goto $rand(1,5)
  :1 | return Walaikumussalam Warrahmatullahi Wabarakatuh $nick
  :2 | return Waalaikumusalam $nick 
  :3 | return W'salam W.B.T $nick
  :4 | return W'salam $nick Wb
  :5 | return Wa'alaikummussalam W.B.T
}
menu menubar,status { 
  «× &Ascii ׻:/ascii
}
alias ascii {
  window +p @ascii 139 139 350 115 verdana 13  
  aline @ascii %ver AscII List | set %chr.var 33
  :loop
  if (%chr.var > 255) { goto done }
  aline @Ascii 10 *** Alt+0 $+ %chr.var 14Is 4-->12 $chr(%chr.var)
  inc %chr.var 1 | goto loop
  :done
  unset %chr.var | aline @Ascii %ver AscII List End 
}
off *:SNOTICE:*/whois *: {   
  notice $10 Yes Can I Help U?
  echo -a 4 $10 baru jea whois
  ; msg #ace 4 $10 baru jea whois $11  Pada $replace($asctime(dddd dd mmm yyyy),Sunday,Ahad,Monday,Isnin,Tuesday,Selasa,Wednesday,Rabu,Thursday,Khamis,Friday,Jumaat,Saturday,Sabtu,Jan,Januari,Feb,Februari,Mar,Mac,Apr,April,May,Mei,Jun,Jun,Jul,Julai,Aug,Ogos,Sep,September,Oct,Oktober,Nov,November,Dec,Disember) $time(hh:nntt)
  set %hoi $10 | panjang
}
off *:SNOTICE:*Client connecting*: {   
  msg #services $time(hh:nntt) 3Masuk $11 $12 Pada $replace($asctime(dddd dd mmm yyyy),Sunday,Ahad,Monday,Isnin,Tuesday,Selasa,Wednesday,Rabu,Thursday,Khamis,Friday,Jumaat,Saturday,Sabtu,Jan,Januari,Feb,Februari,Mar,Mac,Apr,April,May,Mei,Jun,Jun,Jul,Julai,Aug,Ogos,Sep,September,Oct,Oktober,Nov,November,Dec,Disember) ip $13
}
off *:SNOTICE:*Client exiting*: {   
  msg #services $time(hh:nntt) 4Keluar $8 $9 Pada $replace($asctime(dddd dd mmm yyyy),Sunday,Ahad,Monday,Isnin,Tuesday,Selasa,Wednesday,Rabu,Thursday,Khamis,Friday,Jumaat,Saturday,Sabtu,Jan,Januari,Feb,Februari,Mar,Mac,Apr,April,May,Mei,Jun,Jun,Jul,Julai,Aug,Ogos,Sep,September,Oct,Oktober,Nov,November,Dec,Disember) ip $10 Dengan Mesej $11-
}
menu Status,Menubar {
  «× Cari Polis ׻ :ios.srv
}

alias ios.srv { linesep $active | echo -a $chr(3) $+ $color(notify text) Mengesan IRCop diserver $server | .enable #ios.srv | set %^t.ios $ticks | .who 0 o }

#ios.srv off
raw 352:*: {
  inc %^ios.n
  echo -a $chr(3) $+ $color(notify text) %^ios.n $+ . $6 ( $+ $4 $+ )
  halt
}
raw 315:*: {
  .disable #ios.srv
  echo -a $chr(3) $+ $color(notify text) $iif(%^ios.n = $null,Tiada,%^ios.n) IRCop $+ $iif(%^ios.n != 1,s) dijumpai dengan kelajuan $calc(($ticks - %^t.ios) / 1000) $+ s
  linesep $active
  unset %^e.ios %^t.ios %^ios.n
  halt
}

alias Panjang {
  .timer 1 1 notice %hoi pakabar %hai $+ ??... 
  .timer 1 5 notice %hoi dah makan? dah minum? dah mandi? dah wangi? dah pakai bedak? 
  .timer 1 10 notice %hoi dah pakai deodorant? dah pakai baju? dah pakai seluar.. 
  .timer 1 15 notice %hoi hari nie tak keluar ke? tak tengok wayang ke? tak tengok astro ke? 
  .timer 1 20 notice %hoi tak jenjalan ke? tak pegi beli sabon ke? tak basuh keta ke? 
  .timer 1 25 notice %hoi tak basuh moto ke? tak basuh basikal ke? tak basuh jamban ke? 
  .timer 1 30 notice %hoi dari mana tu nak kemana ? tak penat ke? 
  .timer 1 35 notice %hoi %hai datang dari mana tu... nie dtg nie %hai ada hajat ape?? 
  .timer 1 40 notice %hoi %hai dah kawin blom? anak berapa.. ke masih bujang.. 
  .timer 1 45 notice %hoi eh %hai nie org malaysia ke dari seberang... %hai ada ic tak?... 
  .timer 1 50 notice %hoi %hai nie biar benar meh tunjuk ic tah² %hai nie bangla kot.. eh ape indon.. 
  .timer 1 55 notice %hoi isk %hai jgn memain ... sini malaysia nak masuk sini ada permit...
  .timer 1 60 notice %hoi nie %hai nak duit kea?! kami tade duit kecik nie
  .timer 1 65 notice %hoi eh %hai makan² tade? ke?! bile nak payung kami makan pulak?? ... 
  .timer 1 70 notice %hoi ala KFC ke McD pun kira ok gak?... tak pun %hai payung kami pgi karaoke??? amacam mesti %hai besh punya... 
  .timer 1 75 notice %hoi alaa tak pun %hai payung kami semua tengok wayang.. besh gak idea tu...
  .timer 1 80 notice %hoi ala %hai nie ... tak kan bagi salam jea .. kurang² belanje minum dah la... kecik nye hal la
  .timer 1 85 notice %hoi %nothing
  .timer 1 90 unset %hoi 
}
