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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 03 Mayıs 2007, 16:36   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
kanal genelinden kendim texten egitim verebilmem




arkadaşlar benim sorunum şimdi helper egitimi için bir bot atıyorum kanala ve kanal genelinde !chanserv !nickserv gibi vs vs yazdımmı bot içinde olan texsleri 5 saniye arayla satırları okuyor yani burda sorun yok ben istiyorumki bu texkleri bot degilde ben kendi scrptime yüklesem popus veya başka bir yerede konuları yazsam tıklayınca ben anlatıyormuşum gibi aynı botta oldugu gibi satır arası 5 saniye aralıklarla gelmesi ve dur diyincede botta oldugu gibi durabilmesi aşagıya elimdeki botun kodunu yazıyorum bana yardımcı olursanız sevinim

KOD::::

alias egitim {
msg %egitim $read(egitim\egitim.txt,1)
set %satir $readn
.timeroku 0 2 egitim1
}
alias egitim1 {
if (%satir == $lines(egitim\egitim.txt)) { .timeroku off }
else { inc %satir | msg %egitim $read(egitim\egitim.txt,%satir) }
}
alias chanserv {
msg #egitim $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 %egitim $read(egitim\chanserv.txt,%satir) }
}
alias Nickserv {
msg %egitim $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 %egitim $read(egitim\nickserv.txt,%satir) }
}
alias memoserv {
msg %egitim $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 %egitim $read(egitim\memoserv.txt,%satir) }
}
alias akick {
msg %egitim $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 %egitim $read(egitim\akick.txt,%satir) }
}
alias Bkanalkipi {
msg %egitim $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 %egitim $read(egitim\Bkanalkipi.txt,%satir) }
}
alias ChanservLevels {
msg %egitim $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 %egitim $read(egitim\ChanservLevels.txt,%satir) }
}
alias ChanservSET {
msg %egitim $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 %egitim $read(egitim\ChanservSET.txt,%satir) }
}
alias fkanalkipi {
msg %egitim $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 %egitim $read(egitim\fkanalkipi.txt,%satir) }
}
alias ignore {
msg %egitim $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 %egitim $read(egitim\ignore.txt,%satir) }
}
alias Nickmodeleri {
msg %egitim $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 %egitim $read(egitim\Nickmodeleri.txt,%satir) }
}
alias Kanalmodeleri {
msg %egitim $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 %egitim $read(egitim\Kanalmodeleri.txt,%satir) }
}
alias List {
msg %egitim $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 %egitim $read(egitim\List.txt,%satir) }
}
alias Version {
msg %egitim $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 %egitim $read(egitim\Version.txt,%satir) }
}
alias Who {
msg %egitim $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 %egitim $read(egitim\Who.txt,%satir) }
}
alias wildcard {
msg %egitim $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 %egitim $read(egitim\wildcard.txt,%satir) }
}
alias Client {
msg %egitim $read(egitim\Client.txt,1)
set %satir $readn
.timeroku 0 5 Client1
}
alias Client1 {
if (%satir == $lines(egitim\Client.txt)) { .timeroku off }
else { inc %satir | msg %egitim $read(egitim\Client.txt,%satir) }
}
on *:text:*:%egitim: {
if ($1 == !egitim) {
.egitim
}
if ($1 == !chanserv) {
.chanserv
}
if ($1 == !nickserv) {
.nickserv
}
if ($1 == !memoserv) {
.memoserv
}
if ($1 == !akick) {
.akick
}
if ($1 == !bkanalkipi) {
.bkanalkipi
}
if ($1 == !Levels) {
.ChanservLevels
}
if ($1 == !set) {
.chanservset
}
if ($1 == !fkanalkipi) {
.fkanalkipi
}
if ($1 == !Ignore) {
.ignore
}
if ($1 == !Nickmodeleri) {
.nickmodeleri
}
if ($1 == !Kanalmodeleri) {
.kanalmodeleri
}
if ($1 == !list) {
.list
}
if ($1 == !version) {
.version
}
if ($1 == !Who) {
.who
}
if ($1 == !wildcard) {
.wildcard
}
if ($1 == !Client) {
.Client
}
if ($1 == !dur) {
.timeroku off
}
}


BUDA ACILIŞ MENÜSÜ TABİ TEX DOSYALARINI VERMEYE GEREK YOK DİYE VERMİYORUM
KOD::::::::

dialog egitim {
title "IRCd/Services Eğitim Botu"
size -1 -1 140 144
option dbu
icon 17.ico, 0
text "Nick", 1, 10 33 35 8
text "Şifre [ Varsa ]", 2, 10 57 35 8
text "Fullname", 3, 10 45 35 8
text "Eğitim Kanalı", 4, 10 72 35 8
text "Sunucu Adı", 5, 10 89 35 8
edit "", 6, 65 32 50 10
edit "", 7, 65 45 50 10
edit "135791357913579", 8, 65 59 50 10 pass
edit "#", 9, 65 73 50 10
edit "IRC.mirctr.org", 10, 65 88 50 10
button "Tamam", 11, 49 108 37 12, default flat multi
}
on *:dialog:egitim:*:*:{
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog $dname
dll mdx.dll SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 ,21,23,22 13 700 Comic Sans MS
if $devent == edit {
set %nick $did(6)
set %fullname $did(7)
set %pass $did(8)
set %egitim $did(9)
set %serv $did(10)
}
if $devent == init {
did -a egitim 6 $iif(%nick != $null,%nick,Nickiniz)
did -a egitim 7 $iif(%fullname != $null,%fullname,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
}
if ($devent == sclick) {
if ($did == 11) {
.nick %nick
.fullname %fullname
.timer 1 3 /server %serv
.dialog -x egitim egitim
}
if ($did == 12) {
.run http:xxxxxxxxx
}
}
}
on *:start:{ .timer 1 2 /dialog -m egitim egitim }
on *:connect:{ .identify %pass | join %egitim }
on *:join:%egitim:{
if ($nick == $me) {
.topic %egitim 12,0 Arkadaşlar !egitim yazarak başlayabilrisniz.Başrılar dilerim
}
}

yardımlarının için şimdiden tşk ederim saygılar
arkadaşlar benim sorunum şimdi helper egitimi için bir bot atıyorum kanala ve kanal genelinde !chanserv !nickserv gibi vs vs yazdımmı bot içinde olan texsleri 5 saniye arayla satırları okuyor yani burda sorun yok ben istiyorumki bu texkleri bot degilde ben kendi scrptime yüklesem popus veya başka bir yerede konuları yazsam tıklayınca ben anlatıyormuşum gibi aynı botta oldugu gibi satır arası 5 saniye aralıklarla gelmesi ve dur diyincede botta oldugu gibi durabilmesi aşagıya elimdeki botun kodunu yazıyorum bana yardımcı olursanız sevinim

KOD::::

alias egitim {
msg %egitim $read(egitim\egitim.txt,1)
set %satir $readn
.timeroku 0 2 egitim1
}
alias egitim1 {
if (%satir == $lines(egitim\egitim.txt)) { .timeroku off }
else { inc %satir | msg %egitim $read(egitim\egitim.txt,%satir) }
}
alias chanserv {
msg #egitim $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 %egitim $read(egitim\chanserv.txt,%satir) }
}
alias Nickserv {
msg %egitim $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 %egitim $read(egitim\nickserv.txt,%satir) }
}
alias memoserv {
msg %egitim $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 %egitim $read(egitim\memoserv.txt,%satir) }
}
alias akick {
msg %egitim $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 %egitim $read(egitim\akick.txt,%satir) }
}
alias Bkanalkipi {
msg %egitim $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 %egitim $read(egitim\Bkanalkipi.txt,%satir) }
}
alias ChanservLevels {
msg %egitim $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 %egitim $read(egitim\ChanservLevels.txt,%satir) }
}
alias ChanservSET {
msg %egitim $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 %egitim $read(egitim\ChanservSET.txt,%satir) }
}
alias fkanalkipi {
msg %egitim $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 %egitim $read(egitim\fkanalkipi.txt,%satir) }
}
alias ignore {
msg %egitim $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 %egitim $read(egitim\ignore.txt,%satir) }
}
alias Nickmodeleri {
msg %egitim $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 %egitim $read(egitim\Nickmodeleri.txt,%satir) }
}
alias Kanalmodeleri {
msg %egitim $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 %egitim $read(egitim\Kanalmodeleri.txt,%satir) }
}
alias List {
msg %egitim $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 %egitim $read(egitim\List.txt,%satir) }
}
alias Version {
msg %egitim $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 %egitim $read(egitim\Version.txt,%satir) }
}
alias Who {
msg %egitim $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 %egitim $read(egitim\Who.txt,%satir) }
}
alias wildcard {
msg %egitim $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 %egitim $read(egitim\wildcard.txt,%satir) }
}
alias Client {
msg %egitim $read(egitim\Client.txt,1)
set %satir $readn
.timeroku 0 5 Client1
}
alias Client1 {
if (%satir == $lines(egitim\Client.txt)) { .timeroku off }
else { inc %satir | msg %egitim $read(egitim\Client.txt,%satir) }
}
on *:text:*:%egitim: {
if ($1 == !egitim) {
.egitim
}
if ($1 == !chanserv) {
.chanserv
}
if ($1 == !nickserv) {
.nickserv
}
if ($1 == !memoserv) {
.memoserv
}
if ($1 == !akick) {
.akick
}
if ($1 == !bkanalkipi) {
.bkanalkipi
}
if ($1 == !Levels) {
.ChanservLevels
}
if ($1 == !set) {
.chanservset
}
if ($1 == !fkanalkipi) {
.fkanalkipi
}
if ($1 == !Ignore) {
.ignore
}
if ($1 == !Nickmodeleri) {
.nickmodeleri
}
if ($1 == !Kanalmodeleri) {
.kanalmodeleri
}
if ($1 == !list) {
.list
}
if ($1 == !version) {
.version
}
if ($1 == !Who) {
.who
}
if ($1 == !wildcard) {
.wildcard
}
if ($1 == !Client) {
.Client
}
if ($1 == !dur) {
.timeroku off
}
}


BUDA ACILIŞ MENÜSÜ TABİ TEX DOSYALARINI VERMEYE GEREK YOK DİYE VERMİYORUM
KOD::::::::

dialog egitim {
title "IRCd/Services Eğitim Botu"
size -1 -1 140 144
option dbu
icon 17.ico, 0
text "Nick", 1, 10 33 35 8
text "Şifre [ Varsa ]", 2, 10 57 35 8
text "Fullname", 3, 10 45 35 8
text "Eğitim Kanalı", 4, 10 72 35 8
text "Sunucu Adı", 5, 10 89 35 8
edit "", 6, 65 32 50 10
edit "", 7, 65 45 50 10
edit "135791357913579", 8, 65 59 50 10 pass
edit "#", 9, 65 73 50 10
edit "IRC.mirctr.org", 10, 65 88 50 10
button "Tamam", 11, 49 108 37 12, default flat multi
}
on *:dialog:egitim:*:*:{
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog $dname
dll mdx.dll SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 ,21,23,22 13 700 Comic Sans MS
if $devent == edit {
set %nick $did(6)
set %fullname $did(7)
set %pass $did(8)
set %egitim $did(9)
set %serv $did(10)
}
if $devent == init {
did -a egitim 6 $iif(%nick != $null,%nick,Nickiniz)
did -a egitim 7 $iif(%fullname != $null,%fullname,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
}
if ($devent == sclick) {
if ($did == 11) {
.nick %nick
.fullname %fullname
.timer 1 3 /server %serv
.dialog -x egitim egitim
}
if ($did == 12) {
.run http:xxxxxxxxx
}
}
}
on *:start:{ .timer 1 2 /dialog -m egitim egitim }
on *:connect:{ .identify %pass | join %egitim }
on *:join:%egitim:{
if ($nick == $me) {
.topic %egitim 12,0 Arkadaşlar !egitim yazarak başlayabilrisniz.Başrılar dilerim
}
}

yardımlarının için şimdiden tşk ederim saygılar
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 03 Mayıs 2007, 16:48   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Yanıt: kanal genelinden kendim texten egitim verebilmem




menu channel {
Egitim
.Nickserv
..Baslat:nickserv
..Durdur:nickserv1
.Chanserv
..Baslat:chanserv
..Durdur:chanserv1
.Memoserv
..
..
.
..
..
}

kanala sag tikladiginda gelicek olan menu icin.Remote bölümüne eklemelisin
popupsla bu sekilde olabilir noktalari cogalttikca alt menu haline geliyor.

 
Alıntı ile Cevapla

Alt 03 Mayıs 2007, 18:34   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: Yanıt: kanal genelinden kendim texten egitim verebilmem




mikrop Nickli Üyeden Alıntı
menu channel {
Egitim
.Nickserv
..Baslat:nickserv
..Durdur:nickserv1
.Chanserv
..Baslat:chanserv
..Durdur:chanserv1
.Memoserv
..
..
.
..
..
}

kanala sag tikladiginda gelicek olan menu icin.Remote bölümüne eklemelisin
popupsla bu sekilde olabilir noktalari cogalttikca alt menu haline geliyor.


ustam tşk ederim yanlız bir sorun var durdur diyince devam ediyor yani durmuyor yardımcı olursan onada tşk ederim durduramassam cok komik duruma düşecem yardımların için şimdiden tşk ler

 
Alıntı ile Cevapla

Alt 03 Mayıs 2007, 21:09   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Yanıt: kanal genelinden kendim texten egitim verebilmem




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


hocam durdurma kodlari 1 li olanlar yani baslatan nickserv se durduran nickserv1 bu senin calisan kodlarin ben dokunmadim onlara normal botta calisiyolarsa bunda da calisirlar elbet popups a bi bastan sona bi bak derim

 
Alıntı ile Cevapla

Alt 05 Mayıs 2007, 11:14   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: Yanıt: kanal genelinden kendim texten egitim verebilmem




mikrop Nickli Üyeden Alıntı
alias egitim {
msg %egitim $read(egitim\egitim.txt,1)
set %satir $readn
.timeroku 0 2 egitim1
}
alias egitim1 {
if (%satir == $lines(egitim\egitim.txt)) { .timeroku off }
else { inc %satir | msg %egitim $read(egitim\egitim.txt,%satir) }
}


hocam durdurma kodlari 1 li olanlar yani baslatan nickserv se durduran nickserv1 bu senin calisan kodlarin ben dokunmadim onlara normal botta calisiyolarsa bunda da calisirlar elbet popups a bi bastan sona bi bak derim



ustam ilgin için tşk ederim dedigin gibi yerde degiştim yine sonuc degişmedi şöyle bir yöntem buldum bende saglık degil ama durduruyor

menu channel {
<- Egitim->
.Nickserv
..Baslat:nickserv
..Durdur:timeroku off
.Chanserv
..Baslat:chanserv
..Durdur: timeroku off
.memoserv
..Baslat:memoserv
..Durdur:timeroku off
.akick
..Baslat:akick
..Durdur: timeroku off
.Bkanalkipi
..Baslat
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kanalkipi
..Durdur:timeroku off

}

böyle devam ediyor
şöyle bir şey istesem mümkünmü durduryorum ama yarım kaldıgım konudan devam edebilme durumum
yardım ve ilginm için tşk ederim

 
Alıntı ile Cevapla

Alt 05 Mayıs 2007, 18:16   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: kanal genelinden kendim texten egitim verebilmem




menu channel {
<- Egitim->
.Nickserv
..Baslat:nickserv
..Durdur:timeroku off
.Chanserv
..Baslat:chanserv
..Durdur: timeroku off
.memoserv
..Baslat:memoserv
..Durdur:timeroku off
.akick
..Baslat:akick
..Durdur: timeroku off
.Bkanalkipi
..Baslat
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kanalkipi
..Durdur:timeroku off

}

Bunun yerine;

Nasıl olsa tüm eğitimleri aynı komutla durduruyorsun yani timeroku yu kapatmakla. O sebeple "Durdur" tüm eğitimlerin, her birine ayrı ayrı alt menüsüne koyacağına ana menüye 1 kez koyabilirsin. Hem senin açından daha kolay olur hemde görüntü kirliliği olmaz(Bence!)..

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu channel { <- Egitim-> .Nickserv ..Baslat:nickserv .Chanserv ..Baslat:chanserv .memoserv ..Baslat:memoserv .akick ..Baslat:akick .Bkanalkipi ..Baslat:Bkanalkipi .Aktif Eğitimi Duraklat:/timeroku -p .Eğitime Devam:/timeroku -r }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
mIRC Help!! The -pr resume a switches pause and timer respectively.

Yani;
/timeradı -p (Duraklatır)
/timeradı -r (Devam Ettirir)

Aynı zamanda, Eğer duraklatma ve devam ettirmek gibi birşey istiyorsan, eğitimi durduran aliaslarını yani, örneğin;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias Version1 { if (%satir == $lines(egitim\Version.txt)) { .timeroku off } else { inc %satir | msg %egitim $read(egitim\Version.txt,%satir) } }

{ ".timeroku off" } kısımlarını "timeroku -p" ile değiştirmelisin.

Sorununu çözer ve işine yarar umarım..


Konu AyEsBiBe tarafından (05 Mayıs 2007 Saat 18:21 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 05 Mayıs 2007, 19:02   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: kanal genelinden kendim texten egitim verebilmem




AyEsBiBe cok teşekkür ederim yaptım oldu yanlız anlamadıgım bir olay var mesela mırca girer girmez nick servden başlıyor ancak ben durdurunca duruyor yani ben başlat demeden otomatik ilk konudan başlıyor bir fikrin varmı bu konuda ilgin için tşk ederim

 
Alıntı ile Cevapla

Alt 05 Mayıs 2007, 19:08   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: kanal genelinden kendim texten egitim verebilmem




Kodun en son halinin tamamını tekrar yazarsan ayrıcalıklı inceleyip sorunu buluruz sanırım..

 
Alıntı ile Cevapla

Alt 05 Mayıs 2007, 20:40   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: kanal genelinden kendim texten egitim verebilmem




AyEsBiBe Nickli Üyeden Alıntı
Kodun en son halinin tamamını tekrar yazarsan ayrıcalıklı inceleyip sorunu buluruz sanırım..

kod:
alias egitim {
msg %egitim $read(egitim\egitim.txt,1)
set %satir $readn
.timeroku 0 2 egitim1
}
alias egitim1 {
if (%satir == $lines(egitim\egitim.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\egitim.txt,%satir) }
}
alias chanserv {
msg #egitim $read(egitim\chanserv.txt,1)
set %satir $readn
.timeroku 0 5 chanserv1
}
alias chanserv1 {
if (%satir == $lines(egitim\chanserv.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\chanserv.txt,%satir) }
}
alias Nickserv {
msg %egitim $read(egitim\nickserv.txt,1)
set %satir $readn
.timeroku 0 5 nickserv1
}
alias nickserv1 {
if (%satir == $lines(egitim\nickserv.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\nickserv.txt,%satir) }
}
alias memoserv {
msg %egitim $read(egitim\memoserv.txt,1)
set %satir $readn
.timeroku 0 5 memoserv1
}
alias memoserv1 {
if (%satir == $lines(egitim\memoserv.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\memoserv.txt,%satir) }
}
alias akick {
msg %egitim $read(egitim\akick.txt,1)
set %satir $readn
.timeroku 0 5 akick1
}
alias akick1 {
if (%satir == $lines(egitim\akick.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\akick.txt,%satir) }
}
alias Bkanalkipi {
msg %egitim $read(egitim\Bkanalkipi.txt,1)
set %satir $readn
.timeroku 0 5 Bkanalkipi1
}
alias Bkanalkipi1 {
if (%satir == $lines(egitim\Bkanalkipi.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\Bkanalkipi.txt,%satir) }
}
alias ChanservLevels {
msg %egitim $read(egitim\ChanservLevels.txt,1)
set %satir $readn
.timeroku 0 10 ChanservLevels1
}
alias ChanservLevels1 {
if (%satir == $lines(egitim\ChanservLevels.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\ChanservLevels.txt,%satir) }
}
alias ChanservSET {
msg %egitim $read(egitim\ChanservSET.txt,1)
set %satir $readn
.timeroku 0 5 ChanservSET1
}
alias ChanservSET1 {
if (%satir == $lines(egitim\ChanservSET.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\ChanservSET.txt,%satir) }
}
alias fkanalkipi {
msg %egitim $read(egitim\fkanalkipi.txt,1)
set %satir $readn
.timeroku 0 5 fkanalkipi1
}
alias fkanalkipi1 {
if (%satir == $lines(egitim\fkanalkipi.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\fkanalkipi.txt,%satir) }
}
alias ignore {
msg %egitim $read(egitim\ignore.txt,1)
set %satir $readn
.timeroku 0 5 ignore1
}
alias ignore1 {
if (%satir == $lines(egitim\ignore.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\ignore.txt,%satir) }
}
alias Nickmodeleri {
msg %egitim $read(egitim\Nickmodeleri.txt,1)
set %satir $readn
.timeroku 0 5 Nickmodeleri1
}
alias Nickmodeleri1 {
if (%satir == $lines(egitim\Nickmodeleri.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\Nickmodeleri.txt,%satir) }
}
alias Kanalmodeleri {
msg %egitim $read(egitim\Kanalmodeleri.txt,1)
set %satir $readn
.timeroku 0 5 Kanalmodeleri1
}
alias Kanalmodeleri1 {
if (%satir == $lines(egitim\Kanalmodeleri.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\Kanalmodeleri.txt,%satir) }
}
alias List {
msg %egitim $read(egitim\List.txt,1)
set %satir $readn
.timeroku 0 5 List1
}
alias List1 {
if (%satir == $lines(egitim\List.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\List.txt,%satir) }
}
alias Version {
msg %egitim $read(egitim\Version.txt,1)
set %satir $readn
.timeroku 0 5 Version1
}
alias Version1 {
if (%satir == $lines(egitim\Version.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\Version.txt,%satir) }
}
alias Who {
msg %egitim $read(egitim\Who.txt,1)
set %satir $readn
.timeroku 0 5 Who1
}
alias Who1 {
if (%satir == $lines(egitim\Who.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\Who.txt,%satir) }
}
alias wildcard {
msg %egitim $read(egitim\wildcard.txt,1)
set %satir $readn
.timeroku 0 5 wildcard1
}
alias wildcard1 {
if (%satir == $lines(egitim\wildcard.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\wildcard.txt,%satir) }
}
alias Client {
msg %egitim $read(egitim\Client.txt,1)
set %satir $readn
.timeroku 0 5 Client1
}
alias Client1 {
if (%satir == $lines(egitim\Client.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\Client.txt,%satir) }
}
alias ilkemiz {
msg %egitim $read(egitim\ilkemiz.txt,1)
set %satir $readn
.timeroku 0 5 ilkemiz1
}
alias ilkemiz1 {
if (%satir == $lines(egitim\ilkemiz.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\ilkemiz.txt,%satir) }
}
alias karsılama {
msg %egitim $read(egitim\karsılama.txt,1)
set %satir $readn
.timeroku 0 5 karsılama1
}
alias karsılama1 {
if (%satir == $lines(egitim\karsılama.txt)) { .timeroku -p }
else { inc %satir | msg %egitim $read(egitim\karsılama.txt,%satir) }
}
on *:text:*:%egitim: {
if ($1 == !egitim) {
.egitim
}
if ($1 == !chanserv) {
.chanserv
}
if ($1 == !nickserv) {
.nickserv
}
if ($1 == !memoserv) {
.memoserv
}
if ($1 == !akick) {
.akick
}
if ($1 == !bkanalkipi) {
.bkanalkipi
}
if ($1 == !Levels) {
.ChanservLevels
}
if ($1 == !set) {
.chanservset
}
if ($1 == !fkanalkipi) {
.fkanalkipi
}
if ($1 == !Ignore) {
.ignore
}
if ($1 == !Nickmodeleri) {
.nickmodeleri
}
if ($1 == !Kanalmodeleri) {
.kanalmodeleri
}
if ($1 == !list) {
.list
}
if ($1 == !version) {
.version
}
if ($1 == !Who) {
.who
}
if ($1 == !wildcard) {
.wildcard
}
if ($1 == !Client) {
.Client
}
if ($1 == !ilkemiz) {
.ilkemiz
}
if ($1 == !karsılama) {
.karsılama
}
if ($1 == !dur) {
.timeroku -p
}
}




devamı olan menüveren kısım

kod:
dialog egitim {
title "IRCd/Services Eğitim Botu"
size -1 -1 140 144
option dbu
icon 17.ico, 0
text "Nick", 1, 10 33 35 8
text "Şifre [ Varsa ]", 2, 10 57 35 8
text "Fullname", 3, 10 45 35 8
text "Eğitim Kanalı", 4, 10 72 35 8
text "Sunucu Adı", 5, 10 89 35 8
edit "", 6, 65 32 50 10
edit "", 7, 65 45 50 10
edit "", 8, 65 59 50 10 pass
edit "#", 9, 65 73 50 10
edit "xxxxxxxxxx", 10, 65 88 50 10
button "Tamam", 11, 49 108 37 12, default flat multi
}
on *:dialog:egitim:*:*:{
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog $dname
dll mdx.dll SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 ,21,23,22 13 700 Comic Sans MS
if $devent == edit {
set %nick $did(6)
set %fullname $did(7)
set %pass $did(8)
set %egitim $did(9)
set %serv $did(10)
}
if $devent == init {
did -a egitim 6 $iif(%nick != $null,%nick,Nickiniz)
did -a egitim 7 $iif(%fullname != $null,%fullname,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
}
if ($devent == sclick) {
if ($did == 11) {
.nick %nick
.fullname %fullname
.timer 1 3 /server %serv
.dialog -x egitim egitim
}
if ($did == 12) {
.run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
}
}
on *:start:{ .timer 1 2 /dialog -m egitim egitim }
on *:connect:{ .identify %pass | join %egitim }
on *:join:%egitim:{
if ($nick == $me) {
.topic %egitim 12,0 Arkadaşlar hoş geldiniz eğitimlerimize
}
}


ve son senin verdigin kısım
kod:
menu channel {
<- Egitim->
.Nickserv
..Baslat:nickserv
.Chanserv
..Baslat:chanserv
.memoserv
..Baslat:memoserv
.akick
..Baslat:akick
.Bkanalkipi
..Baslat
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kanalkipi
.ChanservLevels
..Baslat:ChanservLevels
.ChanservSET
..Baslat:ChanservSET
.fkanalkipi
..Baslat:fkanalkipi
.ignore
..Baslat:ignore
.Nickmodeleri
..Baslat:Nickmodeleri
.Kanalmodeleri
..Baslat:Kanalmodeleri
.List
..Baslat:List
.Version
..Baslat:Version
.Who
..Baslat:Who
.wildcard
..Baslat:wildcard
.Client
..Baslat:Client
.ilkemiz
..Baslat:ilkemiz
.karsılama
..Baslat:karsılama

.Aktif Eğitimi Duraklat:/timeroku -p
.Eğitime Devam:/timeroku -r
}


tamamı bu tabi tex dosyaları var ama onların vermeye gerek yok diye vermedim bir göz atarsan hatamız nerde düzenlenmiş bir şekilde verirsen cok memnunnolurum ilgin ve yardımın için şimdiden tşk ler

 
Alıntı ile Cevapla

Alt 06 Mayıs 2007, 04:26   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: kanal genelinden kendim texten egitim verebilmem




Koda bir hatan yok. Sadece Sanırım scriptinde otoidentify var veya olmasa dahi sen nickini identify ettiğinde veya nickserve herhangi bir komut g&#246;nderdiğinde eğitim başlicaktır. &#199;&#252;nk&#252;;

/nickserv identify 123456 komutunu girdiğinde "/nickserv" girdiğin i&#231;in eğitim başlaması talimatini veriyoruz;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias Nickserv { msg %egitim $read(egitim\nickserv.txt,1) set %satir $readn .timeroku 0 5 nickserv1 }

Umarım anlamışsındır bu sadece nickserv i&#231;in değil Chanserv ve memoserv i&#231;inde ge&#231;erli
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kodda bazı gereksiz uzun yerler var biraz editleyip a&#231;ıklamaları ile vericem.

 
Alıntı ile Cevapla

Cevapla

Etiketler
egitim, genelinden, kanal, kendim, mirc, mirc download, mirc indir, texten, verebilmem


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

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
Cem Karaca - Kendim Ettim Kendim Buldum Desmont A, B, C, Ç 0 31 Ekim 2014 19:33
Kendim olmayo Öğrendim. Mhsn Aşk ve Sevgi Köşesi 0 16 Aralık 2012 10:34
Aşk kendim olmakmış.... PauL Aşk ve Sevgi Köşesi 0 25 Kasım 2011 14:02
Texten Hızlı Okutmak Cihandar mIRC Scripting Sorunları 6 01 Temmuz 2009 01:48