This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Help Pleez

Old posts that have not been replied to for several years.
Locked
[
[Nero]
Voice
Posts: 29
Joined: Mon May 27, 2002 8:00 pm

Post by [Nero] »

can anyone tell me why i get Tcl error [dcc_[censored]_site]: expected integer but got ""
with the script below please Many Thanx

proc dcc_[censored]_site {nick idx arg} {
global templist lasttempsite max_shitpost max_warnings

set sitenum [lindex $arg 0]
set reason [lrange $arg 1 end]

if {($sitenum == "") || (![isnumeric $sitenum]) || ($reason == "")} {
nick_notice $nick "02ERROR:02 usage 02.shitsite <37Site Number37> <37Reason37>02"
return 0
}

if {$sitenum > $lasttempsite} {
nick_notice $nick "02ERROR:02 last postet Site is <0237$lasttempsite3702>"
return 0
}

set username [getnickfromlist "<$sitenum>"]
set usermask [getmaskfromlist "<$sitenum>"]

if {![validuser $username]} {
set username [finduser $usermask]
}

set ****sites [setshitsites $username "add"]

chan_privmsg "Sorry <0237$username3702> Your Site Nr: <0237$sitenum3702> Not Accepted!"
chan_privmsg "<0237$nick3702> says 0237$reason3702"

if {$max_shitpost <= $shitsites} {
chattr $username "+4"
kickuser $username ")SHITPOSTER NOT ALLOWED HERE PLEASE CHECK YOUR SITES BEFORE YOU POST("
setshitsites $username "new"
set warnings [setwarnings $username "add"]
if {$max_warnings >= $warnings} {
newchanban $usermask $nick "--> **** POSTER <--" 60
}
}
}

User avatar
stdragon
Owner
Posts: 959
Joined: Sun Sep 23, 2001 8:00 pm
Contact:

Post by stdragon »

When does it give you that error? Every time?
[
[Nero]
Voice
Posts: 29
Joined: Mon May 27, 2002 8:00 pm

Post by [Nero] »

yes every time that part of the script is called
Locked