/* No sign should be out if not one of the below conditions are fulfilled.
DACT: SETRF 3,7=0
/* If shop has been visited once, put out sign 1 in harbour
DACT: IFRF 4,1=1;SETRF 3,7=1
/* If shop has been visited twice, put out sign 2 in harbour
DACT: IFRF 4,1=2;SETRF 3,7=2
/* Check the weather, alter the sky and take in the notice.
DACT: IFRF 6=1;COLOUR DLY,23,$678;HIDE ROBJ2
/* Check if bell has called upon shopkeeper yet
DACT: IFRF 5=1;HIDE ROBJ9;SHOW 2,394,86,RBOB30
/* Lights! Camera! Action!
DACT: TRACK NO;LIGHTS ON
/* Nomad dialogue
LINE: 2;1;Well, goodbye.; ;
LACT: 2;1;RESP R,2,May Allah guide you safely on your journey, effendi.;EDLG;EXIT
/*
LINE: 2;2;You haven't seen a salt merchant from Medina around here?; ;IFOF 2=1
LACT: 2;2;RESP R,2,I am sorry, no, effendi.;W 25;RESP R,2,I and Marlboro just come to town from long way East. ;DSET 2,+3,+4,+7,N2,N6
/*
LINE: 2;3;Excuse me - Who is Marlboro?; ;
LACT: 2;3;RESP R,2,Is my camel...;DSET 2,N3
/*
LINE: 2;4;Are you really SURE you haven't seen a salt merchant?; ;
LACT: 2;4;RESP R,2,Hmm...;W 25;RESP R,2,What does salt merchant look like?;DSET 2,S1,+5,+11,+12
/*
LINE: 2;5;Well... uh... Rather thirsty?; ;
LACT: 2;5;RESP R,2,I am sorry, effendi. No thirsty person come here.;W 25;RESP R,2,Believe me...;W 25;RESP R,2,Me and Marlboro expert on thirsty!;DSET 2,R1
/*
LINE: 2;6;Er... Nice day, isn't it?; ;
LACT: 2;6;RESP R,2,So it is, effendi.;DSET 2,N6
/*
LINE: 2;7;So, did you get a room at the motel?; ;IFRF 2=1;IFRF 3=1
LACT: 2;7;RESP R,2,No such luck, effendi.;RESP R,2,Motel already full, and now I don't know how I do.;RESP R,2,No other place in town accept camels!;ADDRF 0,20,1;DSET 2,+8,N7
/*
LINE: 2;8;I guess I could use a camel to get me out of here.; ;IFRF 4=1
LACT: 2;8;RESP R,2,Hmm...;RESP R,2,Yes, why not? I will not need one for a while.;RESP R,2,20 gold pieces, and it is yours!;SETRF 4=2;DSET 2,E,+9,+10
/*
LINE: 2;9;Wait here, will you? I will be back.; ;
LACT: 2;9;RESP R,2,I be here. I have nowhere else to go, effendi.;EDLG;EXIT
/*
LINE: 2;10;OK, we have a deal. Here is 20 gold pieces for the camel.; ;IFCARR SOBJ5
LACT: 2;10;RESP R,2,Excellent.;RESP R,2,May he serve you well, effendi!;ADDRF 0,20,1;SETRF 4=3;EDLG;EXIT
/*
LINE: 2;11;Like he's just won big in a game of dice, probably.; ;
LACT: 2;11;RESP R,2,Hmmm...;RESP R,2,...no.;RESP R,2,Have not seen man like that.;DSET 2,R1
/*
LINE: 2;12;Like a man from Medina - that is where he comes from.; ;
LACT: 2;12;RESP R,2,Hmm...;RESP R,2,To my knowledge, fashion in Medina not so different from other places.;RESP R,2,How to know he is from Medina, do you mean?;DSET 2,E,+13,+14
/*
LINE: 2;13;Don't they have these special little buttons...; ;
LACT: 2;13;RESP R,2,I now think the heat may be affecting your brain, effendi.;DSET 2,R1
/*
LINE: 2;14;Oh, I don't know. Forget it.; ;
LACT: 2;14;RESP R,2,Well, nothing much to remember really, effendi!;DSET 2,L,R1;EDLG;EXIT
/*
LINE: 2;15;Could you please help me with this camel of yours?; ;
LACT: 2;15;RESP R,2,Is not my camel no longer, effendi!;DSET 2,N15
/*
LINE: 2;16;What is wrong with the animal?; ;
LACT: 2;16;RESP R,2,You must understand, effendi...;RESP R,2,...Marlboro is very like human.;RESP R,2,Sometimes happy, sometimes not.;RESP R,2,Sometimes needs cheering up!;DSET 2,N16,+18
/*
LINE: 2;17;On second thoughts, forget it.; ;
LACT: 2;17;RESP R,2,It has completely left my mind even as we speak, effendi.;EDLG;EXIT
/*
LINE: 2;18;What would you suggest to cheer him up, then?; ;
LACT: 2;18;RESP R,2,I have no idea, effendi;RESP R,2,I have had him for five years...;RESP R,2,...and have not found anything yet, I'm afraid!;DSET 2,N18,+19
/*
LINE: 2;19;Very well, I'll think of something, I guess.; ;
LACT: 2;19;RESP R,2,I can only wish you the best of luck, effendi!;EDLG;EXIT
/* Pawn shop dialogue
LINE: 5;1;About time you showed up!; ;
LACT: 5;1;RESP R,5,Oh? Well, I never work during a heat wave...;RESP R,5,...and only fools do business during one!;DSET 5,N1
/*
LINE: 5;2;I don't know what I want, really. Give me a clue.; ;
LACT: 5;2;RESP R,5,I am not a fortune teller. Now, get to the point!;DSET 5,N2
/*
LINE: 5;3;Exactly what is this shop of yours?; ;
LACT: 5;3;RESP R,5,This is the one and only pawnshop in Constantinople.;RESP R,5,Are you buying or selling?;DSET 5,N1,N2,N3,N12,+4,+5,+13
/*
LINE: 5;4;I'm always on the lookout for nice things.;What I really want is something completely different.;
LACT: 5;4;RESP R,5,Well, what do you want then?;DSET 5,S1,+6,+7,+8
/*
LINE: 5;5;I guess I'm selling.;I have another very interesting item for you!;
LACT: 5;5;RESP R,5,Let me hear what you have to offer.;DSET 5,S1,+9,+10,+11,+14,+15
/*
LINE: 5;6;Some information - that's what!; ;
LACT: 5;6;RESP R,5,What? Have you ever heard of a pawn shop dealing in information???;DSET 5,R1
/*
LINE: 5;7;A first-class ticket for a caravan to Jerusalem.; ;
LACT: 5;7;RESP R,5,Oh, you are too late - I sold the last one I had yesterday!;DSET 5,R1
/*
LINE: 5;8;Some mead? A map? A camel? A llama?; ;
LACT: 5;8;RESP R,5,Nope! Nope! Nope! Nope! Nothing like that here, I'm afraid!;DSET 5,R1
/*
LINE: 5;9;Give me a good deal on this fine knife.; ;
LACT: 5;9;HANDLE;SHOW 2, , ,RBOB33;W 50;RESP R,5,No more knives. I have enough to last me a lifetime already.;SHOW 2, , ,RBOB30;HANDLE -1;DSET 5,R1
/*
LINE: 5;10;You simply must have this totally amazing wrapping paper!; ;
LACT: 5;10;HANDLE;SHOW 2, , ,RBOB33;W 50;RESP R,5,No, I certainly must not!;HANDLE -1;DSET 5,R1
/*
LINE: 5;11;How about this wooden flute?;There is something you don't know about the flute.;
LACT: 5;11;IFOF 1=1;RESP R,5,Oh yes? Like what?
LACT: 5;11;IFOF 1=0;SETOF 1=1;HANDLE;SHOW 2, , ,RBOB33;W 50;RESP R,5,It doesn't seem that valuable to me.;HANDLE -1
LACT: 5;11;DSET 5,E,+16,+17,+18,+19
/*
LINE: 5;12;Oh, I forgot something. I will be with you shortly!; ;
LACT: 5;12;RESP R,5,I will be here - provided that awful heat doesn't return.;EDLG;EXIT
/*
LINE: 5;13;I have to go away and think about this some more. Sorry!;Seems I need to think some more - au revoir!;
LACT: 5;13;RESP R,5,Take your time!;EDLG;EXIT
/*
LINE: 5;14;I have this rare, exotic bird's feather.; ;
LACT: 5;14;HANDLE;SHOW 2, , ,RBOB33;W 50;RESP R,5,Who are you trying to kid? This is nothing but an ordinary seabird feather!;RESP R,5,I could pick these out on the pier myself, by the hundreds!;HANDLE -1;DSET 5,R1
/*
LINE: 5;15;I think this cup of fine mead is right up your alley.; ;IFCARR SOBJ3
LACT: 5;15;HANDLE;SHOW 2, , ,RBOB33;W 50;RESP R,5,Not yet - but yes, the best thing you could do with it is certainly to pour it out in the alley!;HANDLE -1;DSET 5,R1
/*
LINE: 5;16;But it has a really beautiful sound!; ;
LACT: 5;16;RESP R,5,Sorry. Perhaps if it had been made of gold.;DSET 5,R1
/*
LINE: 5;17;Well, looks may deceive...; ;
LACT: 5;17;RESP R,5,Now you got me interested. What do you mean?;DSET 5,E,+20,+21
/*
LINE: 5;18;Would you believe me if I told you it's a magic flute?; ;
LACT: 5;18;RESP R,5,Not really.;DSET 5,R1
/*
LINE: 5;19;Oh, rats.; ;
LACT: 5;19;RESP R,5,Yes, I've heard you can get rid of rats using a flute.;RESP R,5,But since I don't have any, I'm not interested!;HANDLE -1;DSET 5,R1
/*
LINE: 5;20;Oh, you wouldn't believe me.; ;
LACT: 5;20;RESP R,5,Suit yourself!;DSET 5,R1
/*
LINE: 5;21;I actually used this flute to change the weather, believe it or not.; ;
LACT: 5;21;RESP R,5,You did?;RESP R,5,Could it be possible...;RESP R,5,You mean this is actually one of the famous Indian weather-flutes?;RESP R,5,Incredible!;RESP R,5,If it is, I must have it! Oh, to be able to get rid of the sun whenever I want!
LACT: 5;21;RESP R,5,Let me have another look!;HANDLE;W 50;SHOW 2, , ,RBOB33;W 50;RESP R,5,Yes, it seems it is the genuine thing!
LACT: 5;21;SHOW 2, , ,RBOB33;W 50;RESP R,5,Here is 20 gold pieces. Do we have a deal?;HANDLE -1;SAY You bet!;REMOVE SOBJ1,N,0;GET SOBJ5,N
LACT: 5;21;SETOF 2,2=1;SHOW 2, , ,RBOB34;W 25;SHOW 2, , ,RBOB35;W 50;SHOW 2, , ,RBOB34;W 25;RESP R,5,Thank you very much!;ADDRF 0,20,1;EDLG;EXIT
/*
/* Action 0 - Exit
/* ===============
/*
ACTION: 0;IFOBJ 1;MEXIT;GOTO 1,1
ACTION: 0;IFOBJ 2;MEXIT;GOTO 3,1
/*
/* Action 1 - Give
/* ===============
/*
/* Giving money to nomad
ACTION: 1;IFOBJ SOBJ5;IFOBJ2 9;IFRF 4=0|1;MOBJ 9;SAY Do you need some money?;RESP R,2,No thank you, effendi. I am not a beggar. I am a wealthy man.;EXIT
ACTION: 3;IFOBJ ROBJ6;IFRF 6=0;IFOF 1=0;W 100;SAY Nothing happens. The shop owner is probably out cold because of the heat...;SAY ...if such a thing is possible.;SETOF 1=1;EXIT
ACTION: 3;IFOBJ ROBJ6;IFRF 6=0;IFOF 1=1;W 100;SAY Still no answer.;EXIT
ACTION: 3;IFOBJ ROBJ6;IFRF 6=1;IFRF 5=1;RESP R,5,HEY! Stop ringing that bell, will you?|Stop it! That is NOT a toy!;EXIT
ACTION: 3;IFOBJ ROBJ7|ROBJ8;VERB 4;REDO
ACTION: 3;IFOBJ 11;IFRF 4=0|1|2;SAY It is not mine to use.;EXIT
ACTION: 3;IFOBJ 11;IFRF 4=3;MOBJ;SAY Come on then, boy!;HANDLE;W 50;HANDLE -1;SAY Up you go!;HANDLE;W 50;HANDLE -1;SAY Very annoying...;SAY ...the animal doesn't move an inch!;EXIT