bind pub * !mulai join:story 
proc join:story {nick uhost hand chan rest} { 
  global story_timers 
  set story "scripts/porno.txt" 
  if {![info exists story_timers($story)]} { 
    slowmsg $story 
    } else { 
    puthelp "privmsg $nick :already reading..." 
  } 
} 
proc slowmsg {file {pos 0}} { 
  global story_timers 
  set f [open $file] 
  seek $f $pos 
  if {[gets $f line]>-1} { 
    putserv "privmsg #dex :15,5$line" 
    set story_timers($file) [utimer 5 [list slowmsg $file [tell $f]]] 
    } else { 
    utimer 14 [list putserv "Re-reading the story:"] 
    set story_timers($file) [utimer 10 [list slowmsg $file]] 
  } 
  close $f 
}


putlog "sex.tcl Loaded@...!"