; Made by Silver for RoT

SCENE 700, NH001,SCENE,"The Silver House",0,7

	ACTOR 1, "Snowy", stealth, 4,41,86

	1: Hello there, I'm Snowy the Snowman!
	1: This house belongs to Lord Silver and Lady Sierra.
	1: How can I assist you?
	WEATHER 0
	END

@eventActorClick1
	MENU "Enter the Silver House=@enter","What is this place?=@place","How come can you talk?=@talk","Return to Kagoshima=@return","Cancel=@cancel"
	GOTO @eventActorClick1

@eventActorAttack1
	STRCMP "#<str.soul>", "SOUL 1373"
	IF= @cancel
	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @cancel
	WEATHER 7
	1: Hostility is not appreciated.
	1: Goodbye.
	WAIT 2.0
#include lpscript3.txt	
	GOTO LINK 0,31,0

@eventActorSpell1
	STRCMP "#<str.soul>", "SOUL 1373"
	IF= @cancel
	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @cancel
	WEATHER 7
	1: Hostility is not appreciated.
	1: Goodbye.
	WAIT 2.0
#include lpscript3.txt	
	GOTO LINK 0,31,0

@eventActorGive1
	1: Thank you.
	END

@cancel
	END

@return
#include lpscript3.txt	
	GOTO LINK 0,31,0

@talk
	WEATHER 7
	1: I'm afraid that's classified information.
	1: Rest assured though that no burglar will be able to sneak up on the house as long as I'm here.
	WEATHER 0
	END

@place
	WEATHER 7
	1: New Haven is a specially engineered island for and by Silver.
	1: Purpose of the island is to have a place to retreat to and discuss diplomatic matters with other world developers, guild leaders, artists etcetera.
	1: Because of the perminent cold there will not be monsters around to disturb matters on this island and in doing it is offering a safe haven for Silver.
	1: Another reason is that the old Haven is now a honeymoon resort place.
	1: A New Haven was made to replace the old Haven with.
	1: The house you see is called the Silver House.
	1: It has the ability to adept its color to that of the nearby environment, effectively camouflaging it.
	1: The house itself is split up in several area's.
	1: The private area can only be entered by Silver or Sierra,
	1: the guest area can only be entered if you're in Silvers or Sierra's party and the public area is open for everybody.
	1: That's all I'm allowed to tell about this island and the house.
	WEATHER 0
	END

@enter
	WEATHER 7
	SET access, "0"
	STRCMP "#<str.soul>", "SOUL 1373"
	IF= @silver
	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @sierra
	1: Please do not enter any of the private area's, 
	1: you should feel lucky to be a guest in this house, don't abuse that privelege.
	WAIT 4.0
	GOTO SCENE 701

@silver
	HOST_GIVE T656
	1: Welcome in your mansion Lord Silver.
	WAIT 4.0
	GOTO SCENE 701

@sierra
	HOST_GIVE T656
	1: Welcome in your mansion Lady Sierra.
	WAIT 4.0
	GOTO SCENE 701

SCENE 701, hall01, SCENE, "The Silver House",0,0

	ACTOR 1, "Guest Room", stealth, 4,25,55
	ACTOR 2, "Living Room", stealth, 4,50,60
	ACTOR 3, "Conference Room",stealth, 4,70,55
	ACTOR 4, "Leave",stealth, 4,95,60

	STRCMP "#<str.soul>", "SOUL 1373"
	IF= @silver
	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @sierra

	N: Welcome in the Silver House.
	END

@silver
	N: Welcome home Lord Silver.
	END

@sierra
	N: Welcome home Lady Sierra.
	END

@eventActorClick1
	GOTO SCENE 703

@eventActorClick2
	STRCMP "#<str.soul>", "SOUL 1373"
	IF= @enter2
	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @enter2
	COMPARE #<access>, "3"
	IF> @leave
	GOTO @restricted

@enter2
	GOTO SCENE 704

@restricted
	ADD access, "1"
	N: Restricted access, you are not allowed to enter that area.
	END

@leave
	N: Our hospitality has its limits, 
	N: you tried entering a restricted area several times. 
	N: Goodbye.
#include lpscript3.txt	
	GOTO LINK 0,31,0

@eventActorClick3
	GOTO SCENE 702

@eventActorClick4
	GOTO EXIT

@eventActorAttack1
@eventActorAttack2
@eventActorAttack3
@eventActorAttack4
	STRCMP "#<str.soul>", "SOUL 1373"
	IF= @cancel
	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @cancel
	N: Hostility is not appreciated.
	N: Goodbye.
	WAIT 2.0
#include lpscript3.txt	
	GOTO LINK 0,31,0

@eventActorSpell1
@eventActorSpell2
@eventActorSpell3
@eventActorSpell4
	STRCMP "#<str.soul>", "SOUL 1373"
	IF= @cancel
	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @cancel
	N: Hostility is not appreciated.
	N: Goodbye.
	WAIT 2.0
#include lpscript3.txt	
	GOTO LINK 0,31,0

@cancel
	END

SCENE 702, conference01, SCENE, "Conference Room",0,0

	FLAGS 256
	
	ACTOR 1, "Main Hall", stealth, 4,88,69

	N: Welcome in the Conference Room. 
	N: The server is muted and can not hear you here either.
	END

@eventActorClick1
	GOTO SCENE 701

@eventActorAttack1
	STRCMP "#<str.soul>", "SOUL 1373"
	IF= @cancel
	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @cancel
	N: Hostility is not appreciated.
	N: Goodbye.
	WAIT 2.0
#include lpscript3.txt	
	GOTO LINK 0,31,0

@eventActorSpell1
	STRCMP "#<str.soul>", "SOUL 1373"
	IF= @cancel
	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @cancel
	N: Hostility is not appreciated.
	N: Goodbye.
	WAIT 2.0
#include lpscript3.txt	
	GOTO LINK 0,31,0

@cancel
	END

SCENE 703, bedroom02, SCENE, "Guest Room",0,0

	ACTOR 1, "Back", stealth, 4,95,63

	N: Welcome in the Guest Room.
	GIVE L1
	GIVE H25000
	GIVE M25000
	END

@eventActorClick1
	GOTO SCENE 701

SCENE 704, livingroom01, SCENE, "Living Room",0,0

	ACTOR 1, "Back", stealth, 4,95,95
	ACTOR 2, "Kitchen", stealth, 4,13,57
	ACTOR 3, "Bathroom", stealth, 4,36,65
	ACTOR 4, "Bedrooms", stealth, 4,8,89

	MUSIC evening
	FLAGS 0

	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @sierraspecial
	END

@sierraspecial
	COMPARE #<num.peopleInScene>, "1"
	IF= @sierraspecial2
	END

@sierraspecial2
	ACTOR 5, "Silver", silver,4,-10,85
	
	MOVE 5,35,85

	WAIT 2.0

	STRCMP #<sierraran>, ""
	IF= @comment2
	SET sierraran, "%R5"
	GOTO @comment#<sierraran>

@comment1
	5: Honey, I'm home!
	END

@comment2
	SET sierraran, "%R5"
	5: Welcome home honey! 
	5: How was your day?
	5: I hope everything went okay.
	END

@comment3
	5: I missed you a lot my sweetheart.
	N: Silver kisses you sweetly on your lips.
	END

@comment4
	5: I love you.
	END

@comment5
	5: Let me warm you up a little, 
	5: it must be cold outside where Snowy is.
	N: Silver cuddles you sweetly.
	END

@eventActorClick1
	GOTO SCENE 701

@eventActorClick2
	GOTO SCENE 705

@eventActorClick3
	EJECT T656
	GOTO SCENE 706

@eventActorClick4
	EJECT T656
	MENU "Master Bedroom=@masterroom","Bedroom 2=@room2","Bedroom 3=@room3","Cancel=@cancel"
	GOTO @eventActorClick4

@masterroom
	GOTO SCENE 709

@room2
	GOTO SCENE 707

@room3
	GOTO SCENE 708

@eventActorClick5
	MENU "Kiss your husband=@menu1","Go out with your husband=@menu2","Make love=@menu3","Cancel=@cancel"
	GOTO @eventActorClick5

@menu1
	H: Mwaaaa!
	5: /a kisses %1 passionately back
	5: I love you %1.
	SET sierraran, "%R5"
	GOTO @menu1a#<sierraran>

@menu1a1
	5: You're the best!
	END
@menu1a2
	5: You're the sweetest!
	END
@menu1a3
	5: I'm very happy to have you as my wife.
	END
@menu1a4
	5: I wish I could be here with you right now...
	END
@menu1a5
	5: J'taime toi, ich liebe dich, ik hou heel van jou!
	5: I love you very very very much!
	END

@menu2
	H: Let's go out.
	5: Excellent idea sweetheart!
	5: Allow me to surprise you...
	WAIT 4.0
	GOTO SCENE 710

@menu3
	H: Let's make love!
	5: As tempting as it is my princes, 
	5: I much rather wait till the real me shows up. ;-)
	END

@cancel
	END


SCENE 705, kitchen01, SCENE, "Kitchen",0,0

	ACTOR 1, "Back", stealth, 4,95,95

	ACTOR 2, "Bartender", monster008, 4,48,79

	MUSIC evening
	OFFER2 0,99,0 0,99,1

	STRCMP "#<str.soul>", "SOUL 1373"
	IF= @introsilver
	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @introsierra

	MOVE 2,-50,50,1
	END

@introsilver
	2: Welcome home my Lord.
	2: Refreshments are ready in the cooler.
	END

@introsierra
	COMPARE #<num.peopleInScene>, "2"
	IF= @companysie
	IF> @companysie2
	2: Can I get you something Lady %1?
	END
@companysie
	2: Will you be eating dinner with Lord Silver tonight my Lady?
	END
@companysie2
	2: I see you brought guests with you Lady Sierra.
	2: Is there anything I can get you?
	END

@eventActorClick1
	GOTO SCENE 704

@eventActorClick2

	STRCMP "#<str.soul>", "SOUL 1373"
	IF= @menusilver
	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @menusierra

@menusilver
	MENU "Date Sierra=@date","Compliment=@compliment","Leave us=@leave","Sierra's Menu=@menusierra","Cancel=@cancel"
	GOTO @menusilver

@menusierra
	MENU "Get Beer #1=@drink1","Get Beer #2=@drink2", "Get Beer #3=@drink3", "Get Whiskey #1=@drink4","Get Whiskey #2=@drink5","Get Bacardi #1=@drink6","Get Bacardi#2=@drink7","Get Tequilla=@drink8","Get Wine=@drink9","Get Champagne=@drink10","Get Milk=@drink11","Leave us=@leave","Cancel=@cancel"
	GOTO @menusierra

@drink1
	GIVE I103
	2: Here you go.
	END

@drink2
	GIVE I104
	2: Here you go.
	END

@drink3
	GIVE I105
	2: Here you go.
	END

@drink4
	GIVE I106
	2: Here you go.
	END

@drink5
	GIVE I107
	2: Here you go.
	END

@drink6
	GIVE I108
	2: Here you go.
	END

@drink7
	GIVE I109
	2: Here you go.
	END

@drink8
	GIVE I110
	2: Here you go.
	END

@drink9
	GIVE I111
	2: Here you go.
	END

@drink10
	GIVE I119
	2: Here you go.
	END

@drink11
	GIVE I112
	2: Here you go.
	END

@compliment
	2: May I say that Lady Sierra looks absolutely stunning today?
	2: I could not imagine a more lovely woman for you to be married with my Lord.
	END

@leave
	2: As you wish #<g.scmlord>, I shall depart.
	WAIT 3.0
	MOVE 2,-15,95
	END

@date
	GOTO SCENE 710

@cancel
	END


SCENE 706, bathroom01, SCENE, "Bathroom",0,0

	EJECT T656

	ACTOR 1, "Back", stealth, 4,95,95
	MUSIC evening
	N: This is a private scene, nobody can hear you here.
	FLAGS 256
	END

@eventActorClick1
	GOTO SCENE 704

SCENE 707, bedroom01, SCENE, "Master Bedroom",0,0

	EJECT T656

	EJECT T656
	MUSIC evening
	GIVE L1
	GIVE H25000
	GIVE M25000
	ACTOR 1, "Back", stealth, 4,95,95
	MUSIC evening
	N: This is a private scene, nobody can hear you here.
	FLAGS 256
	END

@eventActorClick1
	GOTO SCENE 704

SCENE 708, bedroom1, SCENE, "Bedroom 2",0,0

	EJECT T656

	EJECT T656
	MUSIC evening
	GIVE L1
	GIVE H25000
	GIVE M25000
	ACTOR 1, "Back", stealth, 4,95,95
	MUSIC evening
	N: This is a private scene, nobody can hear you here.
	FLAGS 256
	END

@eventActorClick1
	GOTO SCENE 704

SCENE 709, bedroom03, SCENE, "Bedroom 3",0,0

	EJECT T656

	ACTOR 1, "Back", stealth, 4,95,95

	EJECT T656
	MUSIC evening
	GIVE L1
	GIVE H25000
	GIVE M25000
	ACTOR 1, "Back", stealth, 4,95,95
	MUSIC evening
	N: This is a private scene, nobody can hear you here.
	FLAGS 256
	END

@eventActorClick1
	GOTO SCENE 704

SCENE 710,  rotxmas, CUT, "",0,7

	EJECT T656

	SET date, "%R5"
	GOTO @music#<date>
@music1
	MUSIC CelesMix
	GOTO @actors
@music2
	MUSIC evening
	GOTO @actors
@music3
	MUSIC elfen2
	GOTO @actors
@music4
	MUSIC eed
	GOTO @actors
@music5
	MUSIC AndILoveHer
	GOTO @actors

@actors
	ACTOR 1, "Silver",  silver, 4, 100,95
	ACTOR 2, "Sierra", sold007, 1, 100,99
	ACTOR 3, "Waiter", silver2, 6,130,90
	ACTOR 4, "",silver2,7,61,-100

	MOVE 1,-20,95
	MOVE 2,-20,99

	SET date, "%R3"
	GOTO @bkgnd#<date>
@bkgnd1
	GOTO @date
@bkgnd2
	BKGND sky
	GOTO @date
@bkgnd3
	WEATHER 0
	BKGND meadow
	GOTO @date

@date
	SET date, "%R4"
	GOTO @date#<date>
@date1
	2: I wonder where you take me to, my Romeo.
	1: Just wait and see, my Juliette.
	GOTO @mid
@date2
	2: You're always so full of surprises Silver...
	1: Doing the best I can, my sweetheart.	
	GOTO @mid
@date3
	2: You're to good for me sweetheart...
	1: Only the best is good enough for you Sierra.	
	GOTO @mid
@date4
	2: I love going out with you, it's always something new.
	1: I love something here too, 
	1: YOU!
	2: /a winks
	GOTO @mid

@mid
	WAIT 10.0
	WEATHER 0

	SET date, "%R7"
	GOTO @mida#<date>
@mida1
	BKGND vamp12
	GOTO @midb
@mida2
	BKGND garden
	GOTO @midb
@mida3
	BKGND scenes094
	FX 5
	WEATHER 7
	GOTO @midbx1
@mida4
	BKGND vamp03
	GOTO @midb
@mida5
	BKGND vamp11
	GOTO @midb
@mida6
	BKGND vamp16
	GOTO @midb
@mida7
	BKGND vamp22
	GOTO @midb

@midb
	MOVE 1,44,100,1
	FACE 1,4
	MOVE 2,79,100,1
	MOVE 4,61,100,1

	SET date, "%R4"
	GOTO @midb#<date>
@midb1	
	1: Voila!
	GOTO @midc
@midb2	
	1: Surprise!
	GOTO @midc
@midb3	
	1: Tadaa!
	GOTO @midc
@midb4	
	1: SURPRISE!
	GOTO @midc
@midbx1
	MOVE 1,44,100,1
	FACE 1,4
	MOVE 2,79,100,1
	MOVE 4,61,100,1
	1: Dinner in Heaven,
	1: the same place where I am when I think of you.
	2: Awwws...
	2: You're the cutest!
	GOTO @midd 

@midc
	SET date, "%R4"
	GOTO @midc#<date>
@midc1
	2: Wowww...
	GOTO @midd
@midc2
	2: Cool!
	GOTO @midd
@midc3
	2: *Smooooch*
	2: You're the best, honey!
	GOTO @midd
@midc4
	2: Awesome!
	GOTO @midd

@midd

	MOVE 3,105,73,1
	WAIT 2.0
	MOVE 3,82,73
	WAIT 2.0
	MOVE 3,70,81
	WAIT 4.0

	3: May I take your orders please?

@dinner
	SET date, "%R5"
	GOTO @dinner#<date>
@dinner1
	SET dinner, "spaghetti"
	2: For me #<dinner> please.
	1: I will take the same.
	1: I like it how we can eat one strand of #<dinner> together...
	2: Hmmm...
	2: And end it in a kiss...
	GOTO @dinb
@dinner2
	SET dinner, "patato dish"
	1: I would like to try out the #<dinner>.
	2: Is it good?
	1: It should be, I really enjoyed it last time.
	2: I'd like to order the #<dinner> as well then.
	GOTO @dinb
@dinner3
	SET dinner, "banana ice cream"
	2: I'd like to have #<dinner>!
	1: Oehhh... #<dinner>...
	1: Well it sure sounds good, so sign me up for it too!
	GOTO @dinb
@dinner4
	SET dinner, "chinese"
	1: I would like to have #<dinner>.
	2: For me the same please.
	GOTO @dinb
@dinner5
	SET dinner, "steak"
	2: I'd like to try out the #<dinner>.
	1: That sounds like a good idea yeah...
	1: I like my #<dinner> medium done please.
	GOTO @dinb

@dinb
	SET date, "%R4"
	GOTO @dinb#<date>

@dinb1
	3: Very well, I shall let the chef cook prepare #<dinner> two times.
	GOTO @dinc
@dinb2
	3: The chef cook will be delighted to prepare #<dinner>, it is his specialty.
	GOTO @dinc
@dinb3
	3: Very well, two times #<dinner>.
	3: I will personally so to it that the high quality standards are maintained for our guests of honor.
	GOTO @dinc
@dinb4
	3: Two times #<dinner> hmm?
	3: I will try to get it ready as soon as possible.
	GOTO @dinc
@dinb5
	3: Excellent choice Lady Sierra, may I recommend a red wine to go with it?
	2: You may, I think wine will be quite tasteful with #<dinner>.
	GOTO @dinc

@dinc
	WAIT 3.0
	MOVE 3,82,73
	WAIT 2.0
	MOVE 3,115,73
	WAIT 5.0
	MOVE 3,115,73,1
	SEL 3
	POSE 5

@convo

	SET date, "%R5"
	GOTO @convo#<date>

@convo1
	1: How was your day?
	2: Everything went otay for me.
	2: Had fun yourself?
	1: Yup, as usual.
	GOTO @endconvo
@convo2
	1: I really enjoy going out with you.
	2: I feel the same.
	2: I'm glad we fit together so well.
	1: Me too.
	1: There is never any presure between us and we can talk about anything we want.
	2: Yeah.
	GOTO @endconvo
@convo3
	2: I wonder what more you have planned for tonight.
	1: Well...
	1: I still have a few more ideas. *winks*
	1: I think you will like my other plans.
	1: /a gives his wife a tender kiss
	GOTO @endconvo
@convo4
	2: *Mwaaaa*
	1: What was that for?
	2: For being the best hubby ever!
	1: /a kisses his wife sweetly back
	GOTO @endconvo
@convo5
	1: It's nice being able to spend some time in New Haven and relax.
	2: Yeah, definately.
	2: I really like our living room.
	1: The bedroom look nice too.
	2: Yup yup. *winks*
	GOTO @endconvo

@endconvo
	MOVE 3,105,73,1
	WAIT 2.0
	MOVE 3,82,73
	WAIT 2.0
	MOVE 3,70,81
	WAIT 4.0

	SET date, "%R3"
	GOTO @server#<date>
@serve1
	3: Dinner is ready.
	GOTO @serveend
@serve2
	3: Dinner is served.
	GOTO @serveend
@serve3
	3: Dinner is ready to be served.
	GOTO @serveend

@serveend
	SET date, "%R5"
	GOTO @eat#<date>

@eat1
	2: Yummmie.
	1: It looks great, give the chef cook my compliments.
	3: I will leave you two alone, 
	3: if anything else is needed just jingle the bell.
	1: Thank you Waiter.
	GOTO @actorleave
@eat2
	3: I hope you will both enjoy the #<dinner>.
	1: Thank you Waiter, you may take off for the rest of the evening.
	3: Thank you Lord Silver.
	3: I hope you and your wife have a very pleasant evening together.
	GOTO @actorleave
@eat3
	2: It sure looks great...
	2: The chef cook really outdid himself this time.
	3: Thank you Lady Sierra.
	3: I will pass your compliments to the chef cook.
	3: May I be excused my lord?
	1: You may.
	GOTO @actorleave
@eat4
	3: Enjoy your dinner Lord Silver, Lady Sierra.
	1: Thank you.
	2: You may take the rest of the evening off Waiter.
	2: We can manage ourselves.
	3: Thank you Lady Sierra. 
	GOTO @actorleave
@eat5
	1: It looks fantastic!
	2: I wish I could cook like the chef cook does...
	1: Maybe he can teach us both how to cook like this.
	3: I'll be sure to give your compliments to the chef cook.
	1: Tell him he will be greatly rewarded for his efforts.
	3: Very well my lord, 
	3: I will give him the message.
	GOTO @actorleave

@actorleave
	WAIT 3.0
	MOVE 3,82,73
	WAIT 2.0
	MOVE 3,115,73
	WAIT 5.0
	MOVE 3,115,73,1

	SET date, "%R5"
	GOTO @end#<date>

@end1
	1: I can't wait till we're back in our Mansion...
	2: Hmmm?
	2: Got anything planned, loverboy?
	1: Oh yeah...
	1: Just wait. *winks*
	1: I love you.
	2: *Mwaaaa*
	2: I love you too!
	GOTO @enddate
@end2
	2: It tastes great.
	2: I want to get back to our house soon though.
	1: Hmmm?
	1: Any plans?
	2: Only ones that involve seducing you...
	1: Sounds good to me!
	GOTO @enddate
@end3
	2: Honey?
	1: Yes sweetheart?
	2: I love you.
	1: I love you too princess.
	2: Let's go back home,
	2: I want to make love with you.
	GOTO @enddate
@end4
	2: We definately have to do this more often.
	1: I agree.
	1: It's fun to go out with you.
	2: Yeah, 
	2: I like just hanging out in our Mansion too though.
	1: It's nice and cosy yeah.
	1: Perfect to start our little family in.
	GOTO @enddate
@end5
	1: /a kisses his wife on her pretty lips
	2: *Mwaaaa*
	2: Nice dinner, good music and great company...
	2: What more could a girl possibly want?
	1: /a whispers something in his wifes ear
	2: Oehhh...
	2: That'd work too yeah...
	2: I definately want that! 
	GOTO @enddate

@enddate
	WAIT 5.0
	STRCMP #<str.soul>, "SOUL 1373"
	IF= @scene705
	STRCMP #<str.soul>, "SOUL 1455"
	IF= @scene704

	HOST_GIVE T172
	EJECT T172
	GOTO LINK 99,0,1

@scene704
	GOTO SCENE 704

@scene705
	GOTO SCENE 705

; 50.400.000 combo's possible in the above script. ^_^

SCENE 788, inside, SCENE, "Star",0,0

	ACTOR 1, "", silver, 4,40,90

	1: And once I'll be a shining star, high above in the sky, a light for others to follow.
	1: But till that time comes I shall work hard and do whatever it takes to reach that light.
	1: ...
	END


;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; LOTTO/ LOTTERY
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX


SCENE 720, backstreet,SCENE, "Tickets",0,0


	ACTOR 1, "Kilmoto", pet015,4,25,90	

	OFFER 123

	STRCMP #<kilmoto>, "1"
	IF= @skipintro
	SET kilmoto, "1"
	1: If you want to participate in the Lotto you'll have to buy one or more %I123s.			
	1: The more %I123s you buy the larger your chance of winning will be!	
@skipintro
	1: Click on me once you bought at least one %I123.									
	END

@eventActorClick1
	MENU "Enter the lottery=@lotto","Buy large quantities of Lottery Tickets=@large","More information=@info","How do I know which numbers I have?=@faq","Cancel=@cancel"
	GOTO @eventActorClick1

@lotto
	IF -I123, @noticket	
	1: Good luck!
	GOTO SCENE 721

@noticket
	1: You don't have a %I123 yet, without one I can't let you in either.			
	END

@cancel
	FLAGS 1031368
	END

@info
	1: The lotto is a gamble game where you have the chance of winning great prizes.
	1: The more tickets you buy, the larger your chance will be that you win something.
	1: However it's not garantueed that you will actually win something.
	1: Prizes vary from GP, to Demon Keys, but will mostly be GP.
	1: The rarer the prize is, the harder it will be to win it.
	1: There are three rounds to win something and each round is split up in 4 lucky numbers.
	1: If you have a %I123 that has one or more numbers then you win a prize!
	1: This means you could win 4 prizes in one round, but you have to be very lucky for that.
	1: Each round the prize will be better, but the chance to win will also be smaller.
	1: If you want to bet in each three rounds you'll have to buy at least three %I123s, one for each round.
	1: To increase your winning chance you use up to 25 %I123s in each round. 
	1: You have to compete with at least one %I123 in every round, 
	1: that will be at least 3 lottery tickets in total if you want to compete in round 3.
	1: Keep in mind that there are 200 random numbers and the other people who compete for a prize bought all the other tickets.
	END

@faq
	1: That's simple to answer... You don't.
	1: The numbers are randomly drawn and you don't have any direct influence in which numbers are in your possession.
	1: However if you buy more %I123s the chance that you will win increases.
	END

@large
	MENU "Buy 25 Lottery Tickets=@buy25","Buy 50 Lottery Tickets=@buy50","Buy 75 Lottery Tickets=@buy75","Buy 100 Lottery Tickets=@buy100","Cancel=@cancel"
	GOTO @large

@buy25
	COMPARE "#<num.item123", "75"
	IF> @tomany
	IF -V24, @tomany
	IF -G25000, @nomo
	HOST_TAKE G25000
	HOST_GIVE I123.25
	END

@buy50
	COMPARE "#<num.item123", "50"
	IF> @tomany
	IF -V49, @tomany
	IF -G50000, @nomo
	HOST_TAKE G50000
	HOST_GIVE I123.50
	END

@buy75
	COMPARE "#<num.item123", "25"
	IF> @tomany
	IF -V74, @tomany
	IF -G75000, @nomo
	HOST_TAKE G75000
	HOST_GIVE I123.75
	END

@buy100
	COMPARE "#<num.item123", "0"
	IF> @tomany
	IF -V99, @tomany
	IF -G100000, @nomo
	HOST_TAKE G100000
	HOST_GIVE I123.100
	END

@tomany
	N: You can not carry that much more %I123s!
	END

@nomo
	N: You do not have enough money!
	END


SCENE 721, backstreet, SCENE, "Lottery",0,0

	EJECT T172

	ACTOR 1, "Fliero",a78,4,24,74	
	ACTOR 2, "Kintogo", a12,4, 60,85
	ACTOR 3, "Camo", a19,1, 71,74	
	ACTOR 4, "Kamatari",a22,4, 7,97	
	ACTOR 5, "Migran", a24,4, 45,90	
	ACTOR 6, "Miss Togi", a76,4, 92,95	

	SEL 1
	POSE 4,1
	SEL 2
	FACE 2,4
	POSE 4,1
	SEL 3
	FACE 3,4
	POSE 1,4
	SEL 4
	POSE 4,3,1
	SEL 5
	FACE 5,4
	POSE 4,1
	SEL 6
	FACE 6,4
	POSE 4,1
	
	TAKE T659
	TAKE T660
	TAKE T661
	TAKE T662
	SET round, "0"

	1: Welcome in the Lottery!
	1: Today you have another chance at winning great prizes!

	HOST_GIVE T659

@roundsetting

	ADD round, "1"
	COMPARE #<round>, "3"
	IF> @endlotto
	IF T662, @endlotto	

@ask1c
	SET check1, "0"
	COMPARE #<check1>, "0"
	IF< @S11
	IF> @S11
	SET check1, "1"
	COMPARE #<check1>, "1"
	IF< @S11
	IF> @S11
	1: Round #<round>, with how many %I123s do you want to bet in this round?							
	ASK 300
	STRCMP #<lastAsk>, ""
	IF= @ask1a
	COMPARE #<lastAsk>, "1"
	IF< @ask1a
	COMPARE #<lastAsk>, "25"
	IF> @ask1b
	COMPARE "#<num.item123>", "#<lastAsk>"
	IF< @ask1d
	HOST_TAKE I123.#<lastAsk>											
	SET chance, "#<lastAsk>"

	SET numb,  0
	SET numb1, "%R50"
	SET numb2, "50"
	ADD numb2, "%R50"
	SET numb3, "100"
	ADD numb3, "%R50"
	SET numb4, "150"
	ADD numb4, "%R50"
	SET numbx, 0	

	IF T661, @round3
	IF T660, @round2
	IF T659, @round1

	N: Some bug took place, the Lottery has to be canceled!
	WAIT 3.0
	GOTO EXIT

@ask1a
	COMPARE #<num.item123>, 0
	IF= @ask1d1
	1: The number you entered is to low, the minimal required is 1.
	GOTO @ask1c
@ask1b
	1: The number you entered is to high, the maximum allowed is 25.
	GOTO @ask1c

@ask1d
	COMPARE #<num.item123>, 0
	IF= @ask1d1
	COMPARE #<num.item123>, 1
	IF= @ask1d2
	1: I'm sorry but you only have #<num.item123> %I123s with you right now.
	GOTO @ask1c

@ask1d1
	1: I'm sorry but you have no %I123s with you, you can not participate in the Lottery anymore.
	WAIT 4.0
	GOTO EXIT

@ask1d2
	1: I'm sorry but you only have 1 %I123 with you right now.
	GOTO @ask1c

;XXXXXXXX
; ROUND 1
;XXXXXXXX

@round1
	HOST_GIVE T660
	ADD numb, 1
	SET numbx, "numb#<numb>"
	COMPARE #<numb>, "4"
	IF> @roundsetting
	1: Number #<numb> is *#<numbx>, who here has a %I123 with number *#<numbx>?
	IF R50+R#<chance>, @win1

	SET actor, "1"
	ADD actor, "%R5"
	GOTO @actorA#<actor>

@actorA2
	2: I have number *#<numbx>!
	GOTO @actorwin1

@actorA3
	3: I won I won!
	GOTO @actorwin1

@actorA4
	4: !!
	4: *#<numbx>!?
	1: Yup, that's right sir, number *#<numbx>.
	4: ! I WON!
	GOTO @actorwin1

@actorA5
	5: That's my number!
	GOTO @actorwin1

@actorA6
	6: I won!
	GOTO @actorwin1

@actorwin1
	1: Congratulations!
	SET random, %R10
	GOTO @rewardA#<random>

@rewardA1
	1: You won 100 %I36s!
	1: Enough for the rest of your life time!
	GOTO @round1

@rewardA2
	1: You won 10 %I39s!
	GOTO @round1

@rewardA3
	1: You won 50,000 GP!
	1: Don't spend it all in one place!
	GOTO @round1

@rewardA4
	1: You won 20 %I119s!
	1: Talking about throwing a party eh?
	GOTO @round1

@rewardA5
	1: You won a %I773!
	GOTO @round1

@rewardA6
	1: You won a %I961!
	GOTO @round1

@rewardA7
	1: You won 60,000 GP!
	GOTO @round1

@rewardA8
	1: You won 45,000 GP!
	1: If you spend half of it on candy you can pay the dentist with the other half!
	GOTO @round1

@rewardA9
	1: You won %I2078!
	1: Be careful with that thing though, else you'll accidently slice off a finger or two.
	GOTO @round1

@rewardA10
	1: You won 3 %I2091!
	1: I have no idea what you can use that for...
	GOTO @round1

@win1
	H: I do, I won!
	1: Congratulations!
	SET random, "%R5"
	GOTO @rewardAA#<random>

@rewardAA1
	1: You won 55,0000 GP!
	HOST_GIVE G55000	
	GOTO @round1

@rewardAA2
	1: You won a %I773!
	HOST_GIVE I773
	GOTO @round1

@rewardAA3
	1: You won a %I970!
	HOST_GIVE I970
	GOTO @round1

@rewardAA4
	1: You won 50,000 GP!
	HOST_GIVE G50000
	GOTO @round1

@rewardAA5
	1: You won 60,000 GP!
	HOST_GIVE G60000
	GOTO @round1

;XXXXXXXX
; ROUND 2
;XXXXXXXX

@round2
	HOST_GIVE T661
	ADD numb, 1
	SET numbx, "numb#<numb>"
	COMPARE #<numb>, "4"
	IF> @roundsetting
	1: Number #<numb> is *#<numbx>, anybody here who has a %I123 with number *#<numbx>?
	IF R25+R#<chance>, @win2

	SET actor, "1"
	ADD actor, "%R5"
	GOTO @actorB#<actor>

@actorB2
	2: Number *#<numbx> is mine!
	GOTO @actorwin2

@actorB3
	3: Yippie!
	3: I won, I won, I won!
	GOTO @actorwin2

@actorB4
	4: !!
	4: *#<numbx>!?
	1: Yup, indeed sir, number *#<numbx>.
	4: I WON!
	GOTO @actorwin2

@actorB5
	5: Yippie!
	5: I have number *#<numbx>!
	GOTO @actorwin2

@actorB6
	6: Nana nana na!
	6: I won, you guys lost!
	GOTO @actorwin2

@actorwin2
	1: Congratulations!
	SET random, %R10
	GOTO @rewardB#<random>

@rewardB1
	1: You won a %S36!
	GOTO @round2

@rewardB2
	1: You won %S136!
	GOTO @round2

@rewardB3
	1: You won 100,000 GP!
	1: Don't spend it all on alcohol!
	GOTO @round2

@rewardB4
	1: You won 100 pieces of %I120!
	1: And 50 bottles of %I104!
	1: Now that's a party!
	GOTO @round2

@rewardB5
	1: You won 20 %I39s!
	GOTO @round2

@rewardB6
	1: You 2 won %I734s!
	GOTO @round2

@rewardB7
	1: You won 120,000 GP!
	GOTO @round2

@rewardB8
	1: You won 95,000 GP!
	GOTO @round2

@rewardB9
	1: You won the special edition from a pair of %I718!
	GOTO @round2

@rewardB10
	1: You won a Golden Pair of %I719!
	GOTO @round2

@win2
	H: Victory!
	1: Congratulations!
	SET random, "%R5"
	GOTO @rewardBB#<random>

@rewardBB1
	1: You won 110,000 GP!
	HOST_GIVE G110000	
	GOTO @round2

@rewardBB2
	1: You won a %I774!
	HOST_GIVE I774
	GOTO @round2

@rewardBB3
	SET item, 2049
	ADD item, %R6
	1: You won a %I#<item>!
	HOST_GIVE I#<item>
	SET item, 0
	GOTO @round2

@rewardBB4
	1: You won 100,000 GP!
	HOST_GIVE G100000
	GOTO @round2

@rewardBB5
	1: You won 120,000 GP!
	HOST_GIVE G120000
	GOTO @round2

;XXXXXXXX
; ROUND 3
;XXXXXXXX

@round3
	HOST_GIVE T662
	ADD numb, 1
	SET numbx, "numb#<numb>"
	COMPARE #<numb>, "4"
	IF> @roundsetting
	1: Number #<numb> is *#<numbx>, who has a %I123 with number *#<numbx>?
	IF R10+R#<chance>, @win3

	SET actor, "1"
	ADD actor, "%R5"
	GOTO @actorC#<actor>

@actorC2
	2: My lucky number *#<numbx> won something!
	GOTO @actorwin3

@actorC3
	3: Yahoo!
	3: I knew lucky number *#<numbx> would win!
	GOTO @actorwin3

@actorC4
	4: !!
	4: *#<numbx>!?
	1: Yes sir, lucky number *#<numbx> won.
	IF R35, @actorC4a
	4: Yippiekayee!
	4: ! I WON!
	GOTO @actorwin3
@actorC4a
	SET newn, *#<numbx>
	SUB newn, "1"
	4: Oh, never mind, I have number #<newn>.
	4: /a sobs
	ADD actor, "%R2"
	GOTO @actorC#<actor>

@actorC5
	5: Woohoo!
	5: My number lucky *#<numbx> came, saw and won!
	GOTO @actorwin3

@actorC6
	6: Ha! 
	6: You guys lost to a girl!
	GOTO @actorwin3
	
@actorwin3
	1: Congratulations!
	SET random, %R10
	GOTO @rewardC#<random>

@rewardC1
	SET item, "19"
	ADD item, "%R4"
	1: You won 40 %I#<item>s!
	GOTO @round3

@rewardC2
	1: You won a %I118!
	GOTO @round3

@rewardC3
	1: You won 400,000 GP!
	1: Don't spend it all on slaves!
	GOTO @round3

@rewardC4
	1: You won 50 bottles of %I103, 50 bottles of %I106, 50 bottles of %I108, 50 bottles of %I110 and 50 bottles of %I111!   
	1: If you can't get drunk from that then I doubt anything else will!
	GOTO @round3

@rewardC5
	1: You won 10 %I249s!
	1: Perhaps nice for a dress up party with friends?
	GOTO @round3

@rewardC6
	1: You won a pair of %I2147!
	GOTO @round3

@rewardC7
	1: You won 480,000 GP!
	GOTO @round3

@rewardC8
	1: You won 385,000 GP!
	GOTO @round3

@rewardC9
	SET item, 2100
	ADD item, %R24
	1: You won a %I#<item>!
	1: Be careful with that thing though, it has some unexpected results!
	GOTO @round3

@rewardC10
	1: You won 75 %I39s!
	1: Almost enough to give you eternal life!
	GOTO @round3

@win3
	H: Hurray, I have *#<numbx>!
	1: Congratulations!
	SET random, "%R5"
	GOTO @rewardCC#<random>

@rewardCC1
	1: You won 440,0000 GP!
	HOST_GIVE G440000	
	GOTO @round3

@rewardCC2
	1: You won a %I775!
	HOST_GIVE I775
	GOTO @round3

@rewardCC3
	1: You won a %I118!
	HOST_GIVE I118
	GOTO @round3

@rewardCC4
	1: You won 400,000 GP!
	HOST_GIVE G400000
	GOTO @round3

@rewardCC5
	1: You won 480,000 GP!
	HOST_GIVE G480000
	GOTO @round3

@endlotto
	TAKE T659
	TAKE T660
	TAKE T661
	TAKE T662
	SET round, 0
	SET numb,  0
	SET numb1, 0
	SET numb2, 0
	SET numb3, 0
	SET numb4, 0
	SET numbx, 0
	1: This is the end of this Lottery, till next time!
	WAIT 4.0
	GOTO EXIT

@S11
	HOST_GIVE T172
	EJECT T172
	GOTO LINK 99,0,1


; Comment: I needed a bigger and better place... :-p