'PARTY LISTINGS version 1.0.
     'Note: This script comes with a DeletePartyLists.vbs file
     'That can be used with WinScheduler or any other Macro Automated
     'Programs to delete the Party listings previously recorded as old info
     'by having the Macro run DeletePartyList.vbs on advanced schedules.
     'You can also place a shortcut of the DeletePartyList.vbs on your
     'Desktop from your DefBrain Folder so the PartyListings can manually
     'be deleted by clicking on the DeletePartyList.vbs
     'The DeletePartyList.vbs should be put into your DefBrain folder.
     'EditParties.brn should be placed in the DefBrain folder.
     'PartyListings.brn is automatically created upon edit.
     'A new Party list would be made by the statement: Edit Party List.
     'This script is for when users ask about a party or parties.
     'Example: User: Where's the Party?
     'Ziggy(HAL):The Party is at John Doe's House at 10:00PM
     'User: Thanks!
     'Ziggy(Hal):Don't mention it User.
	 If InStr(1, OriginalSentence, "WHO", 1) > 0 Or InStr(1, OriginalSentence, "WHAT", 1) > 0 Or InStr(1, OriginalSentence, "WHEN", 1) > 0 Or InStr(1, OriginalSentence, "WHERE", 1) > 0 Or InStr(1, OriginalSentence, "ABOUT", 1) > 0 And InStr(1, OriginalSentence, "PARTY", 1) > 0 Then
     Party = HalBrain.QABrain(UCase(OriginalSentence), WorkingDir & "PartyListings.brn", UserBrainRel)
     GetResponse = Party
     End If
     'This scipt is for Bot master to schedule party event listings.
     'Example: User: Edit Parties List.
     'Ziggy(Hal):Record Now.
     'User: The party is at John Doe's House at 10:00PM
     'Ziggy(Hal):Party Info Recorded.
     If InStr(1, OriginalSentence, "EDIT PARTIES LIST", 1) > 0 Then 
     Parties = HalBrain.QABrain(UCase(OriginalSentence), WorkingDir & "EditParties.brn", UserBrainRel) 
     GetResponse = Parties
     End If
     'This script is for previous word dedection and triggering
     'the recording of new party listings.
     If InStr(1, PrevSent, "RECORD NOW", 1) > 0 Then
     HalBrain.AppendFile WorkingDir & "PartyListings.brn", "@" & OriginalSentence & vbCrLf & " " & UCase(OriginalSentence)
     GetResponse = "Party info recorded"
     End If