YoOGoU
Messages postés23Date d'inscriptionjeudi 26 février 2004StatutMembreDernière intervention29 février 2004
-
27 août 2004 à 20:54
YoOGoU
Messages postés23Date d'inscriptionjeudi 26 février 2004StatutMembreDernière intervention29 février 2004
-
29 août 2004 à 16:07
;IRC Bouncer Version Test
;By ocZio
;ID $9/05/2002 14:38$
./set %login ooo
./set %pass 666777
on 1:sockclose:bouncerirc: {
//unset %connection
}
on 1:sockclose:lol: {
//unset %connection
}
alias bouncer {
/socklisten bouncer 6668
}
alias bouncermotd {
//sockwrite -n lol :Welcome To The The Alfa version Of The oBNC
//sockwrite -n lol :This BNC was maked by mIRC scripting
//sockwrite -n lol :Scripters :
//sockwrite -n lol :5ocZio
//sockwrite -n lol :5BaK
//sockwrite -n lol :The Commands Are :
//sockwrite -n lol :/quote 10BOUNCERCONNECT 10HOST7/10IP 14PORT
//sockwrite -n lol :/quote BOUNCERDISCONNECT 1
//sockwrite -n lol :This is only test version of the Bouncer so only 1 connection and 1 user is allowed
//sockwrite -n lol :Have Fun ! =D
}
alias bouncerbadmotd {
//sockwrite -n lol :Invalid Pass/User Account pls Check again and retry!
//sockwrite -n lol :Sorry But For the Security reasons you will be disconnected...
//sockclose lol
}
on 1:socklisten:bouncer:{
if $sock(lol).status != active {
/sockaccept lol
/sockwrite -n lol :Pls Enter Your BNC account Infos :
/sockwrite -n lol :/quote LOGIN PASSWORD
/sockwrite -n lol :Thx!
}
else { //goto end }
:end
}
on 1:sockread:lol:{
if ($sockerr > 0) return
:nextread
sockread %temp
if ($sockbr == 0) return if (%temp $null) %temp -
echo 4 %temp
set %atemp %temp if ($left(%temp,4) NICK) && ($sock(lol).status active) { //set %usernick $gettok(%temp,2,32) } if ($left(%temp,4) USER) && ($sock(lol).status active) { //set %useruser $gettok(%temp,2-,32) }
if ($left(%temp,5) == LOGIN) && ($gettok(%temp,2,32) != $null) && ($gettok(%temp,3,32) != $null) { if ($gettok(%temp,2,32) %login) && ($gettok(%temp,3,32) %pass) {
//set %connection Ok | /bouncermotd
}
elseif ($gettok(%temp,2,32) != %login) || ($gettok(%temp,3,32) != %pass) { //bouncerbadmotd | //set %bad 1 }
} if (($sock(bouncer).status listening) && ($sock(lol).status active) && ($sock(bouncerirc).status == active)) { //sockwrite -n bouncerirc %atemp }
if ($left(%temp,$len(bouncerconnect)) == bouncerconnect) {
if ($gettok(%temp,2,32) != $null) && ($gettok(%temp,3,32) != $null) && (%connection == Ok) && ($gettok(%temp,3,32) isnum) { //sockopen bouncerirc $gettok(%temp,2,32) $gettok(%temp,3,32) }
else { //sockwrite -n lol :Error Pls Check Your Port Number and all values!!! }
}
if ($left(%temp,$len(bouncerdisconnect)) == bouncerdisconnect) { if ($gettok(%temp,2,32) !$null) && ($sock(bouncerirc).status active) && ($sock(lol).status == active) && (%Connection == Ok) && ($gettok(%temp,2,32) isnum) && ($gettok(%temp,2,32) == 1) {
//sockwrite -n lol :Ok I will try to Disconnect the Connection pls wait...
//sockwrite -n lol :Done.
//sockclose bouncerirc
//sockclose lol
//unset %connection
on 1:sockopen:bouncerirc:{
if $sock(bouncerirc).status = active {
//sockwrite -n bouncerirc NICK %usernick
//sockwrite -n bouncerirc USER %useruser
}
else { //echo -a Error... }
}
on 1:sockread:bouncerirc:{
if ($sockerr > 0) return
:nextread
sockread %temp
if ($sockbr == 0) return if (%temp $null) %temp -
echo 4 %temp
if $left(%temp,4) = PING {
//sockwrite -n bouncerirc PONG : $+ $gettok(%temp,2,58)
//sockwrite -n lol %temp
}
//sockwrite -n lol %temp
goto nextread
}
;Dialog by BaK
;ID $BaK 22:00$
on 1:dialog:oBNC:init:0:{
if %oBNC.loginuser.1.active == on did -c oBNC 80
if %oBNC.loginuser.2.active == on did -c oBNC 83
if %oBNC.loginuser.3.active == on did -c oBNC 86
if %oBNC.loginuser.4.active == on did -c oBNC 89
if %oBNC.loginuser.5.active == on did -c oBNC 92
if %oBNC.loginuser.6.active == on did -c oBNC 95
if %oBNC.loginuser.7.active == on did -c oBNC 98
if %oBNC.loginuser.8.active == on did -c oBNC 101
if %oBNC.loginuser.9.active == on did -c oBNC 104
if %oBNC.loginuser.0.active == on did -c oBNC 107
if %oBNC.logging == on did -c oBNC 35
}
; ID,left,top,width,height
Dialog oBNC {
option bu
size -1 -1 374 244
title "Options for oBNC."
on *:Dialog:obnc:Sclick:3:{
if $did(oBNC,35).state == 1 { set %oBNC.logging on }
else { unset %oBNC.logging }
set %oBNC.loginuser.1 $did(oBNC,81)
set %oBNC.loginuser.2 $did(oBNC,84)
set %oBNC.loginuser.3 $did(oBNC,87)
set %oBNC.loginuser.4 $did(oBNC,90)
set %oBNC.loginuser.5 $did(oBNC,93)
set %oBNC.loginuser.6 $did(oBNC,96)
set %oBNC.loginuser.7 $did(oBNC,99)
set %oBNC.loginuser.8 $did(oBNC,102)
set %oBNC.loginuser.9 $did(oBNC,105)
set %oBNC.loginuser.0 $did(oBNC,108)
set %oBNC.loginuser.1.password $did(oBNC,82)
set %oBNC.loginuser.2.password $did(oBNC,85)
set %oBNC.loginuser.3.password $did(oBNC,88)
set %oBNC.loginuser.4.password $did(oBNC,91)
set %oBNC.loginuser.5.password $did(oBNC,94)
set %oBNC.loginuser.6.password $did(oBNC,97)
set %oBNC.loginuser.7.password $did(oBNC,100)
set %oBNC.loginuser.8.password $did(oBNC,103)
set %oBNC.loginuser.9.password $did(oBNC,106)
set %oBNC.loginuser.0.password $did(oBNC,109)
if $did(oBNC,80).state == 1 { set %oBNC.loginuser.1.active on }
else { unset %oBNC.loginuser.1.active }
if $did(oBNC,83).state == 1 { set %oBNC.loginuser.2.active on }inuser.4.active on }
else { unset %oBNC.loginuser.4.active }
if $did(oBNC,92).state == 1 { set %oBNC.loginuser.5.active on }
else { unset %oBNC.loginuser.5.active }
if $did(oBNC,95).state == 1 { set %oBNC.loginuser.6.active on }
else { unset %oBNC.loginuser.6.active }
if $did(oBNC,98).state == 1 { set %oBNC.loginuser.7.active on }
else { unset %oBNC.loginuser.7.active }
if $did(oBNC,101).state == 1 { set %oBNC.loginuser.8.active on }
else { unset %oBNC.loginuser.8.active }
if $did(oBNC,104).state == 1 { set %oBNC.loginuser.9.active on }
else { unset %oBNC.loginuser.9.active }
if $did(oBNC,107).state == 1 { set %oBNC.loginuser.0.active on }
else { unset %oBNC.loginuser.0.active }
}
alias obnc { .dialog -m oBNC oBNC }
-------------
donc ken je fait la commende o debut /set %login ooo et /set %pass 666777 ba sa marche.
mais ken je tape /bouncer sa mecrit : /socklisten: 'bouncer' socket in use (line 16, script4.ini)
donc je vais a la ligne 16 ( /socklisten bouncer 6668 )
maintenant je voudrais savoir c koi le probleme ??????