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/)
-   -   S-Bot Yardım Lütfen. (https://www.ircforumlari.net/mirc-scripting-sorunlari/223297-s-bot-yardim-lutfen.html)

geniune 17 Haziran 2009 18:38

S-Bot Yardım Lütfen.
 
Elimde bitane s-bot varda hata veriyo sunucuya girmiyo yardım edermisiniz.

* /sockopen: insufficient parameters (line 63, sbot1.mrc)

bu hatayı veriyo.

Hatayı Verdiği Sbot1.mrc'in icindeki code şu şekilde


on *:start: {
standarttimers
var %h 1
while %h <= $findfile(saves\,*.*,0) {
hmake $nopath($findfile(saves\,*.*,%h))
hload $nopath($findfile(saves\,*.*,%h)) $findfile(saves\,*.*,%h)
inc %h
}
var %h 1
while %h <= $findfile(opn\,*.*,0) {
hmake $left($nopath($findfile(opn\,*.*,%h)),-5)
hload $left($nopath($findfile(opn\,*.*,%h)),-5) $findfile(opn\,*.*,%h)
inc %h
}
var %h 1
while %h <= $findfile(greeting\,*.*,0) {
hmake $left($nopath($findfile(greeting\,*.*,%h)),-5)
hload $left($nopath($findfile(greeting\,*.*,%h)),-5) $findfile(greeting\,*.*,%h)
inc %h
}
loadhash
}
alias standarttimers {
.timerxtatus 0 5 _serverstatus
.timerxtartbot 0 5 _startbot
.timerxdinle 0 5 dinle
}
alias _startbot {
var %startb 1
while %startb <= $hget(0) {
if $exists($+(saves\,$hget(%startb))) {
if !$sock($hget(%startb)) {
; $+(.timer,open,$hget(%startb)) 1 $calc(%startb * 2) _sockopen $hget(%startb) $hget($hget(%startb),connectname) $hget($hget(%startb),connectport)
_sockopen $hget(%startb) $hget($hget(%startb),connectname) $hget($hget(%startb),connectport)
}
else {
sw $hget(%startb) notice SBot ok
}
if $hget($hget(%startb),koruma.swatbot) {
if !$sock($+(swat1,$hget(%startb))) {
; $+(.timer,opensw,$hget(%startb)) 1 $calc(%startb * 2) _sockopen $+(swat1,$hget(%startb)) $hget($hget(%startb),connectname) $hget($hget(%startb),connectport)
_sockopen $+(swat1,$hget(%startb)) $hget($hget(%startb),connectname) $hget($hget(%startb),connectport)
}
else {
sw $+(swat1,$hget(%startb)) NOTICE SBot ok
}
if !$sock($+(swat2,$hget(%startb))) {
; $+(.timer,opensw,$hget(%startb)) 1 $calc(%startb * 2) _sockopen $+(swat2,$hget(%startb)) $hget($hget(%startb),connectname) $hget($hget(%startb),connectport)
_sockopen $+(swat2,$hget(%startb)) $hget($hget(%startb),connectname) $hget($hget(%startb),connectport)
}
else {
sw $+(swat2,$hget(%startb)) NOTICE SBot ok
}
}
}
inc %startb
}
}
alias _sockopen {
if $sock($1) {
return
}
sockopen $1-
}
alias gedit {
return $did(serveredit,$1)
}
alias sbot.save {
if !$hget($gedit(4)) {
hmake $gedit(4)
}
var %d hadd -m $gedit(4)
%d connectname $gedit(4)
%d connectport $gedit(6)
%d connectpass $gedit(8)
%d sbotnick $gedit(11)
%d sbotoper $gedit(12)
%d sbotidentd $gedit(13)
%d kanalminuser $gedit(18)
%d kanalsabit $gedit(19)
%d kanalgirme $gedit(20)
%d kanaloyun $gedit(24)
%d kanalcinsel $gedit(26)
%d kanalopers $gedit(28)
%d kanalbilgi $gedit(30)
%d dokunmahost $gedit(31)
%d dokunmanick $gedit(322)
%d dokunmakanal $gedit(33)
%d musterikod $gedit(34)
%d mustericep $gedit(35)
if $did($dname,129).state == 1 {
%d radyohostport $gedit(32)
%d radyopass $gedit(334)
%d radyokanal $gedit(36)
%d radyodjkanal $gedit(38)
}
%d koruma.kanalreklam $did($dname,41).state
%d koruma.badnick $did($dname,42).state
%d koruma.viruschan $did($dname,43).state
%d koruma.agresifb $did($dname,44).state
%d koruma.agresifg $did($dname,45).state
%d koruma.sendqexit $did($dname,46).state
%d koruma.ciftversion $did($dname,47).state
%d koruma.proxy $did($dname,48).state
%d koruma.akillist $did($dname,49).state
%d koruma.badnick $did($dname,42).state
%d koruma.klasik $did($dname,50).state
%d koruma.swatbot $did($dname,51).state
hsave $gedit(4) $+(saves\,$gedit(4))
if $dialog(serveredit) {
gunset serveredit
dialog -x $ifmatch
}
_serverstatus
}
alias _rands {
var %i 1 , %l $r(2,8) , %r
while $len(%r) <= %l {
var %o 1 , %u , %y
while %o <= 3 {
$iif($istok(a.e.i.o.u,$left($right(%r,%o),1),46),i nc %u,inc %y)
inc %o
}
var %k $iif(%u >= 2,1,$iif(%y >= 3,2,$r(1,2))) , %x $r(a,z)
while $iif(%k == 1,$istok(a.e.i.o.u,%x,46),!$istok(a.e.i.o.u,%x,46) ) {
%x = $r(a,z)
}
%r = $+(%r,%x)
}
return %r
}


ne diye hata veriyo yardım edermisiniz..

rX 17 Haziran 2009 19:35

Cevap: S-Bot Yardım Lütfen.
 

* /sockopen: insufficient parameters (line 63, sbot1.mrc) : Yetersiz Parametre
Verdigin sbot1.mrc içinde 63. satırdaki;

sockopen $1- } bu yani burası yetersiz diyor.

geniune 20 Haziran 2009 10:36

Cevap: S-Bot Yardım Lütfen.
 
düzeltmem de rehberlik yaparmısın

rX 20 Haziran 2009 19:20

Cevap: S-Bot Yardım Lütfen.
 
Socket botlardan fazla anlamam malesef.


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net