Code:

bind pub -|- !reklame pub_lavreklamebind pub -|- !slet pub_drabreklame ################### Lav Reklame ###################proc pub_lavreklame {nick uhost hand chan arg} {global reklameid reklametidif {![isop $nick $chan]} {putnoobuser $chan $nick ; return 0}set reklame [join [lrange [split $arg] 1 end]]set reklametid [join [lrange [split $arg] 0 0]]set reklameid($reklame) [timer $reklametid "visreklame $chan \"$reklame\" \"$reklame\""]putserv "NOTICE $nick : advertisement  \"$reklame\" is now createt with the following interval $reklametid minutte(r)"}###################     End     ####################################### Show advertisement ####################proc visreklame {chan id reklame} {global reklameid reklametid set reklame [join [lrange [split $reklame] 0 end]]putserv "PRIMSG $chan : 12\[4AliasFM12\] $reklame 12\[4AliasFM12\]"set reklameid($reklame) [timer $reklametid "visreklame $chan \"$reklame\" \"$reklame\""]}###################     End     ####################################### Dræb Reklame ####################proc pub_drabreklame {nick uhost hand chan arg} {global reklameid reklametidif {![isop $nick $chan]} {putnoobuser $chan $nick ; return 0}set arg [join [lrange [split $arg] 0 end]] killtimer $reklameid($arg)putserv "NOTICE $nick : Reklamen \"$arg\" er nu slettet"}###################     End     ###################putlog "Reklame by Xirg Loaded Edited by Dj-Fire"