bot #help.tcl

#############
# Order Help #
#############
bind pub - !helpcmds pub_helpcmd
proc pub_helpcmd {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :!chanserv, !nickserv, !memoserv, !hostserv"
      return 0
    }
}

#CHANSERV

bind pub - !chanserv pub_chanserv
proc pub_chanserv {nick uhost handle chan arg} {
    global botnick
        if {$arg == ""} {
        putserv "NOTICE $nick : !register_channel, !drop_channel, !set_channel, !topic_channel, !op_channel, !voice_channel, !ban_channel, !info_channel, !akick_channel, !ban_channel"
        return 0
    }
}

bind pub - !info_channel pub_infochan
proc pub_infochan {nick uhost handle chan arg} {
    global botnick
    id {$arg == ""} {
        putserv "PRIVMSG $chan :cmd untuk melihat info suatu channel"
        putserv "PRIVMSG $chan :contoh : /msg chanserv info #namachannelnya"
    return 0
    }
}

bind pub - !register_channel pub_regchan
proc pub_regchan {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "PRIVMSG $chan :/msg chanserv register #namachannelmu"
      return 0
    }
}

bind pub - !drop_channel pub_dropchan
proc pub_dropchan {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "PRIVMSG $chan :/msg chanserv DROP #namachannelmu"
      return 0
    }
}

bind pub - !set_channel pub_setchan
proc pub_setchan {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
          putserv "PRIVMSG $chan :/msg chanserv SET #namachannelmu OPTION PARAMETER"
    putserv "NOTICE $nick :Ketik !set_channel_option untuk liat option yg ada"
      return 0
    }
}

bind pub - !set_channel_option pub_setchanopt
proc pub_setchanopt {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
          putserv "PRIVMSG $chan :Option: FOUNDER, ENTRYMSG, MLOCK, KEEPTOPIC, PRIVATE, SECURE"
    putserv "PRIVMSG $chan :utk liat contohnya ketik !set_channel_OPTIONnya, untuk menggunakan cmd ini minimal access SOP"
    putserv "PRIVMSG $chan :contoh:!set_channel_founder"
    return 0
    }
}

bind pub - !set_channel_founder pub_setchanfo
proc pub_setchanfo {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
          putserv "PRIVMSG $chan :/msg chanserv set #namachannelmu founder namafounderchanmuygbaru"
    return 0
    }
}

bind pub - !set_channel_entrymsg pub_setchanent
proc pub_setchanent {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
          putserv "PRIVMSG $chan :/msg chanserv set #namachannelmu ENTRYMSG entrymassageuntukchannelkamu"
    return 0
    }
}

bind pub - !set_channel_mlock pub_setchanmlock
proc pub_setchanmlock {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
          putserv "PRIVMSG $chan :/msg chanserv set #namachannelmu MLOCK PARAMETERNYA"
    putserv "PRIVMSG $chan :cmd ini utk mengunci mode channel spy tidak bisa dirubah"
    putserv "PRIVMSG $chan :contoh: /msg chanserv set #namachannelmu MLOCK -m"
    putserv "PRIVMSG $chan :maka channel akan selalu di set -m walaupun ada operator yg set mode channelnya +m"
    return 0
    }
}

bind pub - !set_channel_keeptopic pub_setkeept
proc pub_setkeept {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "PRIVMSG $chan :cmd ini utk membuat topic di channel tidak hilang ketika channel kosong "
    putserv "PRIVMSG $chan :/msg ChanServ SET #namachannelmu keeptopic ON|OFF"
      return 0
    }
}


bind pub - !set_channel_private pub_setpriv
proc pub_setpriv {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd ini utk membuat founder channel tidak terlihat di info channelmu"
        putserv "PRIVMSG $chan :/msg chanserv set #namachannelmu private ON|OFF"
    return 0
    }
}

bind pub - !set_channel_secure pub_setsecure
proc pub_setsecure {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd ini membuat operator channelmu tidak bisa memberikan tanda @/%/v utk user yg memang tidak memiliki access tersebut"
        putserv "PRIVMSG $chan :/msg chanserv set #namachannelmu secure ON|OFF"
    return 0
    }
}

bind pub - !topic_channel pub_topicchan
proc pub_topicchan {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :untuk merubah topic di channel, contohnya"
        putserv "PRIVMSG $chan :/msg chanserv topic #namachannelmu topic yg mau dibuat"
    return 0
    }
}

bind pub - !op_channel pub_opchan
bind pub - !halfop_channel pub_opchan
proc pub_opchan {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :untuk menambah/menghapus sop/aop/halfop channel kepada orang lain, "
        putserv "PRIVMSG $chan :/msg chanserv sop|aop|hop #namachannelmu add|del nickorgnya"
        putserv "PRIVMSG $chan :contohnya: /msg chanserv hop #batu del isengz"
    return 0   
    }
}

bind pub - !voice_channel pub_voicechan
proc pub_voicechan {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :utk memberi voice kepada user (hanya op channel yg bisa)"
        putserv "PRIVMSG $chan :/msg chanserv voice #channelmu nickorgnya"
    return 0
    }
}

bind pub - !ban_channel pub_banchan
bind pub - !unban_channel pub_banchan
proc pub_banchan {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd ini utk ban/unban nick/host user di channelmu"
        putserv "PRIVMSG $chan :/msg chanserv ban/unban #namachannelmu nicknya/hostnya"
        putserv "PRIVMSG $chan :contoh /msg chanserv ban #kota-blitar yhosimura"
        return 0
    }
}

bind pub - !info_channel pub_infochan
proc pub_infochan {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :/msg chanserv info #namachannelmu"
        return 0
    }
}


bind pub - !akick_channel pub_akick
proc pub_akick {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd ini utk autokick user/host di channelmu"
        putserv "PRIVMSG $chan :/msg chanserv akick #namachannelmu add|del|list nick/host (pesan akick)"
        putserv "PRIVMSG $chan :contoh: /msg chanserv akick #batu add si_bau yg belum mandi dilarang masuk channel batu"
    return 0
    }
}

#NICKSERV#

bind pub - !nickserv pub_nicks
proc pub_nicks {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "NOTICE $nick :!register_nick, !identify_nick, !drop_nick, !logout_nick, !set_nick_set, !release_nick, !ghost_nick, !info_nick"
    return 0
    }
}

bind pub - !identify_nick pub_nickid
proc pub_nickid {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd untuk login sehingga allnet mengenali anda, bbrp cmd mengharuskan anda login baru bisa dipakai, misalnya merubah topik channel"
        putserv "PRIVMSG $chan :contoh : /msg nickserv identify passwordnickanda"
        putserv "PRIVMSG $chan :untuk identify akun yg lain tanpa mengganti nick : /msg nickserv identify nickanda passwordnickanda"
    return 0
    }
}

bind pub - !drop_nick pub_dropnick
proc pub_dropnick {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd untuk menghapus akun anda di allnet"
        putserv "PRIVMSG $chan :contoh : /msg nickserv drop nickanda passwordnickanda"
    return 0
    }
}   

bind pub - !logout_nick pub_logoutnick
proc pub_logoutnick {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd untuk logout dr akun anda di allnetwork"
        putserv "PRIVMSG $chan :/msg nickserv logout"
    return 0
    }
}

bind pub - !set_nick pub_setnickset
proc pub_setnickset {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd untuk setting akun/id anda di allnetwork"
        putserv "NOTICE $nick :!set_nick_enforce, !set_nick_noop, !set_nick_password, !set_nick_private, !set_nick_property"
    return 0
    }
}

bind pub - !set_nick_enforce pub_setnickenf
proc pub_setnickenf {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd utk set akun anda agar jika ada yg pke nick anda dan tdk identify selama 30sec akan berubah otomatis jadi Guest"
        putserv "PRIVNSG $chan :aktif/non aktifkan dengan ON/OFF, contoh: /msg nickserv set enforce on"
    return 0
    }
}

bind pub - !set_nick_noop pub_setnicknoop
proc pub_setnicknoop {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd agar nick anda tidak auto op oleh chanserv (catt: anda memiliki acc op)"
        putserv "PRIVMSG $chan :aktif/non aktifkan dengan ON/OFF, contoh: /msg nickserv set noop on"
    return 0
    }
}

bind pub - !set_nick_password pub_setnickpass
proc pub_setnickpass {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd utk mengganti password identify anda"
        putserv "PRIVMSG $chan :/msg nickserv set password passwordbaruanda"
    return 0
    }
}

bind pub - !set_nick_private pub_setnickpriv
proc pub_setnickpriv {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd utk menyembunyikan info nick anda (on/off)"
        putserv "PRIVMSG $chan :/msg nickserv set private on
    return 0
    }
}

bind pub - !set_nick_property pub_setnickprop
proc pub_setnickprop {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :cmd utk menambah property/info nick anda"
        putserv "PRIVMSG $chan :contoh jika ingin menambah info ttg akun facebook anda: /msg nickserv set property FB : gw.ganteng@gmail.com"
    return 0
    }
}

bind pub - !register_nick pub_regnick
proc pub_regnick {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "PRIVMSG $chan :/msg Nickserv register passwordnickkamu emailkamu"
    putserv "PRIVMSG $chan :(jangan lupa buka email anda, cari email dari allnetwork, copas cmd utk verifikasinya di irc)"
      return 0
    }
}

#memoserv#

bind pub - !memoserv pub_memo
proc pub_memo {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "NOTICE $nick :!send_memo, !read_memo, !list_memo, !del_memo"
    return 0
    }
}

bind pub - !send_memo pub_sendmemo
proc pub_sendmemo {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "PRIVMSG $chan :/msg MemoServ SEND nick pesanmu"
      return 0
    }
}

bind pub - !list_memo pub_listmemo
proc pub_listmemo {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "PRIVMSG $chan :/msg MemoServ LIST "
      return 0
    }
}

bind pub - !read_memo pub_readmemo
proc pub_readmemo {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :/msg memoserv read (no. memonya)"
        putserv "PRIVMSG $chan :contoh: /msg memoserv read 2"
    return 0
    }
}

bind pub - !del_memo pub_delmemo
proc pub_delmemo {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "PRIVMSG $chan :/msg memoserv del (no. memo / all)"
        putserv "PRIVMSG $chan :contoh menghapus semua memo: /msg memoserv del all"
    return 0
    }
}

#hostserv#

bind pub - !hostserv pub_hostserv
proc pub_hostserv {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
        putserv "NOTICE $nick :!request_vhost, !vhost_on, !vhost_off"
    return 0
    }
}

bind pub - !request_vhost pub_reqhost
proc pub_reqhost {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "PRIVMSG $chan :/msg Hostserv request ini.salah.satu.contoh.request.vhost.mu "
    putserv "PRIVMSG $chan :(kemudian tunggu balasan lwt memo dari staff allnet apakah request anda ditolak/diterima)"
      return 0
    }
}

bind pub - !vhost_on pub_onhost
proc pub_onhost {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "PRIVMSG $chan :/msg Hostserv on / off"
    putserv "PRIVMSG $chan :contoh menonaktifkan vhost: /msg hostserv off"
      return 0
    }
}