!freebie

[devilsoulblack]

any one have where download tcl script for !freebie when the user tipe in the channel !freebie the egg send text fron a txt list ?

[caesar]

Code: Select all

bind pub - !freebie my:freebie

proc my:freebie {nick uhost hand chan text} {
  set content [split [read [set f [open "freebie.txt" r]]][close $f] \n] 
  foreach line $content {
    putserv "PRIVMSG $nick :$line"
  }
}

[PrImuZ]

where put the freebie.txt what section ?

[caesar]

The freebie.txt file (you can change it's name if you want to but you must change in the tcl file too) in the eggdrop's "root" directory.

[devilsoulblack]

Code: Select all

bind pub - !freebie my:freebie

proc my:freebie {nick uhost hand chan text} {
  set content [split [read [set f [open "freebie.txt" r]]][close $f] \n] 
  foreach line $content {
    putserv "PRIVMSG $nick :$line"
  }
}

the problem its when type !freebie the egg send all site to put in the freebie.txt the thin its only send one line to freebie.txt

[GodOfSuicide]

Code: Select all

proc randomline { file } {
  set fp [open $file r] 
  seek $fp 0 end 
  set len [tell $fp] 
  seek $fp [rand $len] 
  gets $fp partial 
  if {[gets $fp line] == -1} { 
    seek $fp 0 
    gets $fp line 
  } 
  return $line
  close $file
}

some old code someone in here provided once, dunno who it was...

[Hansje]

Code: Select all

proc randomline { file } {
  set fp [open $file r] 
  seek $fp 0 end 
  set len [tell $fp] 
  seek $fp [rand $len] 
  gets $fp partial 
  if {[gets $fp line] == -1} { 
    seek $fp 0 
    gets $fp line 
  } 
  return $line
  close $file
}

some old code someone in here provided once, dunno who it was...

thx m8, where do i have to put this in the script above ?