ScanX global mesaj yardim. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Disparede · 06 Nisan 2009, 14:15

Selam üstadlar Scanx global mesaj atıyor ama karışık harflerden oluşuyor bunu nasıl düzeltebilirim yada düzenleyebilirim. iyi forumlar

TurkArkadas · 06 Nisan 2009, 16:06

ScanX.tcl Dosyasinda Karisik olan harfi arat bulursun o harfleri silip kendin ne yazmak istiyorsan yaz. Sonra botu telnetten kille

Disparede · 06 Nisan 2009, 20:00

Kod: Kodu kopyalamak için üzerine çift tıklayın!

bind pub - !globalat globalat:msg
proc globalat:msg {n u h c a} {
    global botnick admin_chan rgolo
    if {[onchan $n $admin_chan]==1} {
        set meth [rand 11]
        switch -- $meth {
        1 {
         set msj selam
         putserv "PRIVMSG operserv : global $msj"
        }
        2 {
         set msj slm
         putserv "PRIVMSG operserv : global $msj"
        }
        3 {
         set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
         putserv "PRIVMSG operserv : global $msj"
        }
        4 {
         set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
         putserv "PRIVMSG operserv : global $msj"
        }
        5 {
         set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
         putserv "PRIVMSG operserv : global $msj"
        }
        6 {
         set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
         putserv "PRIVMSG operserv : global $msj"
        }
        7 {
         set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
         putserv "PRIVMSG operserv : global $msj"
        }
        8 {
         set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
         putserv "PRIVMSG operserv : global $msj"
        }
        9 {
         set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
         putserv "PRIVMSG operserv : global $msj"
        }
        10 {
         set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
         putserv "PRIVMSG operserv : global $msj"
        }
       }
    }
}

if {![string match "*global_mesaj*" [timers]]} {
    timer [rand 20] global_mesaj
}
proc global_mesaj {} {
   global rgolo
    set meth [rand 11]
    switch -- $meth {
    1 {
     set msj selam
     putserv "PRIVMSG operserv : global $msj"
    }
    2 {
     set msj slm
     putserv "PRIVMSG operserv : global $msj"
    }
    3 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    4 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    5 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    6 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    7 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    8 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    9 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
    10 {
     set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
     putserv "PRIVMSG operserv : global $msj"
    }
      }
      timer [rand 20] global_mesaj
      return 1
}

kod burda

TurkArkadas · 06 Nisan 2009, 21:58

Kardeşim Senın vermiş oldugun kodun tam üstünde karişik harfler olmasi lazim böyle

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


set rgolo "ABCDF GHIJ KLMN PRS TUV YZabcdfgh ijkkl mnop rstu vyzABCDF GHIJ KLMN PRS TUV YZabcdfgh ijkkl mnop rstu vyzABCDF GHIJ KLMN PRS TUV YZabcdfgh ijkkl mnop rstu vyz0123 456789"
bind pub - !globalat globalat:msg
proc globalat:msg {n u h c a} {
 global botnick admin_chan rgolo server
 if {[onchan $n $admin_chan]==1} {

Sen burdaki karişik kelimeleri kendine gore duzenle Renklam KOntrol diye falan filan değişirsin.

Disparede · 06 Haziran 2009, 20:21

Yaptım olmadı yine eksik yazıyor. [20:20] -Global- ç yardım eden yokmu

Raw · 06 Haziran 2009, 22:05

ScanX.tcl içinde ;

set rgolo

olan satırı arat orada ki harflerden karışık olarak seçip global atıyor bot oradan ayarla kardeş

Disparede · 07 Haziran 2009, 19:25

set rgolo "ABCDF GHIJ KLMN PRS TUV YZabcdfgh ijkkl mnop rstu vyzABCDF GHIJ KLMN PRS TUV uzayıp gidiyor işte burda yaptım ama kabul etmedi [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] diyorum ama gösteriyor

Disparede · 09 Haziran 2009, 11:13

Disparede Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

set rgolo "ABCDF GHIJ KLMN PRS TUV YZabcdfgh ijkkl mnop rstu vyzABCDF GHIJ KLMN PRS TUV uzayıp gidiyor işte burda yaptım ama kabul etmedi [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] diyorum ama gösteriyor

yanlış yazmışım göstermiyor dieyecektim. yardım edecek biri yokmu arkadaşlar.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
scanx yardim	Tupac	Eggdrop, NeoStats, BNC	5	27 Temmuz 2013 15:59
Scanx global kanallar	Tupac	Eggdrop, NeoStats, BNC	3	26 Temmuz 2013 00:03
scanx Tcl yardim	Tupac	Eggdrop, NeoStats, BNC	3	14 Temmuz 2013 10:06
Scanx yardim	Tupac	Eggdrop, NeoStats, BNC	2	04 Haziran 2013 15:38
ScanX Tcl Düzenleme Yardim	TurkArkadas	Eggdrop, NeoStats, BNC	1	15 Eylül 2008 18:27

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.