# - Simple public bind tcl script

bind pub - !help cmd_twisted
bind pub - !znc znc
bind pub - !eggdrop eggdrop
bind pub - !bank bank
bind pub - !info info
bind pub - !vhost vhost
bind pub - !vps vps
bind pub - !shell shell

proc cmd_twisted {nick uhost hand chan args} {
  putserv "NOTICE $nick :12Help commands"
  putserv "NOTICE $nick :ketik !znc !eggdrop !bank !info !vhost !vps !shell"
  putlog "cmd_twisted $nick"
}

proc znc {nick uhost hand chan args} {
  putserv "NOTICE $nick :12TwistedShells ZNC"
  putserv "NOTICE $nick :1 admin + 1 user"
  putserv "NOTICE $nick :1 bulan Rp.10.000"
  putserv "NOTICE $nick :3 bulan Rp.30.000"
  putserv "NOTICE $nick :6 bulan Rp.55.000"
  putserv "NOTICE $nick :1 tahun Rp.110.000"
  putlog "znc $nick"
}

proc eggdrop {nick uhost hand chan args} {
  putserv "NOTICE $nick :12TwistedShells EGGDROP"
  putserv "NOTICE $nick :3 bulan Rp.50.000"
  putserv "NOTICE $nick :6 bulan Rp.85.000"
  putserv "NOTICE $nick :1 tahun Rp.125.000"
  putlog "eggdrop $nick"
}

proc bank {nick uhost hand chan args} {
  putserv "NOTICE $nick :12TwistedShells BANK"
  putserv "NOTICE $nick :not available yet"
  putlog "bank $nick"
}

proc info {nick uhost hand chan args} {
  putserv "NOTICE $nick :12TwistedShells INFO"
  putserv "NOTICE $nick :pv atau memo nick dex di server AyoChat atau DALnet"
  putserv "NOTICE $nick : WA 081360165146"
  putserv "NOTICE $nick :a/n dex"
  putlog "eggdrop $nick"
}

proc vhost {nick uhost hand chan args} {
  putserv "NOTICE $nick :12TwistedShells VHOST"
  putserv "NOTICE $nick :not available yet"
  putlog "vhost $nick"
}

proc vps {nick uhost hand chan args} {
  putserv "NOTICE $nick :12TwistedShells VPS"
  putserv "NOTICE $nick :VPS 1 bulan Rp.75.000"
  putlog "vps $nick"
}

proc shell {nick uhost hand chan args} {
  putserv "NOTICE $nick :12TwistedShells Shells"
  putserv "NOTICE $nick :1 BG 1 tahun Rp.110.000"
  putserv "NOTICE $nick :2 BG 1 tahun Rp.200.000"
  putserv "NOTICE $nick :3 BG 1 tahun Rp.290.000"
  putserv "NOTICE $nick :4 BG 1 tahun Rp.370.000"
  putserv "NOTICE $nick :5 BG 1 tahun Rp.450.000"
  putlog "shell $nick"
}

putlog "-=help.tcl loaded=-"