Prolog Text Based Adventure Game

I have uploaded my 3rd Year Knowledge Representation project. It's a text based adventure game designed in amzi prolog. The game is not mainstream and is for learning intentions only. It's a platform for learning a bit of Artifical Intelligence. This will be useful if your doing a project similar to this. You will need to download amzi to run and play the game.

Update: Link is now down, so here's the source code
And if you haven't guessed you need to take out the html br's. Don't know why they keep popping up!
<code> <br /> <br /> <br /> <br />/******************************************************************/ <br /><br />/*Author: Diarmuid O'Sullivan */<br />/*www.diarmuidos.blogspot.com */<br /> /*this rule allows you to start the game */<br /> /* and it prints out instructions and tells where you are. */<br /><br />/******************************************************************/ <br /><br />start:- instructions, <br /> intro,<br /> rn(Place), <br /> i_am_at(X),<br /> retract(i_am_at(X)),<br /> assert(i_am_at(Place)),<br /> write(' You Start the Game at the '), write(Place), write('. Good luck!'), nl,nl,nl,<br /> look.<br /> <br />/******************************************************************/ <br /><br /> /* this rule just writes out game instructions. */ <br /><br />/******************************************************************/ <br /><br /><br />intro:-nl, write('<br />*****************************************************************************************************************************<br /><br /> WELCOME TO THIAMIN<br /><br />*****************************************************************************************************************************<br />Welcome to the world of Thiamin... These lands have been ruled for many years by a King.<br />At first the kingdom flourished and jobs were plentiful. However after the "Incident" the local economy collapsed.<br />The King did nothing to try and help those affected.<br /><br />Infact the few rich families got wealthier and the rest of the population became poor and were forced to become<br />reliant on fishing, forestry and farming.<br /><br />With no grants, no social welfare the people of Thiamin became tired of this regime. <br />However anyone who apposed the king soon "disappeared". <br /><br />You personally are sick of the mistreatment. You were one the lucky few to receive an Education (in secret).<br />And because of the current regin of the King are unable to receive a grant to go to college and become a computer programmer!!! <br />Something you have always wanted to do...............................<br /><br /><br />You awake.........<br />Uhhhhhhh.....You feel groggy and sore,<br /><br />All you have is a map and this tattered old rucksack.<br /><br />The last thing you remember was trying to talk to the King.'),nl.<br /><br /><br /><br />instructions :- nl, write('Enter commands using standard Prolog syntax.'), nl,<br /> write('***************************************************************'), nl,<br /> write('Available commands are: '), nl,<br /> write('start. -- to start the game.'), nl,<br /> write('n. s. e. w. -- to go in that direction.'), nl, <br /> write('take(object). -- to pick up an object.'), nl,<br /> write('talk(person). -- to start a conversation.'), nl,<br /> write('list. -- to list waht you are holding.'), nl,<br /> write('drop(object). -- to drop down an onject.'), nl,<br /> write('look. -- to look around you again.'), nl, <br /> write('instructions. -- to see this message again.'), nl,<br /> write('bagit(object). -- to put an item you see into a bag'), nl,<br /> write('listB. -- to list what is in your bag.'), nl,<br /> write('eat(foodType). -- to eat some food.'), nl,<br /> write('drink(liquid). -- to drink some something.'), nl,<br /> write('fight(Enemy). -- to fight your enemy.'), nl, <br /> write('tip . -- Offers you a random tip.'), nl,<br /> write('halt. -- to end the game and quit.'), nl,<br /> write('***************************************************************'),nl.<br /><br /><br />map:-nl,write(' @@@@@@@@@@ ---------- '),nl,<br />write(' | | | | '),nl,<br />write(' | Swamp | | ? | '),nl,<br />write(' | | | | '),nl,<br />write(' ---------- ---------- '),nl,<br />write(' | | '),nl,<br />write(' | | '),nl,<br />write(' |------ | '),nl,<br />write(' | | '),nl,<br />write(' ---------- ^^^^^^^^^^ ---------- '),nl,<br />write(' | | | | | | '),nl,<br />write(' | Forest |_____________ | Mtn |______| Desert | '),nl,<br />write(' | Area | | | | | '),nl,<br />write(' ---------- ---------- ---------- '),nl,<br />write(' | | | '),nl,<br />write(' |______ | | '),nl,<br />write(' | | | '),nl,<br />write(' MM MM | | | '),nl,<br />write(' MMMMMMMMMM ---------- ********** ---------- '),nl,<br />write(' | | | | | | | | '),nl, <br />write(' | Castle |______| Fishing|______| Witch |______ | Farm | '),nl,<br />write(' | | | Village| | Hut | | | '),nl,<br />write(' ---------- ---------- ---------- ---------- '),nl,<br />write(' | '),nl,<br />write(' | '),nl,<br />write(' | '),nl,<br />write(' wwwwwwwwww '),nl,<br />write(' | | '),nl,<br />write(' | Ocean | '),nl,<br />write(' | | '),nl,<br />write(' wwwwwwwwww '),nl.<br /><br /><br />/******************************************************************/ <br /><br /> /*Ending. */ <br /><br />/******************************************************************/ <br /><br />ending:- write('Your quest is now over. Beacause of you the king has left,<br /> and Thiamin is now free. It may take many years, but Thiamin will recover and catch up<br /> with the rest of the world<br /><br />GAME OVER.'),nl.<br /><br />/******************************************************************/ <br /><br /> /*This rule tells you about the area you are in. */ <br /><br />/******************************************************************/ <br />look:-i_am_at(withut),<br /> withutpic,nl,nl,<br /> describe(withut),nl,<br /> notice_objects_at(withut),nl.<br /><br /><br />look:-i_am_at(farm),<br /> farmpic,nl,nl,<br /> describe(farm),nl,<br /> notice_objects_at(farm),nl.<br /><br />look:-i_am_at(rebelcamp),<br /> rebelpic,nl,nl,<br /> describe(rebelcamp),nl,<br /> notice_objects_at(rebelcamp),nl.<br /><br />look :- i_am_at(Place),<br /> describe(Place), nl,<br /> notice_objects_at(Place), nl.<br /><br />/******************************************************************/ <br /> /* Random Rules */<br /> /*This rule allows you to start in an area. */ <br /><br /><br />location([desert, mtns, forest, fishvill, farm, swamp,withut]).<br /><br />rn(StartHere):- R is integer(random*7), <br /> location(List),<br /> nthelem(R, List, StartHere).<br /><br />nthelem(1, [X|Tail], X).<br />nthelem(Y, [X|Tail], Ans):- NewY is Y -1, nthelem(NewY, Tail, Ans).<br /><br />i_am_at(_).<br /><br />%This rules generates game tips<br /><br />tips(['Have you checked dead bodies for hidden items?','Remember to talk to characters, they offer valuable info.','There are HIDDEN commands.','Holding an object in your hand may spark different reactions from people'<br />,'Be carefull you may have dropped something, keep an eye on what you have in hand/bag','Tip Test']).<br /><br />tip:-R is integer(random*6),<br />tips(List),<br />nthelem(R,List,TipHelp),write(TipHelp).<br /><br />nthelem(1,[X|Tail],X).<br />nthelem(Y,[X|Tail],Ans):-NewY is Y-1, nthelem(NewY,Tail,Ans),<br /><br />write('.').<br /><br />/******************************************************************/ <br /> /* Lists */<br />/******************************************************************/ <br /><br />inbag([]).<br /><br />enemy([troll,rebel]).<br /><br />/******************************************************************/ <br /><br /> /*These rules define the health and strenght of each char.*/<br /><br />/******************************************************************/ <br /> <br />health(player, 100).<br />maxhealth(player, 200).<br />minhealth(player, 0).<br /><br />foodhealth(chocolateBar, 10).<br />foodhealth(fish,20).<br />foodhealth(baconSlice,20).<br />foodhealth(berries,-15).<br />foodhealth(food,8).<br /><br />drinkhealth(potion, 50).<br />drinkhealth(poision, -5).<br />drinkhealth(water, 5).<br />foodhealth(mushrooms, 25).<br /><br />health(troll, 60). <br />health(rebel, 30).<br />health(crazyLady, 25). <br />health(king,100).<br /><br />strength(troll, 15).<br />strength(rebel, 8).<br />strength(player, 5).<br />strength(crazyLady,5).<br />strength(king,30).<br /><br />strength(lightSaber,50).<br />strength(sword, 20).<br />strength(pitchfork,15).<br />strength(hurley,10).<br /> <br />/******************************************************************/ <br /><br /> /*These rules define the paths that are available.*/<br /><br />/******************************************************************/ <br /><br />path(farm, n, desert).<br />path(desert,s,farm).<br /><br />path(desert, w, mtns).<br />path(mtns,e,desert).<br /><br />path(mtns, n, rebelcamp).<br />path(rebelcamp,s, mtns). <br /><br />path(mtns, w, forest).<br />path(forest,e,mtns).<br /><br />path(forest, n, swamp).<br />path(swamp, s,forest).<br /><br />path(forest, s, fishvill).<br />path(fishvill,n,forest).<br /><br />path(fishvill, w, castle).<br />path(castle,e,fishvill). <br /><br />path(fishvill, s, ocean).<br />path(ocean,n,fishvill).<br /><br />path(fishvill, e, withut).<br />path(withut,w,fishvill).<br /><br />path(withut, e, farm).<br />path(farm,w,withut).<br /><br />path(withut, n, mtns).<br />path(mtns,s,withut). <br /><br /><br />/******************************************************************/ <br /><br /> /*These rules define what is at/lives/hidden the paths that are available.*/<br /><br />/******************************************************************/ <br /><br />hidden(lightSaber,_). % for cheat<br /><br />at(chest,ocean).<br />hidden(goldNugget,ocean).<br /><br />food(fish,fishvill).<br />hidden(nets,fishvill).<br />drink(water,fishvill).<br />at(food,fishvill).<br />lives(fisherMan,fishvill).<br /><br />drink(poision, swamp).<br />hidden(key, swamp).<br />lives(troll, swamp).<br /><br />food(mushrooms,forest). <br />at(shovel,forest).<br />food(berries,forest).<br />lives(jack,forest).<br />hidden(hipFlask,forest).<br /><br /><br />lives(rebel, rebelcamp).<br />hidden(fertilizer,rebelcamp).<br /><br />food(chocolateBar,mtns).<br />at(sword,mtns).<br />at(flask,mtns).<br />lives(crazyLady,mtns).<br /><br /><br />at(sword,castle).<br />food(food,castle).<br />lives(king,castle).<br /><br />drink(potion,withut).<br />food(mushrooms,withut).<br />at(hurley,withut).<br />lives(witch,withut).<br />at(door,withut).<br />hidden(rockspringMap,withut).<br /><br />food(baconSlice,farm).<br />drink(water,farm).<br />at(pitchfork,farm). <br />lives(animal,farm).<br />lives(farmer,farm).<br />hidden(magicBeans,farm).<br /><br />lives(nomad,desert).<br /><br />/******************************************************************/ <br /><br /> /*These rules define the direction letters as calls to go/1. */<br /><br />/******************************************************************/ <br /><br /><br />n:- go(n).<br /><br />s:- go(s).<br /><br />e:- go(e).<br /><br />w:- go(w).<br /><br /><br />/******************************************************************/ <br /><br /> /*this rule tells how to move in a given direction. */<br /><br />/******************************************************************/ <br /><br />go(Direction):- i_am_at(Here), <br /> path(Here, Direction, There),<br /> retract(i_am_at(Here)),<br /> assert(i_am_at(There)),<br /> travel,<br /> look.<br /><br />go(_) :- write('You cant go that way!.').<br /><br />/******************************************************************/ <br /><br /> /*These rules set up a loop to mention all the objects in your vicinity. */<br /><br />/******************************************************************/ <br /><br />notice_objects_at(Place):- at(X, Place), <br /> write('There is a '), <br /> write(X), write(' here.'), nl, fail.<br /><br />notice_objects_at(Place):- lives(X, Place), <br /> write('There is a '), <br /> write(X), write(' here.'), nl, fail.<br /><br /><br />notice_objects_at(Place):- drink(X, Place), <br /> write('There is a '), <br /> write(X), write(' here.'), nl, fail.<br /><br />notice_objects_at(Place):- food(X, Place), <br /> write('There is a '), <br /> write(X), write(' here.'), nl, fail.<br /><br />notice_objects_at(Place):- locked(X, Place), <br /> write('There is a '), <br /> write(X), write(' here.'), nl, fail.<br /><br />notice_objects_at(_).<br /><br />/******************************************************************/ <br /><br /> /*These rules describe how to pick up an object.*/<br /><br />/******************************************************************/ <br /><br />% open the door if you are holding the key<br />take(door):-i_am_at(withut),<br /> at(door,withut),<br /> holding(key),<br /> write('Wow, you opened the door'),nl,<br /> write('There is an Old treasure map drawn by an explorer named Rockspring'),nl,<br /> write('You have picked up the Rockspring Map'),nl,<br /> write('But the map is too tattered to use, all you can make out is the name'),nl,<br /> write('What a waste of time.....'),nl,<br /> drop(key),<br /> retract(hidden(rockspringMap,withut)),<br /> assert(holding(rockspringMap)).<br /> <br />% door is locked unless you have a key<br />take(door):-write('You Might want to try a key, or hitting it!').<br /><br /><br />% Chest in Water in Ocean<br />take(chest):-write('Its too risky, you might slip into the ocean').<br /><br />take(chest):-i_am_at(ocean),<br /> at(chest,ocean),<br /> holding(nets),<br /> write('You caught the chest in you fishing nets'),nl,<br /> write('You struggle but eventually pull it in'),nl,<br /> write('The chest is unlocked, you open the lid and find'),nl,<br /> write('A HUGE GOLD NUGGET, it must be worth a fortune'),nl,<br /> drop(nets),<br /> retract(hidden(goldNugget,ocean)),<br /> assert(holding(goldNugget)).<br /> <br /><br /><br />% error here<br />take(X):- i_am_at(Place),<br /> food(X,Place),<br /> holding(I),<br /> drop(I),<br /> retract(food(X,Place)),<br /> assert(holding(X)),<br /> write('You Picked up the '), write(X),write(' But dropped the '),write(I),nl.<br /><br /><br />% and here<br />take(X):- i_am_at(Place),<br /> drink(X,Place),<br /> holding(I),<br /> drop(I),<br /> retract(drink(X,Place)),<br /> assert(holding(X)),<br /> write('You Picked up the '), write(X),write(' But dropped the '),write(I),nl. <br /><br /><br /><br />take(X):- i_am_at(Place),<br /> at(X,Place),<br /> holding(I),<br /> drop(I),<br /> retract(at(X,Place)),<br /> assert(holding(X)),<br /> write('You Picked up the '), write(X),write(' But dropped the '),write(I),nl.<br /><br />take(X):- holding(X),<br /> write('You are already holding it!'),nl. <br /><br /><br />take(X):- i_am_at(Place),<br /> at(X,Place),<br /> retract(at(X,Place)),<br /> assert(holding(X)),<br /> write('OK!'),nl.<br /><br />take(X):- i_am_at(Place),<br /> food(X,Place),<br /> retract(food(X,Place)),<br /> assert(holding(X)),<br /> write('OK!'),nl.<br /><br />take(X):- i_am_at(Place),<br /> drink(X,Place),<br /> retract(drink(X,Place)),<br /> assert(holding(X)),<br /> write('OK!'),nl.<br /><br /><br /><br />take(X):- i_am_at(Place),<br /> lives(X,Place),<br /> write('You cant pick up a living creature......Well not this one anyway!'),nl,<br /> write('OK!'),nl.<br /><br />take(X):- i_am_at(Place),<br /> locked(X,Place),<br /> write('You cant pick that up!'),nl,<br /> write('OK!'),nl.<br /><br />take(X):- inbag(Lst),<br /> holding(Y),<br /> del(X, Lst, NLst),<br /> retract(inbag(Lst)),<br /> assert(inbag(NLst)),<br /> drop(Y),<br /> assert(holding(X)),<br /> write(' You have taken the '), write(X), write(' out of your bag!'),nl,nl,<br /> write(' You are now holding the '), write(X), write('!'),nl.<br /> <br /><br />take(X):- inbag(Lst),<br /> del(X, Lst, NLst),<br /> retract(inbag(Lst)),<br /> assert(inbag(NLst)),<br /> assert(holding(X)),<br /> write('You have taken the '), write(X), write(' out of your bag!'),nl,<br /> write(' You are now holding the '), write(X), write('!'),nl.<br /> <br /><br /><br />take(_):- write('I dont see it here!'),n1. <br /><br /><br />list :- holding(X),<br /> write('You are holding the '), write(X), nl.<br /> <br /><br />list :- write('You are not holding anything!'), nl, write('You must take an item to hold it!'), nl.<br /><br />del(X, [X|Tail], Tail).<br />del(X, [Y|Tail], [Y|Tail1]) :- del(X,Tail, Tail1).<br /><br />/******************************************************************/ <br /><br /> /*These rules describe how to eat and Drink.*/<br /><br />/******************************************************************/ <br /><br /><br />eat(mushrooms):-<br /> i_am_at(Place),<br /> food(X,Place),<br /> retract(at(X,Place)),<br /> foodhealth(X,FH),<br /> write('You ate '),write(X),nl,<br /> health(Player, PH),<br /> NPH is PH + FH,<br /> retract(health(player, PH)),<br /> assert(health(player,NPH)),<br /> write('Your health is now '), write(NPH), nl,<br /> write('But something strange is happening..........'),nl,<br /> retract(i_am_at(Here)),<br /> assert(i_am_at(desert)),<br /> write('You feel groggy and look around'),nl,<br /> look.<br /><br />% allows you to eat while item is in hand<br />eat(X):-<br /> i_am_at(Place),<br /> holding(X),<br /> retract(holding(X)),<br /> foodhealth(X,FH),<br /> write('You ate '),write(X),nl,<br /> health(Player, PH),<br /> NPH is PH + FH,<br /> retract(health(player, PH)),<br /> assert(health(player,NPH)),<br /> write('Your health is now '), write(NPH), nl.<br /><br /><br /> <br />eat(X):-<br /> i_am_at(Place),<br /> food(X,Place),<br /> retract(food(X,Place)),<br /> foodhealth(X,FH),<br /> write('You ate '),write(X),nl,<br /> health(Player, PH),<br /> NPH is PH + FH,<br /> retract(health(player, PH)),<br /> assert(health(player,NPH)),<br /> write('Your health is now '), write(NPH), nl.<br /><br /> eat(_):-<br /> write('You cant eat that!'),nl.<br /><br /><br /><br />drink(X):-<br /> i_am_at(Place),<br /> holding(X),<br /> retract(holding(X)),<br /> drinkhealth(X,DH),<br /> write('You drank '),write(X),nl,<br /> health(Player, PH),<br /> NPH is PH + DH,<br /> retract(health(player, PH)),<br /> assert(health(player,NPH)),<br /> write('Your health is now '), write(NPH), nl.<br /><br /> drink(X):-<br /> i_am_at(Place),<br /> drink(X,Place),<br /> retract(drink(X,Place)),<br /> drinkhealth(X,DH),<br /> write('You drank '),write(X),nl,<br /> health(Player, PH),<br /> NPH is PH + DH,<br /> retract(health(player, PH)),<br /> assert(health(player,NPH)),<br /> write('Your health is now '), write(NPH), nl.<br /><br />drink(_):-<br /> write('You cant drink that!') .<br /><br /><br /><br /><br /><br />/******************************************************************/ <br /><br /> /*These rules describe how to put an object in bag.*/<br /><br />/******************************************************************/ <br /><br />bagit(X):- i_am_at(Place),<br /> holding(X),<br /> retract(holding(X)),<br /> inbag(List), <br /> addxtolist(X, List), <br /> write('OK!'),nl.<br /><br />bagit(X):- i_am_at(Place),<br /> drink(X,Place),<br /> retract(drink(X,Place)),<br /> inbag(List), <br /> addxtolist(X, List), <br /> write('OK!'),nl.<br /><br />bagit(X):- i_am_at(Place),<br /> at(X,Place),<br /> retract(at(X,Place)),<br /> inbag(List), <br /> addxtolist(X, List), <br /> write('OK!'),nl.<br /><br /><br /><br /><br /><br /><br />bagit(X):- i_am_at(Place),<br /> food(X,Place),<br /> retract(food(X,Place)),<br /> inbag(List), <br /> addxtolist(X, List), <br /> write('OK!'),nl.<br /><br />bagit(X):- i_am_at(Place),<br /> drink(X,Place),<br /> retract(drink(X,Place)),<br /> inbag(List), <br /> addxtolist(X, List), <br /> write('OK!'),nl.<br /><br />bagit(X):- i_am_at(Place),<br /> at(X,Place),<br /> retract(at(X,Place)),<br /> inbag(List), <br /> addxtolist(X, List), <br /> write('OK!'),nl.<br /><br />bagit(X):-i_am_at(Place),<br /> hidden(X,Place),<br /> retract(hidden(X,Place)),<br /> inbag(List), <br /> addxtolist(X, List), <br /> write('OK!'),nl.<br /><br /><br />bagit(X):- i_am_at(Place),<br /> lives(X,Place), <br /> write('You cannot put '), write(X), write(' in a bag,!'),nl.<br /><br />bagit(X):- i_am_at(Place),<br /> locked(X,Place), <br /> write('You cannot put '), write(X), write(' in a bag!'),nl.<br /><br /><br />bagit(X):- inbag(X),<br /> write('You are already holding it!'),nl.<br /><br /><br />addxtolist(X, List):- append([X], List, NewList), <br /> retract(inbag(List)),<br /> assert(inbag(NewList)).<br /><br />bag(X):- i_am_at(Place),<br /> lives(X,Place), <br /> write('You cannot put '), write(X), write(' in a bag!'),nl.<br /><br /><br />bagit(_):- write('You cant put that in your bag!'),n1.<br /><br /><br />listB :- inbag([]), write('There is nothing in your bag yet!'), nl, write('You must bag an item first!'), nl.<br /><br /><br />listB :- inbag(X),<br /> write(X). <br /><br />/******************************************************************/ <br /><br /> /*These rules describe how to take an object out of bag and drop it down*/<br />/******************************************************************/ <br /><br />/*bagDrop(X, List):- member(X, List),<br /> i_am_at(Place),<br /> retract(inbag(X)),<br /> assert(at(X,Place)),<br /> write('OK!'), nl.*/<br /><br />/******************************************************************/ <br /><br /> /*These rules describe how to put an object down*/<br />/******************************************************************/ <br /><br />drop(X) :- holding(X),<br /> i_am_at(Place),<br /> retract(holding(X)),<br /> assert(at(X,Place)),<br /> write('OK!'), nl.<br /><br />drop(_) :- write('You arent holding it!'), n1. <br /><br />/******************************************************************/ <br /><br /> /*These rules describe how to talk.*/<br /><br />/******************************************************************/ <br /><br />talk(crazyLady):-i_am_at(mtns),<br /> lives(crazyLady,mtns),<br /> write('Crazy Lady: ymraehtnioj,ymraehtnioj'),nl,nl,<br /> write('Player: This women makes no sense!'),nl,nl,<br /> write('Crazy Lady: esu eht taehc....ymraehtnioj,ymraehtnioj'),nl.<br /><br />talk(rebel):- i_am_at(rebelcamp),<br /> lives(E,rebelcamp),<br /> health(E,EH),<br /> EH>1,<br /> write('Rebel: Hey, what are you doing out here. These are forbidden lands'),nl, <br /> write('We dont take kindly to the Kings subjects'),nl,nl,<br /> write('Get outta here'),nl,<br /> write('<throws>'),nl,nl,<br /> health(player, PH),<br /> NPH is PH - 5,<br /> retract(health(player, PH)),nl,<br /> assert(health(player,NPH)),nl,<br /> checkHealth(player),<br /> write('The rock smacked you right between your eyes. Your health is now '), write(NPH), nl.<br /> <br /><br />talk(jack):-i_am_at(forest),<br /> lives(jack,forest),<br /> holding(fertilizer),<br /> write('Jack: What are those in your hands......OH MY GOD'),nl,<br /> write('Magic beans. Please I must have them. They might take me to magic places, unlike thise carppy mushrooms!!'),nl,<br /> write('Here I will swap you the beans for this....Hipflask'),<br /> drop(magicBeans),<br /> retract(hidden(hipFlask,farm)),<br /> assert(holding(hipFlask)),<br /> write('You have gotten a Hipflask.'),nl.<br /><br />talk(jack):-i_am_at(forest),<br /> lives(jack,forest),<br /> write('Jack: Hi, my names Jack'),nl,<br /> write('You might remember me from some stories such as, Jack and the Beanstalk'),nl,<br /> write('But its been a while since i gotta job. I sure wish i could make a sequel or something to get back on track'),nl.<br /><br /><br />talk(witch):-i_am_at(withut),<br /> lives(witch,withut),<br /> write('Witch: I was not always the most powerfull witch in this land'),nl,<br /> write('I once worked for a witch, all knowing and powerfull......'),nl,<br /> write('She was imprisoned by the King, kept in solitary confinment.'),nl,<br /> write('This made her go crazy, but I reckon she can still remember old spells and tricks!'),<br /> write('She eventually was released, but she never returned, some say she lives in the swamp, others reckon they hear chants from the mountains!'),nl.<br /><br />talk(farmer):-i_am_at(farm),<br /> lives(farmer,farm),<br /> holding(sword),<br /> write('Farmer: Sorry, but do you mind putting your sword away please?'),nl,<br /> write('You wont need it here.'),nl,nl,<br /> write('Player: I am ever so sorry...'),nl.<br /><br /><br />talk(farmer):-i_am_at(farm),<br /> lives(farmer,farm),<br /> holding(fertilizer),<br /> write('Player: Hello were you looking for this?'),nl,nl,<br /> write('Farmer: Why YES, yes i was'),nl,<br /> write('I am very thankful, here take these'),<br /> drop(fertilizer),<br /> retract(hidden(magicBeans,farm)),<br /> assert(holding(magicBeans)),<br /> write('The farmer has given you magic beans! What the hell are you going to do with them?'),nl.<br /><br /><br />talk(farmer):- i_am_at(farm),<br /> lives(farmer,farm),<br /> write('Farmer: Hello there stranger, great wheather for crops this season'),nl,<br /> write('I just wish i had some fertilizer to help them grow even bigger'),nl,<br /> write('Then I could sell more in the fishing village market.').<br /><br /><br /><br />talk(fisherMan):-i_am_at(fishvill),<br /> lives(fisherMan,fishvill),<br /> holding(rockspringMap),<br /> write('Player: Is this the guy you meant?'),nl,nl,<br /> write('FisherMan: Oh my gosh, where did you get this.....'),nl,<br /> write('Ah never mind that, i guess i was harsh on you'),<br /> write('You do know a bit about out local history'),nl,<br /> write('You just made my day'),nl,<br /> write('Here take these, they are handy to have'),nl,nl,<br /> write('Player: Wow thanks sir.. Just what I needed.'),nl,<br /> drop(rockspringMap),<br /> write('You got Fishing Nets! Nice one'),<br /> retract(hidden(nets,farm)),<br /> assert(holding(nets)).<br /><br />talk(fisherMan):-i_am_at(fishvill),<br /> lives(fisherMan,fishvill),<br /> write('Player: Hello there sir, wonder could you help m.......'),nl,nl,<br /> write('Fisherman: HELP....I dont help young fellas like you.'),nl,<br /> write('Ye youngfellas know nothing about the history of Thiamin......'),nl,nl,<br /> write('There was once a great explorer from here... Rocksmith or something.'),nl,<br /> write('DAMN IT, what was his name again.....Rocky... No......<blah,>').<br /><br /><br />talk(king) :-i_am_at(castle),<br /> lives(king,castle),<br /> holding(goldNugget),<br /> write('King: What the.... Get outta here.'),nl,<br /> write('WAIT, whats that.........'),nl,<br /> write('Is that, yes its a solid gold nugget.'),nl,<br /> write('It must be worth a fortune.'),nl,<br /> write('Is there something I can do for you'),nl,<br /> write('Player: You would do anything for this gold?.'),nl,<br /> write('King: Yes, yes. Anything. You just name it. Fame, land anything'),nl,<br /> write('Player: I want you to step down as King.'),nl,<br /> write('King: sure just give me that NUGGET.'),nl,<br /> ending.<br /><br /><br />talk(king):- i_am_at(castle),<br /> lives(king,castle),<br /> write('King: What, how did you get in here????'),nl, <br /> write('Leave at once you pathetic peasent'),nl,nl,<br /> write('GUARDS, show this one out.....NOW'),nl,<br /> write('Guard: Yes your majesty'),nl,nl,<br /> retract(i_am_at(Here)),<br /> assert(i_am_at(fishvill)),<br /> health(player, PH),<br /> NPH is PH - 20,<br /> retract(health(player, PH)),nl,<br /> assert(health(player,NPH)),nl,<br /> write('Your health is now '), write(NPH), nl,<br /> look.<br /><br />talk(nomad):- i_am_at(desert),<br /> lives(nomad,desert),<br /><br /> holding(hipFlask),<br /> write('Nomad: Hmmmmm that HipFlask might come in handy. Can I have it?'),nl,<br /> write('Player: Of course here you go......'),nl,<br /> write('Thank you very much'),nl,<br /> drop(hipFlask).<br /><br />talk(nomad):- i_am_at(desert),<br /> lives(nomad,desert),<br /> write('Nomad: What are you doing out here without any water?'),nl,nl,<br /> write('Player: I dont need it, Why are you out here?'),nl,<br /> write('Nomad: Well, because the King who rules this land is only intrested in the rich, so i dont have to follow his laws and taxes out here in the desert.'),nl,<br /> write('There is nothing for you here, you should leave'),nl.<br /><br />talk(_):-write('I think people will start looking at you funny!'),nl.<br /><br /><br /><br />/******************************************************************/ <br /><br /> /*Fight Command*/<br /><br />/******************************************************************/ <br /><br />fight(witch):- i_am_at(withut),<br /> write('Trust me you dont want to take on the mighty power of a witch.'),nl,<br /> write('Dont you watch the movies!'),nl.<br /><br /><br />fight(farmer):- i_am_at(Place),<br /> write('The Farmer will not fight, He just wants an aul chat'),nl.<br /><br />fight(nomad):-i_am_at(Place),<br /> write('Nomad: Instead of fighting me, try and defeat the troll'),nl,<br /> write('I believe he is guarding something that will help you'),nl.<br /><br />fight(king):-i_am_at(Place),<br /> holding(goldNugget),<br /> lives(E,Place), <br /> write('King: What are you going to do, kill me with a gold nugget.......'),nl,<br /> write('Why dont we talk about this first.'),nl,<br /> attack(E),<br /> hit(E).<br /> <br /><br />fight(king):-i_am_at(Place),<br /> write('King: WHAT THE HELL......'),nl,<br /> write('GUARDS, kill him at once'),nl,<br /> die.<br /><br /><br />fight(door):-i_am_at(Place),<br /> write('You hit the door as hard as you can, You didnt even dent it!'),nl,<br /> write('Maybe finding a key would be a better idea'),nl.<br /><br />fight(player) :- write('You want to fight yourself?? This isnt Fight Club!'),nl.<br /><br /><br /><br /><br />%Get key off troll<br />fight(troll):-health(E,EH),<br /> EH<1, nps =" PS">0,<br /> <br /> NEH is EH - NPS, <br /> retract(health(E,EH)),<br /> assert(health(E, NEH)),<br /> write('You Hit the '), write(E), write('. '),nl,<br /> write('Their health is now '), write(NEH),write('.'), nl.<br /> <br /><br />%Attacking without weapons<br />attack(E):- i_am_at(Place),<br /><br /> lives(E,Place),<br /> <br /> <br /> health(E, EH),<br /> EH>0,<br /> strength(player, PS),<br /> NEH is EH - PS, <br /> retract(health(E,EH)),<br /> assert(health(E, NEH)),<br /> write('You Hit the '), write(E), write('. '),nl,<br /> write('Their health is now '), write(NEH),write('.'), nl.<br /><br /><br /><br />%Attacking a already dead enemy<br />attack(E):- health(E, EH),<br /> EH<0,>0,<br /> strength(E,ES),<br /> write('The '), write(E), write(' hits you!'), nl,<br /> health(player, PH),<br /> NPH is PH-ES,<br /> retract(health(player, PH)), <br /> assert(health(player, NPH)),<br /> write('Your health is now '), write(NPH), nl,<br /> checkHealth(player).<br /><br /><br /><br />/******************************************************************/ <br /><br /> /* Loosing health from traveling*/ <br /><br />/******************************************************************/ <br /><br /><br />travel :-<br /> write('It was A Long Journey... You should prob eat something!!'), nl,<br /> health(player, PH),<br /> NPH is PH - 2,<br /> retract(health(player, PH)),<br /> assert(health(player,NPH)),<br /> checkHealth(player),<br /> write('Your health is now '), write(NPH), nl. <br /><br /><br /><br />/******************************************************************/ <br /><br /> /*CHEATS*/ <br /><br />/******************************************************************/ <br />%cheats<br /><br />kickass:-<br />write('You Cheater, game too hard for ya!!'), nl,<br /> health(player, PH),<br /> NPH is PH +1000,<br /> retract(health(player, PH)),<br /> assert(health(player,NPH)),<br /> write('Your health is now '), write(NPH), nl. <br /><br />cheat:-<br /> write('You Cheater, How dumb do you think i am!!'), nl,nl,<br /> write('Your goanna die for that'),nl,nl,<br /> die.<br /><br /><br />jointhearmy:-write('You Cheater!!'), nl,<br /> write('If your not cheating your not trying!'), nl,<br /> write('www.military.ie'), nl,<br /> retract(hidden(lightSaber,_)),<br /> assert(holding(lightSaber)),<br /> write('you got the lightSaber - most powerfull weapon in the game.'), nl.<br /><br /><br />jointhearmy:-write('You Cheater!!'), nl,<br /> write('If your not cheating your not trying!'), nl,<br /> write('www.military.ie'), nl,<br /> holding(X),<br /> drop(X),<br /> retract(hidden(lightSaber,_)),<br /> assert(holding(lightSaber)),<br /> write('you got the lightSaber - most powerfull weapon in the game.'), nl.<br /><br />/******************************************************************/ <br /><br /> /*This rule tells how to die. */<br /><br />/******************************************************************/ <br /><br /><br />die:- finish.<br /><br /><br />finish :- nl, write('The game is over. Please enter the "halt". command.'), nl.<br /><br /><br /><br /><br />/******************************************************************/ <br /><br />/*this rule describes various places. Depending on circumstances, <br />a place may have more than one description. */ <br /><br />/******************************************************************/ <br /><br />describe(Place):-description(Place,Desc),<br /> write(Desc),nl,<br /> writepath(Place).<br /><br />writepath(Place):-path(Place, Direction, Z),<br /> write,nl,('The '),write(Z),write(' is '), write(Direction),write(' of you.'),nl, fail.<br /><br />writepath(_).<br /><br /><br />description(rebelcamp, 'You have reached a Camp, and you notice a small group of rebels living in a canvas tents. This is where the rebels train<br />to fight the Kings army. These Rebels specialise in homemade explosives. The smell of fertilliser, petrol and gunpowder fill the air.<br /> Be aware as they might attack you').<br /><br />description(mtns, 'You are in the mountains. This is the only mountain range in all of Thiamin, explorers are known to wonder this area.').<br /><br />description(farm, 'You have arrived at small farm. The farmer here is quite helpfull and well known around these parts.').<br /><br />description(fishvill, 'You are in a large bustling fishing village. It is situated close to the Castle, and mostly loyal to the King<br /> Fishing villagers dont take kindly to strangers round here!! ').<br /><br />description(forest, 'You are passing through a dark forest.<br />Although it appears to be full of ripe fruit and berries to eat, you should be careful, not everything is as good as it looks').<br /><br />description(withut, 'You are at the witchhut. This is the best place for rare items, potions and concoctions. There is a door to your left. ').<br /><br />description(ocean, 'You are at the ocean. There aint much here except sea water, BUT WAIT You can see something in the water, but what is it?').<br /><br />description(swamp, 'You are at the swamp. It is a dreary place. There is fog everywhere. It would be dangerous to venture further into the swamp. Some starnge creatures are found here!').<br /><br />description(desert, 'You are at the desert. All around here is cacti, nomads and camels. Water is scarce here. But I bet you knew that already!').<br /><br />description(castle, 'You are at the castle. The King is in his counting house, as usual. He only talks to the rich. It is guarded, but not heavily').<br /><br /><br />/******************************************************************/<br /><br /> /*Graphics*/<br /><br />/******************************************************************/<br /><br /><br />rebelpic:-write('DDDDDDDDDDDDDDDDDDDDDDDDMDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDMMMDDDDDDDDDDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDDDDDDDDDDDDDDM?MMDDDDDDDDDDDDDDDDDDDDDDDDDDDMM?MMDDDDDDDDDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDDDDDDDDDDDDDMMMOOOMMMMMMMMMMMMMMMMMMMMMMMMMMOOMMDDDDDDDDDDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDDDDDDDDDDDDDM?M?OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMDDDDDDDDDDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDDDDDDDDDDDDM??M?MOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMDDDDDDDDDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDDDDDDDDDDDM???M???OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMDDDDDDDDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDDDDDDDDDDM????M???MOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMDDDDDDDDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDDDDDDDDDMM?M??M????MOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMDDDDDDDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDDDDDDDDM??????M??????OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMDDDDDDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDDDDDDDM???????M???????OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMDDDDDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDDDDDDM????????M????????MOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMDDDDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDDDDMM?????????MM?????????OOOOOOOOOOOOOOOOOOOOOOOOOOOOOMDDDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDDMM???????????MMM?????????OOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMDDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDM?????????????MMMM?????????MOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMDDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDMM????????????MMMMM?????????MOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDMM????????????MMMMM???????????MMOOOOOOOOOOOOOOOOOOOOOMM777MMDDDDDDDDDD'),nl,<br />write('DDDDDDDDDMDM????????????MMMMM???????????MM777MMMMMMMMMMMM77777777777MMDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDM?????????????MMMMM???????????M7M7777777777777777777777777MDDDDDDDDDDD'),nl,<br />write('DDDDDDDDMDM?????????????MMMM????????????7777777777777777777777777777MDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDM?????????????MMMM????????????777M777777777777777777777777MDDDDDDDDDDD'),nl,<br />write('DDDDDDDDDDM?????????????MMMMM?M?????????7777777777777777777777777777MMDDMDDDDDDD'),nl,<br />write('DDDDDDMDDM??????????????MMMMM???????????77777777777777777777777777777MNNNMNNNNNN'),nl,<br />write('NNNNNNNNNM??????????????MMMMM???????????77777777777777777777777777777MMNNNMNNNNN'),nl,<br />write('NNNNNMNNNM??????????????MMMM??M?????????777777M77777777777777777777777MNNNNMNNNN'),nl,<br />write('NNNNMNNNM???????????????MMMM????????????7777777M777777777777777777777MMNNNNNMNMN'),nl,<br />write('MMMMNNNNM???????????????MMMM????????????77777777M77777777777777MMMMMMNNNNNNNM?MN'),nl,<br />write('NMMMNNNNMMM?MMMMM???????MNNMM???????????M7777777MMMMMMMMMNNNNNNNNMNNNNNNNNNNMNNN'),nl,<br />write('NNNNNNNNNNNNNNNNNNMMMMMNNNNNNMMMNMMM????MMMMMMMMNNNMNNNNNNNNNNNNNNMM?MNNNNNNNNNN'),nl,<br />write('NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNM?MNNNNNNNNNNMMNNNNNNNNNNNN'),nl,<br />write('NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNMMNNNNNNNNNNNNNNNNNNNNNNNNN'),nl,<br />write('NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN'),nl.<br /><br /><br />withutpic:-write(' DDDDDDD'),nl,<br />write(' DDDDDDD'),nl,<br />write(' N8ONN DDDDDDD'),nl,<br />write(' ,D88OOOOOO8D DDDDDDD'),nl,<br />write(' DD8888OOOOOOOOON= DDDDDDD'),nl,<br />write(' N8888888OOOOOOOOOOODD DDDDDDD'),nl,<br />write(' N888888888OOOOOOOOOOOZZN8 DDDDDDD'),nl,<br />write(' N88888888888OOOOOOOOOOOZZZZDN DDDDDDD'),nl,<br />write(' ND888888888888OOOOOOOOOOOZZZZZZNI DDDDDDD'),nl,<br />write(' ND88888888888888OOOOOOOOOOOZZZZZZZZD: DDDDDDD'),nl,<br />write(' .D8N88888888888888OOOOOOOOOOOZZZZZZZZZZD DDDDDDD'),nl,<br />write(' NDNDD88888888888888OOOOOOOOOOOZZZZZZZZZZZN= DDDDDDD'),nl,<br />write(' DDDDDD88888888888888OOOOOOOOOOOZZZZZZZZZZZZZN DDDDDDD'),nl,<br />write(' 7NNDDDDD88888888888888OOOOOOOOOOOZZZZZZZZZZZZZZ8= DDDDDDD'),nl,<br />write(' NNNDDDDDD88888888888888OOOOOOOOOOOZZZZZZZZZZZDOZZZN DDDDDDD'),nl,<br />write(' NNDDDNDDDD88888888888888OOOOOOOOOOOZZZZZZZZZZZZONZNZN~ DDDDDDD'),nl,<br />write(' NONNNDDDDDD88888888888888DOOOOOOOOOOZZZZZZZZZZZZZNNZNDD DDDDDDD'),nl,<br />write(' ONDDN8NDNDDDN88ON8D8888888NNOOOOOOOOODZZZZZZZZZZZZZZZ=N$=N= DDDDDDD'),nl,<br />write(' I$=N DNNNDNN8N7N8NN8N8888N7DOONOOOOOO8NZZZZZZZNZZZZNZZNN8.N DDDDDDD'),nl,<br />write(' .N NDNNN$7NDN7NDNN7N8N8N7NNNNNNNONOOONNZZNONZDNZZNDNZNN DDDDDDD'),nl,<br />write(' N DZ=NNN7NOZNN8DN7ODDNNONNDN7NNNON8OON88ZZNNNNZNZ8NNN$ZN DDDDDDD'),nl,<br />write(' =~,NNODNO8ZNZNN77NNON7ON78Z7N7ONNODON8Z87ZN$NZ8NZ N DDDDDDD'),nl,<br />write(' : ?ZZ8ZNZND7ON7N77877D7787N7N7DONO7N7ZD78Z8NZ $ DDDDDDD'),nl,<br />write(' ~ZZD------------I8MN77Z7N7877NNZ7N7O7ZZO8 N DDDDDDD'),nl,<br />write(' :ZZD------------?8MN7777N7Z77N8Z7N7O7OZ8Z DDDDDDD'),nl,<br />write(' ZZD------------88MN7777N7O77NZZ7N7878Z8Z DDDDDDD'),nl,<br />write(' OZD------------?8MN777787N77N7O7N7878Z8Z~ DDDDDDD'),nl,<br />write(' NZD------------?8MN7777Z7D77N7N7N7N78ZOZ? DDDDDDD'),nl,<br />write(' DZD------------?8MN77NNNNNNNN7N7N7N7OZZZ8 DDDDDDD'),nl,<br />write(' NZD888888888????8MN78Z$$$$$$$$$$,7N7$ZZ8N DDDDDDD'),nl,<br />write(' DZD888888???????8MN7~$ $$7N77ZZ8N DDDDDDD'),nl,<br />write(' ND$ 88888 888888MN7,$ $,7N778ZNN DDDDDDD'),nl,<br />write(' ND8$ 7$8 ~ I~8MN7,$ $=7N77NZNN DDDDDDD'),nl,<br />write(' NMMMMMMMMMMMMMMMMN7,$ $+7N77NZNN DDDDDDD'),nl,<br />write(' NZ8NZO87N7ZZ7NN77N7,$ $I7N77NZND DDDDDDD'),nl,<br />write(' DZNNZOO7N7877NO77N7,$ $I7N778ZND DDDDDDD'),nl,<br />write(' DZNNZOO7N7877NZ77N7,$ o $Z7N77ZZON DDDDDDD'),nl,<br />write(' DZNNZOO7N7877N777N7,$ $Z?N77ZZZN DDDDDDDD'),nl,<br />write(' DZNNZOO7N7877N777N7,$ $Z=N7ZZOZN IDDDDDDDD'),nl,<br />write(' ~7Z ZZNNZOO7N7877N777N7=$ $N~N7OZNZN 7 DDDDDDDDDD'),nl,<br />write(' .~ +78Z77DD~DZNNZ8O7N7877N77787=$ $N,N78ZNZNZ I7D ZDDDDDDDDDDDD'),nl,<br />write('DDDDDDDZ77777777777778ZN8O8O7N7877N777N7=$$$$$$$$$$$N,N7NZNZN7777777777777Z8DNDD'),nl,<br />write('DD77777777777777777778ZNZO8O7N7877N777N7=NNNNNNNNNNNN,N7NZNZN77777ZO77777777DDDD'),nl,<br />write('DDDDDDDDDDDD778ZDND7DDDDNNDO7N7N77NZ77N7=DDDDDDDDDDDD:N$NNDDD7DDZD8NDDDDDDDDDZ7D'),nl,<br />write('DDDDDDDDDDDDDDDDDDDDDDDDDDDDDNNNNNNNNNN8=DDDDDDDDDDDDODDDNDDDDDDDDDDDDDDDDDDDDDD'),nl.<br /><br /><br /><br />farmpic:-write('M=============================================================================M '),nl,<br />write('M=============================================================================M '),nl,<br />write('M=============================================================================M '),nl,<br />write('M=============================================================================M '),nl,<br />write('M====================================M=M======================================M '),nl,<br />write('M====================================M========================================M '),nl,<br />write('M=============================================================================M '),nl,<br />write('M==================================MM MM=============M========================M '),nl,<br />write('M===============================MM OOOO M========M?????======================M '),nl,<br />write('M=============================M MOOOOOOOO MM====M??M????M=====================M '),nl,<br />write('M============================MMOOOOOOOOOOOOMMMMM?????????M====================M '),nl,<br />write('M==========================M OOOOOOOOOOOOOOOOM MM????????M====================M '),nl,<br />write('M=========================M OOOOOOOOOOOOOOOOOOM MOOOOOOOO=====================M '),nl,<br />write('M======================== MOOOOOOOO$$$$$$$OOOOOO MOOOOOOO=====================M '),nl,<br />write('M=======================MOOOOOOOOMI MOOOOOOMMMMMMMM=====================M '),nl,<br />write('M======================M OOOOOOOOMI MOOOOOOO MOOOOO=====================M '),nl,<br />write('M======================M OOOOOOOOMI MOOOOOOOOMOOOOO=====================M '),nl,<br />write('M======================MOOOOOOOOOMI MOOOOOOOOMOOOOO=====================M '),nl,<br />write('M=========MM888888888=M MOOOOOOOOMO$$$$$$$MOOOOOOOOMMMMMM==MMMMMMMMM==========M '),nl,<br />write('M88888888888888888888888MOOOOOOOOOOOOOO+OOOOOOOOOOMMOOOOO888888888888888888888M '),nl,<br />write('M88888888888888888888888MOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO888888888888888888888M '),nl,<br />write('MZMMMMMMMMZMMMMMMMMMMMMMMOOOOOOOOOOOOOOOOOOOOOOOOOMOOOOOO888888888888888888888M '),nl,<br />write('MZ888M8888Z8888M8888M888MOOOOOOOOOOOOOOOOOOOOOOOOOMOOOOOO888888888888888888888M '),nl,<br />write('MZMMMMMMMMZMMMMMMMMMMMMMMOOOOOMMOOOOOMOOOOOO MOOOOMOOOOOOM88888888888888888888M '),nl,<br />write('M$$$$$$$$$$$$$$$$$$$$$$$MOOOOOMM OOOOMOOOOM OMOOOOMOOOOOOZ8MM88888888888888888M '),nl,<br />write('M$$$$$$$$$$$$$$$$$$$$$$$MOOOOOMOO MOOMOOO OOOMOOOOOOOOOOOZM8888ZZMZ88MZ8888888M '),nl,<br />write('M$$$$$$$$$$$$$$$$$$$$$$$MOOOOOMOOOM OMOO OOOOMOOOOOOOOOOOZM8888ZZ88MZZZZ888888M '),nl,<br />write('M$$$$$$$$$$$$$$$$$$$$$$$MOOOOOMOOOOO MM OOOOOMOOOOOOOOOOOMM$ZM8ZZ8888ZZ8ZMZ888M '),nl,<br />write('M$$$$$$$$$$$$$$$$$$$$$$$MOOOOOMOOOOOOMMOOOOOOMOOOOOOOOOOO$$$$$MZM8888ZZ888MZZMM '),nl,<br />write('M$$$$$$$$$$$$$$$$$$$$$$$MOOOOOMOOOOM MO OOOOOMOOOOOOOOOOM$$$$$$MM$ZZ8ZZ888888ZM '),nl,<br />write('M$$$IIIIIIIIIIIIIIIIM$$$MOOOOOMOOO OOMOO MOOOMOOOOOOOOOOM$$$$$$$$$$$$ZZZZM8888M '),nl,<br />write('M$$$IIIMMIIIIIIMMIII$$$$MOOOOOMOO OOOMOOOO OOMOOOOOOOOOOM$$$$$$$$$$$$ZZ$$$ZZM8M '),nl,<br />write('M$$$MIIIIIIIIIIIIIII$$$$MOOOOOM OOOOOMOOOOO MMOOOO$$$$$$$$$$$$$$$$$$$$$$$$$$$MM '),nl,<br />write('M$$$$$$MIIIIIIIIIM$$$$$$$MMMMMMMMMMMMMMMMMMMMMMMMM$$$$$$$$$$$$$$$$$$$$$$$$$$$$M '),nl,<br />write('M$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$M '),nl,<br />write('M$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$M '),nl,<br />write('M$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$M '),nl.<br /><br /><br /><br /><br /><br /><br /><br />/******************************************************************/ <br /><br /> /* functions */<br /><br />/******************************************************************/ <br /><br /><br />/*append to items to the bag list */<br /><br />append([], L, L).<br />append(L, [], L).<br />append( [X|Tail], L, [X|Rest] ):- append(Tail, L, Rest).<br /><br />/*check if an element is a member of the list that is passed to it*/<br /><br />member(X,[X|Tail]).<br />member(X,[Head|Tail]):- member(X,Tail).<br /> <code/>

The game and source can be downloaded here.
A walkthrough is also available.


For those people who are expected to be entertained rather than put to sleep, here's a picture I found in my inbox. (I finished my exams last week, so it cracks me up)