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