Code: Select all
case "addgarage"
lPos = InStr(1, sData, "> ")
sFresh = Mid(sData, lPos + 12)
Set oDat = CreateObject("Scripting.FileSystemObject")
If Not(oDat.FileExists("Scripts\garage.txt")) Then
oDat.CreateTextFile "Scripts\garage.txt"
Set sDatAdd = oDat.OpenTextFile("Scripts\garage.txt", add)
sDatAdd.WriteLine CStr(" [uF] UK Garage ")
sDatAdd.WriteLine
sDatAdd.WriteLine CStr("[" & User.sName & "] " & sFresh)
End If
Set sDatAdd = oDat.OpenTextFile("Scripts\garage.txt", add)
sDatAdd.WriteLine CStr(" <" & date() & "> "+vbTab+" > " & sFresh)
sDatAdd.Close
then..............
Code: Select all
Case "+garage"
Set oDat = CreateObject("Scripting.FileSystemObject")
Set sDatAdd = oDat.OpenTextFile("Scripts\garage.txt", read)
Do While sDatAdd.AtEndOfStream <> True
sFresh = sFresh & vbNewLine & sDatAdd.ReadLine
Loop
sDatAdd.Close
SendPrivate User, sBotName, CStr(sFresh)
for example u would seee
- <[uF]>
[uF] UK Garage
<4/10/2003> > Qualifide - Give it Up
<4/10/2003> > Qualifide - My Living
<4/10/2003> > Qualifide - Think
<4/10/2003> > Robert Reives Ft Chaundria Brown - Always (Goldfinger Remix)
<4/10/2003> > Robert Reives Ft Chaundria Brown - Always (Studio Gangsters Mix)
<4/10/2003> > Storm - Mr Major Fool (On My Todd Remix)