| Prens | 20 Temmuz 2012 00:46 |
Cevap: !rootekle nick !rootsil nick !root bot'a üzerinde nasil uygularım?
Yeni bir Remote açarak sizden aldığım kod'u ekledim. Ayrıca Bot klasörü içine, helper.txt, oper.txt , services.txt, server.txt, root.txt oluşturdum.
Her iki şekilde de denedim; on *:input:#Yönetim:{ , on *:text:*:#Yönetim:{
Bot'u yanlızca bir iki kişinin emrinde tutmak için; if $nick == YetkiliNickim { gibi bir şey ilave ettim ama...
Bunlara rağmen hiç bir yanıt alamıyorum var mı bir yanlışlık, nerede yanlış yapıyor olabilirim? Kod:
on *:input:*:#:{
if $1 == !helper {
if !$2 { msg $chan :Lütfen !helper ekle/sil/list Nick Şeklinde belirtiniz. | halt }
if $2 == ekle {
if !$3 { msg $chan :Lütfen !helper ekle Nick Şeklinde belirtiniz. | halt }
if !$read(helper.txt,w,$3) {
as oper $3 add $4 h
as oper $3 access add *@*
msg $chan :[ $3 ] Nicki Helper Listesine eklenmişdir
write helper.txt $3
}
else {
msg $chan :[ $3 ] Nicki Helper Listesinde ekli.
}
}
if $2 == sil {
if !$3 { msg $chan :Lütfen !helper sil Nick Şeklinde belirtiniz. | halt }
if $read(helper.txt,w,$3) {
as oper $3 del $4 h
as oper $3 access del *@*
msg $chan :[ $3 ] Nicki Helper listesinden silinmişdir.
write $+(-dl,$readn) helper.txt
}
else {
msg $chan :[ $3 ] Nicki Helper Listesinde ekli degildir.
}
}
if $2 == list {
if $lines(helper.txt) == 0 { msg $chan Helper listesi boş. | halt }
var %hlist 1
while %hlist <= $lines(helper.txt) {
msg $chan %hlist $+ .4) $read(helper.txt,%hlist)
inc %hlist
}
}
}
if $1 == !oper {
if !$2 { msg $chan :Lütfen !oper ekle/sil/list Nick Şeklinde belirtiniz. | halt }
if $2 == ekle {
if !$3 { msg $chan :Lütfen !oper ekle Nick Şeklinde belirtiniz. | halt }
if !$read(oper.txt,w,$3) {
as oper $3 add $4 gh
as oper $3 access add *@*
msg $chan :[ $3 ] Nicki Oper olarak eklenmişdir.
write oper.txt $3
}
else {
msg $chan :[ $3 ] Nicki Oper Listesinde ekli.
}
}
if $2 == sil {
if !$3 { msg $chan :Lütfen !oper sil Nick Şeklinde belirtiniz. | halt }
if $read(oper.txt,w,$3) {
as oper $3 del $4 gh
as oper $3 access del *@*
msg $chan :[ $3 ] Nicki Oper listesinden silinmişdir.
write $+(-dl,$readn) oper.txt
}
else {
msg $chan :[ $3 ] Nicki Oper Listesinde ekli degildir.
}
}
if $2 == list {
if $lines(oper.txt) == 0 { msg $chan Oper listesi boş. | halt }
var %olist 1
while %olist <= $lines(oper.txt) {
msg $chan %olist $+ .4) $read(oper.txt,%olist)
inc %olist
}
}
}
if $1 == !services {
if !$2 { msg $chan :Lütfen !services ekle/sil/list Nick Şeklinde belirtiniz. | halt }
if $2 == ekle {
if !$3 { msg $chan :Lütfen !services ekle Nick Şeklinde belirtiniz. | halt }
if !$read(services.txt,w,$3) {
as oper $3 add $4 ghs
os opercfg $3 add ghs $4
as oper $3 access add *@*
msg $chan :[ $3 ] Nicki Services Admin olarak eklenmişdir
write services.txt $3
}
else {
msg $chan :[ $3 ] Nicki Services Admin Listesinde ekli.
}
}
if $2 == sil {
if !$3 { msg $chan :Lütfen !services sil Nick Şeklinde belirtiniz. | halt }
if $read(services.txt,w,$3) {
as oper $3 del $4 hgs
os opercfg $3 del ghs $4
as oper $3 access del *@*
msg $chan :[ $3 ] Nicki Services Admin listesinden silinmişdir.
write $+(-dl,$readn) services.txt
}
else {
msg $chan :[ $3 ] Nicki Services Admin Listesinde ekli degil.
}
}
if $2 == list {
if $lines(services.txt) == 0 { msg $chan Services Admin listesi boş. | halt }
var %slist 1
while %slist <= $lines(services.txt) {
msg $chan %slist $+ .4) $read(services.txt,%slist)
inc %slist
}
}
}
if $1 == !server {
if !$2 { msg $chan :Lütfen !server ekle/sil/list Nick Şeklinde belirtiniz. | halt }
if $2 == ekle {
if !$3 { msg $chan :Lütfen !server ekle Nick Şeklinde belirtiniz. | halt }
if !$read(server.txt,w,$3) {
as oper $3 add $4 ghsa
os opercfg $3 add ghsa $4
as oper $3 access add *@*
msg $chan :[ $3 ] Nicki Server Admin olarak eklenmişdir
write server.txt $3
}
else {
msg $chan :[ $3 ] Nicki Server Admin Listesinde ekli.
}
}
if $2 == sil {
if !$3 { msg $chan :Lütfen !server sil Nick Şeklinde belirtiniz. | halt }
if $read(server.txt,w,$3) {
as oper $3 del $4 hgsa
os opercfg $3 del ghsa $4
as oper $3 access del *@*
msg $chan :[ $3 ] Nicki Server Admin listesinden silinmişdir.
write $+(-dl,$readn) server.txt
}
else {
msg $chan :[ $3 ] Nicki Server Admin Listesinde ekli degil.
}
}
if $2 == list {
if $lines(server.txt) == 0 { msg $chan Server Admin listesi boş. | halt }
var %slist 1
while %slist <= $lines(server.txt) {
msg $chan %slist $+ .4) $read(server.txt,%slist)
inc %slist
}
}
}
if $1 == !root {
if !$2 { msg $chan :Lütfen !root ekle/sil/list Nick Şeklinde belirtiniz. | halt }
if $2 == ekle {
if !$3 { msg $chan :Lütfen !root ekle Nick Şeklinde belirtiniz. | halt }
if !$read(root.txt,w,$3) {
as oper $3 add $4 ghsac
os opercfg $3 add root $4
as oper $3 access add *@*
msg $chan :[ $3 ] Nicki Root olarak eklenmişdir.
write root.txt $3
}
else {
msg $chan :[ $3 ] Nicki Root Listesinde ekli.
}
}
if $2 == sil {
if !$3 { msg $chan :Lütfen !root sil Nick Şeklinde belirtiniz. | halt }
if $read(root.txt,w,$3) {
as oper $3 del $4 ghsac
os opercfg $3 del root $4
as oper $3 access del *@*
msg $chan :[ $3 ] Nicki Root listesinden silinmişdir.
write $+(-dl,$readn) Root.txt
}
else {
msg $chan :[ $3 ] Nicki Root Listesinde ekli degildir.
}
}
if $2 == list {
if $lines(root.txt) == 0 { msg $chan Root listesi boş. | halt }
var %rlist 1
while %rlist <= $lines(root.txt) {
msg $chan %rlist $+ .4) $read(root.txt,%rlist)
inc %rlist
}
}
}
}
|
