GameCode {

	Initialise: CodeExtend [
	
		' Next line initialise dictionary for body part support
		call BodyParts.bodypart_init
	
	]
	
	AfterInput: CodeExtend [
	
		' This line calls the standard Body Part after input responses.	
		call BodyParts.bodypart_check
		
	]
}


Module BodyParts {

' IAGE Body Part Library
' R.Rawson-Tetley 011031

' Modifications:

' 31 Oct 01    Initial Version

' To use:
' Make a call to BodyParts.bodypart_init in the OnInitialise game event.
' Then make a call to BodyParts.bodypart_check in the after input event.
' You can then access various body parts as nouns to check for actions
' in other events.

proc bodypart_init

	addnoun 50 eyes
	addnoun 51 ears
	addnoun 52 arms
	addnoun 53 legs
	addnoun 54 feet

	addnoun 60 eye
	addnoun 61 nose
	addnoun 62 mouth
	addnoun 63 ear
	addnoun 64 body
	addnoun 65 arm
	addnoun 66 chest
	addnoun 67 leg
	addnoun 68 foot
	addnoun 69 hair
	addnoun 70 head

end

proc bodypart_check

	if ( input.noun > 49 ) and ( input.noun < 71 ) then

		;examine
			if ( input.noun > 59 ) then
				currentplayer.print It's^the^same^one^you've^always^had.
			else
				currentplayer.print They^are^the^same^ones^you've^always^had.
			endif
			end
		endif

		;chop,cut,attack,remove
			currentplayer.print Are^you^into^masochism^then?
			end
		endif

	endif
end

}