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

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 10 Ocak 2009, 13:21   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Egitim bilgilerini kanala yansıtmak




Şimdi buradaki sorun kanala değilde statüse yansıtıyor bilgileri :S
tam olarak düzenleyebilecek biri varmı .


alias egitim1 {
if (%satir == $lines(egitim\egitim.txt)) { .timeroku off }
else { inc %satir | msg # $read(egitim\egitim.txt,%satir) }
}

alias egitim2 {
msg %egitim $read(egitim\egitim.txt,1)
set %satir $readn
.timeroku 0 2 egitim1
}

alias chanserv2 {
.msg # $read(egitim\chanserv.txt,1)
set %satir $readn
.timeroku 0 5 chanserv1
}
alias chanserv1 {
if (%satir == $lines(egitim\chanserv.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\chanserv.txt,%satir) }
}
alias Nickserv2 {
.msg # $read(egitim\nickserv.txt,1)
set %satir $readn
.timeroku 0 5 nickserv1
}
alias nickserv1 {
if (%satir == $lines(egitim\nickserv.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\nickserv.txt,%satir) }
}
alias memoserv2 {
.msg # $read(egitim\memoserv.txt,1)
set %satir $readn
.timeroku 0 5 memoserv1
}
alias memoserv1 {
if (%satir == $lines(egitim\memoserv.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\memoserv.txt,%satir) }
}
alias akick2 {
.msg # $read(egitim\akick.txt,1)
set %satir $readn
.timeroku 0 5 akick1
}
alias akick1 {
if (%satir == $lines(egitim\akick.txt)) { .timeroku off }
else { inc %satir |# $read(egitim\akick.txt,%satir) }
}
alias Bkanalkipi2 {
.msg # $read(egitim\Bkanalkipi.txt,1)
set %satir $readn
.timeroku 0 5 Bkanalkipi1
}
alias Bkanalkipi1 {
if (%satir == $lines(egitim\Bkanalkipi.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\Bkanalkipi.txt,%satir) }
}
alias ChanservLevels2 {
.msg # $read(egitim\ChanservLevels.txt,1)
set %satir $readn
.timeroku 0 10 ChanservLevels1
}
alias ChanservLevels1 {
if (%satir == $lines(egitim\ChanservLevels.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\ChanservLevels.txt,%satir) }
}
alias ChanservSET2 {
.msg # $read(egitim\ChanservSET.txt,1)
set %satir $readn
.timeroku 0 5 ChanservSET1
}
alias ChanservSET1 {
if (%satir == $lines(egitim\ChanservSET.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\ChanservSET.txt,%satir) }
}
alias fkanalkipi2 {
.msg # $read(egitim\fkanalkipi.txt,1)
set %satir $readn
.timeroku 0 5 fkanalkipi1
}
alias fkanalkipi1 {
if (%satir == $lines(egitim\fkanalkipi.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\fkanalkipi.txt,%satir) }
}
alias ignore2 {
.msg # $read(egitim\ignore.txt,1)
set %satir $readn
.timeroku 0 5 ignore1
}
alias ignore1 {
if (%satir == $lines(egitim\ignore.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\ignore.txt,%satir) }
}
alias Nickmodeleri2 {
.msg # $read(egitim\Nickmodeleri.txt,1)
set %satir $readn
.timeroku 0 5 Nickmodeleri1
}
alias Nickmodeleri1 {
if (%satir == $lines(egitim\Nickmodeleri.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\Nickmodeleri.txt,%satir) }
}
alias Kanalmodeleri2 {
.msg # $read(egitim\Kanalmodeleri.txt,1)
set %satir $readn
.timeroku 0 5 Kanalmodeleri1
}
alias Kanalmodeleri1 {
if (%satir == $lines(egitim\Kanalmodeleri.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\Kanalmodeleri.txt,%satir) }
}
alias List2 {
.msg # $read(egitim\List.txt,1)
set %satir $readn
.timeroku 0 5 List1
}
alias List1 {
if (%satir == $lines(egitim\List.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\List.txt,%satir) }
}
alias Version2 {
.msg # $read(egitim\Version.txt,1)
set %satir $readn
.timeroku 0 5 Version1
}
alias Version1 {
if (%satir == $lines(egitim\Version.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\Version.txt,%satir) }
}
alias Who2 {
.msg # $read(egitim\Who.txt,1)
set %satir $readn
.timeroku 0 5 Who1
}
alias Who1 {
if (%satir == $lines(egitim\Who.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\Who.txt,%satir) }
}
alias wildcard2 {
.msg # $read(egitim\wildcard.txt,1)
set %satir $readn
.timeroku 0 5 wildcard1
}
alias wildcard1 {
if (%satir == $lines(egitim\wildcard.txt)) { .timeroku off }
else { inc %satir | # $read(egitim\wildcard.txt,%satir) }
}
on *:text:*:#: {
if ($1 == !egitim) {
.egitim2
}
if ($1 == !chanserv) {
.chanserv2
}
if ($1 == !nickserv) {
.nickserv2
}
if ($1 == !memoserv) {
.memoserv2
}
if ($1 == !akick) {
.akick2
}
if ($1 == !bkanalkipi) {
.bkanalkipi2
}
if ($1 == !Levels) {
.ChanservLevels2
}
if ($1 == !set) {
.chanservset2
}
if ($1 == !fkanalkipi) {
.fkanalkipi2
}
if ($1 == !Ignore) {
.ignore2
}
if ($1 == !Nickmodeleri) {
.nickmodeleri2
}
if ($1 == !Kanalmodeleri) {
.kanalmodeleri2
}
if ($1 == !list) {
.list2
}
if ($1 == !version) {
.version2
}
if ($1 == !Who) {
.who2
}
if ($1 == !wildcard) {
.wildcard2
}
if ($1 == !dur) {
msg $chan Egitim $nick Tarafından Durduruldu. | .timeroku off |
}
}

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 10 Ocak 2009, 13:39   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Egitim bilgilerini kanala yansıtmak




Örnek:
# $read(egitim\Version.txt,%satir)

Aliaslar içinde okumayı nereye yapacağını belirtmemişsin.

msg #kanal $read(egitim\Version.txt,%satir)
şeklinde tüm aliaslarda # işareti geçen yerleri bu şekilde düzeltmelisin.
Hedef belirtmelisin ki , okuma işlemini yapsın...

 
Alıntı ile Cevapla

Alt 10 Ocak 2009, 14:51   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Egitim bilgilerini kanala yansıtmak




Şimdiki sorunda 2 , 3 farklı kanalda kullanmaya kalkınca hepsine aynı anda eğitim verdirmesi istedim kanalda vermesini istiyorum yani hangi kanala yazarsam orda versin ..


alias egitim1 {
if (%satir == $lines(egitim\egitim.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\egitim.txt,%satir) }
}

alias egitim2 {
msg %egitim $read(egitim\egitim.txt,1)
set %satir $readn
.timeroku 0 2 egitim1
}

alias chanserv2 {
.msg #x1Ly $read(egitim\chanserv.txt,1)
set %satir $readn
.timeroku 0 5 chanserv1
}
alias chanserv1 {
if (%satir == $lines(egitim\chanserv.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\chanserv.txt,%satir) }
}
alias Nickserv2 {
.msg #x1Ly $read(egitim\nickserv.txt,1)
set %satir $readn
.timeroku 0 5 nickserv1
}
alias nickserv1 {
if (%satir == $lines(egitim\nickserv.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\nickserv.txt,%satir) }
}
alias memoserv2 {
.msg #x1Ly $read(egitim\memoserv.txt,1)
set %satir $readn
.timeroku 0 5 memoserv1
}
alias memoserv1 {
if (%satir == $lines(egitim\memoserv.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\memoserv.txt,%satir) }
}
alias akick2 {
.msg #x1Ly $read(egitim\akick.txt,1)
set %satir $readn
.timeroku 0 5 akick1
}
alias akick1 {
if (%satir == $lines(egitim\akick.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\akick.txt,%satir) }
}
alias Bkanalkipi2 {
.msg #x1Ly $read(egitim\Bkanalkipi.txt,1)
set %satir $readn
.timeroku 0 5 Bkanalkipi1
}
alias Bkanalkipi1 {
if (%satir == $lines(egitim\Bkanalkipi.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\Bkanalkipi.txt,%satir) }
}
alias ChanservLevels2 {
.msg #x1Ly $read(egitim\ChanservLevels.txt,1)
set %satir $readn
.timeroku 0 10 ChanservLevels1
}
alias ChanservLevels1 {
if (%satir == $lines(egitim\ChanservLevels.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\ChanservLevels.txt,%satir) }
}
alias ChanservSET2 {
.msg #x1Ly $read(egitim\ChanservSET.txt,1)
set %satir $readn
.timeroku 0 5 ChanservSET1
}
alias ChanservSET1 {
if (%satir == $lines(egitim\ChanservSET.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\ChanservSET.txt,%satir) }
}
alias fkanalkipi2 {
.msg #x1Ly $read(egitim\fkanalkipi.txt,1)
set %satir $readn
.timeroku 0 5 fkanalkipi1
}
alias fkanalkipi1 {
if (%satir == $lines(egitim\fkanalkipi.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\fkanalkipi.txt,%satir) }
}
alias ignore2 {
.msg #x1Ly $read(egitim\ignore.txt,1)
set %satir $readn
.timeroku 0 5 ignore1
}
alias ignore1 {
if (%satir == $lines(egitim\ignore.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\ignore.txt,%satir) }
}
alias Nickmodeleri2 {
.msg #x1Ly $read(egitim\Nickmodeleri.txt,1)
set %satir $readn
.timeroku 0 5 Nickmodeleri1
}
alias Nickmodeleri1 {
if (%satir == $lines(egitim\Nickmodeleri.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\Nickmodeleri.txt,%satir) }
}
alias Kanalmodeleri2 {
.msg #x1Ly $read(egitim\Kanalmodeleri.txt,1)
set %satir $readn
.timeroku 0 5 Kanalmodeleri1
}
alias Kanalmodeleri1 {
if (%satir == $lines(egitim\Kanalmodeleri.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\Kanalmodeleri.txt,%satir) }
}
alias List2 {
.msg #x1Ly $read(egitim\List.txt,1)
set %satir $readn
.timeroku 0 5 List1
}
alias List1 {
if (%satir == $lines(egitim\List.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\List.txt,%satir) }
}
alias Version2 {
.msg #x1Ly $read(egitim\Version.txt,1)
set %satir $readn
.timeroku 0 5 Version1
}
alias Version1 {
if (%satir == $lines(egitim\Version.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\Version.txt,%satir) }
}
alias Who2 {
.msg #x1Ly $read(egitim\Who.txt,1)
set %satir $readn
.timeroku 0 5 Who1
}
alias Who1 {
if (%satir == $lines(egitim\Who.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\Who.txt,%satir) }
}
alias wildcard2 {
.msg #x1Ly $read(egitim\wildcard.txt,1)
set %satir $readn
.timeroku 0 5 wildcard1
}
alias wildcard1 {
if (%satir == $lines(egitim\wildcard.txt)) { .timeroku off }
else { inc %satir | msg #x1Ly,#x1LyEgitim $read(egitim\wildcard.txt,%satir) }
}
on *:text:*:#: {
if ($1 == !egitim) {
.egitim2
}
if ($1 == !chanserv) {
.chanserv2
}
if ($1 == !nickserv) {
.nickserv2
}
if ($1 == !memoserv) {
.memoserv2
}
if ($1 == !akick) {
.akick2
}
if ($1 == !bkanalkipi) {
.bkanalkipi2
}
if ($1 == !Levels) {
.ChanservLevels2
}
if ($1 == !set) {
.chanservset2
}
if ($1 == !fkanalkipi) {
.fkanalkipi2
}
if ($1 == !Ignore) {
.ignore2
}
if ($1 == !Nickmodeleri) {
.nickmodeleri2
}
if ($1 == !Kanalmodeleri) {
.kanalmodeleri2
}
if ($1 == !list) {
.list2
}
if ($1 == !version) {
.version2
}
if ($1 == !Who) {
.who2
}
if ($1 == !wildcard) {
.wildcard2
}
if ($1 == !dur) {
msg $chan Egitim $nick Tarafından Durduruldu. | .timeroku off |
}
}

 
Alıntı ile Cevapla

Alt 10 Ocak 2009, 15:53   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Egitim bilgilerini kanala yansıtmak




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias egitim1 { if (%satir == $lines(egitim\egitim.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\egitim.txt,%satir) } } alias egitim2 { msg %egitimkanal $read(egitim\egitim.txt,1) set %satir $readn .timeroku 0 2 egitim1 } alias chanserv2 { msg %egitimkanal $read(egitim\chanserv.txt,1) set %satir $readn .timeroku 0 5 chanserv1 } alias chanserv1 { if (%satir == $lines(egitim\chanserv.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\chanserv.txt,%satir) } } alias Nickserv2 { msg %egitimkanal $read(egitim\nickserv.txt,1) set %satir $readn .timeroku 0 5 nickserv1 } alias nickserv1 { if (%satir == $lines(egitim\nickserv.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\nickserv.txt,%satir) } } alias memoserv2 { msg %egitimkanal $read(egitim\memoserv.txt,1) set %satir $readn .timeroku 0 5 memoserv1 } alias memoserv1 { if (%satir == $lines(egitim\memoserv.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\memoserv.txt,%satir) } } alias akick2 { msg %egitimkanal $read(egitim\akick.txt,1) set %satir $readn .timeroku 0 5 akick1 } alias akick1 { if (%satir == $lines(egitim\akick.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\akick.txt,%satir) } } alias Bkanalkipi2 { msg %egitimkanal $read(egitim\Bkanalkipi.txt,1) set %satir $readn .timeroku 0 5 Bkanalkipi1 } alias Bkanalkipi1 { if (%satir == $lines(egitim\Bkanalkipi.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\Bkanalkipi.txt,%satir) } } alias ChanservLevels2 { msg %egitimkanal $read(egitim\ChanservLevels.txt,1) set %satir $readn .timeroku 0 10 ChanservLevels1 } alias ChanservLevels1 { if (%satir == $lines(egitim\ChanservLevels.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\ChanservLevels.txt,%satir) } } alias ChanservSET2 { msg %egitimkanal $read(egitim\ChanservSET.txt,1) set %satir $readn .timeroku 0 5 ChanservSET1 } alias ChanservSET1 { if (%satir == $lines(egitim\ChanservSET.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\ChanservSET.txt,%satir) } } alias fkanalkipi2 { msg %egitimkanal $read(egitim\fkanalkipi.txt,1) set %satir $readn .timeroku 0 5 fkanalkipi1 } alias fkanalkipi1 { if (%satir == $lines(egitim\fkanalkipi.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\fkanalkipi.txt,%satir) } } alias ignore2 { msg %egitimkanal $read(egitim\ignore.txt,1) set %satir $readn .timeroku 0 5 ignore1 } alias ignore1 { if (%satir == $lines(egitim\ignore.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\ignore.txt,%satir) } } alias Nickmodeleri2 { msg %egitimkanal $read(egitim\Nickmodeleri.txt,1) set %satir $readn .timeroku 0 5 Nickmodeleri1 } alias Nickmodeleri1 { if (%satir == $lines(egitim\Nickmodeleri.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\Nickmodeleri.txt,%satir) } } alias Kanalmodeleri2 { msg %egitimkanal $read(egitim\Kanalmodeleri.txt,1) set %satir $readn .timeroku 0 5 Kanalmodeleri1 } alias Kanalmodeleri1 { if (%satir == $lines(egitim\Kanalmodeleri.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\Kanalmodeleri.txt,%satir) } } alias List2 { msg %egitimkanal $read(egitim\List.txt,1) set %satir $readn .timeroku 0 5 List1 } alias List1 { if (%satir == $lines(egitim\List.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\List.txt,%satir) } } alias Version2 { msg %egitimkanal $read(egitim\Version.txt,1) set %satir $readn .timeroku 0 5 Version1 } alias Version1 { if (%satir == $lines(egitim\Version.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\Version.txt,%satir) } } alias Who2 { msg %egitimkanal $read(egitim\Who.txt,1) set %satir $readn .timeroku 0 5 Who1 } alias Who1 { if (%satir == $lines(egitim\Who.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\Who.txt,%satir) } } alias wildcard2 { msg %egitimkanal $read(egitim\wildcard.txt,1) set %satir $readn .timeroku 0 5 wildcard1 } alias wildcard1 { if (%satir == $lines(egitim\wildcard.txt)) { .timeroku off } else { inc %satir | msg %egitimkanal $read(egitim\wildcard.txt,%satir) } } on *:text:*:#: { if ($1 == !egitim) { set $+(%,egitimkanal) $chan | .egitim2 } if ($1 == !chanserv) { set $+(%,egitimkanal) $chan | .chanserv2 } if ($1 == !nickserv) { set $+(%,egitimkanal) $chan | .nickserv2 } if ($1 == !memoserv) { set $+(%,egitimkanal) $chan | .memoserv2 } if ($1 == !akick) { set $+(%,egitimkanal) $chan | .akick2 } if ($1 == !bkanalkipi) { set $+(%,egitimkanal) $chan | .bkanalkipi2 } if ($1 == !Levels) { set $+(%,egitimkanal) $chan | .ChanservLevels2 } if ($1 == !set) { set $+(%,egitimkanal) $chan | .chanservset2 } if ($1 == !fkanalkipi) { set $+(%,egitimkanal) $chan | .fkanalkipi2 } if ($1 == !Ignore) { set $+(%,egitimkanal) $chan | .ignore2 } if ($1 == !Nickmodeleri) { set $+(%,egitimkanal) $chan | .nickmodeleri2 } if ($1 == !Kanalmodeleri) { set $+(%,egitimkanal) $chan | .kanalmodeleri2 } if ($1 == !list) { set $+(%,egitimkanal) $chan | .list2 } if ($1 == !version) { set $+(%,egitimkanal) $chan | .version2 } if ($1 == !Who) { set $+(%,egitimkanal) $chan | .who2 } if ($1 == !wildcard) { set $+(%,egitimkanal) $chan | .wildcard2 } if ($1 == !dur) { msg $chan Egitim $nick Tarafından Durduruldu. | .timeroku off } }

Hangi kanalda !komut yazılırsa o kanalda gösterecektir.Aynı anda 2. komut (!dur hariç) uygulanırsa işler karışır.Aynı şekilde başka bir kanalda eğitim esnasında !komut yazılırsa karışır.Botunuzu 1 kanalda bulundurmanız daha doğru olur.

Bilginize...

 
Alıntı ile Cevapla

Cevapla

Etiketler
bilgilerini, egitim, kanala, mirc download, mirc indir, sorun, yansıtmak


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Servis Noticelerini Kanala Yansıtmak . ? Eset mIRC Scripting Sorunları 4 22 Nisan 2012 21:21
Giriş olduğunda whois bilgilerini başka kanala aktarmak Web mIRC Scripting Sorunları 2 15 Ekim 2010 13:23
access dekileri kanala yansıtmak sniper mIRC Scripting Sorunları 7 16 Mart 2009 17:54
sitedeki bilgiyi kanala yansıtmak nasıl yapicaz EEkreMM mIRC Scripting Sorunları 4 02 Ekim 2007 16:47
Cr de statuste olan herşeyi bir kanala yansıtmak AsiL mIRC Scripting Sorunları 5 06 Mart 2007 11:32