Heuristic Evaluation of Website

During 3rd year of college, I had Human Computer Interaction as a subject. Simply we studied how people interact with computer's/computer applications, and how we can improve this interaction. Part of the subject was conducting a heuristic evaluation of a website. Unfortunatly for www.brooksvideo.com, I had to write up on them. Needless to say I pretty much slated the site (And got a good mark!). After this subject I still keep a keen eye on websites and think to myself, this is a nice site, or the case with the Ryanair.com site, wow did they actually pay somebody to develop this or was it Michael O'Leary's pet monkey! I'm currently developing a site myself, lets lets hope I don't shoot myself in the foot.

If you are studying HCI its worth looking up Jakob Nielsen. He's the main guru when it comes to this. So if your looking for an example of a heuristic evaluation, I have mine available to download as a PDF file.

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)