TestMax.dk Paster
  • Forside
  • Print
  • Bookmark
  • Kontakt
  • SiteMap


infobox infobox
 

sBNC Bot.

06-08-2009 22:52:39
 
 
Muligheder (Anmeld)
Skrevet af aleek
Kliks 1305
Kategori mIRC scripting request
Hej Derude..

Så køre min sBNC..
Hvordan får jeg sådan en bot hvor jeg kan skrive fks !bnc add bla bla

eller noget??
har set det på #Cuppen og andre chan.

mvh. Alexander
 
infobox infobox


infobox infobox
 
#1Grandjean(Anmeld) 06-08-2009 23:16:02
 
 
For en til at kode det eller kode det selv, eller fint på nettet.
Tjaa, måske Testmax.dk Hjælper? :D
 
infobox infobox

infobox infobox
 
#2aleek(Anmeld) 06-08-2009 23:21:11
 
 
Kender du nogen steder hvor det ligger eller noget?
 
infobox infobox

infobox infobox
 
#3aleek(Anmeld) 06-08-2009 23:27:52
 
 
har prøvet at ligge det her ind:

# Manages your sbnc over irc

# configuration

# variables

set sbnc(trigger) "\$"
set sbnc(version) "2.0"
set sbnc(author) "Made By: #GeeX"
set sbnc(chan) "#ITgamers"
set sbnc(ident) "IDENT"
set sbnc(ircserver) "no.quakenet.org 6667"
set sbnc(server) "IP"
set sbnc(port) "PORT"
set sbnc(realname) "sBNC - By: #ITgamers - www.ITgamers.no"
set sbnc(iface) "none"

# bindings

bind PUB m|- $sbnc(trigger)sbnc sbnc:iface

# copyright

putlog "sBNC Script version $sbnc(version) scripted by $sbnc(author)"

# source (again DO NOT change anything if you are not 100% sure)

proc sbnc:iface { nick host hand chan arg } {
global sbnc
switch -exact -- [string tolower [lindex [split $arg] 0]] {
"add" {
set ident [lindex [split $arg] 1]
set password [expr {int(rand()*1000000) + 1}]
set bncuser [lindex [split $arg] 2]
if {$ident == ""} {
putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc add 'ident' ?nick?."
return
}
putquick "SBNC ADDUSER $ident $password"
putquick "SBNC SIMUL $ident SBNC SET REALNAME $sbnc(realname)"
putquick "SBNC SIMUL $ident SBNC SET SERVER $sbnc(ircserver)"
utimer 60 [list putquick "SBNC SIMUL $ident JOIN $sbnc(chan)"]
putquick "NOTICE $nick :Done. New bnc added!"
if {$bncuser == ""} {
return
} elseif {[onchan $bncuser $chan]} {
putserv "PRIVMSG $bncuser :BNC INFO - $bncuser:"
putserv "PRIVMSG $bncuser :Server: $sbnc(server), Port: $sbnc(port), Ident: $ident, Password: $password, Webinterface: $sbnc(iface)"
putserv "PRIVMSG $bncuser :If you need help, just join: $sbnc(chan)"
} else {
putserv "NOTICE $nick :Error. $bncuser is not on $chan."
return
}
}
"del" {
set ident [lindex [split $arg] 1]
if {$ident == ""} {
putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc del 'ident'."
return
} else {
putquick "SBNC DELUSER $ident"
putquick "NOTICE $nick :Done. User ($ident) deleted."
}
}
"password" {
set ident [lindex [split $arg] 1]
set password [expr {int(rand()*1000000) + 1}]
if {$ident == ""} {
putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc password 'ident'."
return
} else {
putquick "SBNC RESETPASS $ident $password"
putquick "NOTICE $nick :Done. New password for user ($ident) created."
putquick "NOTICE $nick :Password: $password"
}
}
"admin" {
set ident [lindex [split $arg] 1]
if {$ident == "$sbnc(ident)"} {
putquick "NOTICE $nick :Error. This ident is already an admin."
return
} elseif {$ident == ""} {
putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc admin 'ident'."
return
} else {
putquick "SBNC ADMIN $ident"
putquick "NOTICE $nick :Done. User ($ident) has now admin rights."
}
}
"unadmin" {
set ident [lindex [split $arg] 1]
if {$ident == "$sbnc(ident)"} {
putquick "NOTICE $nick :Error. This ident needs admin rights."
return
} elseif {$ident == ""} {
putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc unadmin 'ident'."
return
} else {
putquick "SBNC UNADMIN $ident"
putquick "NOTICE $nick :Done. Admin rights for user ($ident) deleted."
}
}
"global" {
               set arg [lrange [split $arg] 1 end]
if {$arg == ""} {
putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc global 'message'."
return
} else {
putquick "SBNC GLOBAL $arg"
putquick "NOTICE $nick :Done. Global notice to all bouncer users transmitted."
}
}
"join" {
set sbnc(joinchan) "[lindex [split $arg] 1]"
if {$sbnc(joinchan) == ""} {
putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc join 'channel'."
return
} elseif {[string first # $sbnc(joinchan)] != 0} {
putserv "NOTICE $nick :Error. The channel has to start with '#'."
return
} else {
putserv "SBNC tcl :foreach sbnc(user) \[bncuserlist\] {setctx \$sbnc(user) ; channel add $sbnc(joinchan)}"
putserv "NOTICE $nick :Done. All sBNC users joined $sbnc(joinchan)."
return
}
}
"part" {
set sbnc(partchan) "[lindex [split $arg] 1]"
if {$sbnc(partchan) == ""} {
putserv "NOTICE $nick :Error. Wrong syntax. Use $sbnc(trigger)sbnc part 'channel'."
return
} elseif {[string first # $sbnc(partchan)] != 0} {
putserv "NOTICE $nick :Error. The channel has to start with a '#'."
return
} else {
putserv "SBNC tcl :foreach sbnc(user) \[bncuserlist\] {setctx \$sbnc(user) ; channel remove $sbnc(partchan)}"
putserv "NOTICE $nick :Done. All sBNC users parted $sbnc(partchan)."
return
}
}
"help" {
putserv "NOTICE $nick :\037sBNC help\037:"
putserv "NOTICE $nick :Use $sbnc(trigger)sbnc add 'ident' 'realname' to add a bouncer."
putserv "NOTICE $nick :Use $sbnc(trigger)sbnc del 'ident' to delete a bouncer."
putserv "NOTICE $nick :Use $sbnc(trigger)sbnc password 'ident' to generate a new password."
putserv "NOTICE $nick :Use $sbnc(trigger)sbnc admin 'ident' to give admin rights."
putserv "NOTICE $nick :Use $sbnc(trigger)sbnc unadmin 'ident' to remove admin rights."
putserv "NOTICE $nick :Use $sbnc(trigger)sbnc global 'message' to send a global notice to all bouncer users."
putserv "NOTICE $nick :Use $sbnc(trigger)sbnc join 'chan' to join all sBNC user a specific channel."
putserv "NOTICE $nick :Use $sbnc(trigger)sbnc part 'chan' to part all sBNC user a specific channel."
putserv "NOTICE $nick :End of list."
}
"default" {
putserv "NOTICE $nick :Error. Use $sbnc(trigger)sbnc help to see a command overview."
}
}
}




men det virker ikke :S
 
infobox infobox

infobox infobox
 
#4FairFight(Anmeld) 07-08-2009 00:51:33
 
 
Har du prøvet at smide det ind i en MSL bot?
For så er det klart det ikke virker, det der er TCL (det egg-/win-drops bruger) og ikke MSL (mIRC Scripting Language, giver sig selv hvilken klient det virker til).
.
 
infobox infobox

infobox infobox
 
#5Grandjean(Anmeld) 07-08-2009 04:06:36
 
 
Tjaa, måske Testmax.dk Hjælper? :D
 
infobox infobox

infobox infobox
 
#6Jakob(Anmeld) 08-08-2009 19:16:50
 
 
hej du, hoster du det på din ejen computer eller har du købt en FTP adgang til det?

Hvis det er på din egen computer så prøv med forum, der finder du Helt sikkert noget.
Hvis du har købt en FTP adgang så prøv at hør ad hos ham du har købt den hos om det er eggdrop eller MSL.

EDIT:


on *:text:.bnc *:#Futz0r.dk:{
if ($lines(idents.txt) < %totalusers) && ($2 != $null) {
set %password $remove($($str($!rand(a,z) $+ $chr(32), 3),2),$chr(32)) $+ $remove($($str($!rand(0,9) $+ $chr(32), 2),2),$chr(32)) $+ $remove($($str($!rand(a,z) $+ $chr(32), 3),2),$chr(32))
sbnc adduser $2 %password
set %bnctojoin $2
write idents.txt $2
sbnc simul $2 sbnc set realname BNC by #Futz0r.dk
sbnc simul $2 join &partyline
sbnc simul $2 sbnc set server jubiigames.dk.quakenet.org 6667
timer 1 4 /msg $nick %logo You have been added with ident: $2 - and password: %password %ls
timer 1 5 /msg $nick %logo The hostname of the server is: bnc.quickbnc.dk - port: 6006 %ls
timer 1 6 /msg $nick %logo For quickconnect, type: /server bnc.quickbnc.dk:6006 %password -i $2 $2 $+ ^ $+($2,@Futz0r.dk.bnc) $2 %ls
timer 1 7 /msg $nick %logo Remember to idle on #Futz0r.dk !! %ls
unset %password
}


Bare ret #Futz0r.dk til din egen channel
og husk at rette: bnc.quickbnc.dk til dit host og port 6006 skal du også rette til din egen port, den kan du få at vide der vor du har købt den

Grandjean hvis du ikke gider hjælpe så lad vær med at skrive.
Alle vil være Meget gladere hvis du bare holdt din mund lukket :)
The world is yours
 
infobox infobox

infobox infobox
 
#7Grandjean(Anmeld) 08-08-2009 20:42:22
 
 
#6 > Det skal jeg da nok selv bestemme..
Men det kunne jo hjælpe at søge på forum EVT. herinde først før man begynder at spørger..
Tjaa, måske Testmax.dk Hjælper? :D
 
infobox infobox

Påmindelse ved nyt svar

Ved at tilmelde dig automatisk påmindelse, modtager du en email så snart denne tråd bliver besvaret, dog sender vi kun en mail til dig, også selvom der er kommet flere svar, simpelthen for at spare dig for spam i din indbakke.


infobox infobox
  Svar på tråden  
   
 
 
infobox infobox

infobox infobox
  Læs dette før du sender dit indlæg!  
 
Ved tryk på send knappen accepterer du vores regelsæt som kan læses her
Praktiske informationer
Type Eksempel Resultat
Fed [b]din tekst[/b] din tekst
Kursiv [k]din tekst[/k] din tekst
Understreg [u]din tekst[/u] din tekst
Kode felt [code]din tekst[/code]
din tekst
infobox infobox