Çevrimdışı

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