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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   kanal genelinden kendim texten egitim verebilmem (https://www.ircforumlari.net/mirc-scripting-sorunlari/31081-kanal-genelinden-kendim-texten-egitim-verebilmem.html)

SaintCty 03 Mayıs 2007 16:36

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

detay 03 Mayıs 2007 16:48

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.

SaintCty 03 Mayıs 2007 18:34

Cevap: Yanıt: kanal genelinden kendim texten egitim verebilmem
 
Alıntı:

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

detay 03 Mayıs 2007 21:09

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

SaintCty 05 Mayıs 2007 11:14

Cevap: Yanıt: kanal genelinden kendim texten egitim verebilmem
 
Alıntı:

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

AyEsBiBe 05 Mayıs 2007 18:16

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


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:


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:

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

SaintCty 05 Mayıs 2007 19:02

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

AyEsBiBe 05 Mayıs 2007 19:08

Cevap: kanal genelinden kendim texten egitim verebilmem
 
Kodun en son halinin tamamını tekrar yazarsan ayrıcalıklı inceleyip sorunu buluruz sanırım..

SaintCty 05 Mayıs 2007 20:40

Cevap: kanal genelinden kendim texten egitim verebilmem
 
Alıntı:

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

AyEsBiBe 06 Mayıs 2007 04:26

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:

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;)
Kodda bazı gereksiz uzun yerler var biraz editleyip a&#231;ıklamaları ile vericem.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:51.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net