sMs.tcl

set totsent 0

set smssendprog "/home/ORYZANETOP/sms/bin/smssend"

set smsprovider "/home/ORYZANETOP/sms/.dat/scripts/sms.sms"

set smsuser ""

set smspasswd ""

set sms_flag ""

set smsversion "1.1"

bind msg $sms_flag "sms" msg:sms

bind pub $sms_flag ".sms" pub:sms

proc sms:check_input {text} {

  regsub -all {<|>|&|\|/|%|[|]|[$]} $text "" text

  return $text

}

proc msg:sms {nick uhost hand arg} {

global ignoremnt smssendprog smsprovider smsuser smspasswd sms_log

set input [sms:check_input $arg]

  

  if {[string length [string trim $input]] == 0} {

      putserv "NOTICE $nick :04s03M04s Gunakan Cara : /msg botnick sms 628xxxxxxxxxx  <pesan>"

   return 0

      }

    set number [lindex $input 0]

    set text [lrange $input 1 end]

putserv "NOTICE $nick :04s03M04s  Terkirim Ke Nomor : $number Dari $nick"

    set result "SMS Gagal Terkirim."

    set text1 "$text By $nick "

    

    catch {exec $smssendprog $smsprovider $smsuser $smspasswd $number $text1 -- -t30} result

  putserv "NOTICE $nick :04s03M04s $result"

  return 0

}

proc pub:sms {nick uhost hand chan arg} {

  global totsent smssendprog smsprovider smsuser smspasswd ignoremnt sms_log

if {![isop $nick $chan]} {

if {![isvoice $nick $chan]} {

putserv "PRIVMSG $chan :Maaf, SMS Hanya Untuk @op dan +V Saja"

return 0

}

}

  set input [sms:check_input $arg]

  if {[string length [string trim $input]] == 0} {

    sms:usage $chan $nick

    return 0

  }

    set number [lindex $input 0]

    set text [lrange $input 1 end]

  if {$nick != "g0eZ"} {

  if {$nick != "egGo"} {

  putserv "MODE $chan -v $nick"

}

}

  putserv "PRIVMSG $chan :04s03M04s SMS Terkirim Ke Nomor : $number Dari $nick"

  set result "SMS Gagal Terkirim."

  set text1 "$text By $nick "

  set totsent [expr $totsent + 1]

  catch {exec $smssendprog $smsprovider $smsuser $smspasswd $number $text1 -- -t30} result

  

  putserv "PRIVMSG $chan :04s03M04s $result"

  

  putserv "PRIVMSG $chan :04s03M04s Gantian sMs nya, tunggu 10 menit."

  putserv "PRIVMSG $chan :04s03M04s Total SMS $totsent"  

  if {$nick != "g0eZ"} {

  if {$nick != "`egGo"} {

  if {$nick != "aDJi"} {

  if {$nick != "anfar_^"} {

  if {$nick != "d3t4ct"} {

  if {$nick != "Vampire"} {

  if {$nick != "genin"} {

  if {$nick != "galBY"} {

  if {$nick != "yosiyang"} {

  if {$nick != "spy_dol"} {

  set hostmask1 "${nick}!*@*"

  set hostmask2 "*![string range $uhost [string first "!" $uhost] end]"

  newignore $hostmask1 "*" 10

  newignore $hostmask2 "*" 10

  }

}

}

}

}

}

}

}

}

}

}

proc sms:usage {chan nick} {

  if {$nick == $chan} {

    putserv "PRIVMSG $nick :04s03M04s Caranya : !sms 628xxxxxxxxxx  <pesan>"

    

 } else {

    putserv "PRIVMSG $chan :04s03M04s Caranya : !sms 628xxxxxxxxxx  <pesan>"

    

  }

}

putlog "g0eZ egGo SMS script version $smsversion: LOADED!"