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
}
}
}