Egitim bilgilerini kanala yansıtmak - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

tam1deLi · 10 Ocak 2009, 13:21

Ş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 |
}
}

Difuzyon · 10 Ocak 2009, 13:39

Ö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...

tam1deLi · 10 Ocak 2009, 14:51

Ş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 |
}
}

Difuzyon · 10 Ocak 2009, 15:53

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...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
access listesini kanala yansıtmak	alphae	mIRC Scripting Sorunları	3	31 Temmuz 2020 18:00
Nickserv identify bilgilerini kanala yansıtmak	wolera	IRCServices	3	24 Ocak 2017 15:55
Güncel Samode ayarlarını kanala yansıtmak	BlackForce	mIRC Scripting Sorunları	4	07 Aralık 2016 00:30
Servis Noticelerini Kanala Yansıtmak . ?	Eset	mIRC Scripting Sorunları	4	22 Nisan 2012 21:21
access dekileri kanala yansıtmak	sniper	mIRC Scripting Sorunları	7	16 Mart 2009 17:54

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.