# plat.tcl
#   Script ini akan menampilkan plat plat nopol (nomor polisi) yang ada di indonesia ;)
#
# Copyright (C) 2009 - 2016 g0eZ #ciut AllNetwork

# sym perintah yang di dukung
bind dcc - .plat dcc_plat
bind pub - !plat pub_plat
bind pub - .plat pub_plat
bind msg - plat msg_plat

proc dcc_plat {hand idx arg} {
  global plat plateopo
  if {[llength $arg] != 1} {
    putdcc $idx "Gunakan: .plat <node>"
    putdcc $idx "Contoh: .plat .[lindex $plateopo [rand [llength $plat]]]"
    return 0
  }
  set this [lsearch -exact $plateopo [string trimleft [string toupper $arg] .]]
  if {$this > -1} {
    putdcc $idx "Plat untuk .[string trimleft [string toupper $arg] .] adalah [lindex $plat $this]"
    return 1
  } else {
    putdcc $idx "Tidak ada plat ditemukan untuk .[string trimleft [string toupper $arg] .]"
    return 0
  }
}

proc pub_plat {nick uhost hand channel arg} {
  global plat plateopo
  if {[llength $arg] != 1} {
    putserv "PRIVMSG $channel :Gunakan: !plat <kode>"
    putserv "PRIVMSG $channel :Contoh: !plat [lindex $plateopo [rand [llength $plat]]]"
    return 0
  }

  set this [lsearch -exact $plateopo [string trimleft [string toupper $arg] .]]
  if {$this > -1} {
    putserv "PRIVMSG $channel :\[PLAT\] Kode untuk [string trimleft [string toupper $arg] .] adalah [lindex $plat $this]"
    return 1
  } else {
    putserv "PRIVMSG $channel :\[PLAT\] Tidak ditemukan untuk [string trimleft [string toupper $arg] .]"
    return 0
  }
}

proc msg_plat {nick uhost hand arg} {
  global plat plateopo
  if {[llength $arg] != 1} {
    putserv "NOTICE $nick :Gunakan: plat <kode>"
    putserv "NOTICE $nick :Contoh: plat .[lindex $plateopo [rand [llength $plat]]]"
    return 0
  }
  set this [lsearch -exact $plateopo [string trimleft [string toupper $arg] .]]
  if {$this > -1} {
    putserv "NOTICE $nick :Plat untuk .[string trimleft [string toupper $arg] .] adalah [lindex $plat $this]"
    return 1
  } else {
    putserv "NOTICE $nick :Tidak ditemukan untuk .[string trimleft [string toupper $arg] .]"
    return 0
  }
}

set plat {
 "KALTIM" "BALI" "DJOGJA" "JEMBER, BESUKI"
 "BANTEN" "DKI JAKARTA" "Nanggroe Aceh Darussalam" "Sumatera Utara bagian Barat"
 "Sumatera Utara bagian Timur (pesisir Timur)" "Sumatera Barat" " Riau" "Jambi"
 "Bengkulu" "Kepulauan Riau" "Sumatera Selatan" "Kepulauan Bangka Belitung"
 "Lampung" "Kabupaten dan Kota Bandung" "Karesidenan Cirebo" "Kabupaten dan Kota Bogor"
 "Kabupaten Purwakarta" "Kabupaten Garut" "Karesidenan Pekalongan" "Karesidenan Semarang" "Karesidenan Pati"
 "Karesidenan Banyumas" "Karesidenan Kedu" "Karesidenan Surakarta" "Kota Surabaya" "Karesidenan Madura"
 "Karesidenan Malang" "Karesidenan Bojonegoro" " Kabupaten Sidoarjo, Gresik" "Karesidenan Madiun"
 "Karesidenan Kediri" "Bali" "NTB I Pulau Lombok: Kota Mataram, Lombok Barat, Lombok Timur, Lombok Tengah"
 "NTB II Pulau Sumbawa: Kab. Sumbawa Barat, Sumbawa, Dompu, Kota Bima"
 "NTT I Pulau Timor: Kabupaten/Kota Kupang, Kabupaten TTU, TTS, Kabupaten Rote Ndao"
 "NTT II Pulau Flores Kab. Manggarai Barat, Manggarai, Ngada, Ende, Sikka, Flores Timur, Lembata,  Alor"
 "NTT III Pulau Sumba: Kab. Sumba Barat, Sumba Timur" "Kalimantan Barat" "Kalimantan Selatan" "Kalimantan Tengah"
 "Sulawesi Utara Daratan Kota Manado, Kota Tomohon, Kota Bitung, Kab. Bolaang Mongondow, Minahasa, Minahasa Utara, Minahasa Selatan, Minahasa Tenggara, Bolaang Mongondow Utara, Bolaang Mongondow Timur, Bolaang Mongondow Selatan"
 "Sulawesi Utara Kepulauan Kab. Kepulauan Sangihe, Kepulauan Talaud,  Kepulauan Sitaro"
 "Gorontalo" "Sulawesi Tengah" "Sulawesi Tenggara" "Sulawesi Selatan" "Sulawesi Barat" "MALUKU" "Maluku Utara" "Papua dan Papua Barat"
}
set plateopo {
 KT DK AB P A B BL BB BK BA BM BH BD BP BG BN BE D E F T
 Z G H K R AA AD L M N P S Q AE AG DK EA DH EB ED KB DA KH
 DB DL DM DN DT DD DC DE DG DS
}

putlog "plat.tcl berhasil di load goez"
putlog "Hargai Karya Orang Dgn Tidak Merubah Isi"