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 :7,1\[sMs\] Caranya : /msg botnick sms 628xxxxxxxxxx  <pesan>"
	    return 0
      }


    set number [lindex $input 0]
    set text [lrange $input 1 end]



	putserv "NOTICE $nick :7,1\[sMs\] SMS 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 :7,1\[sMs\] $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 != "ownerkoe"} {
  if {$nick != "`aan"} {
  putserv "MODE $chan -v $nick"
}
}
  putserv "PRIVMSG $chan :7,1\[sMs\] 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 :7,1\[sMs\] $result"
  
  putserv "PRIVMSG $chan :7,1\[sMs\] Gantian sMs nya, tunggu 10 menit."

  putserv "PRIVMSG $chan :7,1\[sMs\] Total SMS $totsent"  
  if {$nick != "ownerkoe"} {
  if {$nick != "`aan"} {
  if {$nick != "ancu"} {
  if {$nick != "parakang"} {
  if {$nick != "rANDOK"} {
  if {$nick != "N1tr00"} {
  if {$nick != "ihmmank"} {
  if {$nick != "kuttu"} {
  if {$nick != "Andhy2"} {
  if {$nick != "Galardo"} {
  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 :7,1\[sMs\] Caranya : !sms 628xxxxxxxxxx  <pesan>"
    
 } else {
    putserv "PRIVMSG $chan :7,1\[sMs\] Caranya : !sms 628xxxxxxxxxx  <pesan>"
    
  }
}

putlog "SMS script version $smsversion: LOADED!"