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/)
-   -   Güncel S.a Bu kodu Sockete Çevire bilirmiyiz. (https://www.ircforumlari.net/mirc-scripting-sorunlari/701604-sa-bu-kodu-sockete-cevire-bilirmiyiz.html)

R3dLine 08 Eylül 2015 19:02

S.a Bu kodu Sockete Çevire bilirmiyiz.
 
Yapmaya çalıştım ama olmadı Bu kodu Socket e Gore #Master Kanalında işlicek Şekilde ayarlamak mümkünmü


PHP- Kodu:

on *:connect: { if (%gmesaj == on) {  timergmesaj 0 600 /gmesaj } }
on *:text:!gmesaj*:#KANAL: {
  
if ($== 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 ($
== off) { 
    if (%
gmesaj == off) { msg # Global Mesaj Reklami Zaten Kapali! | halt }
    
set %gmesaj off msg # Global Mesaj Reklami Kapatilmistir. | timergmesaj off
    
halt
  
}
  if ($
== ekle) { 
    
gmesajekle $3-
  }
  if ($
== sil) { 
    
gmesajsil $3-
  } 
  if ($
== list) {
    
gmesajlist 
  
}
}
alias gmesajekle { if ${ if $read(gmesaj.txt,w,$1-) { msg $chan - $1- -  mesaj zaten listede. | halt } | else { write gmesaj.txt $1- | msg $chan - $mesaj listeye eklendi. } } }
alias gmesajlist 
  var %
1,%ss $lines(gmesaj.txt
  if (%
ss == 0) { msg # Listede Kayit Bulunmamaktadir. | halt }
  
msg $nick mesaj listesi.. 
  while %
<= %ss 
    
msg $nick %$read(gmesaj.txt,%s
    
inc %
  
}
  
msg $nick  listesi sonu..
}
alias gmesajsil { if ${ if !$read(gmesaj.txt,w,$1-) { msg $chan - $1- - mesaj listesinde yok. | halt } | else { write $+(-dl,$readngmesaj.txt msg $chan - $1- - mesaj listesinden silindi. } } }
alias gmesaj {
  var %
kac $rand(1,$lines(gmesaj.txt))
  
os global $read(gmesaj.txt,%kac)



SuLh 08 Eylül 2015 20:05

Cevap: S.a Bu kodu Sockete Çevire bilirmiyiz.
 
Kod:

alias benimbot {
  sockopen Artiz irc.esohbet.net 6667
}
on *:sockopen:Artiz: {
  var %botum sockwrite -n Artiz
  %botum nick Artiz
  %botum user NetAdmin ** * Administrator
}
on *:sockread:artiz: {
  var %botum sockwrite -n Artiz
  var %hm
  sockread %hm
  tokenize 32 %hm
  echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]takip %hm
  if $1 == ping {
    %botum pong $2
  }
  if $2 == JOIN {
    .timer 1 2 %botum join #master  }
  }
  if $2 == privmsg {
    var %kanal $3
    if %kanal == #master {
      var %yazi $gettok($4-,1,$asc(:))
      if $gettok(%yazi,1,32) == !gmesaj {
        if $gettok(%yazi,2,32) == on {
          if (%gmesaj == on) { %botum privmsg %kanal Gmesaj zaten aktif! | return }
          else { set %gmesaj on | %botum privmsg %kanal Global Mesaj Reklami Acilmistir. | timer 0 600 gmesaj }
        }
        if $gettok(%yazi,2,32) == off {
          if (%gmesaj == off) { %botum privmsg %kanal Gmesaj zaten kapali! | return }
          else { set %gmesaj off | %botum privmsg %kanal Global Mesaj Reklami Kapatilmistir. | timerg off }
        }
        if $gettok(%yazi,2,32) == ekle {
          if $read(gmesaj.txt,w,$gettok(%yazi,3-,32)) { %botum privmsg %kanal Bu reklam zaten listede mevcut! | return }
          else { write gmesaj.txt $gettok(%yazi,3-,32) | %botum privmsg %kanal $gettok(%yazi,3-,32) : mesaji listeye eklenmistir. }
        }
        if $gettok(%yazi,2,32) == sil {
          if !$read(gmesaj.txt,w,$gettok(%yazi,3-,32)) { %botum privmsg %kanal Bu mesaj listede yok. | return }
          else { var %silincek $read(gmesaj.txt,w,$gettok(%yazi,3-,32)) | write -dl $+ %silincek gmesaj.txt | %botum privmsg %kanal %silincek  mesaji listeden silindi. }
        }
        if $gettok(%yazi,2,32) == list {
          var %i 1, %sayi $lines(gmesaj.txt)
          while (%i <= %sayi) {
            %botum privmsg %kanal $read(gmesaj.txt,%i)
            inc %i
          }
        }
      }
    }
  }
}

alias gmesaj {
  sockwrite -n Artiz operserv global $read(gmesaj.txt, $+ $rand(1, $+ $lines(gmesaj.txt)))
}

Kodunuzda silme ve ekleme islemleri eksikti, onlari da ekledim.
Botun adi ve sunucuyu degisirsiniz.

Kod:

[20:09] <04SuLh> !gmesaj on
[20:09] <05Artiz> Gmesaj zaten aktif!
[20:09] <04SuLh> !gmesaj off
[20:09] <05Artiz> Global Mesaj Reklami Kapatilmistir.
[20:09] <04SuLh> !gmesaj on
[20:09] <05Artiz> Global Mesaj Reklami Acilmistir.
[20:09] <04SuLh> !gmesaj list
[20:09] <05Artiz> asda
[20:09] <05Artiz> asdas
[20:09] <05Artiz> dasc
[20:09] <05Artiz> xcvx
[20:09] <05Artiz> xcvx
[20:09] <05Artiz> dasc
[20:09] <05Artiz> asda
[20:10] <05Artiz> asda
[20:10] <04SuLh> !gmesaj ekle xxz
[20:10] <05Artiz> xxz : mesaji listeye eklenmistir.
[20:10] <Srttt> yaşlıbayanısever nicki ( *yaşlı* ) degistirildi.
[20:10] <04SuLh> !gmesaj sil asda
[20:10] <05Artiz> asda mesaji listeden silindi.
[20:10] <04SuLh> !gmesaj sil asda
[20:10] <05Artiz> Bu mesaj listede yok.



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

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