There is no 'Ctrl' button on Chuck Norris's laptop

Chuck Norris is always in control!

Ah, the relief of finishing the final year project for college. As you can guess by the amount of posts on the blog, I have been doing other things. Spending a lot of time "researching" my project somebody pointed out to me to Google "find chuck norris" and press "I'm Feeling Lucky" (Thanks Fitzy!)

Sure enough, those smart guys (& girls) at google came up with this.

Very nice. Must be the person with the same job as the Virgle post!

The 100 year plan :-)

Well you have to put your hands together for Google and their April Fools jokes. I really enjoyed lasts years one, but Virgle. Brilliant.

“Starting in 2014, Virgin founder Richard Branson and Google co-founders Larry Page and Sergey Brin will be leading hundreds of users on one of the grandest adventures in human history: Project Virgle, the first permanent human colony on Mars.”

Virgle application form

So much effort and time must have been put into these hoaxes. So I now wish to put my CV into the Google April Fools Department and apply for a job to come up with elaborate hoaxes.

Free Download InfraRecorder

InfraRecorder is an open-source alternative to commercial CD and DVD burning software like Nero. It uses a standard graphical interface for creating disc images and an express creation wizard that helps guide you through the process for the less technology savvy people.

InfraRecorder is a really capable piece of software that allows you to burn all the usual kinds of CD and DVD types. It also supports the creation of dual-layer DVDs and the burning of ISO and BIN images. CNet tested it and said "We got perfect results from discs burned with the software and had no trouble using it from start to finish."

However there can be some slowdown using the application, especially when preparing to burn a disc.

If you have used Nero, Magic ISO or Daemon Tools to create DVD's and CD's, InfraRecorder is a fantastic open source alternative. However if your a complete newbie to burning software you might find Nero that little bit easier to use.

Download InfraRecorder Here

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.

Vista Advertisement Video

Eco Friendly Software???

I'm never in the same location for too long. Over the last 5 years I have gone through 3 laptops. One of the main things I have noticed is that battery life is getting better. However it's still far from being at the point of saying a laptop is the ultimate in portability. The vast majority of the time my laptop is plugged in. In my mind, the whole purpose of a laptop is to be wire free and to be portable. Not searching for a table within 3.5 meters of a power socket.

Depending of course on what I'm doing, I'd be lucky if my Vaio laptop running Windows Vista lasts over an hour. Credit is due to the hardware engineers over the last decade. We now have special mobile processors, RAM, 2.5' HDD, Graphics cards for mobile devices; all major successes for increasing battery life. In my opinion the software engineers out there needs to increase their efforts.

The majority of students have laptops now. Very few own their own desktop. Business men love showing off their latest flashy laptops. Laptops must be now the main form of computing in the 21st Century. So why do massive software companies like Microsoft create energy sapping products and operating systems? It's no secret that Vista will eat your battery life quicker than I can devour my €4.60 lunch from the canteen. Does Vista really need "Aero"....which is just for a "wow" factor and provides little for productivity or wow. I remember going into Harvey Normans in Limerick and being shown the new and amazing Windows Vista. The salesman showed me the see-through windows and media player. I asked if there was anything else, and he said ...'no'. Needless to say even then I wasn't impressed.

The whole world wants "green" cars, energy saving light bulbs, race against waste etc. etc., (try not to laugh) but maybe there is such a thing as eco friendly software!! So to get onto the point, I'm sure all software companies realise that their software is now more than likely going to be run on laptop's. And when they all read this rant, they will soon change their ways, but until then, here are are a few ways to increase your battery life.

• Disable Aero feature in Vista
• Disable any desktop toolbars/sidebars
• Dim the brightness of your screen as low as you can tolerate
• Exit any applications you not using (Eg winamp launcher, anything in task tray)
• Try NOT to use USB devices (Flash drive, mouse etc)
• Download Vista Battery Saver
• Run MSConfig and disable programs you don't need in Startup section.
• And for Gods sake don't use a laptop on your lap!

Quick Way of Doing Lines

Brilliant!

Clearing Up Duplicate Files

Severe lack of posts this week. Working on an ASP.NET project at the moment. So just for another short entry here’s my download of the week. A nice handy one for helping you clear up some clutter from you’re hard disk. If you download/share files, there is a immense likelihood that you have some duplicate files.

Duplicate Cleaner saves disk space by finding identical files and allowing you to delete them. Find duplicate mp3s, photos, or perhaps old versions of documents.

You can download it here

Weekly Download: Vista + AVG = Slow Start-Up

It has recently come to my attention that AVG anti virus (which is very good) hinders Vista when booting it up. I am unsure why, but if you want to speed it up I recommend Avast to use as an alternative. It looks pleasant and its easy to use and update. The application reminds me of a car stereo. I haven’t decided if that’s a good or a bad thing. And as always the price is right. Free.

So try it out. If you have Vista and currently using AVG, try using Avast and see if you notice the start-up speed. If you’re not using Vista, I would still highly recommend AVG, and hopefully they will sort out the problems with vista.

Download Avast Here

Screw This!

I was having a problem with a laptop. It kept restarting randomly after giving the dreaded blue screen for a split second. No software problems to report. So I decided to take it apart to check if the fan still works, thinking maybe the problem was over-heating. 22 Screws later I finally managed to remove the casing. That amount of screws seems excessive. Suppose 4 of them were holding the hard drive in place. I always did prefer working on desktops! But the good news is its back working now. I put the 2.5' Hard-drive into an external enclosure to back up all the data and then proceeded to format the disk. Using the BIOS recovery diagnostics I managed (with some help) to re-install XP and so far (3 days) no random restarts. So YEAH!! Just goes to show you formatting is the ultimate way to fix computers problems.

You know what really grinds my gears?

As you can see from some previous blog entries there's are few things that annoy me in the IT world. Here’s just a snippet of what bugs me...

• Bebo - It's getting a bit ridiculous and has stupid adds on everyone's page. Maybe Bebo users should be receiving a cut of profits.
• Caps Lock - See my previous article
• Paying for Anti-Virus - The best programs seem to be the free ones. No annoying pop-ups, warning about subscriptions etc.
• Windows Vista - It sucks! Really wished I went the MAC route now. Thank god for VMWare
• One Laptop per Child (OLPC) Project - Maybe we could spend that money on more needy things for these people.
• Amazon.com - Won't ship electronics to Ireland and have to visit XE.com every time to convert prices to €.
• Internet Explorer - 6.0 was useless so they just copied Firefox and released 7.0. Still better browsers out there.
• Youtube is 90% rubbish taking up valuable bandwidth
• People texting whilst in the middle of conversation - You know who you are!!
• iTunes ( and iPods) - One word RUBBISH.

Diarmuid's Download of the Week - OpenOffice

This is the real deal people. OpenOffice is a FREE alternative to the vastly over priced Microsoft Office 2007 package. It includes a Word Processor (Word), Spreadsheet (Excel), Database manager (Access), a maths writer (handy for school work), a presentation suite (PowerPoint) and a Draw package for diagrams (Visio). Unlike Microsoft Office, OpenOffice was designed as one program and not designed separately. So once you’re up and running the programs work together really nicely.

Another great thing is if you own an illegal version of Office (and 72% of people do*) you can use this instead and not have to worry about updating other Microsoft products or installing their Genuine Checker. I have been using OpenOffice for over a year now and it is well worth a look at if you need an Office type package. There are some downsides to open office. It is frequently updated (could be a good thing) which actually annoys me. Also the initial loading of the suite is longer than MS Office. Did I mention the price? Another alternative to MS Office is of course Google Docs, which I also use quite a lot.

Download OpenOffice Here

*Might be a statistic I made up.

Capslockitous - tHE wAR oN tERRIBLE tYPING

Along with the "F12" key, one of the fewest pressed buttons on my rather worn keyboard would have to be "Caps Lock". I do recognise the need to have this button (headings, posters etc.), but for normal everyday use it's not really needed. It has recently come to my attention that there are people out there, and these people are computer literate and very intelligent. They use Caps Lock to get a single capital letter. That means up to this point I would have pressed that button 20 times. WHY. WHY would you do that? Even there I didn't use it. There's a shift key for once off capitals you know. Very sorry for this ramble. Just needed to get it off my chest. And if you suffer from Capslockitous.... shame on you. If you cant get help try here.

After a bit of looking around t'Internet it seems I'm not alone...

Bank Job - Special Agent 00(7)00

So yesterday I trudged through the snow infested city that was Limerick. I had to visit the bank to make a rather urgent lodgement. I entered the premises which will remain nameless. There was a small queue of elderly people at the counter, so I made my way toward the ATM/Lodgement machine. This, as the name suggests will take lodgements as well as withdrawals. Delighted at beating the queue, I jammed in my crumpled cheque into the machine. It was rejected the first time, but the machine managed to scan the cheque on the second attempt. After the message "Transaction Completed", a "ATM Out of Service" message popped up, and no receipt was printed. I immediately ventured over to Customer Service. She approached the ATM, used her bunch keys to open it, and right in front of me continued, by....... entering the password - "0000" What the hell?! The administrator password to the ATM inside a main city bank is zero four times. The manager should be sacked, no shot. The ATM was then opened up, and I got to see its guts. A fairly complex set of circuitry attached to a scanner, and some more nerdy stuff. It's built on top of a safe. That looked secure but I wonder is the password to the safe "0000" as well? I'd put some money on that :)

Gift Grub Downloads

I rather enjoy Today FM in the mornings. The Ian Dempsey show is great company for my otherwise lonely early morning commute from Limerick to Galway (Thank God for the Ennis bypass!). Like most people the skit named Gift Grub is the highlight of the show for me. Hilarious stuff altogether. I always wanted to download the gift grub clips, but in my esteemed opinion Todayfm.com is one of the worst websites to navigate ever! I really hope they fix it up sooner rather than later. Anyway getting to the point of this ramble I came across a brilliant site for downloading the gift grub skits.

Download Gift Grub Here

If you're a fan I recommend bookmarking it. While I'm at it I must also recommend Ray Foley's blog. The best show on Today FM. Remember its only a bit of fun for your lunch time.

Diarmuid's Download of the Week: Are you Listening Photoshop users?

Here's my weekly recommended download. It’s the turn of Paint.NET. This is one of the best free alternatives to Adobe Photoshop. It has all the basic features you would expect from a graphic design application, and a whole lot more. I did give GIMP a go for a while, but thought it was complicated compared to Photoshop. Paint.NET is much easier to use and has a good user interface. Tutorials are widely available and it offers support for plug-ins. It works on Windows XP, VISTA and with a little help Linux. I’m actually not sure about Macs. Additionally it featured in PC World’s top 20 products of 2007.

Download Link

Paint.NET homepage

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)

Diarmuidos - The Nutritional Choice

Check out Seán's awesome picture, I might have to use it as a logo! Just wished I'd thought of it first. I hope to be putting up my text based adventure game designed in Amzi Prolog sometime this week. If you have no idea what a text based game is try this one: Pacman. Its fantastic, well as much fun as text games tend to be.

Will have the Prolog source code for my game. Very nerdy stuff indeed.

DOWNLOADS - CCleaner (It Rocks)

I do like scouting the Internet for free but yet useful applications/programs. I have quite a few in my collection, and decided to share the best ones with you.

I would like my fist download recommendation ever on my blog to be CCleaner. This neat little free program, cleans up your hard drive by removing all the crap you might be unaware still exists. Also it has a nice registry cleaner. Meaning you don't have to mess around with it. Good for all computer users, novice to expert.

Download CCleaner here

I've Become a Blogster

Hi everybody....

Well as some of you may be aware my brother has had a rather entertaining blog going since 2006. I actually find it vastly humorous and interesting. (Where's that €20 Seán?)

Being completely sick of Bebo and Facebook, I've decided to take my brother's advice and start a blog for myself. Now I'm definitely not a writer and in fairness there's no way I can compete with my brother's wit, sarcasm and ability to find monolithic (bigger) words in the dictionary than I can. Mostly in part so I don't have to directly compete with him I've decided to blog about what I do best: a nerd blog. Being very much into IT and currently studying it (final year), I have a few nice projects and some source code that other students might find useful. Hell I might just recommend stuff and put up silly videos I like from Youtube. Maybe Seán will give me some pointers on how to make it more entertaining.

I plan on just doing this when I have a bit of time on my hands – When my other half is getting ready to go out or like now when I'm in the middle of my exams. For when I have nothing better to do!