Old 11-24-2004, 10:38 PM   #16
wooolF[RM]
Senior Member
ioFTPD Foundation User
 
Join Date: Oct 2003
Posts: 411
Default

You could try to bug badass at #ioM0d or #ngZS (irc.efnet.org)...
wooolF[RM] is offline   Reply With Quote
Old 01-25-2005, 10:29 AM   #17
wooolF[RM]
Senior Member
ioFTPD Foundation User
 
Join Date: Oct 2003
Posts: 411
Default

This script needed a small update because of negative results at some point (when user have too much credits). So here's updated script :

Code:
#credits.tcl 1.1
set passwd      "C:/ioFTPD/etc/UserIdTable"
set userroot	"C:/ioFTPD/users"
proc credits {nick uhost handle chan args} {
global passwd userroot
if {[lindex $args 0] == ""} {putserv "PRIVMSG $chan :usage !credits user";return}
set fileid [open $passwd r]
set data [read $fileid]
close $fileid
foreach line [split $data \n] {
		if {[string equal [lindex $args 0] [lindex [split $line :] 0]]} {
		set data $line
	}
	}
foreach dline [split $data \n] {
set cname [lindex [split $dline :] 0]
set dline [lindex [split $dline :] 1]
if {[regexp -- "[lindex $args 0]" $cname]} {set exist 1} else {set exist 0}
	if {![string equal {} $dline] } {
		if {![file exists $userroot/$dline]} {
		return
		}
			set fileid [open $userroot/$dline r]
			set sata [read $fileid]
			close $fileid
			foreach line [split $sata \n] {
			set line [string tolower $line]	
			}
	}
}	
foreach line [split $sata \n] {
		if {[string equal "credits" [lindex [split $line " "] 0]]} {
		set credsex $line
		set credsec0 [lindex $credsex 1]
		set credsec1 [lindex $credsex 2]
		set credsec2 [lindex $credsex 3]
		set credsec3 [lindex $credsex 4]
		set credsec4 [lindex $credsex 5]
		set credsec5 [lindex $credsex 6]
		set credsec6 [lindex $credsex 7]
		set credsec7 [lindex $credsex 8]
		set credsec8 [lindex $credsex 9]
		set credsec9 [lindex $credsex 10]
		set allcreds [expr ($credsec0 + $credsec1 + $credsec2 + $credsec3 + $credsec4 + $credsec5 + $credsec6 + $credsec7 + $credsec8 + $credsec9) * 1.0]
		}
       }
       if {$exist == 1} {
       	putserv "PRIVMSG $chan :[lindex $args 0] has \002[formatkb $allcreds]\002 credits"} else {
       	putserv "PRIVMSG $chan :User does not exist!"
       	}
}
proc formatkb {size} {
   if {$size >= 1073741824} {
      set amount "[format %.2f [expr $size/1073741824.0]] TB"
   } elseif {$size >= 1048576} {
      set amount "[format %.2f [expr $size/1048576.0]] GB"
   } elseif {$size >= 1024} {
      set amount "[format %.2f [expr $size/1024.0]] MB"
   } else {
      set amount "[format %.2f $size] KB"
   }
   return $amount
}
bind pub -|- !credits credits	
putlog "credit script 1.1 loaded!!!"
PS: All credits goes to SomeoneWhoCares for making it and to badass because it was based on his static.tcl
wooolF[RM] is offline   Reply With Quote
Old 01-30-2005, 10:04 AM   #18
|Killer|999
Junior Member
ioFTPD Foundation User
 
Join Date: Jan 2004
Posts: 10
Default

Quote:
Originally posted by wooolF[RM]
This script needed a small update because of negative results at some point (when user have too much credits). So here's updated script :

Code:
#credits.tcl 1.1
set passwd      "C:/ioFTPD/etc/UserIdTable"
set userroot	"C:/ioFTPD/users"
proc credits {nick uhost handle chan args} {
global passwd userroot
if {[lindex $args 0] == ""} {putserv "PRIVMSG $chan :usage !credits user";return}
set fileid [open $passwd r]
set data [read $fileid]
close $fileid
foreach line [split $data \n] {
		if {[string equal [lindex $args 0] [lindex [split $line :] 0]]} {
		set data $line
	}
	}
foreach dline [split $data \n] {
set cname [lindex [split $dline :] 0]
set dline [lindex [split $dline :] 1]
if {[regexp -- "[lindex $args 0]" $cname]} {set exist 1} else {set exist 0}
	if {![string equal {} $dline] } {
		if {![file exists $userroot/$dline]} {
		return
		}
			set fileid [open $userroot/$dline r]
			set sata [read $fileid]
			close $fileid
			foreach line [split $sata \n] {
			set line [string tolower $line]	
			}
	}
}	
foreach line [split $sata \n] {
		if {[string equal "credits" [lindex [split $line " "] 0]]} {
		set credsex $line
		set credsec0 [lindex $credsex 1]
		set credsec1 [lindex $credsex 2]
		set credsec2 [lindex $credsex 3]
		set credsec3 [lindex $credsex 4]
		set credsec4 [lindex $credsex 5]
		set credsec5 [lindex $credsex 6]
		set credsec6 [lindex $credsex 7]
		set credsec7 [lindex $credsex 8]
		set credsec8 [lindex $credsex 9]
		set credsec9 [lindex $credsex 10]
		set allcreds [expr ($credsec0 + $credsec1 + $credsec2 + $credsec3 + $credsec4 + $credsec5 + $credsec6 + $credsec7 + $credsec8 + $credsec9) * 1.0]
		}
       }
       if {$exist == 1} {
       	putserv "PRIVMSG $chan :[lindex $args 0] has \002[formatkb $allcreds]\002 credits"} else {
       	putserv "PRIVMSG $chan :User does not exist!"
       	}
}
proc formatkb {size} {
   if {$size >= 1073741824} {
      set amount "[format %.2f [expr $size/1073741824.0]] TB"
   } elseif {$size >= 1048576} {
      set amount "[format %.2f [expr $size/1048576.0]] GB"
   } elseif {$size >= 1024} {
      set amount "[format %.2f [expr $size/1024.0]] MB"
   } else {
      set amount "[format %.2f $size] KB"
   }
   return $amount
}
bind pub -|- !credits credits	
putlog "credit script 1.1 loaded!!!"
PS: All credits goes to SomeoneWhoCares for making it and to badass because it was based on his static.tcl
how can i fix it when channel is encrypted ?
bot wont respons now on !credits
thx already
|Killer|999 is offline   Reply With Quote
Old 01-30-2005, 12:58 PM   #19
wooolF[RM]
Senior Member
ioFTPD Foundation User
 
Join Date: Oct 2003
Posts: 411
Default

Code:
#credits.tcl 1.2
set passwd      "C:/ioFTPD/etc/UserIdTable"
set userroot	"C:/ioFTPD/users"

set cr_blow(KEY)	"keyhere" ;# "" not to use
set cr_blow(HEAD)	"+OK" ;# leave as is if you dont know what this is

#convert iputs to privmsg
proc cr_iputs_irc {data} {global cr_blow chanx_cr
	if {$cr_blow(KEY) == ""} {
		putquick "PRIVMSG $chanx_cr :$data"
	} else {
		putquick "PRIVMSG $chanx_cr :$cr_blow(HEAD) [encrypt $cr_blow(KEY) $data]"
	}
}

proc credits {nick uhost handle chan args} {global passwd userroot
set chanx_cr $chan
if {[lindex $args 0] == ""} {cr_iputs_irc "PRIVMSG $chan :usage !credits user";return}
set fileid [open $passwd r]
set data [read $fileid]
close $fileid
foreach line [split $data \n] {
		if {[string equal [lindex $args 0] [lindex [split $line :] 0]]} {
		set data $line
	}
	}
foreach dline [split $data \n] {
set cname [lindex [split $dline :] 0]
set dline [lindex [split $dline :] 1]
if {[regexp -- "[lindex $args 0]" $cname]} {set exist 1} else {set exist 0}
	if {![string equal {} $dline] } {
		if {![file exists $userroot/$dline]} {
		return
		}
			set fileid [open $userroot/$dline r]
			set sata [read $fileid]
			close $fileid
			foreach line [split $sata \n] {
			set line [string tolower $line]	
			}
	}
}	
foreach line [split $sata \n] {
		if {[string equal "credits" [lindex [split $line " "] 0]]} {
		set credsex $line
		set credsec0 [lindex $credsex 1]
		set credsec1 [lindex $credsex 2]
		set credsec2 [lindex $credsex 3]
		set credsec3 [lindex $credsex 4]
		set credsec4 [lindex $credsex 5]
		set credsec5 [lindex $credsex 6]
		set credsec6 [lindex $credsex 7]
		set credsec7 [lindex $credsex 8]
		set credsec8 [lindex $credsex 9]
		set credsec9 [lindex $credsex 10]
		set allcreds [expr ($credsec0 + $credsec1 + $credsec2 + $credsec3 + $credsec4 + $credsec5 + $credsec6 + $credsec7 + $credsec8 + $credsec9) * 1.0]
		}
       }
       if {$exist == 1} {
       	cr_iputs_irc "PRIVMSG $chan :[lindex $args 0] has \002[formatkb $allcreds]\002 credits"} else {
       	cr_iputs_irc "PRIVMSG $chan :User does not exist!"
       	}
}
proc formatkb {size} {
   if {$size >= 1073741824} {
      set amount "[format %.2f [expr $size/1073741824.0]] TB"
   } elseif {$size >= 1048576} {
      set amount "[format %.2f [expr $size/1048576.0]] GB"
   } elseif {$size >= 1024} {
      set amount "[format %.2f [expr $size/1024.0]] MB"
   } else {
      set amount "[format %.2f $size] KB"
   }
   return $amount
}
bind pub -|- !credits credits	
putlog "credit script 1.2 with blowfish support loaded!!!"
NOT tested

Again, all credits goes to SomeoneWhoCares for making it and to badass because it was based on his static.tcl
wooolF[RM] is offline   Reply With Quote
Old 01-30-2005, 01:15 PM   #20
|Killer|999
Junior Member
ioFTPD Foundation User
 
Join Date: Jan 2004
Posts: 10
Default

also not working either
but thx for helping me
bot dont resond on !credits in channel works great when bot dont use fishkey
|Killer|999 is offline   Reply With Quote
Old 01-30-2005, 07:46 PM   #21
wooolF[RM]
Senior Member
ioFTPD Foundation User
 
Join Date: Oct 2003
Posts: 411
Default

check this URL

http://badaas.ownage.ws/swbCREDITS_1_4-io.zip

Should work
wooolF[RM] is offline   Reply With Quote
Old 02-16-2005, 01:37 PM   #22
oldhouse80
Member
ioFTPD Foundation User
 
Join Date: May 2003
Posts: 37
Default

any mod to make it work with ioShareDB where u don't have userfiles?
oldhouse80 is offline   Reply With Quote
Old 09-21-2005, 05:42 AM   #23
scoonydeus
Junior Member
ioFTPD Foundation User
 
Join Date: Jul 2005
Posts: 13
Default

Hi all,

Normal cause only the ioBANANA part is blowfish encrypted ... u need to take off the encrytpion of the iobanana ( or the other bot announce part ).
And u can find a script to crypt natively all the bot...

Enjoy http://www.donationcoder.com/Softwar..._eggdrop.shtml
scoonydeus is offline   Reply With Quote
Reply

Tags
badass, credits, ftp, irc, script

Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off

Forum Jump


All times are GMT -5. The time now is 08:23 PM.

Parts of this site powered by vBulletin Mods & Addons from DragonByte Technologies Ltd. (Details)