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/)
-   -   Eğitim bot (https://www.ircforumlari.net/mirc-scripting-sorunlari/163308-egitim-bot.html)

kaLwi 06 Aralık 2008 14:29

Eğitim bot
 
Merhabalar arkadaşlar, benim elimde bir helpbot var ve içerisinde eğitim konu anlatımlı bir remote var bu remoteye ben dahilinin haricinde konular eklemek istiyorum fakat ekledigimde remote tamamen calısmaz oluyor sizden yardim isteyecektim. Simdi size remoteleri göstericem ;

PHP- Kodu:

alias egitim {
  
msg #helpteam $read(egitim\egitim.txt,1)
  
set %satir $readn
  
.timeroku 0 2 egitim
}
alias chaserv {
  
msg #helpteam $read(egitim\chanserv.txt,1)
  
set %satir $readn
  
.timeroku 0 5 chaserv1
}
alias chaserv1 {
  if (%
satir == $lines(egitim\chanserv.txt)) { .timeroku off }
  else { 
inc %satir msg #helpteam $read(egitim\chanserv.txt,%satir) } 
}
alias Nicserv {
  
msg #helpteam $read(egitim\nickserv.txt,1)
  
set %satir $readn
  
.timeroku 0 5 nicserv1
}
alias nicserv1 {
  if (%
satir == $lines(egitim\nickserv.txt)) { .timeroku off }
  else { 
inc %satir msg #helpteam $read(egitim\nickserv.txt,%satir) } 
}
alias memserv {
  
msg #helpteam $read(egitim\memoserv.txt,1)
  
set %satir $readn
  
.timeroku 0 5 memserv1
}
alias memserv1 {
  if (%
satir == $lines(egitim\memoserv.txt)) { .timeroku off }
  else { 
inc %satir msg #helpteam $read(egitim\memoserv.txt,%satir) } 
}
alias akck {
  
msg #helpteam $read(egitim\akick.txt,1)
  
set %satir $readn
  
.timeroku 0 5 akck1
}
alias akck1 {
  if (%
satir == $lines(egitim\akick.txt)) { .timeroku off }
  else { 
inc %satir msg #helpteam $read(egitim\akick.txt,%satir) } 
}
alias Bkanalkipi {
  
msg #helpteam $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 #helpteam $read(egitim\Bkanalkipi.txt,%satir) }
}
alias ChanservLevels {
  
msg #helpteam $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 #helpteam $read(egitim\ChanservLevels.txt,%satir) }
}
alias ChanservSET {
  
msg #helpteam $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 #helpteam $read(egitim\ChanservSET.txt,%satir) } 
}
alias fkanalkipi {
  
msg #helpteam $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 #helpteam $read(egitim\fkanalkipi.txt,%satir) }
}
alias igore {
  
msg #helpteam $read(egitim\ignore.txt,1)
  
set %satir $readn
  
.timeroku 0 5 igore1
}
alias igore1 {
  if (%
satir == $lines(egitim\ignore.txt)) { .timeroku off 
  else { 
inc %satir msg #helpteam $read(egitim\ignore.txt,%satir) }
}
alias Nickmodeleri {
  
msg #helpteam $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 #helpteam $read(egitim\Nickmodeleri.txt,%satir) }
}
alias Kanalmodeleri {
  
msg #helpteam $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 #helpteam $read(egitim\Kanalmodeleri.txt,%satir) } 
}
alias Lit {
  
msg #helpteam $read(egitim\List.txt,1)
  
set %satir $readn
  
.timeroku 0 5 Lit1
}
alias Lit1 {
  if (%
satir == $lines(egitim\List.txt)) { .timeroku off }
  else { 
inc %satir msg #helpteam $read(egitim\List.txt,%satir) } 
}
alias Version {
  
msg #helpteam $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 #helpteam $read(egitim\Version.txt,%satir) } 
}
alias Wo {
  
msg #helpteam $read(egitim\Who.txt,1)
  
set %satir $readn
  
.timeroku 0 5 Wo1
}
alias Wo1 {
  if (%
satir == $lines(egitim\Who.txt)) { .timeroku off }
  else { 
inc %satir msg #helpteam $read(egitim\Who.txt,%satir) } 
}
alias wildcard {
  
msg #helpteam $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 #helpteam $read(egitim\wildcard.txt,%satir) } 
}
alias Client1 {
  
msg #helpteam $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 #helpteam $read(egitim\Client.txt,%satir) } 
}
alias ilkemiz {
  
msg #helpteam $read(egitim\ilkemiz.txt,1)
  
set %satir $readn
  
.timeroku 0 5 ilkemiz1
}
alias ilkemiz1 {
  if (%
satir == $lines(egitim\ilkemiz.txt)) { .timeroku off }
  else { 
inc %satir msg #helpteam $read(egitim\ilkemiz.txt,%satir) } 
}
on *:text:*:#helpteam:{ 
  
if ($== !egitim) { 
    .
Msg #helpteam  $nick , Merhaba eğitim konuları sıralanıyor..
    
.Msg # -
    
.Msg # 4 Temel Konular
    
.Msg # -
    
.Msg # Chanserv Genel Anlatım için : !Chanserv 
    
.Msg # Nickserv Genel Anlatım için : !Nickserv
    
.Msg # Memoserv Genel Anlatımı için :  !Memoserv
    
.Msg # -
    
.Msg # 4 Chanserv Set Levels Akick
    
.Msg # -
    
.Msg # Chanserv Akick Anlatımı için :  !Akick 
    
.Msg # Chanserv Levels Anlatımı için :  !Levels
    
.Msg # Chanserv Set Anlatımı için :  !Set
    
.Msg # -
    
.Msg # 4 Modeler
    
.Msg # -
    
.Msg # Kanal modeleri Anlatımı için : !kmode
    
.Msg # Nick modeleri Anlatımı için : !Nmode
    
.Msg # -
    
.Msg # 4 Diğer Dersler
    
.Msg # -
    
.Msg # F kipi Hakkında Anlatım için : !Fkanalkipi
    
.Msg # Ban komutu Anlatımı için : !bkanalkipi
    
.Msg # List komutu Anlatimi için : !List
    
.Msg # Who komutu Anlatimi için : !Who
    
.Msg # İgnore Hakkında Anlatim için : !ignore
    
.Msg # Wilcard Hakkında Anlatım için :  !Wildcard
    
.Msg # Client Hakkında Anlatım için :  !Client
    
.Msg # Version Hakkında Anlatım için :  !Version
    
.Msg # -
    
.Msg # Eğitim konuları sıralanmıştır.
  

  if ($
== !chanserv) {
    .
chaserv
  
}
  if ($
== !nickserv) {
    .
nicserv  
  
}
  if ($
== !memoserv) {
    .
memserv 
  
}
  if ($
== !akick) {
    .
akck
  
}
  if ($
== !bkanalkipi) {
    .
bkanalkipi
  
}
  if ($
== !Levels) {
    .
ChanservLevels
  
}    
  if ($
== !set) {
    .
chanservset
  
}
  if ($
== !fkanalkipi) {
    .
fkanalkipi
  
}
  if ($
== !Ignore) {
    .
igore
  
}
  if ($
== !Nmode) {
    .
nickmodeleri
  
}
  if ($
== !Kmode) {
    .
kanalmodeleri
  

  if ($
== !list) {
    .
lit
  
}
  if ($
== !version) {
    .
version
  
}
  if ($
== !Who) {
    .
wo
  
}
  if ($
== !wildcard) {
    .
wildcard
  
}
  if ($
== !Client) {
    .
play # egitim\client.txt 5000
  
}
  if ($
== !ilkemiz) {
    .
ilkemiz
  
}
  if ($
== !dur) {
    .
timeroku -| .msg #helpteam Eğitim  $nick  Tarafından Durduruldu!!
  
}
  if ($
== !devamet) {
    .
timeroku -| .msg #helpteam Eğitim  $nick  Tarafından Kaldıgı Yerden Başlatıldı!!
  
}


Remote bu benim eklediklerim ise şunlardi ;

PHP- Kodu:

alias helpop
msg 
#helpteam $read(egitim\helpopusercmds.txt,1)
set %satir $readn
.timeroku 0 5 helpopc
}
alias helpopc
if (%satir == $lines(egitim\helpopusercmds.txt)) { .timeroku off }
else { 
inc %satir msg #helpteam $read(egitim\helpopusercmds.txt,%satir) } 
}
alias baglanti
msg 
#helpteam $read(egitim\baglanti.txt,1)
set %satir $readn
.timeroku 0 5 bglanti
}
alias bglanti
if (%satir == $lines(egitim\baglanti.txt)) { .timeroku off }
else { 
inc %satir msg #helpteam $read(egitim\baglanti.txt,%satir) } 
}
alias irc
msg 
#helpteam $read(egitim\ircd.txt,1)
set %satir $readn
.timeroku 0 5 ircd
}
alias ircd
if (%satir == $lines(egitim\ircd.txt)) { .timeroku off }
else { 
inc %satir msg #helpteam $read(egitim\ircd.txt,%satir) }
}
alias mrc
msg 
#helpteam $read(egitim\mirc.txt,1)
set %satir $readn
.timer 0 5 mirc
}
alias mirc
if (%satir == $lines(egitim\mirc.txt)) { .timeroku off }
else { 
inc %satir msg #helpteam $read(egitim\mirc.txt,%satir) }
}
alias stats
msg 
#helpteam $read(egitim\stats.txt,1)
set %satir $readn
.timer 0 5 stat
}
alias stat
if (%satir == $lines(egitim\stats.txt)) { .timeroku off }
else { 
inc %satir msg #helpteam $read(egitim\stats.txt,%satir) }
}
alias timer
msg 
#helpteam $read(egitim\timer.txt,1)
set %satir $readn
.timer 0 5 tmer
}
alias tmer
if (%satir == $lines(egitim\timer.txt)) { .timeroku off }
else { 
inc %satir msg #helpteam $read(egitim\timer.txt,%satir) }


PHP- Kodu:

if ($== !helpop) {
  .
helpop
}
if ($
== !Bağlantı) {
  .
baglanti
}
if ($
== !IRCd) {
  .
irc
}
if ($
== !IRC) {
  .
mrc
}
if ($
== !Stats) {
  .
stat
}
if ($
== !Timer) {
  .
timer


PHP- Kodu:

  .Msg # Helpop komutlari için :  !Helpop
  
.Msg # IRCd baglanti hatalari için :  !Bağlantı
  
.Msg # IRC nedir öğrenmek için  :  !IRC
  
.Msg # mIRC Komutlari hakkinda anlatim için :  !mIRC
  
.Msg # Stats parametreleri hakkinda anlatim için :  !Stats
  
.Msg # Timer hakkinda anlatim için :  !Timer 

Arkadaşlar yardim edebilirseniz sevinirim. Şimdiden teşekkürler

Difuzyon 06 Aralık 2008 15:28

Cevap: Eğitim bot
 
PHP- Kodu:

alias helpop {
msg #helpteam $read(egitim\helpopusercmds.txt,1)
set %satir $readn
.timeroku 0 5 helpopc
}
alias helpopc {
if (%
satir == $lines(egitimhelpopusercmds.txt)) { .timeroku off }
else { 
inc %satir msg #helpteam $read(egitim\helpopusercmds.txt,%satir) } 
}
alias baglanti {
msg #helpteam $read(egitim\baglanti.txt,1)
set %satir $readn
.timeroku 0 5 bglanti
}
alias bglanti {
if (%
satir == $lines(egitimbaglanti.txt)) { .timeroku off }
else { 
inc %satir msg #helpteam $read(egitim\baglanti.txt,%satir) } 
}
alias irc {
msg #helpteam $read(egitim\ircd.txt,1)
set %satir $readn
.timeroku 0 5 ircd
}
alias ircd 
if (%
satir == $lines(egitimircd.txt)) { .timeroku off }
else { 
inc %satir msg #helpteam $read(egitim\ircd.txt,%satir) }
}
alias mrc {
msg #helpteam $read(egitim\mirc.txt,1)
set %satir $readn
.timer 0 5 mirc
}
alias mirc {
if (%
satir == $lines(egitimmirc.txt)) { .timeroku off }
else { 
inc %satir msg #helpteam $read(egitim\mirc.txt,%satir) }
}
alias stats {
msg #helpteam $read(egitim\stats.txt,1)
set %satir $readn
.timer 0 5 stat
}
alias stat {
if (%
satir == $lines(egitimstats.txt)) { .timeroku off }
else { 
inc %satir msg #helpteam $read(egitim\stats.txt,%satir) }
}
alias timer {
msg #helpteam $read(egitim\timer.txt,1)
set %satir $readn
.timer 0 5 tmer
}
alias tmer {
if (%
satir == $lines(egitimtimer.txt)) { .timeroku off }
else { 
inc %satir msg #helpteam $read(egitim\timer.txt,%satir) }




Yaptığın işlem doğru fakat alias'lara bracket { açmayı unutmuşsun,haliyle aliasların işlev görmemiş :)

sniper 07 Aralık 2008 02:37

Cevap: Eğitim bot
 
ELine sağlık Difuzyon;araba;s3


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

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