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/)
-   -   Global Mesaj (https://www.ircforumlari.net/mirc-scripting-sorunlari/340694-global-mesaj.html)

Skys 21 Haziran 2010 13:21
Global Mesaj
 
Tüm Sunucuya /amsg veya /msg Yolu ile Global Mesaj'lar Atmak Istiyorum ..

Bota

!Gmesaj ekle *mesaj*

!Gmesaj sil *mesaj*

!Gmesaj list

Yaparak Dosya.txt eklediğim mesaj'lar iLe 10 Dk Bir Sırası iLe Dosya içerisine eklediğim reklamları Reklam haline getirmek .

Lucifer 21 Haziran 2010 13:36
Cevap: Global Mesaj
 
Kod:
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 { $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
}
Alıntı:
Kodu (ALT + r) ile remote kısmına ekliyorsunuz.
Ekleyeceğiniz sözleri mIRC ana klasöründe sozler.txt dosyasına ekliyecektir.
Difuzyon 'nun daha önceden yazmış olduğu bir kod, bu işini görecektir. Belirlediğin süre içinde otomatik olarak her zaman atacaktır. Umarım işine yarar.

DaDaS 21 Haziran 2010 13:39
Cevap: Global Mesaj
 
Alıntı:
Skys Nickli Üyeden Alıntı (Mesaj 1040447006)
Tüm Sunucuya /amsg veya /msg Yolu ile Global Mesaj'lar Atmak Istiyorum ..

Bota

!Gmesaj ekle *mesaj*

!Gmesaj sil *mesaj*

!Gmesaj list

Yaparak Dosya.txt eklediğim mesaj'lar iLe 10 Dk Bir Sırası iLe Dosya içerisine eklediğim reklamları Reklam haline getirmek .

PHP- Kodu:
on *:text:*:#yönetim:{
  if !Gmesaj ekle  isin $1 {
    if $nick == Nick {
      .write  Dosya.txt $2 | Eklendi
    }
    else { .msg #  $nick $+ , Bu komutu yalnızca özel bir client kullanabilir.
    }
  }
} 
PHP- Kodu:
on *:text:*:#yönetim:{
  if !Gmesaj sil $1 { 
    if $nick == DaDaS { 
      if $read(Dosya.txt,w,$+($2,*)) { write -dl $+ $readn Dosya.txt
        .msg #  $2 $+ : silindi     }
      else {
        .msg # 2Silme işleminde hata! Siz 4 RooT 2 değilsiniz ya da, 4 $2 2  listesinde bulunmuyor.
      }
    }
  }
} 


PHP- Kodu:
on *:text:*:#yönetim:{
  if  !Gmesaj list isin $1 {
    .msg #  Gmesaj özel pencerenize iletildi 4 $nick $+ .
    .msg $nick  Mesaj Listesi;
    .play $nick Dosya.txt 0
  }
} 

Skys 21 Haziran 2010 13:43
Cevap: Global Mesaj
 
DaDaS , Lucifer , olmadı Bota * ekle , sil , list * Seklinde Dosya.txt

eklicem dosya.txt içine eklediğim mesaj'ı Global seklinde reklam vermek istiyorum Teşekkürler.

DaDaS 21 Haziran 2010 13:54
Cevap: Global Mesaj
 
Az Ugrasmak Lazım Botun 10 Dk da Bır Notıce Atması sıkıntılıda ben de sunuca su sekılde yapıyorum

if !Notice1 isin $1 {
/nflash

örnek :
[13:53] <@DaDaS> !Notice7
[13:53] <@KoRuMa> Sunucuya Başarıyla Notice Gönderilmiştir.
[13:53] [S] Notice --- Network NewsFlash from [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (Özellerinize Gelen websitesi adresleri ve Server adresleri içerikli Mesajlara dikkat almayınız,Atılan Site reklamına tıkladıgınızda site uzerinden makinenize virüs-trojen-Dbc ve benzeri makine için zararlı programlar giriyor.Bu mesajları okumadan direk kapatip en yakın @(operatör) İrcop(ircYöneticisi) Bildiriniz.)

gibi golabal notıceyı bende yapamadım yanı :)

Set 22 Haziran 2010 02:33
Cevap: Global Mesaj
 
Kod:
on *:connect: { if (%gmesaj == on) {  timergmesaj 0 600 /gmesaj } }
on *:text:!gmesaj*:#KANAL: {
  if ($2 == on) {
    if (%gmesaj == on) { msg # Global Mesaj Reklami Zaten Acik! | halt }
    set %gmesaj on | msg # Global Mesaj Reklami Acilmistir. | timergmesaj 0 600 /gmesaj
    halt
  }
  if ($2 == off) {
    if (%gmesaj == off) { msg # Global Mesaj Reklami Zaten Kapali! | halt }
    set %gmesaj off | msg # Global Mesaj Reklami Kapatilmistir. | timergmesaj off
    halt
  }
  if ($2 == ekle) {
    gmesajekle $3-
  }
  if ($2 == sil) {
    gmesajsil $3-
  }
  if ($2 == list) {
    gmesajlist
  }
}
alias gmesajekle { if $1 { if $read(gmesaj.txt,w,$1-) { msg $chan - $1- -  mesaj zaten listede. | halt } | else { write gmesaj.txt $1- | msg $chan - $1 - mesaj listeye eklendi. } } }
alias gmesajlist {
  var %s = 1,%ss = $lines(gmesaj.txt)
  if (%ss == 0) { msg # Listede Kayit Bulunmamaktadir. | halt }
  msg $nick mesaj listesi..
  while %s <= %ss {
    msg $nick %s - $read(gmesaj.txt,%s)
    inc %s
  }
  msg $nick  listesi sonu..
}
alias gmesajsil { if $1 { if !$read(gmesaj.txt,w,$1-) { msg $chan - $1- - mesaj listesinde yok. | halt } | else { write $+(-dl,$readn) gmesaj.txt | msg $chan - $1- - mesaj listesinden silindi. } } }
alias gmesaj {
  var %kac $rand(1,$lines(gmesaj.txt))
  os global $read(gmesaj.txt,%kac)
}
bunu bir dene istersen

komutlari ;
!gmesaj ekle Mesaj
!gmesaj sil Mesaj
!gmesaj list
!gmesaj on
!gmesaj off

bir dene istersen. 10 dakika'da bir mesaj atar otomotik.

WaLek 03 Şubat 2011 02:11
Cevap: Global Mesaj
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1040447547)
Kod:
on *:connect: { if (%gmesaj == on) {  timergmesaj 0 600 /gmesaj } }
on *:text:!gmesaj*:#KANAL: {
  if ($2 == on) {
    if (%gmesaj == on) { msg # Global Mesaj Reklami Zaten Acik! | halt }
    set %gmesaj on | msg # Global Mesaj Reklami Acilmistir. | timergmesaj 0 600 /gmesaj
    halt
  }
  if ($2 == off) {
    if (%gmesaj == off) { msg # Global Mesaj Reklami Zaten Kapali! | halt }
    set %gmesaj off | msg # Global Mesaj Reklami Kapatilmistir. | timergmesaj off
    halt
  }
  if ($2 == ekle) {
    gmesajekle $3-
  }
  if ($2 == sil) {
    gmesajsil $3-
  }
  if ($2 == list) {
    gmesajlist
  }
}
alias gmesajekle { if $1 { if $read(gmesaj.txt,w,$1-) { msg $chan - $1- -  mesaj zaten listede. | halt } | else { write gmesaj.txt $1- | msg $chan - $1 - mesaj listeye eklendi. } } }
alias gmesajlist {
  var %s = 1,%ss = $lines(gmesaj.txt)
  if (%ss == 0) { msg # Listede Kayit Bulunmamaktadir. | halt }
  msg $nick mesaj listesi..
  while %s <= %ss {
    msg $nick %s - $read(gmesaj.txt,%s)
    inc %s
  }
  msg $nick  listesi sonu..
}
alias gmesajsil { if $1 { if !$read(gmesaj.txt,w,$1-) { msg $chan - $1- - mesaj listesinde yok. | halt } | else { write $+(-dl,$readn) gmesaj.txt | msg $chan - $1- - mesaj listesinden silindi. } } }
alias gmesaj {
  var %kac $rand(1,$lines(gmesaj.txt))
  os global $read(gmesaj.txt,%kac)
}
bunu bir dene istersen

komutlari ;
!gmesaj ekle Mesaj
!gmesaj sil Mesaj
!gmesaj list
!gmesaj on
!gmesaj off

bir dene istersen. 10 dakika'da bir mesaj atar otomotik.


Ustad SERVER de FounderLer icin OLanı yokmu bot tek kanaLda ama sadece aop yetkısı Var veya Sop manager gb .... ? Varsa atarsan sana zahmet guzel Code ama operserv ıstıyor ..

WaLek 03 Şubat 2011 15:24
Cevap: Global Mesaj
 
Ben connect ve alias olarak yazdım 2 tane basıt bıshe ama bu hosuma gıttı code ondan ıstıyorum mumkunse ... Tesekkurler sımdıden ...

Set 03 Şubat 2011 18:26
Cevap: Global Mesaj
 
Kod:
alias kanal return #KANAL
alias mnick return NICKIN
on *:connect: { if (%gmesaj == on) {  timergmesaj 0 600 /gmesaj } }
on *:text:!gmesaj*:?: {
  if ($nick == $mnick) {
    if ($2 == on) {
      if (%gmesaj == on) { msg $nick Global Mesaj Reklami Zaten Acik! | halt }
      set %gmesaj on | msg $nick Global Mesaj Reklami Acilmistir. | timergmesaj 0 600 /gmesaj
      halt
    }
    if ($2 == off) {
      if (%gmesaj == off) { msg # Global Mesaj Reklami Zaten Kapali! | halt }
      set %gmesaj off | msg $nick Global Mesaj Reklami Kapatilmistir. | timergmesaj off
      halt
    }
    if ($2 == ekle) {
      gmesajekle $3-
    }
    if ($2 == sil) {
      gmesajsil $3-
    }
    if ($2 == list) {
      gmesajlist
    }
  }
}
alias gmesajekle { if $1 { if $read(gmesaj.txt,w,$1-) { msg $nick - $1- -  mesaj zaten listede. | halt } | else { write gmesaj.txt $1- | msg $nick - $1 - mesaj listeye eklendi. } } }
alias gmesajlist {
  var %s = 1,%ss = $lines(gmesaj.txt)
  if (%ss == 0) { msg $nick Listede Kayit Bulunmamaktadir. | halt }
  msg $nick mesaj listesi..
  while %s <= %ss {
    msg $nick %s - $read(gmesaj.txt,%s)
    inc %s
  }
  msg $nick  listesi sonu..
}
alias gmesajsil { if $1 { if !$read(gmesaj.txt,w,$1-) { msg $nick - $1- - mesaj listesinde yok. | halt } | else { write $+(-dl,$readn) gmesaj.txt | msg $nick - $1- - mesaj listesinden silindi. } } }
alias gmesaj {
  var %kac $rand(1,$lines(gmesaj.txt))
  .msg $kanal $read(gmesaj.txt,%kac)
}
alias kanal return #KANAL
alias mnick return NICKIN

Bu kısımlari Ayarlarsin kendine gore hangi kanala mesaj atacaksa bot KANAL'ı ona ayarla NICKIN'i ayarlarsin ve Bot'un ozelinde yazarsin komutlari sonra 10 dakikada bir mesaj gonderir kanala .


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk