Gå til innhold

eggdrop og winbot


Anbefalte innlegg

Videoannonse
Annonse
Øøh? Er ikkje winbot berre ein eggdrop kompilert for Windows?

 

Eggdrop er jo kjempeenkelt. Kan gi deg ein enkel konfigurasjonsfil når eg kjem heim.

ja eg vet det er enkel men eg får ikkje til sånne f.eks !op nick !say hello

Lenke til kommentar
Øøh? Er ikkje winbot berre ein eggdrop kompilert for Windows?

 

Eggdrop er jo kjempeenkelt. Kan gi deg ein enkel konfigurasjonsfil når eg kjem heim.

ja eg vet det er enkel men eg får ikkje til sånne f.eks !op nick !say hello

http://www.egghelp.org/tcl.htm

 

Script trenger man då.

det vet eg

har laste ned pubchancomm

og det er denne script som gjer desse kommandoene

her er scriptet

# pubchancomm.tcl - a modified version of public.tcl v1.00
# PubChanComm v1.82 - 7 Jun 04
# this is modification of existing code by joaquin
# modified by glide ([email protected])
###########################################
#
#  INSTALLATION (script tested on DiVERSE, VoiD, Eggdrop)
#    1. Place the file into scripts directory
#    2. Add the following line into bots config file
#  source scripts/pcc.tcl 
#    3. Find the following line in pubchancomm.tcl
#  set znak "!" and define your own character or use ! as default
#	(this line is located in the script 2 times: first line of code, and HELP section)
#    4. Edit flags in Commands section or use defaults
#	(+o needed for opping +Q for other commands)
#    5. Rehash the bot
#    6. should work now;)
#
###########################################
#
#Original header follows:

#########################################
#author - [email protected] (joaquin)  #
#editor - [email protected] (joaquin)  #
#########################################

#code:


set znak "!"

############
# Commands #
############

bind pub o|o ${znak}op op
bind pub Q|Q ${znak}deop deop

bind pub Q|Q ${znak}voice voice
bind pub Q|Q ${znak}devoice devoice

bind pub Q|Q ${znak}kick ckick
bind pub Q|Q ${znak}ban ban
bind pub Q|Q ${znak}unban unban
bind pub Q|Q ${znak}kban kban

bind pub Q|Q ${znak}topic topic
bind pub Q|Q ${znak}mode mode
bind pub Q|Q ${znak}help help
bind pub Q|Q ${znak}about about


####################################################################
# Don't change anything below this line except: set znak ""        #
# in the Help section !!! unless you know what you're doing        #
# (if changing anything, pls keep the entire header with script)   #
#__________________________________________________________________#

proc op {nick host hand chan text} {
set target [lindex $text 0]
set target1 [lindex $text 1]
set target2 [lindex $text 2]
if {$target == ""} {
putserv "MODE $chan +o $nick"
} else {
putserv "MODE $chan +ooo $target $target1 $target2"
}
}

proc deop {nick host hand chan text} {
global botnick
set target [lindex $text 0]
set target1 [lindex $text 1]
set target2 [lindex $text 2]
if {$target == ""} {
putserv "MODE $chan -o $nick"
} elseif {[matchattr $nick n|-] == "1"} {
putserv "MODE $chan -ooo $target $target1 $target2"
 } elseif {$target != $botnick} {
if {[matchattr $target n|-] == "0"} {
if {[matchattr $nick -|o $chan] == 1} {
 putserv "MODE $chan -ooo $target $target1 $target2"
  } elseif {[matchattr $target -|o $chan] == 0} {
 putserv "MODE $chan -ooo $target $target1 $target2"
  } else {
 putserv "NOTICE $nick : You don`t have permission to deop the Op $target"
}
} elseif {[matchattr $target n|-] == 1} {
   putserv "NOTICE $nick : You don`t have permission to deop the Op $target"
}
} else {
putquick "NOTICE $nick : Fuck you"
}
}

proc voice {nick host hand chan text} {
set target [lindex $text 0]
set target1 [lindex $text 1]
set target2 [lindex $text 2]
if {$target == ""} {
putserv "MODE $chan +v $nick"
} else {
putserv "MODE $chan +vvv $target $target1 $target2"
}
}

proc devoice {nick host hand chan text} {
set target [lindex $text 0]
set target1 [lindex $text 1]
set target2 [lindex $text 2]
if {$target == ""} {
putserv "MODE $chan -v $nick"
} else {
putserv "MODE $chan -vvv $target $target1 $target2"
}
}

proc ckick {nick host hand chan text} {
global botnick
set target [lindex $text 0]
set reason [lrange $text 1 end]
if {[matchattr $nick n|-] == "1"} {
 putserv "KICK $chan $target :$reason"
 } elseif {$target != $botnick} {
if {[matchattr $target n|-] == "0"} {
if {[matchattr $nick -|o $chan] == "1"} {
 putserv "KICK $chan $target :$reason"
  } elseif {[matchattr $target -|o $chan] == "0"} {
 putserv "KICK $chan $target :$reason"
  } else {
 putserv "NOTICE $nick : You don`t have permission to kick the Op $target"
}
} elseif {[matchattr $target n|-] == 1} {
   putserv "NOTICE $nick : You don`t have permission to kick the Op $target"
}
} else {
putquick "NOTICE $nick : Fuck you"
}
}

proc ban {nick host hand chan text} {
global botnick
set target [lindex $text 0]
set bhost [getchanhost $target $chan]
set banmask "*!*[string trimleft [string range $bhost [string first "!" $bhost] end] ?^~-_+?]"
if {[matchattr $nick n|-] == "1"} {
putserv "MODE $chan +b $banmask"
 } elseif {$target != $botnick} {
if {[matchattr $target n|-] == "0"} {
if {[matchattr $nick -|o $chan] == 1} {
 putserv "MODE $chan +b $banmask"
  } elseif {[matchattr $target -|o $chan] == 0} {
 putserv "MODE $chan +b $banmask"
  } else {
 putserv "NOTICE $nick : You don`t have permission to ban the Op $target"
}
} elseif {[matchattr $target n|-] == 1} {
   putserv "NOTICE $nick : You don`t have permission to ban the Op $target"
}
} else {
putquick "NOTICE $nick : Fuck you"
}
}

proc unban {nick host hand chan text} {
set target [lindex $text 0]
putserv "MODE $chan -b $target"
}

proc kban {nick host hand chan text} {
global botnick
set target [lindex $text 0]
set reason [lrange $text 0 end]
set bhost [getchanhost $target $chan]
set banmask "*!*[string trimleft [string range $bhost [string first "!" $bhost] end] ?^~-_+?]"
if {[matchattr $nick n|-] == "1"} {
 putserv "MODE $chan +b $banmask"
 putserv "KICK $chan $target :$reason"
 } elseif {$target != $botnick} {
if {[matchattr $target n|-] == "0"} {
if {[matchattr $nick -|o $chan] == 1} {
 putserv "MODE $chan +b $banmask"
 putserv "KICK $chan $target :$reason"
  } elseif {[matchattr $target -|o $chan] == 0} {
 putserv "MODE $chan +b $banmask"
 putserv "KICK $chan $target :$reason"
 } else {
 putserv "NOTICE $nick : You don`t have permission to kick the Op $target"
}
} elseif {[matchattr $target n|-] == 1} {
   putserv "NOTICE $nick : You don`t have permission to kick the Op $target"
}
} else {
putquick "NOTICE $nick : Fuck you"
}
}

proc topic {nick host hand chan text} {
putserv "TOPIC $chan :$text"
}

proc mode {nick host hand chan text} {
set mode [lrange $text 0 6]
putserv "MODE $chan :$mode"
}

################
# HELP SECTION #
################

proc help {nick host hand chan text} {
set znak "!"
putserv "NOTICE $nick :Public commands script -- HELP"
putserv "NOTICE $nick :* means that if u don't specify the nick, action will be performed on you"
putserv "NOTICE $nick :${znak}op <nick> -- Ops the nick you specify, *"
putserv "NOTICE $nick :${znak}deop <nick> -- Deops the nick you specify, *"
putserv "NOTICE $nick :${znak}kick <nick> <reason> -- Kicks a user, The reason is optional"
putserv "NOTICE $nick :${znak}voice <nick> -- Voices a user you specify, *"
putserv "NOTICE $nick :${znak}devoice <nick> -- Devoices the nick you specify, *"
putserv "NOTICE $nick :${znak}ban <nick> --  Bans a user"
putserv "NOTICE $nick :${znak}kban <nick> --  Kick/Bans a user"
putserv "NOTICE $nick :${znak}unban <host> -- Unban the host you specify"
putserv "NOTICE $nick :${znak}topic <text> -- Changes the topic of the channel"
putserv "NOTICE $nick :${znak}mode <+/-modes> -- Changes the modes of the channel"
putserv "NOTICE $nick :${znak}help -- Shows this list of commands :)"
putserv "NOTICE $nick :${znak}about -- Shows info about script"   
} 

proc about {nick host hand chan text} {
set ver "1.82"
putserv "PRIVMSG $nick :Script: Public Channel Commands, v${ver}"
putserv "PRIVMSG $nick :Author: joaquin, glide"
putserv "PRIVMSG $nick :joaquin ([email protected]) - written the original code -> true author"
putserv "PRIVMSG $nick :glide ([email protected]) - improved banning, added - multiple target support, topic, mode, help, about"
putserv "PRIVMSG $nick ---------------------------------------------------------------------------------------------------"
putserv "PRIVMSG $nick :E-Mail: [email protected]"
putserv "PRIVMSG $nick :For any bug reports, suggestions, or comments use supported email address"
putserv "PRIVMSG $nick --------------------------------------------------------------------------"
putserv "PRIVMSG $nick :Special thanx to: Logosys (tcl help), _ViPeR_ (testing)"
putserv "PRIVMSG $nick "
putserv "PRIVMSG $nick :I know that !mode command doesn't work on 100%, I will make it in the next update"
} 

set ver "1.82" 
putlog "Public Channel Commands ${ver} Created by joaquin, edited by glide"
putlog "For help type: !help on the channel"

Lenke til kommentar

Winbot? Hva er det forslags piss? Hehe. Jeg kjenner en kar som er litt eldre enn meg, han har laget sin egen bot. Programmert den selv også. Rimelig heftig! :) Men en ting, Eggdrop er noe av det enkleste. Jeg har selv et botnet på EFnet med 3 boter linket. 2 av dem er eggdrop, 1 av dem er Windrop (Eggdrop i cygwin, Windows XP). Funker fett. Konfigurasjonsfiler kan jeg sende til deg over epost. Samt public-chan-commands tcl-script. aSs et et meget bra script for linking av boter.

Lenke til kommentar
Winbot? Hva er det forslags piss? Hehe. Jeg kjenner en kar som er litt eldre enn meg, han har laget sin egen bot. Programmert den selv også. Rimelig heftig! :) Men en ting, Eggdrop er noe av det enkleste. Jeg har selv et botnet på EFnet med 3 boter linket. 2 av dem er eggdrop, 1 av dem er Windrop (Eggdrop i cygwin, Windows XP). Funker fett. Konfigurasjonsfiler kan jeg sende til deg over epost. Samt public-chan-commands tcl-script. aSs et et meget bra script for linking av boter.

men du ikkje send til den eposten på bruker info (har ikkje pw)

send til [email protected]

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
×
×
  • Opprett ny...