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/)
-   -   Klasor Ekleme Komutu Bot a Uygulatma (https://www.ircforumlari.net/mirc-scripting-sorunlari/55821-klasor-ekleme-komutu-bot-uygulatma.html)

Cybersoft 27 Nisan 2008 19:14

Klasor Ekleme Komutu Bot a Uygulatma
 
S.a. arkadaşlar bir istegim oLacak benim ßir Koruma Script botum var ve ben Koruma Script ßotuma Örnegin 3 tane Lise Hazırladım Root.txt , Admin.txt ve Oper.txt Listesinde Adı Geçenler Kullanabilsin ve ßu Komut Sadece #yönetim Kanalında ve ßotun Özelinde uygulansın istiyorum

Örnegin !klasorekle Global Dedigimde aşagıdaki Gibi istedigim klasor u eklesin

/as client klasör-adı add

ßurda klasor adını ne vermişsem onu uygulasın


ve birde


!identekle Global@ 123456

yaptıgımda önce ;

/as client klasor-adı mask add identadı@*

Komutunu uygulayarak identi eklesin ve ardından şifreyi koysun

/as client identadı set password 123456

Ve ßundan sonra

/as client identadı set mode +inex (nicklerin modelerini ayarlarsın)

Ve Ardından identi Aktif Etsin

/as client identadı enable (clienti aktif hala getirirsin)


Tabi ikisinide aynı anda uygulasın ve ßu istedigim komutları

Root.txt , Admin.txt ve Oper.txt Listesinde Adı Geçenler ßotun Özelinde ve #yönetim kanalında uygulayabilsinler onun haricinde uygulamak isteyenlere Erişiminiz Yok desin.

Şimdiden Teşekkürler Arkadaşlar.

CipriX 27 Nisan 2008 20:11

Cevap: Klasor Ekleme Komutu Bot a Uygulatma
 
on *:text:*:#yönetim:{
if !klasorekle* iswm $1- {
if $read(root.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(oper.txt,w,$nick) {
.as client $2 add
msg $chan $2 Klasörü eklendi
}
}
else {
msg $nick yetkiniz yok
}
if !identekle* iswm $1- {
if $read(root.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(oper.txt,w,$nick) {
.as client admin mask add $+($2,*)
.as client $2 set password $3
.as client soplar set mode +inex
.as client $2 enable
msg $chan $2 Nicki $3 Şifresiyle eklendi
}
else {
msg $nick yetkiniz yok
}
}
}

Cybersoft 28 Nisan 2008 18:03

Yanıt: Klasor Ekleme Komutu Bot a Uygulatma
 
S.a.

Kardeş klasor eklemek kısmı oldu fakat şunu yazmayı unutmuşum

!identekle kısmında identi Eklemek için Klasor ismi ßelirtmem Gerekiyor yani şöyle diyim

!identekle Klasor-adı ident@ identşifresi

ßu şekilde uyguladıgımda klasor-adı ve açmak istedigim ident@ ve ident e verecegim şifre yi eklesin istiyorum?

CipriX 28 Nisan 2008 18:34

Cevap: Klasor Ekleme Komutu Bot a Uygulatma
 
Kodda bi hata vardı düzelttim tekrar alabilirsin.. Şimdi bahsettiğin şeyden bi tek şey anlamadım bana açıklama yapıyorsun ama komutu vermiyorsun (: komutu ver hatalı olan yeri kırmızıyla göster yardımcı olayım

Cybersoft 28 Nisan 2008 18:42

Yanıt: Klasor Ekleme Komutu Bot a Uygulatma
 
!identekle klasoradı identadı 123456

yaptıgımda önce ;


/as client klasor-adı mask add identadı@* (burda istedigim klasor e istedigim identi açıcak )

Komutunu uygulayarak identi eklesin ve ardından şifreyi koysun

/as client identadı set password 123456 (burda belirttigim ident ' e şifre belirleyecek )

Ve ßundan sonra

/as client identadı set mode +inex (burda belirttigim ident in modelerini ayarlarsın)

Ve Ardından identi Aktif Etsin

/as client identadı enable (burda ise belirttigim identin clienti aktif hala getirirsin)

umarım bu defa olmustur.

CipriX 28 Nisan 2008 19:06

Cevap: Klasor Ekleme Komutu Bot a Uygulatma
 
on *:text:*:#yönetim:{
if !klasorekle* iswm $1- {
if $read(root.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(oper.txt,w,$nick) {
.as client $2 add
msg $chan $2 Klasörü eklendi
}
}
else {
msg $nick yetkiniz yok
}
if !identekle* iswm $1- {
if $read(root.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(oper.txt,w,$nick) {
.as client $2 mask add $+($3,*)
.as client $3 set password $4
.as client $3 set mode +inex
.as client $3 enable
msg $chan $2 Nicki $3 Şifresiyle eklendi
}
else {
msg $nick yetkiniz yok
}
}
}

!ident.. muhabbeti için;

$2 = klasör adı
$3 = identd adı
$4 = Şifre

Olarak değişgen kazanır hata varsa komutlarda bak düzeltirsin hata yok gibi gözüküyor.. Kırmızı olan yere dikkat et önceden soplar diye göstermiştin şimdi böylemi olacak bak bakalım

Cybersoft 28 Nisan 2008 19:19

Yanıt: Klasor Ekleme Komutu Bot a Uygulatma
 
[18:17] <@Security> !klasorekle sevda
[18:17] <Pamela> sevda Klasörü eklendi

ßu Kısım Çalışıyor.

[18:19] <@Security> !identekle sevda deneme 123456
[18:20] <Pamela> sevda klasoru deneme identi Şifresiyle eklendi

Diyor Fakat Eklemiyor Status te ßakın ßunları Diyor ;

-irc.edasohbet.com- Failure -- A client mask must be of the form <user_mask>@<host_mask>
-
-irc.edasohbet.com- Failure -- Client "deneme" does not exist
-
-irc.edasohbet.com- Failure -- Client "deneme" does not exist
-
-irc.edasohbet.com- Failure -- Client "deneme" does not exist


+ bide : root.txt te nickim oLmasına Ragmen Özelimde yetkiniz yok Diyor.

CipriX 28 Nisan 2008 20:19

Cevap: Klasor Ekleme Komutu Bot a Uygulatma
 
şimdi dene $3 yerine $32 yazmışım komutları kontrol et

XcLusive 30 Nisan 2008 01:06

Cevap: Klasor Ekleme Komutu Bot a Uygulatma
 
Kod:

alias iekle writeini klasor.ini $1-
alias isil remini klasor.ini $1-
alias klasor return $ini(klasor.ini,$1-)
on *:text:*:?:{
  if ($1 == !rootekle) && ($2) {
    if (!$istok(MasterNick,$nick,32)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | halt }
    if ($read(root.txt,w,$2)) { msg $nick $2 Daha önceden eklenmiş | halt }
    write root.txt $2 | msg $nick $2 Root listesine eklendi
  }
  if ($1 == !rootsil) && ($2) {
    if (!$istok(MasterNick,$nick,32)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | halt }
    if (!$read(root.txt,w,$2)) { msg $nick $2 Daha önceden silinmiş | halt }
    write $+(-ds,$2) root.txt | msg $nick $2 Root listesinden silindi
  }
  if ($1 == !klasorekle) {
    if (!$read(root.txt,w,$nick)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | return }
    if !$2 && !$3 && !$3 { msg $nick komut kullanımı : !identekle klasör ident@* şifre | return }
    if ($chr(64) !isin $3) { msg $nick ident maskı " ident@* " gibi olmalıdır | return }
    if ($klasor($2) != 0) { msg $nick $2 Klasörü daha önceden eklenmiş | return }
    $iekle($2,klasor,$2)
    $iekle($2,ident,$3)
    $iekle($2,ipass,$4)
    /as client $2 mask add $3
    /as client ident-adı set password $4
    /as client $3 enable
    msg $nick klasör : $2 - ident : $3 - şifre : $4 , olarak eklendi..
  }
  if ($1 == !klasorsil) {
    if (!$read(root.txt,w,$nick)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | return }
    if !$2 { msg $nick komut kullanımı : !idensil klasöradı | return }
    if ($klasor($2) == 0) { msg $nick $2 Klasörü ekli değil. | return }
    $isil($2)
    msg $nick $2 klasörü başarıyla silindi..
    /as client $2 del
  }
}
on *:text:*:#kanal:{
  if ($1 == !ident) {
    if (!$read(root.txt,w,$nick)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | return }
    if !$2 || ($chr(64) isin $3) { msg $chan komut kullanımı : !ident identadı - mask (@*) kullanmayınız | return }
    var %v = 1,%w = $ini(klasor.ini,0)
    set %ident $2
    while (%v <= %w) {
      if (%ident isin $readini(klasor.ini,$klasor(%v),ident)) {
        set %identd var
        msg $chan Klasör : $klasor(%v)
        msg $chan İdent Maskı : $readini(klasor.ini,$klasor(%v),ident)
        msg $chan İdent Şifresi : $readini(klasor.ini,$klasor(%v),ipass)
      }
      elseif (%v == %w) && (%identd != var) { msg $chan %ident herhangi bir klasörde ekli değil }
      inc %v 1
    }
    unset %identd
  }
}

!rootekle nick
!rootsil nick
komutlarını kullanabilmek için

Kod:

    if (!$istok(MasterNick,$nick,32)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | halt }
satırındaki MasterNick kısmını değişerek botta yetkili olacak nick'i girin..

(root.txt dosyasına eklenmiş nickler için geçerlidir MasterNick'i bunada ekleyin)

!klasorekle klasor identd@* şifre
!klasorsil klasor

sadece kanalda geçerli olan komut
!ident ident
komutudur..

[00:42:47] <XcLusive> !kLasorekLe haLiL xcLusive@* 123456
[00:42:47] <Guest38343> haLiL Klasörü daha önceden eklenmiş
[00:42:53] <XcLusive> !klasorsil halil
[00:42:53] <Guest38343> halil klasörü başarıyla silindi..
[00:42:57] <XcLusive> !kLasorekLe haLiL xcLusive@* 123456
[00:42:58] <Guest38343> klasör : haLiL - ident : xcLusive@* - şifre : 123456 , olarak eklendi..

#kanalda..
[00:45:53] <XcLusive> !ident xclusive
[00:45:53] <Guest38343> Klasör : haLiL
[00:45:54] <Guest38343> İdent Maskı : xcLusive@*
[00:45:54] <Guest38343> İdent Şifresi : 123456


---------------------------------------
ident için eklenmiş şifreyi göstermemek istiyorsanız
Kod:

msg $chan İdent Şifresi : $readini(klasor.ini,$klasor(%v),ipass)
satırını silin..

not : sanırım bu sistem cr için yapılmış bir paralı bota ait, para konusunu pek sevmediğim için yayınlamak istedim..

SessizKaLp 07 Ekim 2009 09:53

Cevap: Klasor Ekleme Komutu Bot a Uygulatma
 
IF 'te aradım ama bulamadım, bende yapmaya çalıştım aslında ama olmadı.
Bot bu konu başlığında ki klasor ident vs gibi eklemeler yaptığımız gibi.

!identd klasor-adı eski şifre yeni şifre

şeklinde uygulama yaptırabilirmiyiz?


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

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