itsMyParty(Me, Party) :-
belongs(Party, Me), want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
happened(It, You) -> cry(You), !,
johnny(Me, MyJohnny),
where(MyJohnny, JohnnyLocation), findall(Anyone, knows(Anyone, JohnnyLocation), AnyoneList), AnyoneList = [],
left(JudyT, judy), left(JohnnyT, MyJohnny), JudyT is JohnnyT,
(handHolding(MyJohnny, judy, JJHH), reason(Y, JJHH, Reason),
johnny(Me, MyJohnny)), !.
itsMyParty(Me, Party) :-
belongs(Party, Me), want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
happened(It, You) -> cry(You), !,
findall(X, playRecord(X, Me), Xs),
dance(N), N < morning, N > afternoon,
leaveAlone(Me, AWhile), AWhile =< morning,
timeUntil(MyJohnny, Me, dancing, T),
findall(S, ReasonsToSmile, Ss), (T > 0 -> Ss = []), !.
itsMyParty(Me, Party) :-
belongs(Party, Me), want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
happened(It, You) -> cry(You), !,
walkedThrough(Judy/myJohnny, theDoor),
like(Judy, Queen), like(myJohnny, King),
(ringOf(myJohnny, RR), wearing(Judy, RR, RingFact)) -> birthdaySurprise(RingFact), !,
itsMyParty(Me, Party) :-
belongs(Party, Me), want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
happened(It, You) -> cry(You), !,
ooh, !.
itsMyParty(Me, Party) :-
belongs(Party, Me), want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
happened(It, You) -> cry(You).
belongs(Party, Me), want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
happened(It, You) -> cry(You), !,
johnny(Me, MyJohnny),
where(MyJohnny, JohnnyLocation), findall(Anyone, knows(Anyone, JohnnyLocation), AnyoneList), AnyoneList = [],
left(JudyT, judy), left(JohnnyT, MyJohnny), JudyT is JohnnyT,
(handHolding(MyJohnny, judy, JJHH), reason(Y, JJHH, Reason),
johnny(Me, MyJohnny)), !.
itsMyParty(Me, Party) :-
belongs(Party, Me), want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
happened(It, You) -> cry(You), !,
findall(X, playRecord(X, Me), Xs),
dance(N), N < morning, N > afternoon,
leaveAlone(Me, AWhile), AWhile =< morning,
timeUntil(MyJohnny, Me, dancing, T),
findall(S, ReasonsToSmile, Ss), (T > 0 -> Ss = []), !.
itsMyParty(Me, Party) :-
belongs(Party, Me), want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
happened(It, You) -> cry(You), !,
walkedThrough(Judy/myJohnny, theDoor),
like(Judy, Queen), like(myJohnny, King),
(ringOf(myJohnny, RR), wearing(Judy, RR, RingFact)) -> birthdaySurprise(RingFact), !,
itsMyParty(Me, Party) :-
belongs(Party, Me), want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
happened(It, You) -> cry(You), !,
ooh, !.
itsMyParty(Me, Party) :-
belongs(Party, Me), want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
want_to(Me, cry) -> cry(Me),
happened(It, You) -> cry(You).
