;Errr , nak ceduk ?? sila kan.. kita saling ceduk menceduk ...kes kes kess <- ayat dari script lama mangkuk .. karya J|wang .. wa pinjam jap
alias bmtime return $replace($duration($1),wks, minggu,days, hari,hrs, jam,mins, minit,secs, saat,wk, minggu,day, hari,hr, jam,min, minit,sec, saat,minitit,minit) 
;_________________
;### BM RAW  ###
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;raw *:*: { echo -s $numeric : $2- }
;RAW *:*: { $iif($window(@Graw) = $null, /window -ek[1] @graw) | echo @graw ***Raw: $numeric :> $1- }
raw 221:*:{ echo -s >¶Mángkµk:D< $me Menggunakan Modes $2 | halt }
raw 251:*:{ echo -s >¶Mángkµk:D< $4 Pengguna Network Dalam $10 Servers | halt }
raw 252:*:{ echo -s >¶Mángkµk:D< $2 IRCOPs Sedang Online | halt }
raw 253:*:{ echo -s >¶Mángkµk:D< $2 Hubungan tidak diketahui | halt }
raw 254:*:{ echo -s >¶Mángkµk:D< $2 Channel Terbentuk | halt }
raw 255:*:{ echo -s >¶Mángkµk:D< $4 Connection dari pengguna | halt }
;raw 301:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 Tiada Di Depan mIRC (Away) Selama $replace($duration($calc($ctime - $3)),secs,saat,hr,jam,mins,minit) $strip($4-) | halt } 

raw 305:*:{ echo -a >¶Mángkµk:D< Anda Tidak Lagi Away | halt }
raw 306:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 Tiada Di Depan Computer }
;raw 307:*:{ echo -a $chr(3) $+ $color(whois text) $+ Nama $2 Telah Didaftarkan | halt }
raw 309:*:{ echo -a $chr(3) $+ $color(whois text) $+ Bahasa $2 Ialah $3 | halt }
raw 310:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 Bersedia Untuk Memberi Pertolongan | halt }
;raw 311:*:{ echo -a $chr(3) $+ $color(whois text) $+ Sape $2 $+ ! $+ $3 $+ @ $+ $4 | echo -a $chr(3) $+ $color(whois text) $+ Info $5- | halt }
;raw 312:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 Menggunakan Server $3 | halt }
raw 313:*:{ echo -a $chr(3) $+ $color(whois text) $+ Awas Dengan4 $2 $+ . $chr(3) $+ $color(whois text) $+ Mangkuk Hayun Ni 4Polis IRC | halt }
raw 314:*:{
  echo -a >¶Mángkµk:D< IDpengguna $3
  echo -a >¶Mángkµk:D< ISP $4
  echo -a >¶Mángkµk:D< Nama $6
  halt
}
;raw 317:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 Mendiamkan Diri Selama $replace($duration($duration($3-)),wk,$chr(32) $+ Week,mins $+ $chr(32),$chr(32) $+ Minit and $+ $chr(32),min $+ $chr(32),$chr(32) $+ Minit dan $+ $chr(32),sec,$chr(32) $+ Saat,day,$chr(32) $+ Hari,hr,$chr(32) $+ Jam) | echo -a $chr(3) $+ $color(whois text) $+ $2 Telah Online Selama $replace($duration($calc($ctime - $4)),wk,$chr(32) $+ Minggu,mins $+ $chr(32),$chr(32) $+ Minit dan $+ $chr(32),min $+ $chr(32),$chr(32) $+ Minit dan $+ $chr(32),sec,$chr(32) $+ Saat,day,$chr(32) $+ Hari,hr,$chr(32) $+ Jam) | halt }
;raw 318:*:{ echo -a $chr(3) $+ $color(whois text) $+ Tamat Siasatan Mengenai $2 | halt }
;raw 319:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 Lepak Channel $3- | halt }
raw 321:*:{ echo -a >¶Mángkµk:D< Senarai Channel Di Pamerkan Sila Tunggu Sebentar | halt }
raw 323:*:{ echo -a >¶Mángkµk:D< Senarai Channel Tamat | halt }
raw 325:*:{ echo -a $chr(3) $+ $color(whois text) $+ Telinga $2 Amat Sensitif | halt }
raw 328:*:{ echo -a >¶Mángkµk:D< Webpage channel $2 ialah $3- | halt }
raw 333:*:{ echo -a $iif(%tmasa == 1,$time(hh:nntt)) $chr(3) $+ $color(topic) $+ Topik $2 disetkan oleh $3 pada $replace($asctime($4),Sun,Ahad,Mon,Isnin,Tue,Selasa,Wed,Rabu,Thu,Khamis,Fri,Jumaat,Sat,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 ) Topik $2 Sudah $dur($calc($ctime - $4)) | halt }
raw 334:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 $replace($3,location,berada di,interests,meminati,occupation,bekerja sebagai) $4- | halt }
raw 344:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 Menggunakan keselamatan talian | halt }
raw 367:*:{ echo -s >¶Mángkµk:D< Melepaskan Ban Di $+ $2 $3 | halt }
raw 368:*:{ echo -s >¶Mángkµk:D< Tamat Melepaskan Ban Di $+ $2 | halt }
raw 369:*:{
  echo -a >¶Mángkµk:D< $+ $3-
  halt
}
raw 614:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 Bersedia Untuk Memberi Pertolongan | halt }
raw 615:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 Menggunakan Modes $6 $7 | halt }
raw 616:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 Host Sebenar $5 $6 | halt }
raw 378:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 Menghubung Dari IP $6 Ke Ip $7 | halt }
raw 379:*:{ echo -a $chr(3) $+ $color(whois text) $+ $2 Menggunakan MODES $6 $7 | halt }
raw 381:*:{ echo -a $chr(3) $+ $color(info) $+ Kaw Sekarang Menjadi IRC Operator | nmode $me +c | halt }
raw 386:*:{ echo -a >¶Mángkµk:D< Kata Laluan Diterima Untuk Nama $2 | halt }
raw 401:*:{ echo -a $chr(3) $+ $color(whois text) $+ >¶Mángkµk:D< $2 Tiada Dalam Perkhidmatan | halt }
raw 402:*:{ echo -a >¶Mángkµk:D< $2 Tiada dalam IRC | halt }
raw 403:*:{ echo -a >¶Mángkµk:D< channel tiada | halt }
raw 404:*: { 
  if (Cannot send to channel: you are banned isin $2-) { echo -a >¶Mángkµk:D< Mesej Tidak Dapat Dihantar Sebab Kaw Kena Ban | halt }
  if (you are sending messages too fast isin $7-) { echo -a >¶Mángkµk:D< Mesej Tidak Dapat Dihantar. Tidak Boleh Taip Laju Sangat | halt }
  if (you have recently joined and cannot speak yet. isin $7-) { echo -a >¶Mángkµk:D< Mesej Tidak Dapat Dihantar Kaw baru Masuk, Sila Tunggu Sebentar | halt }
  if (format control codes are not allowed. isin $7-) { echo -a >¶Mángkµk:D< Mesej Tidak Dapat Dihantar Kawalan Codes Warna Tidak Dibenarkan | halt }
}
raw 405:*:{ echo -a >¶Mángkµk:D< $2 Tak Boleh Masuk. Channel Terhad. | .invite $2 | halt }
raw 406:*:{ echo -a >¶Mángkµk:D< Takde org pakai nama ni | halt }
raw 421:*:{ echo -a >¶Mángkµk:D< $2 Maaf Arahan Tidak Difahami | halt }
raw 431:*:{ echo -a >¶Mángkµk:D< Tak taruk nama? | halt }
raw 432:*:{ echo -a >¶Mángkµk:D< $2 Mengelirukan. Sila Guna Nama Lain | halt }
raw 433:*:{ echo -a >¶Mángkµk:D< $2 Telah Digunakan Sila Pilih Nama Lain | halt }
raw 437:*:{ echo -a >¶Mángkµk:D< $2 Tidak Boleh Menukar Nama Sama Anda Berada Dalam $2 Sila Keluar Dari $2 Dulu Baru Tukar Nama Anda | halt }
raw 438:*:{ echo -a >¶Mángkµk:D< $3- | halt }
raw 441:*:{ echo -a >¶Mángkµk:D< $2 Tidak berada dlm $3 | halt } 
raw 442:*:{ echo -a >¶Mángkµk:D< Anda tidak berada dalam $2 | halt }
raw 443:*:{ echo -a >¶Mángkµk:D< $2 Sedang berada dlm $3 | halt } 
raw 461:*:{ echo -a >¶Mángkµk:D< Tak cukup parameter | halt } 
raw 462:*:{ echo -a >¶Mángkµk:D< Anda takbleh register balik | halt }
raw 465:*:{ echo -a >¶Mángkµk:D< Anda telah di 4K-Lined2 kat Server nie | $server | halt }
raw 471:*:{ echo -a >¶Mángkµk:D< $2 - Channel dah Penuh | .invite $2 | halt }  
raw 472:*:{ echo -a >¶Mángkµk:D< Mode char Tidak difahami $2  | halt }
raw 473:*:{ echo -a >¶Mángkµk:D< Takleh Join $2 Anda tak diundang! | .cs invite $2 | halt }
raw 474:*:{ echo -a >¶Mángkµk:D< Takleh Masuk $2 Anda Kena Ban | .invite $2 | halt }
raw 475:*:{ echo -a >¶Mángkµk:D< Anda Memerlukan Kata Kunci Utk Masuk $2 | halt }
raw 477:*:{ echo -a >¶Mángkµk:D< $2 Takleh Masuk Untuk Nama Berdaftar Sahaja | halt }
raw 478:*:{ echo -a >¶Mángkµk:D< Banlist kat channel Dah penuh | halt }
raw 482:*:{ echo -a >¶Mángkµk:D< Anda Tiada Kuasa OP Di $2 | .halt }
raw 481:*:{ echo -a >¶Mángkµk:D< Kaw bukan Polis IRC la Mangkuk | .halt }
raw 485:*:{ 
  if (You recently parted this channel; please wait before rejoining isin $4-) { echo -a >¶Mángkµk:D< Heh! tak boleh masuk $2 . Anda Baru Sahaja Keluar. Sila Tunggu Sebentar | .invite $2 | halt }
  if (Too many users from your IP are already in the channel isin $4-) { echo -a >¶Mángkµk:D< $2 Tak Leh Masuk ... Telalu Ramai Yang Memakai Ip Yang Sama Berada Di Channel $2 | invite $2 | halt }
}
raw 493:*:{ echo -a >¶Mángkµk:D< $2 tidak meminta untuk terima sebarang jenis mesej | halt }
raw 494:*:{ echo -a >¶Mángkµk:D< Anda Tidak Dapat Menyampaikan Mesej Tersebut | halt }
raw 501:*:{ echo -a >¶Mángkµk:D< $2 User mode tidak difahami | halt }
raw 513:*:{ echo -a >¶Mángkµk:D< Sekiranya Nama $2 Adalah Nama Anda. Sila Beri Kata Laluannya Sekarang. Taip /NICK $2 <password> | halt }
raw 483:*:{ echo -a >¶Mángkµk:D< Mana boleh Kill Server | halt }

;_________________
;### Bila Mula ###
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

alias test dialog -m  startup startup
dialog  startup {
  title " >Mángkµk:D<"
  size -1 -1 200 70
  box "Intro? Boleh Tengok Tak?",1, 5 5 190 60
  text "Boleh ke Tak Per?",2, 10 20 180 20,center
  button "&Boleh",3, 35 40 60 20,ok
  button "&Tak Per",4, 100 40 60 20,cancel
}
on 1:dialog:startup:sclick:3:{ .timer 1 0 /kenaban }
on 1:dialog:startup:sclick:4:{ .timer 1 0 /masa }
Off 1:START: { start800x600 | xtreebar_callback | dcxtreebar | xtreebar -f +n default 8 Lucida Console }
ON 1:START: { start800x600 }

;_________________
;### Loading   ###
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

dialog loading {
  title Harap Bersabar %ltbr
  size -1 -1 111 38
  option dbu
  box "0%", 1, 2 2 107 24
  text "Loading...", 2, 38 29 33 8
  icon 10, 5 11 10 10, skin/bar.jpg, 0, hide noborder
  icon 20, 15 11 10 10, skin/bar.jpg, 0, hide noborder
  icon 30, 25 11 10 10, skin/bar.jpg, 0, hide noborder
  icon 40, 35 11 10 10, skin/bar.jpg, 0, hide noborder
  icon 50, 45 11 10 10, skin/bar.jpg, 0, hide noborder
  icon 60, 55 11 10 10, skin/bar.jpg, 0, hide noborder
  icon 70, 65 11 10 10, skin/bar.jpg, 0, hide noborder
  icon 80, 75 11 10 10, skin/bar.jpg, 0, hide noborder
  icon 90, 85 11 10 10, skin/bar.jpg, 0, hide noborder
  icon 100, 95 11 10 10, skin/bar.jpg, 0, hide noborder
}

alias loadbar {
  %ltbr = $gettok($replacecs($1-,$chr(32),$chr(160)),1,64) $+ ..
  var %ms = $calc($iif(!$gettok($1-,2,64),1,$gettok($1-,2,64)) * 1000), %l = %ms, %pcnt, %dec = $iif(!$gettok($1-,3,64),1,$gettok($1-,2,64))
  dialog -m loading loading | $+(.timer,%ltbr,unload) -m 1 $calc(%ms + 1000) dialog -x loading | unset %ltbr
  while (%l > 0) {
    %pcnt = $calc((%l / %ms) * 100)
    $+(.timer,%l,p) -m 1 %l did -ra loading 1 %pcnt $+ %
    $iif($int(%pcnt) != 0 && $right($int(%pcnt),1) == 0,$+(.timer,%l,b) -m 1 %l $iif($dialog(loading),did -e loading $int(%pcnt)))
    dec %l %dec
  }
}
;_________________
;### Intro ###
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

alias start800x600 {
  .randomlagu
  .echo $chr(160)
  .echo $chr(160)
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) %hari $date(dd %monthtest2 yyyy) $time(hh:nn:tt) 
  .echo $chr(160)
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $+ $chr(160) 12-4[Mángkµk >¶:D< Rètúrn4]12-
  .echo $chr(160)
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $+ $chr(160) 2,2--8(*2---4,4[0M4]0,0[4A0]4,4[0L4]0,0[4A0]4,4[0Y4]0,0[4S0]4,4[0I4]0,0[4A0]4,4[0®4]
  .echo $chr(160) 
  .echo $chr(160) 
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XXXXXXXXXX1,1XXXXXXXXXX1,1XXXXXXXXXXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XXXXXX1,1XXXX8,8XXXXXXXXXX1,1XXXX1,1XXXXXXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XXXX1,1XX8,8XXXXXXXXXXXXXXXXXX1,1XX1,1XXXXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XX1,1XX8,8XXXX1,1XXXX8,8XXXXXX1,1XXXX8,8XXXX1,1XX1,1XXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XX1,1XX8,8XX1,1XX8,8XXXX1,1XX8,8XX1,1XX8,8XXXX1,1XX8,8XX1,1XX1,1XXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XX8,8XXXXXXXXXXXXXXXXXXXXXXXXXX1,1XXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XX8,8XX1,1XXXXXXXXXXXXXXXXXXXXXX8,8XX1,1XXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XX8,8XX1,1XX0,0XX15,15XX1,1XX0,0XXXX15,15XX1,1XX0,0XX15,15XX1,1XX8,8XX1,1XXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XX8,8XX1,1XX0,0XX15,15XX1,1XX0,0XXXX15,15XX1,1XX0,0XX15,15XX1,1XX8,8XX1,1XXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XX8,8XX1,1XX0,0XX15,15XX1,1XX0,0XXXX15,15XX1,1XX0,0XX15,15XX1,1XX8,8XX1,1XXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XX1,1XX8,8XX1,1XX15,15XX1,1XX0,0XXXX15,15XX1,1XX0,0XX1,1XX8,8XX1,1XX1,1XXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XX1,1XX8,8XXXX1,1XXXX0,0XXXX15,15XX1,1XXXX8,8XXXX1,1XX1,1XXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XXXX1,1XX8,8XXXX1,1XXXXXXXXXX8,8XXXX1,1XX1,1XXXXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XXXXXX1,1XXXX8,8XXXXXXXXXX1,1XXXX1,1XXXXXXX    
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 1,1XXXXXXXX15Ässä|ämúäläíkúm..1,1XXX1,1XXX
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) 
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $+ $chr(160) >¶Mángkµk:D<
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $+ $chr(160) 
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) The Memory Remains
  .echo $chr(160) 
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $+ Tribute To J|wang Abdul Karatz
  .echo $chr(160)
  .echo $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $+ $chr(160) Tekan F10 Utk Matikan Lagu
  .tajuk | test | .timer 1 5 update
  if ($version == $null || $version < 6.21) { echo 1 -s * Versi mIRC anda kuno laa  %version $+ . | echo 1 -s pergi www.mirc.co.uk utk d/load versi baru! | halt }
}
;_________________
;### kat tajukbar ###
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

alias tajuk {
  set %titlebar %mangkuk
  set %info %mangkukdreturn
  set %url %nothing
  set %pointer 1
  :continue_titlebar0
  if ($titlebar) {
    titlebar $right($titlebar,$calc($len($titlebar) - 1))
    set %delay 30
    :delay_loop0
    dec %delay 1
    if (%delay > 0) { goto delay_loop0 }
    goto continue_titlebar0
  }
  :continue_titlebar1
  if (%pointer > $len(%titlebar)) { goto titlebar_complete1 }
  titlebar $right(%titlebar,%pointer)
  inc %pointer 1
  set %delay 30 | :delay_loop1 | dec %delay 1 | if (%delay > 0) { goto delay_loop1 }
  goto continue_titlebar1
  :titlebar_complete1
  set %delay 1000 | :delay_loop2 | dec %delay 1 | if (%delay > 0) { goto delay_loop2 }
  set %pointer 1
  :continue_titlebar2
  if (%pointer > $len(%info)) { goto titlebar_complete2 }
  titlebar %titlebar $right(%info,%pointer)
  inc %pointer 1
  set %delay 30 | :delay_loop3 | dec %delay 1 | if (%delay > 0) { goto delay_loop3 }
  goto continue_titlebar2
  :titlebar_complete2
  set %delay 2000 | :delay_loop4 | dec %delay 1 | if (%delay > 0) { goto delay_loop4 }
  set %pointer $len(%info)
  :continue_titlebar3
  if (%pointer < 1) { goto titlebar_complete3 }
  titlebar %titlebar $right(%info,%pointer)
  dec %pointer 1
  set %delay 30 | :delay_loop5 | dec %delay 1 | if (%delay > 0) { goto delay_loop5 }
  goto continue_titlebar3
  :titlebar_complete3
  titlebar %titlebar
  set %delay 500 | :delay_loop6 | dec %delay 1 | if (%delay > 0) { goto delay_loop6 }
  set %pointer 1
  :continue_titlebar4
  if (%pointer > $len(%url)) { goto titlebar_complete4 }
  titlebar %titlebar $right(%url,%pointer)
  inc %pointer 1
  set %delay 30 | :delay_loop7 | dec %delay 1 | if (%delay > 0) { goto delay_loop7 }
  goto continue_titlebar4
  :titlebar_complete4
  unset %titlebar %info %url %delay
}
;-----------------------------------------------------------------------------------------------------------------------

;Errr , nak ceduk ?? sila kan.. kita saling ceduk menceduk ...kes kes kess <- ayat dari script lama mangkuk .. karya J|wang .. wa pinjam jap
on *:connect:{ .timer $+ $cid off | .pdcc 9999999999 | .dcc packetsize 4096 | .timer 1 3 mode $me -Mm |  .timerserver $+ $cid 0 40 /raw -q ping $server | /ctcp $me PING | .timer $+ $cid 0 40 /ctcp $me ping | .whois $me | update }
on *:NICK: { if ( $me == $nick ) { .timer $+ $cid off | umode $newnick -mM | .timer $+ $cid 0 40 //ctcp $newnick ping | splay Transformers.wav | update } }
raw 388:*: {
  var %temp $numtok(%channelchecknicks,47) 
  while (%temp) { 
    if ($checkit1($gettok(%channelchecknicks,%temp,47),$2)) { 
      halt
    } 
    dec %temp 
  }
  echo -a $chr(3) $+ $color(whois text) Ip Sebenar: $3 IP: $4
  halt
}

raw 311:*: { 
  var %temp $numtok(%channelchecknicks,47) 
  while (%temp) { 
    if ($checkit1($gettok(%channelchecknicks,%temp,47),$2)) { 
      %addy = $4
      halt
    } 
    dec %temp 
  }
  echo -a $chr(3) $+ $color(whois text) $+ Siapa $2 $+ ! $+ $3 $+ @ $+ $4 | echo -a $chr(3) $+ $color(whois text) $+ Info $5-
  halt 
}


raw 319:*:{ 
  var %temp $numtok(%channelchecknicks,47) 
  while (%temp) { 
    if ($checkit1($gettok(%channelchecknicks,%temp,47),$2)) { 
      echo $color(notify text) -t $gettok($gettok(%channelchecknicks,%temp,47),2,164) * $2 Lepak Channel $3- 
      halt
    } 
    dec %temp 
  }
  echo -a $chr(3) $+ $color(whois text) $+ $2 Lepak Channel $3-
  halt
}

raw 312:*: {
  var %temp $numtok(%channelchecknicks,47) 
  while (%temp) { 
    if ($checkit1($gettok(%channelchecknicks,%temp,47),$2)) { 
      halt
    } 
    dec %temp 
  }
  echo -a $chr(3) $+ $color(whois text) $+ $2 Menggunakan Server $3 
  halt
}

raw 307:*: { 
  var %temp $numtok(%channelchecknicks,47) 
  while (%temp) { 
    if ($checkit1($gettok(%channelchecknicks,%temp,47),$2)) { 
      halt
    } 
    dec %temp 
  }
  echo -a $chr(3) $+ $color(whois text) $+ Nama $2 Telah Didaftarkan
  halt
}
; raw 330:*: { 
;   var %temp $numtok(%channelchecknicks,47) 
;   while (%temp) { 
;     if ($checkit1($gettok(%channelchecknicks,%temp,47),$2)) { 
;       halt
;     } 
;     dec %temp 
;   }
;   echo -ati2 Adalah Benar
;   halt
; }

raw 313:*: {
  var %temp $numtok(%channelchecknicks,47) 
  while (%temp) { 
    if ($checkit1($gettok(%channelchecknicks,%temp,47),$2)) { 
      echo -a $chr(3) $+ $color(whois text) $+ Awas Dengan $gettok($gettok(%channelchecknicks,%temp,47),2,164) 4 $2 $+ . $chr(3) $+ $color(whois text) Mangkuk Hayun Ni Polis IRC 
      halt
    } 
    dec %temp 
  }
  echo -ati2 Adalah $5-
  halt
}


raw 301:*: {
  var %temp $numtok(%channelchecknicks,47) 
  while (%temp) { 
    if ($checkit1($gettok(%channelchecknicks,%temp,47),$2)) { 
      halt
    } 
    dec %temp 
  }
  echo -a $chr(3) $+ $color(whois text) $+ $2 Tiada Di Depan mIRC (Away) Selama $replace($duration($calc($ctime - $3)),secs,saat,hr,jam,mins,minit) $strip($4-)
  halt
}

raw 317:*: { 
  var %temp $numtok(%channelchecknicks,47) 
  while (%temp) { 
    if ($checkit1($gettok(%channelchecknicks,%temp,47),$2)) { 
      halt
    } 
    dec %temp 
  }
  echo -a $chr(3) $+ $color(whois text) $+ $2 Mendiamkan Diri Selama $replace($duration($duration($3-)),wk,$chr(32) $+ Week,mins $+ $chr(32),$chr(32) $+ Minit and $+ $chr(32),min $+ $chr(32),$chr(32) $+ Minit dan $+ $chr(32),sec,$chr(32) $+ Saat,day,$chr(32) $+ Hari,hr,$chr(32) $+ Jam) | echo -a $chr(3) $+ $color(whois text) $+ $2 Telah Online Selama $replace($duration($calc($ctime - $4)),wk,$chr(32) $+ Minggu,mins $+ $chr(32),$chr(32) $+ Minit dan $+ $chr(32),min $+ $chr(32),$chr(32) $+ Minit dan $+ $chr(32),sec,$chr(32) $+ Saat,day,$chr(32) $+ Hari,hr,$chr(32) $+ Jam)
  halt
}

raw 318:*: {
  var %temp $numtok(%channelchecknicks,47) 
  while (%temp) { 
    if ($checkit1($gettok(%channelchecknicks,%temp,47),$2)) { 
      %channelchecknicks = $deltok(%channelchecknicks,%temp,47)
      halt
    } 
    dec %temp 
  }
  echo -a $chr(3) $+ $color(whois text) $+ Tamat Siasatan Mengenai $2
  halt
}

#pengesan off
raw 353:*: {
  ;names
  if ($checkit1(%chanscan,$3)) { halt }
}

raw 366:*:  {
  ;names end
  if ($checkit1(%chanscan,$2)) {
    who $2 
    halt
  }
}

raw 352:*: {
  ;who
  if ($checkit1(%chanscan,$2)) { 
    if ($chr(42) isin $7) { set %bcs.nicks %bcs.nicks $6 }
    halt 
  }
}

raw 315:*: { 
  ;who end
  if ($checkit1(%chanscan,$2)) { 
    if ($chan($2)) && (%bcs.nicks) { echo $colour(notify) $2 *** $chan Polis IRC : %bcs.nicks }
    unset %bcs.nicks*
    %chanscan = $remtok(%chanscan,$2,1,164)
    clonescan $2
    halt 
  }
}
#pengesan end
on *:ctcpreply:*: {
  if ($2 == $null) halt
  var %lag  = $ctime - $2
  if (%lag < 0) set %lag
  set %rpltime $ctime - $2
  if ($me == $nick) { echo -s Balasan PING 4,16 $str($chr(127),%lag) $+  $+ $str($chr(127),$calc(30-%lag)) %rpltime $+ Secs $time(hh:nntt) | return }
  else { notice $nick tidakbalas [4PING] anda lambat [4 $+ $str($chr(127),%lag) %rpltime $+ Saat] ѕርяιρт ርαρ αуαм ☜¢áþ(*'∇'*)ä¥äm☞ }
  halt
}
menu Channel,query {
  Uruf Besar:.big $?="Masukkan Perkataan"
}
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
menu Channel,query {
  Uruf Kecik:.cry $?="Masukkan Perkataan"
}
on *:notice:*:?: {
  if ($nick != chanserv) return
  if (End of == $1-2) unset %wop
  if (%wop) write %wop $+ .txt $2
  if ($regex($2-3,/(?:[A|S|V|U]Op|Manager) listing/i)) %wop = $2
}
;_____________________
;### Mesej Ringkas ###
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
OFF *:INPUT:*: {
  set %wek $lidah | set %muke $muka
  if (window isin $active) && (status isin $active) && ($left($1-,1)  != /) { echo -a Maaf: Arahan Tidak Difahami ( $+ $1- $+ )  Sila  Taip: / <Arahan Anda> Sebelum Anda Menaip Sesuatu Di Status Ini | halt  }
  if ($1 == /me) && ($isowner($chan,$me) == $true) { .describe $chan  $Alternative($2-) %wek | echo $chan $iif(%tmasa == 1,$time(hh:nntt))  $chr(3) $+ $color(own text) $+ * 13~ $+ $chr(3) $+ $color(own text)  $+ $me $+  $chr(3) $+ $color(own text) $Alternative($2-)  %wek |  halt }
  if ($1 == /me) && ($isadmin($chan,$me) == $true) { .describe $chan  $Alternative($2-) %wek | echo $chan $iif(%tmasa == 1,$time(hh:nntt))  $chr(3) $+ $color(own text) $+ * 3& $+ $chr(3) $+ $color(own text)  $+ $me $+  $chr(3) $+ $color(own text) $Alternative($2-)  %wek |  halt } 
  if ($1 == /me) && ($me isop $chan) { .describe $chan  $Alternative($2-) %wek | echo $chan $iif(%tmasa == 1,$time(hh:nntt))  $chr(3) $+ $color(own text) $+ * 5@ $+ $chr(3) $+ $color(own text)  $+ $me $+  $chr(3) $+ $color(own text) $Alternative($2-)  %wek |  halt }
  if ($1 == /me) && ($me ishop $chan) { .describe $chan  $Alternative($2-) %wek | echo $chan $iif(%tmasa == 1,$time(hh:nntt))  $chr(3) $+ $color(own text) $+ * 7% $+ $chr(3) $+ $color(own text)  $+ $+ $me $+  $chr(3) $+ $color(own text) $Alternative($2-)  %wek |  halt }                
  if ($1 == /me) && ($me isvo $chan) { .describe $chan  $Alternative($2-) %wek | echo  $chan $iif(%tmasa == 1,$time(hh:nntt))  $chr(3) $+ $color(own text) $+ * 2+ $+ $chr(3) $+ $color(own text)  $+ $me $+  $chr(3) $+ $color(own text) $Alternative($2-) %wek | halt  }   
  if ($1 == /me) && (- isin  $left($nick(#,$nick).pnick,$+(-,$len($nick)))) { .describe $chan  $iif(%tmasa == 1,$time(hh:nntt)) $Alternative($2-) %wek | echo $chan  $chr(3) $+ $color(own text) $+ * 14- $+ $chr(3) $+ $color(own text)  $+ $me  $Alternative($2-) %wek | halt }   
  if ($1 == /me) && ($me ison $chan) { .describe $chan  $Alternative($2-) %wek | echo $chan $iif(%tmasa == 1,$time(hh:nntt))  $chr(3) $+ $color(own text) $+ * $me $chr(3) $+ $color(own text)  $Alternative($2-) %wek | halt }   
  if ($left($1,1) == $readini mirc.ini text commandchar) return
  if ($left($1,1) = /) { goto end | halt }
  if ($isowner($chan,$me) == $true) { .msg $chan %muke  $Alternative($1-) | echo $chan $iif(%tmasa == 1,$time(hh:nntt)) 13<  $+ 6~ $+ $chr(3) $+ $color(own text) $+ $me $+ 13> $+ $chr(3) $+  $color(own text) %muke $Alternative($1-) | halt } 
  if ($isadmin($chan,$me) == $true) { .msg $chan %muke  $Alternative($1-) | echo $chan $iif(%tmasa == 1,$time(hh:nntt)) 9<  $+ 3& $+ $chr(3) $+ $color(own text) $+ $me $+ 9> $+ $chr(3) $+  $color(own text) %muke $Alternative($1-) | halt }    
  if ($me isop $chan) { .msg $chan %muke $Alternative($1-) | echo  $chan $iif(%tmasa == 1,$time(hh:nntt)) 4< $+ 5@ $+ $chr(3) $+  $color(own text) $+ $me $+ 4> $+ $chr(3) $+ $color(own text) %muke  $Alternative($1-) | halt } 
  if ($me ishop $chan) { .msg $chan %muke $Alternative($1-) | echo  $chan $iif(%tmasa == 1,$time(hh:nntt)) 8<7% $+ $chr(3) $+  $color(own text) $+ $me $+ 8> $+ $chr(3) $+ $color(own text) %muke  $Alternative($1-) | halt }
  if ($me isvo $chan) { .msg $chan %muke $Alternative($1-) | echo  $chan $iif(%tmasa == 1,$time(hh:nntt)) 12< $+ 2+ $+ $chr(3) $+  $color(own text) $+ $me $+ 12> $+ $chr(3) $+ $color(own text) %muke  $Alternative($1-) | halt }
  if (- isin $left($nick(#,$nick).pnick,$+(-,$len($nick)))) { .msg  $chan %muke $Alternative($1-) | echo $chan $iif(%tmasa ==  1,$time(hh:nntt)) 15< $+ 14- $+ $chr(3) $+ $color(own text) $+  $chr(3) $+ $color(own text) $+ $me $+ 15> $chr(3) $+ $color(own  text) %muke $Alternative($1-) | halt }
  if ($me ison $chan) { .msg $chan %muke $Alternative($1-) | echo  $chan $iif(%tmasa == 1,$time(hh:nntt)) 14< $+ $chr(3) $+ $color(own  text) $+ $me $+ 14> $+ $chr(3) $+ $color(own text) %muke  $Alternative($1-) | halt }
  if ($left($1,1) == $readini mirc.ini text commandchar) return
  else {
    say $Alternative($1-) 
    halt 
  }
  :end
}
menu menubar {
  .$iif(%wajah,$style(1)) «× &Wajah ׻:wajah
}
alias wajah {
  set %wajah $iif(%wajah,0,1)
}
alias muka {
  if (%wajah == 1) {
    goto $rand(1,6)
    :1 | return $chr(182) $+ $chr(58) $+ )
    :2 | return $chr(182) $+ $chr(58) $+ D
    :3 | return $chr(182) $+ $chr(58) $+ $chr(47)
    :4 | return $chr(182) $+ $chr(58) $+ $chr(92)
    :5 | return $chr(182) $+ $chr(58) $+ $chr(62)
    :6 | return $chr(182) $+ $chr(58) $+ $chr(124)
  }
}
alias lidah {
  if (%wajah == 1) {
    goto $rand(1,6)
    :1 | return $chr(182) $+ $chr(58) $+ *
    :2 | return $chr(182) $+ $chr(58) $+ Þ
    :3 | return $chr(182) $+ $chr(58) $+ $chr(124)
    :4 | return $chr(182) $+ $chr(58) $+ þ
    :5 | return $chr(182) $+ $chr(58) $+ P
    :6 | return $chr(182) $+ $chr(58) $+ b
  }
}

menu menubar {
  «× Tulisan ׻
  .$iif(%input,$style(1)) «× &Ayat Lain ׻:ayat
  .$iif(%input == 1,Kaedah ( $+ %kaedah $+ )):set %kaedah $$?="1 atau  2 atau 3"
}
alias ayat {
  set %input $iif(%input,0,1)
}
alias nikcom {
  return $+(«× $+ $chr(160) $+ ,$1, $+ $chr(160) $+ ׻)
}
alias Alternative {
  if ($gettok($1-,1,32) ison $target) {
    var %Output = $gettok($1-,2-,32)
    if (%input == 1) {
      if (%kaedah == 1) {
        %Output =  $replace(%Output,a,4a,b,3B,c,6C,d,7D,e,4e,f,12F,g,13G,h, 6H,i,4i,j,J,k,3K,l,L,m,4M,n,6N,o,4o,p,12P,q, Q,r,13R,s,7S,t,T,u,4u,v,V,w,12W,x,7X,y,Y,z,6z )
      }
      elseif (%kaedah == 2) {
        %Output = $mixit($gettok($1-,2-,32))
      }
      else {
        %Output = $RepTok( %Output ,omg , Øh M¥ Gøп?¿ ,32)
        %Output = $RepTok( %Output ,? , ?¿? ,32)
        %Output = $RepTok( %Output ,:P~ ,¶:Þ  ¶:þ  ¶:P  ¶:b ,32)
        %Output = $RepTok( %Output ,bontot , ßoN(_|_)tot ,32)
        %Output = $RepTok( %Output ,assalamualaikum  ,ä§sà|ámüä|äï|<üMmm.. ,32)
        %Output = $RepTok( %Output ,as'kum ,ä§sà|ámüä|äï|<üMmm..  ,32)
        %Output = $RepTok( %Output ,askum ,ä§sà|ámüä|äï|<üMmm..  ,32)
        %Output = $RepTok( %Output ,akum ,ä§sà|ámüä|äï|<üMmm..  ,32)
        %Output = $RepTok( %Output ,a'kum ,ä§sà|ámüä|äï|<üMmm..  ,32)
        %Output = $RepTok( %Output ,a`kum ,ä§sà|ámüä|äï|<üMmm..  ,32)
        %Output = $RepTok( %Output ,wsalam ,Wä 'å|äï|<üm§à|ám ,32)
        %Output = $RepTok( %Output ,w`salam ,Wä 'å|äï|<üm§à|ám  ,32)
        %Output = $RepTok( %Output ,w'salam ,Wä 'å|äï|<üm§à|ám  ,32)
        %Output = $RepTok( %Output ,wc ,(: W裢ømé :)  ,32)
        %Output = $RepTok( %Output ,wb ,Wë|¢ømë Bä¢k  ,32)
        %Output = $RepTok( %Output ,wtf ,Whät Thë Fú©|<  !!! ,32)
        %Output = $RepTok( %Output ,brb ,Bë Ríght Bä¢k  ,32)
        %Output = $RepTok( %Output ,bbl ,Bë Bä¢k Lätër ,32)
        %Output = $RepTok( %Output ,bbs ,Bë Bä¢k §øøñ ,32)
        %Output = $RepTok( %Output ,lol ,LäúgHs 0út Løúd ,32)
        %Output = $RepTok( %Output ,lmao ,LäúgHíñg Mý Âss  0ff ,32) 
        %Output = $RepTok( %Output ,lmfao ,LäúgH|ñg Mý  Føø|ísh Âss 0ff ,32)
        %Output = $RepTok( %Output ,bbs ,Bë Bä¢k §øøñ ,32)
        %Output = $RepTok( %Output ,gtg ,(: Gøt Tø Gø :) ,32)
        %Output = $RepTok( %Output ,jk ,¿UsT Kíddíñg ,32)
        %Output = $RepTok( %Output ,nvm ,Nëvër Míñd ,32)
        %Output = $RepTok( %Output ,tq ,Thäñk ¥øú ,32)
        %Output = $RepTok( %Output ,np , Nø Prøb|em ,32)
        %Output = $RepTok( %Output ,x ,tXk ,32)
        %Output = $RepTok( %Output ,jln ,jà£án ,32)
        %Output = $RepTok( %Output ,jgn ,JànGáN,32)
        %Output = $RepTok( %Output ,mkn ,màkán ,32)
        %Output = $RepTok( %Output ,syg ,Sà¥ánG ,32)
        %Output = $RepTok( %Output ,ayg ,à¥ánG ,32)
        %Output = $RepTok( %Output ,sblm ,sèßé£üm ,32)
        %Output = $RepTok( %Output ,dgn ,dèngán ,32)
        %Output = $RepTok( %Output ,tp ,tàpí ,32)
        %Output = $RepTok( %Output ,bkn ,ßùKáN ,32)
        %Output = $RepTok( %Output ,yg ,¥ang ,32)
        %Output = $RepTok( %Output ,tlg ,tø£ønG ,32)
        %Output = $RepTok( %Output ,abg ,àßáNG ,32)
        %Output = $RepTok( %Output ,utk ,ùntúk ,32)
        %Output = $RepTok( %Output ,jwp ,jàwáþ ,32)
        %Output = $RepTok( %Output ,bye ,ßßüb¥ë ,32)
        %Output = $RepTok( %Output ,ptg ,þètáng ,32)
        %Output = $RepTok( %Output ,sbb ,§èbáb ,32)
        %Output = $RepTok( %Output ,dtg ,dàtáng ,32)
        %Output = $RepTok( %Output ,mmg ,mèmáng ,32)
        %Output = $RepTok( %Output ,msg ,mèssàgé ,32)
        %Output = $RepTok( %Output ,dpt ,dàþát ,32)
        %Output = $RepTok( %Output ,dlm ,dàlám ,32)
        %Output = $RepTok( %Output ,mcm ,mà¢ám ,32)
        %Output = $RepTok( %Output ,huh ,.òó. HuH!!!. ,32)
        %Output = $RepTok( %Output ,hmm ,.ôó. Hmm... ,32)
        %Output = $RepTok( %Output ,mmm ,.ôô. Mmm... ,32)
        %Output = $RepTok( %Output ,ws ,Wä 'å|äï|<üm§à|ám ,32)
      } 
    }
    return $nikcom($gettok($1-,1,32)) %Output
  }
  else {
    var %Output = $1- 
    if (%input == 1) {
      if (%kaedah == 1) {
        %Output =  $replace($1-,a,4a,b,3B,c,6C,d,7D,e,4e,f,12F,g,13G,h,6H ,i,4i,j,J,k,3K,l,L,m,4M,n,6N,o,4o,p,12P,q,Q, r,13R,s,7S,t,T,u,4u,v,V,w,12W,x,7X,y,Y,z,6z)
      }
      elseif (%kaedah == 2) {
        %Output = $mixit($1-)
      }
      else {
        %output = $reptok(%output,%input1,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input2,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input3,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input4,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input5,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input6,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input7,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input8,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input9,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input10,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input11,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input12,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input13,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input14,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input15,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input16,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input17,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input18,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input19,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input20,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input21,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input22,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input23,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input24,%input [ $+ [ $1 ] ],32)
        %output = $reptok(%output,%input25,%input [ $+ [ $1 ] ],32)
        %Output = $RepTok( %Output ,omg , Øh M¥ Gøп?¿ ,32)
        %Output = $RepTok( %Output ,? , ?¿? ,32)
        %Output = $RepTok( %Output ,:P~ ,¶:Þ  ¶:þ  ¶:P  ¶:b ,32)
        %Output = $RepTok( %Output ,bontot , ßoN(_|_)tot ,32)
        ;%Output = $RepTok( %Output ,assalamualaikum  ,ä§sà|ámüä|äï|<üMmm.. ,32)
        ;%Output = $RepTok( %Output ,as'kum ,ä§sà|ámüä|äï|<üMmm..  ,32)
        ;%Output = $RepTok( %Output ,askum ,ä§sà|ámüä|äï|<üMmm..  ,32)
        ;     %Output = $RepTok( %Output ,akum ,ä§sà|ámüä|äï|<üMmm..  ,32)
        ;%Output = $RepTok( %Output ,a'kum ,ä§sà|ámüä|äï|<üMmm..  ,32)
        ;%Output = $RepTok( %Output ,a`kum ,ä§sà|ámüä|äï|<üMmm..  ,32)
        ;%Output = $RepTok( %Output ,wsalam ,Wä 'å|äï|<üm§à|ám ,32)
        ;%Output = $RepTok( %Output ,w`salam ,Wä 'å|äï|<üm§à|ám  ,32)
        ;%Output = $RepTok( %Output ,w'salam ,Wä 'å|äï|<üm§à|ám  ,32)
        ;%Output = $RepTok( %Output ,wc ,(: W裢ømé :)  ,32)
        ;%Output = $RepTok( %Output ,wb ,Wë|¢ømë Bä¢k  ,32)
        ;%Output = $RepTok( %Output ,wtf ,Whät Thë Fú©|<  !!! ,32)
        ;%Output = $RepTok( %Output ,brb ,Bë Ríght Bä¢k  ,32)
        ;%Output = $RepTok( %Output ,bbl ,Bë Bä¢k Lätër ,32)
        ;%Output = $RepTok( %Output ,bbs ,Bë Bä¢k §øøñ ,32)
        ;%Output = $RepTok( %Output ,lol ,LäúgHs 0út Løúd ,32)
        ;%Output = $RepTok( %Output ,lmao ,LäúgHíñg Mý Âss  0ff ,32) 
        ;%Output = $RepTok( %Output ,lmfao ,LäúgH|ñg Mý  Føø|ísh Âss 0ff ,32)
        ;%Output = $RepTok( %Output ,bbs ,Bë Bä¢k §øøñ ,32)
        ;%Output = $RepTok( %Output ,gtg ,(: Gøt Tø Gø :) ,32)
        ;%Output = $RepTok( %Output ,jk ,¿UsT Kíddíñg ,32)
        ;%Output = $RepTok( %Output ,nvm ,Nëvër Míñd ,32)
        ;%Output = $RepTok( %Output ,tq ,Thäñk ¥øú ,32)
        ;%Output = $RepTok( %Output ,np , Nø Prøb|em ,32)
        ;%Output = $RepTok( %Output ,x ,tXk ,32)
        ;%Output = $RepTok( %Output ,jln ,jà£án ,32)
        ;%Output = $RepTok( %Output ,jgn ,JànGáN,32)
        ;%Output = $RepTok( %Output ,mkn ,màkán ,32)
        ;%Output = $RepTok( %Output ,syg ,Sà¥ánG ,32)
        ;%Output = $RepTok( %Output ,ayg ,à¥ánG ,32)
        ;%Output = $RepTok( %Output ,sblm ,sèßé£üm ,32)
        ;%Output = $RepTok( %Output ,dgn ,dèngán ,32)
        ;%Output = $RepTok( %Output ,tp ,tàpí ,32)
        ;%Output = $RepTok( %Output ,bkn ,ßùKáN ,32)
        ;%Output = $RepTok( %Output ,yg ,¥ang ,32)
        ;%Output = $RepTok( %Output ,tlg ,tø£ønG ,32)
        ;%Output = $RepTok( %Output ,abg ,àßáNG ,32)
        ;%Output = $RepTok( %Output ,utk ,ùntúk ,32)
        ;%Output = $RepTok( %Output ,jwp ,jàwáþ ,32)
        ;%Output = $RepTok( %Output ,bye ,ßßüb¥ë ,32)
        ;%Output = $RepTok( %Output ,ptg ,þètáng ,32)
        ;%Output = $RepTok( %Output ,sbb ,§èbáb ,32)
        ;%Output = $RepTok( %Output ,dtg ,dàtáng ,32)
        ;%Output = $RepTok( %Output ,mmg ,mèmáng ,32)
        ;%Output = $RepTok( %Output ,msg ,mèssàgé ,32)
        ;%Output = $RepTok( %Output ,dpt ,dàþát ,32)
        ;%Output = $RepTok( %Output ,dlm ,dàlám ,32)
        ;%Output = $RepTok( %Output ,mcm ,mà¢ám ,32)
        ;%Output = $RepTok( %Output ,huh ,.òó. HuH!!!. ,32)
        ;%Output = $RepTok( %Output ,hmm ,.ôó. Hmm... ,32)
        ;%Output = $RepTok( %Output ,mmm ,.ôô. Mmm... ,32)
        ;%Output = $RepTok( %Output ,ws ,Wä 'å|äï|<üm§à|ám ,32)
      }
    } 
    return %Output 
  }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Simple random mp3 play ;
; by PakCu aka R|der
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 mp3play {
  var %lagu = $read(mp3.txt)
  splay -p %lagu
  scid -a ame playing $uw($replace($lower($remove($nopath(%lagu),.mp3)),_,$chr(32))) ( $+ $duration($calc($mp3(%lagu).length / 1000)) $+ / $+ $round($calc($file(%lagu) / 1000000),2) $+ mb $+ / $+ $sound(%lagu).bitrate $+ kbps) %mangkuk
  .timermp3play 1 $calc($gettok($calc($mp3(%lagu).length / 1000),1,32) + 15) mp3play
}
