belirli aralıklarla global mesaj atma - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Heavenly · 02 Ocak 2009, 19:00

S.a soyle bı kod arıyorum belırlı aralıklarla mesela 5 dakıka bir belirledim txt ıcındekı msjlar global mesaj olarak atılasın dıyalog seklınde olursa cok quzel olur dıyalog tasarım yapmayı bılsem kendım yapıcamda bılmedıqım ıcın yardım ıstıyorum

dıyalog su sekılde olabılır mesela
1.

2.

3.

4.

5

kutucuktan olusur oraya ıstedıqım msjları yazarım

1 tanede sanıye kutucugu olur orayada kac sanıyede bır atması gerektıgını yazarım ornek 300 sn gıbı ekledıgım mesajları sıtede onlıne oldugum sure boyunca 300 sn'de 1 degıserek sunucuya yolluycak cok sey ıstıyorum bılıyorum ama bu sekılde olursa gercekten cok guzel olur ılgılenıcek olan arkadaslara sımdıden cok ama cok tesekkurlerımı suranım

CesuryureK · 02 Ocak 2009, 21:01

ortada ne kodun nede dialogun var, lakin zaman bulursam dialog şeklinde yaparım tek ricam biraz sizde çabalamanız. mirc scripting dersler bölümünde dialog studio videolu anlatımı var nasıl dialog yapılır vs. ayrıca dialog yapımı içinde görüntülü dersler şeklinde anlatımı da olan bir iki paylaşım sitesi var. biraz araştırsanız.

Difuzyon · 02 Ocak 2009, 23:39

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias globalmesaj { 
  if $dialog(Global) == $null {
    dialog -m Global Global
  }
}
dialog Global {
  title "Global Mesaj Bildirim Listesi"
  size -1 -1 590 375 
  button "Sil", 1, 500 265 70 20
  list 2, 10 20 570 235, sort 
  box "Mesajlar", 3, 5 5 580 255 
  edit "", 4, 10 320 555 20, autohs
  box "Eklenecek mesajı girin", 5, 5 300 565 45
  button "Ekle", 6, 410 265 70 20
  box "Not:", 7, 5 260 185 35 
  text "Süre kısmına rakam(Saniye) yazınız", 8, 15 275 280 45 
  edit "Süre", 9, 200 265 40 20, autohs
  button "Başlat", 10, 260 265 70 30,ok
  button "Durdur", 12, 335 265 50 25
  link "IRCForumlari.Net'in 2009 Armağanıdır :)", 11, 180 350 250 17
}
on *:dialog:Global:sclick:*: {
  if $did == 1 { if $read(sozler.txt,w,$+(*,$did(2).seltext,*)) { write $+(-,d,l,$readn) sozler.txt | did -d Global 2 $did(2).sel } }
  if $did == 6 { if ($did(4) != $null) { did -a Global 2 $did(4) | write sozler.txt $did(4) | did -fr Global 4 } }
  if $did == 10 { if $did(9) isnum { .timerglobmesaj 0 $did(9) os global $!read(sozler.txt) | echo -a 0,6** Global Mesaj Bildirimi Aktif ** } }
  if $did == 12 { .timerglobmesaj off | echo -a 0,7** Global Mesaj Bildirimi Kapalı ** }
}
on *:dialog:Global:init:*: { 
  if ($lines(sozler.txt) != $null) { 
    set %global 0
    while (%global < $lines(sozler.txt)) {
      inc %global 1 
      did -a Global 2 $read(sozler.txt,%global)  
    }
    unset %global 
  } 
} 
menu status,nicklist,channel {
  Global Mesaj :globalmesaj
}

Kodu (ALT + r) ile remote kısmına ekliyorsunuz.
Ekleyeceğiniz sözleri mIRC ana klasöründe sozler.txt dosyasına ekliyecektir.
CesuryureK'e katılıyorum , biraz daha üretken bir çalışma ile sorunlara yaklaşırsanız daha çok yardımcı olacağızdır...

İyi forumlar...

Heavenly · 03 Ocak 2009, 15:24

Cesuryurek'ın soyledıklerınden sOnra bı dıyalog yapmaya calıstım ortaya bu cıktı bu dıyalog'a gore kodu ayarlayabılırmıyız ?

Kod: Kodu kopyalamak için üzerine çift tıklayın!

dialog ßy tHecoLLOfdaRk {
  title "GLoßaL Mesaj DiyaLog"
  size -1 -1 300 200
  option dbu
  button "Button", 1, 1 163 60 14
  edit "", 3, 73 164 226 14
  link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
2, 95 187 94 9
  scroll "", 4, 5 7 8 142
  edit "", 5, 13 16 259 116
  icon 6, 17 138 251 18
  text "Text Label", 12, 1 185 31 8
  text "Text Label", 13, 38 185 31 8
  button "Button", 14, 199 182 38 13
  button "Button", 15, 244 183 42 12
  menu "Item1", 7
  menu "Item2", 8
  menu "Item3", 9
  menu "Item4", 10
  menu "Item5", 11
}

AyazGeceLer · 06 Ocak 2009, 07:22

Kod: Kodu kopyalamak için üzerine çift tıklayın!

sglobal //.timer 0 600 /Operserv global $!read(sglobal.txt)

aLiaSina ekLersen SgLobaL Diye ßir Txt Dosyayi Acarsin ALt ALta Ne Yazmak Istersen Yaz 10 Dakkada ßir ßir Satiri GLobaL oLarak ATacaktir

RapStar · 18 Ocak 2010, 20:38

Alıntı:

alias globalmesaj {
if $dialog(Global) == $null {
dialog -m Global Global
}
}
dialog Global {
title "Global Mesaj Bildirim Listesi"
size -1 -1 590 375
button "Sil", 1, 500 265 70 20
list 2, 10 20 570 235, sort
box "Mesajlar", 3, 5 5 580 255
edit "", 4, 10 320 555 20, autohs
box "Eklenecek mesajı girin", 5, 5 300 565 45
button "Ekle", 6, 410 265 70 20
box "Not:", 7, 5 260 185 35
text "Süre kısmına rakam(Saniye) yazınız", 8, 15 275 280 45
edit "Süre", 9, 200 265 40 20, autohs
button "Başlat", 10, 260 265 70 30,ok
button "Durdur", 12, 335 265 50 25
link "IRCForumlari.Net'in 2009 Armağanıdır
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
", 11, 180 350 250 17
}
on *:dialog:Global:sclick:*: {
if $did == 1 { $read(sozler.txt,w,$+(*,$did(2).seltext,*)) { write $+(-,d,l,$readn) sozler.txt | did -d Global 2 $did(2).sel } }
if $did == 6 { if ($did(4) != $null) { did -a Global 2 $did(4) | write sozler.txt $did(4) | did -fr Global 4 } }
if $did == 10 { if $did(9) isnum { .timerglobmesaj 0 $did(9) os global $!read(sozler.txt) | echo -a 0,6** Global Mesaj Bildirimi Aktif ** } }
if $did == 12 { .timerglobmesaj off | echo -a 0,7** Global Mesaj Bildirimi Kapalı ** }
}
on *:dialog:Global:init:*: {
if ($lines(sozler.txt) != $null) {
set %global 0
while (%global < $lines(sozler.txt)) {
inc %global 1
did -a Global 2 $read(sozler.txt,%global)
}
unset %global
}
}
menu status,nicklist,channel {
Global Mesaj :globalmesaj
}

Bunu Şöyle Yapabilirmiyiz. A Kanalına 15 Dk da Bir Belirlediğim Yazıyı Yazsın ?

WeiLSiDe · 18 Ocak 2010, 20:42

os global olan kısmı msg #kanal olarak değişirsen istediğin olur.

mertmeric · 08 Ağustos 2011, 13:32

Merhabalar bu addon gerçekten bana da gerekli uzun süredir böyle birşey arıyordum vermiş oldugunuz kodu elimden geldiği kadar editledim daha güzel hale getirdim ama arkadaşında dediği gibi addonda eklenen yazıları silmek isteyince silmiyor. Bir hata var ve hatanın yerinide buldum lakin uzun süre ugraşmama ragmen hatayı gideremedim. Yardımlarınızı bekliyorum...

Editlediğim kod;

alias globalmesaj {
if $dialog(Global) == $null {
dialog -m Global Global
}
}
dialog Global {
title "Global Mesaj Bildirim Listesi"
size -1 -1 374 264
option pixels notheme
button "Sil", 1, 89 196 70 26
list 2, 13 15 346 136, sort
box "Mesajlar", 3, 7 0 356 147
edit "", 4, 178 170 180 82, autohs
box "Eklenecek mesaji girin", 5, 172 154 191 102
button "Ekle", 6, 89 229 70 25
text "Saniye", 8, 18 165 52 20, center
edit "sn", 9, 88 159 70 29, autohs center
button "Baslat", 10, 8 196 70 27, ok
button "Durdur", 12, 8 229 71 25
box "Sure", 7, 9 150 70 40
}
on *:dialog:Global:sclick:*: {
if $did == 1 { $read(sozler.txt,w,$+(*,$did(2).seltext,*)) { write $+(-,d,l,$readn) sozler.txt | did -d Global 2 $did(2).sel } }
if $did == 6 { if ($did(4) != $null) { did -a Global 2 $did(4) | write sozler.txt $did(4) | did -fr Global 4 } }
if $did == 10 { if $did(9) isnum { .timerglobmesaj 0 $did(9) msg #Chat $!read(sozler.txt) | echo -a 0,6** Global Mesaj Bildirimi Aktif ** } }
if $did == 12 { .timerglobmesaj off | echo -a 0,7** Global Mesaj Bildirimi Kapalı ** }
}
on *:dialog:Global:init:*: {
if ($lines(sozler.txt) != $null) {
set %global 0
while (%global < $lines(sozler.txt)) {
inc %global 1
did -a Global 2 $read(sozler.txt,%global)
}
unset %global
}
}
menu status,nicklist,channel {
Global Mesaj :globalmesaj
}

Hatalı olarak görülen yer; (Burdan hata veriyor)

if $did == 1 { $read(sozler.txt,w,$+(*,$did(2).seltext,*)) { write $+(-,d,l,$readn) sozler.txt | did -d Global 2 $did(2).sel } }

Mirc hata raporu (Sil butonuna tıklayınca kanalda çıkan yazı)

[ Mesaj ] write Varolmayan bir komut.

Difuzyon · 08 Ağustos 2011, 15:23

if $did == 1 { if $read(sozler.txt,w,$+(*,$did(2).seltext,*)) { write $+(-,d,l,$readn) sozler.txt | did -d Global 2 $did(2).sel } }

RapStar · 18 Ocak 2010, 20:56

Wildsite tşkler olduda yanlız ;

Ettiğiniz Sohbete Dikkat Edin ... <<

diye bir cümle yazdım tekrar panelden yazıyı seçip "sil" e tıklayınca

[(CoDeR)] ETTIğINIZ Geçersiz Bir Komut!
[(CoDeR)] ETTIğINIZ Geçersiz Bir Komut!
[(CoDeR)] ETTIğINIZ Geçersiz Bir Komut!
[(CoDeR)] ETTIğINIZ Geçersiz Bir Komut!

Böyle bir hata verdi... Yani Eklediğim yazıyı sil'e tıklayınca silmiyor yukarıdaki gibi bir hata veriyor

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Belirli aralıklarla Global Atan Çalışır Tcl lazım. Yardım Lütfen	Kawissaa	TCL Scriptler	3	16 Mayıs 2020 02:57
Çözüldü Bir Kanala Belirli Sürelerle Mesaj Atma?	m1nd	mIRC Scripting Sorunları	9	14 Şubat 2020 22:50
Eggdrop botu belirli zaman aralıklarla metin yazdırmak	helloweenfs	TCL Scriptler	2	01 Ekim 2017 20:19
İdle kontrol belirli aralıklarla aktif olsun	sito	mIRC Scripting Sorunları	1	02 Ağustos 2013 11:21
Belirli aralıklarla connect kabul nasıl olabilir?	quanzi	Unreal IRCd	6	04 Mart 2009 17:26

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.