IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

sms.tcl
Kod:
 

#######################################################

# SMS By Raistlin

# 

# For eggdrops 1.x.x.x

# NOT: Bu ilk Sürümdür.. Yakında Yeni Sürüm ve

#      Özelliklerle Sizlerle olacağız.. 

#

# Her Türlü Sorun için Mail Ata bilirsiniz:

#       [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

#######################################################

# Komutlar:

#   /msg <botnicki> sms <cepno> <mesaj> 

#   /msg <botnicki> !bilgi

#       /msg <botnicki> !sms <cepno> <mesaj>

#       /msg <botnicki> !smssend

#       /msg <botnicki> !msgsms

#       /msg <botnicki> !log

#######################################################

set loglevel 3

set logfile "sms.log"

# mesaj kayıtları için gösterilen (add + between words)

set epilog "Sent+from+#sms90"

bind msg - !sms pub_sms

bind msg - !bilgi sms_help

bind msg - !smssend sms_send

bind msg - sms msg_sms

bind msg - !log sms_log

proc pub_sms {nick host handle chan args} {

 set args [lindex $args 0]

 msg_sms $nick $host $handle $args

 return 0

 }

proc sms_help { nick host handle args } {

global botnick epilog

 set temp [string length "$epilog $nick by "]

 set temp [expr "143 - $temp"]

 putserv "NOTICE $nick :- » Help Bilgisi"

 putserv "NOTICE $nick :- GSM/SMS Gönderme Programıdır.."

 putserv "NOTICE $nick :- Komut: /msg $botnick sms <handle> <mesajınız>"

 putserv "NOTICE $nick :- Sizin Mesajınız Kaydedildi: '$epilog by $nick' "

 putserv "NOTICE $nick :- Yazı Limiti $temp Karakterdir.."

 putserv "NOTICE $nick :- NOT: Sizin mesajınız '+' olacak"

}

proc sms_send {hand idx args} {

 global epilog

 set args [lindex $args 0]

 set whom [lindex $args 0]

 if {[validuser $whom] == 0 } {

 putdcc $idx "no user by that name, sorry"

 return 0

 }

 if {[getuser $whom XTRA PHONE] == "" } {

 putdcc $idx "no Telefon # for $whom Kayıt.. (make sure you have the userfile modified to hold an PHONE field"

 return 0

 }

 set phone [getuser $whom XTRA PHONE]

 set text [lrange $args 1 end]

 set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
proc msg_sms {nick host handle args} {

 global botnick epilog

 set args [lindex $args 0]

 set whom [lindex $args 0]

 if {[validuser $whom] == 0 } {

        putserv "PRIVMSG #sms :GÖNDERİLDİ: 2-5=12 $nick 2=5- Mesajınız gönderildi. 1-5dk arasında mesaj karşı tarafa ulaşacaktır."

 return 0

 }

 if {[getuser $whom XTRA PHONE] == "" } {

 putserv "NOTICE $nick :no Telefon # for $whom Kayıt.. "

 return 0

 }

 if { ([lindex $args 1] == "") } {

 putserv "NOTICE $nick :Komut: /msg $botnick sms <handle> <text>"

 return 0

 }

 set temp [string length "$epilog $nick by "]

 set temp [expr "143 - $temp"]

 set phone [getuser $whom XTRA PHONE ]

 set text [lrange $args 1 end]

 set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
lng [string length $text]

 incr lng -1

 set text "[string range $text 0 $lng]"

 if { [string length $temp] > 143 } {

   putserv "NOTICE $nick :Mesaj NOT ileti. Reason: Message to long"

  putserv "NOTICE $nick :En çok Karakter Sayısı=$temp"

 } {

  ::http::geturl "$url"

  putserv "NOTICE $nick :sms gönderimi $text to $phone"

  sms_log $phone $nick $host $text

 }

}

proc format_text { text } {

 set lng [string length $text]

 incr lng -1

 set text "[string range $text 0 $lng]"

 incr lng +1

 set tmp ""

 set i 0

 while { $i != $lng } {

  set temp [string range $text $i $i]

  if { $temp == " " } {

   set tmp "$tmp+"

  } {

   set tmp "$tmp$temp"

  }

 incr i

 }

 return $tmp

}

proc sms_log {phone nick host text} {

 global loglevel logfile

 if {$loglevel} {

  if ![catch {open $logfile a} filelog] {

   if {$loglevel == "1"} {

    puts $filelog "SMS sent SMS at[date] [time]"

    close $filelog

   }

   if {$loglevel == "2"} {

    puts $filelog "SMS: $nick!$host sent SMS at[date] [time]"

    close $filelog

   }

   if {$loglevel == "3"} {

    puts $filelog "SMS: $nick!$host sent SMS to $phone at[date] [time]"

    close $filelog

   }

   if {$loglevel == "4"} {

    puts $filelog "SMS: $nick!$host sent SMS ($text) to $phone at[date] [time]"

    close $filelog

   }

  } {

   putlog "**** SMS ERROR! Could not log to file: $logfile"

  }  

 }

}

proc join_greet {nick uhost handle channel} {

     putserv "NOTICE $nick :7 $nick #SMS kanalına hoş geldiniz.. "

   }

bind join - * join_greet

putlog "=============== TCL sms sender ==============="

putlog "=                                            ="

putlog "= Sms Sender Bot Sürüm : 1.o - eggdrop       ="

putlog "= TCL Yazar by Raistlin                      ="

putlog "=        Madde in Turkey                     ="

putlog "=============================================="
Gereken Editlemeyi Yaparsın çalışıyormu Çalışmıyormu Bilmiyorum ama Elimin Altındaydı Yolladım