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

#Opers kanalinda global mesaj sistemini yonetme ozelligi ekledim.
Yardimlari icin BuCaLI'ya tsk. :)

<Namesis> !global
<Ra> Kullanimi: !global <on/off/durum/ekle/sil/listele>

<Namesis> !global on
<Ra> Global mesaj sistemi acildi.

<Namesis> !global durum
<Ra> Global mesaj sistemi acik.

<Namesis> !global off
<Ra> Global mesaj sistemi kapali.

<Namesis> !global ekle
<Ra> Global mesaj belirtmediniz. Lutfen global mesajinizi belirtiniz.

<Namesis> !global ekle Test mesajidir.
<Ra> GLOBAL MESAJ: Test mesajidir. » Basariyla global mesaj listesine eklendi.

<Namesis> !global sil
<Ra> Boyle bir global mesaj listede yok.
<Ra> Listeyi gormek icin: !global listele
<Ra> Silmek icin global mesajin basinda ki numarayi kullaniniz. Ornek: !global sil 1234

<Namesis> !global listele
<Ra> 4790 - Test mesajidir.
<Ra> Global mesaj listesinin sonu...

<Namesis> !global sil 4790
<Ra> 4790 numarali global mesaj listeden silindi.

Kod:

 

#########

# BASLA #

#########
 

# Global mesaj sistemini acip kapatma komutunun isleyecegi kanali belirtiniz.

set glbmsg(operchan) "#Opers"
 

# Global komut on ekini belirtiniz.

set glbmsg(komut) "!global"
 

# Global mesajlarin bulundugu dosya dizinini belirtiniz.

set glbmsg(text) "scripts/globalmsg.txt"
 

# Global mesajlar kac dakika arayla atilacaksa belirtiniz. (Dakika cinsinden)

set glbmsg(zaman) "15"
 

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

# DOKUNMA BOZULUR :d #

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

utimer 30 globalat

proc globalat {} {

global botnick globalat glbmsg

  if {[lsearch -exact [channel info $glbmsg(operchan)] +globcmd] != -1} {

  set msgzaman "0"

  set dosya [open $glbmsg(text) r]

  set liste [split [subst -nocommands [read $dosya]] \n]

      foreach i $liste {

      set msgzaman [expr $msgzaman + $glbmsg(zaman)]

      timer $msgzaman [list putquick "os global [lrange $i 2 end]"]

    }

    close $dosya

      set msgzaman [expr $msgzaman + $glbmsg(zaman)]

    timer $msgzaman [list globalat]

    }

  return 0

}
 

bind evnt - init-server baglan:dosyayarat

proc baglan:dosyayarat {type} {

global botnick glbmsg

 if {![file exists $glbmsg(text)]} {

   set dosya [open $glbmsg(text) w]

  close $dosya

 }

}
 

setudef flag globcmd
 

bind pub - $glbmsg(komut) globalonoff

proc globalonoff {nick uhost hand chan text} {

global botnick glbmsg

    set komut "[lindex [split $text] 0]"

    set mesaj "[lrange [split $text] 1 end]"

    if {[string match -nocase $glbmsg(operchan) $chan]} {

    if {$komut == ""} { putquick "PRIVMSG $chan :Kullanimi: $glbmsg(komut) \002<on/off/durum/ekle/sil/listele>\002"; return 0 }

    if {[string match -nocase "on" $komut]} { channel set $chan +globcmd; putquick "PRIVMSG $chan :Global mesaj sistemi \002acildi\002."; globalat; return 0 }

    if {[string match -nocase "off" $komut]} { channel set $chan -globcmd; putquick "PRIVMSG $chan :Global mesaj sistemi \002kapatildi\002."; return 0 }

    if {[string match -nocase "durum" $komut]} { if {[lsearch -exact [channel info $chan] +globcmd] != -1} { putquick "PRIVMSG $chan :Global mesaj sistemi \002acik\002." } else { putquick "PRIVMSG $chan :Global mesaj sistemi \002kapali\002."; return 0 } }

    if {[string match -nocase "ekle" $komut]} { if {$mesaj == ""} { putquick "PRIVMSG $chan :Global mesaj belirtmediniz. Lutfen global mesajinizi belirtiniz." ; return 0 }

        putquick "PRIVMSG $chan :GLOBAL MESAJ: $mesaj » Basariyla global mesaj listesine eklendi."

        set globs [open $glbmsg(text) a]

        puts $globs "[join [rand 9999]] [join -] [join $mesaj]"

        flush $globs

        catch {closer $globs}

    }

    if {[string match -nocase "sil" $komut]} {

        if {![file exists $glbmsg(text)]} {

            putquick "PRIVMSG $chan :Global mesaj listesi zaten bos."

            return

        }

        set data ""

        set input [open $glbmsg(text) r]

        while {![eof $input]} {

            set curline [gets $input];set curline [split $curline]

            if {$curline != ""} {

                set data [linsert $data end $curline]

            }

        }

        catch {close $input}

        set deger -1;set esles ""

        foreach line $data {

            incr deger

            if {[string match -nocase "$mesaj" [lindex $line 0]]} {

                set esles $deger

                break

            }

        }

        if {$esles == ""} {

            putquick "PRIVMSG $chan :Boyle bir global mesaj listede yok."

            putquick "PRIVMSG $chan :Listeyi gormek icin: \002$glbmsg(komut) listele\002"

            putquick "PRIVMSG $chan :Silmek icin global mesajin basinda ki numarayi kullaniniz. Ornek: \002$glbmsg(komut) sil 1234\002"

            return

        }

        set newdata [lreplace $data $deger $deger]

        set output [open $glbmsg(text) w]

        foreach newline $newdata {

            if {$newline != ""} {

                puts $output $newline

            }

        }

        flush $output

        catch {close $output}

            putquick "PRIVMSG $chan :\002$mesaj\002 numarali global mesaj listeden silindi."

            return

        }

        if {[string match -nocase "listele" $komut]} {

        if {![file exists $glbmsg(text)]} { putquick "PRIVMSG $chan :Global mesaj listesi bos."; return 0 }

        set input [open $glbmsg(text) r]

        set lines [split [subst -nocommands [read $input]] \n]

        catch {close $input}

        set sayc 0

          foreach line $lines {

           if {$line != ""} {

          putquick "PRIVMSG $chan :$line"

         incr sayc

        }

       }

      if {$sayc == 0} {

     putquick "PRIVMSG $chan :Global mesaj listesinde hic kayit bulunamadi."; return

    } else { putquick "PRIVMSG $chan :Global mesaj listesinin sonu..." 

   }

  }

 }

}
 

#########

# BITTI #

#########