;This is all the shopping scenes used on the map
;
; 120x - Roby's Bi Town of Love


;================================ Roby's Bi Town of Love ==================================
;---------


SCENE 50 LoD
	THEME	0
;	MUSIC	spellbound.mid
	ACTOR	1,	"Psx", psx, 9, 5, 90
	POSE	9,10
	SEL		1
	MOVE	1,	15, 80

	1: Are u a cop man
	ASK 30
	IF YES @death
	IF NO @drugs
END

@death
1: DIE PIG
Fight 1000

END

@drugs

1:Cool Cool what you want
	OFFER 	26,27,28,29


END



SCENE 59		LoD, SCENE, "Fire Swords", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Rev",rev, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

	WAIT	1.0
    1: All the Swords here have been imbued with fire. 
	OFFER 305,310,315,320,325,330.335,340,345

END


SCENE 71		LoD, SCENE, "Ice Swords", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Gilead",josh17, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

	WAIT	1.0
    1: All the Swords here have been imbued with Ice. 
    OFFER  303,304,306,307,308,309,311,312,313

END



SCENE 61		LoD, SCENE, "Air Swords", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Lorik",windofancients, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

	WAIT	1.0
     1: All the Swords here have been imbued with wind. 
     OFFER  314,316,317,318,319,321,322,323,324

END







SCENE 62		LoD, SCENE, "Holy Swords", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Kagami",kagami, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

	WAIT	1.0
     1: All the Swords here have been imbued with holy magic.  
     OFFER 357,358,359,360,361,362,363,364,365

END






SCENE 63		LoD, SCENE, "Death Swords", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Xanisi",Xanisi, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

	WAIT	1.0
     1: All the Swords here have been imbued with The souls of the dead. 
     OFFER 348,349,350,351,352,353,354,355,356

END



SCENE 56		LoD, SCENE, "Nature Swords", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"RP",Romeo, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

	WAIT	1.0
     1: All the Swords here have been imbued with the elements of nature.
	OFFER 337,338,339,341,342,343,344,346,347

END

SCENE 57		LoD, SCENE, "Physical swords", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Kakashi",Juzoh, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

	WAIT	1.0
   	1: All the Swords here have been imbued with the strength of my fists
	OFFER 366,367,368,369,370,371,372,373,374
END

SCENE 58		LoD, SCENE, "Spirit Swords", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Zato",zato, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

	WAIT	1.0
	1: All the Swords here have been imbued with Demonic power 
	OFFER 326,327,328,329,331,332,333,334,336

END





SCENE 64		LoD, SCENE, "Mayors House", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Wisty",wisty, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60
	IF T306 @hi
	IF T300 @back
	IF T301 @back
	IF T302 @back
	IF T303 @back
	IF T304 @back
	IF T305 @back
	IF I50+I51+I52+I53+I54+I55 @wizard
	IF I50+I51+I52+I53+I54 @quest6
	IF I50+I51+I52+I53 @quest5
	IF I50+I51+I52 @quest4
	IF I50+I51 @quest3
	IF I50 @quest2

	
	WAIT	1.0
	
	1: hmm you look strong %1
	1: Would you be intrested in a little job the pay is good and you can keep what you find.
	ASK 30
	IF YES @yes
	IF no @no
END

@no
1: ok then goodbye
WAIT 7.0
GOTO EXIT

END

@yes
1: Ok this town is being haunted by 6 Horribly strong ghosts i would like you to exorcise
1: the first 4 are strong very strong but you should be able to beat them with help from your friends
1: however the 5th and 6th ones are immortal and you will have to figure a way out to kill them
1: The 5th Ghost is actually Satan you will need to banish him back to hell
1: well ill tell you  what will just do them one at a time a reward for each one that way ill have time to look for a way to dispose of the last two
1: The first ghost is Located in Babys and her sisters House
1: ill let you get to it
GIVE T300
WAIT 2.0
GOTO EXIT
END


@back
1: didnt i tell you to go exorcise a ghost
WAIT 2.0
GOTO EXIT
END


@quest2

1: You did a great job im not sure what that scroll you found is but you should hang onto it
1: here is your reward
GIVE I26
GIVE T301
1: The next one is in mavras house

END


@quest3

1: odd another scroll
1: here is your reward
GIVE I27
GIVE T302
1: The next one is in kasts house

END

@quest4

1: i wonder what those scrolls are for
1: here is your reward
GIVE I28
GIVE T303
1: The next one is in Luminas house

END

@quest5

1: here is your reward
GIVE I29
GIVE T304
1: ive Heard that kiba has a potion that might be able to kill an immortal like satan
1: Satan is residing in stephys house at the moment go to kibas house and get an immortal killer

END

@quest6

1: You did a great job
1: here is your reward
GIVE G500000
GIVE T305
1: This is the last ghost haunting our great city
1: He is also immortal the ghost calls himself lucifer if you speak to kiba maybe you can get him to help you again
1: The Ghost is in Terrors House

END


@wizard

1: Thank you for exorcising the ghosts
1: i dug around a bit and found a person who can read the ancient writing on those scrolls
1: You Should pay him a visit he lives in Maelmord
GIVE T306
1: Well i must be getting back to fixing up the town  people are always trying to move in
1: If you would like a house you should talk to roby when hes on hes a great contractor
END

@hi

1: Welcome back %1
1: Im a bit busy we can talk some other time

END









SCENE 65		stairs, SCENE, "Wizards house", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Kari",pit2, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60	
	IF I50+I51+I52+I53+I54+I55+T306 @quest
	
	WAIT	1.0
	
	1: hi
END


@quest

N: Kari is crying
WAIT 3.0
H: Are you alright
1: Im assuming your the one the mayor told to come im sorry but my father passed away and went to heaven last Night
WAIT 2.0
1: If you want to see him youd have to pay a visit to heaven
1: plz leave me to mourn for my loss
WAIT 3.0
GOTO EXIT

END

SCENE 66		stairs, SCENE, "Wizards Pad", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Melfice",josh270, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

	IF I50+I51+I52+I53+I54+I55 @quest
	
	WAIT	1.0
	
	1: Welcome back my friend
	1: i hope the spells are helping you
END

@quest
1: hello can i help you
N: %1 explains about the scrolls to Melfice
1: hmm let me see them
N: %1 Gives the scrolls to melfice
TAKE I50
TAKE I51
TAKE I52
TAKE I53
TAKE I54
TAKE I55
N: Melfice reads the scrolls
1: it seems they are strong spells but i can teach them to you
WAIT 2.0
N: Melfice engraves the spells into your soul
GIVE S761
GIVE S762
GIVE S763
GIVE S764
GIVE S765
GIVE S766
WAIT 2.0 
1: Ill hold on to these scrolls if you dont mind

END




SCENE 67 bgFireWall, SCENE, "Whore Battles"
	THEME	0

	ACTOR 1, "PIMP", "bigpimp", 3, 30, 60

;GOTO @giftMonster

@beginning
	COMPARE	#<num.hostPets>, 0
	IF> @hasPet

	1: Welcome to the Whore Arena
	1: It is exclusively for Pimps.
	1: Return when you have a hoe!

	END

; Start the battles
@hasPet

;	1: Map Flags Are #<num.mapFlags>
	FLAGS	1024		; people cannot attack monsters/pets

	IF T500, @T90
	1: So you think your a pimp %1.
	1: Training a Whore requires much baby powder.
	1: It requires you to think of something beyond yourself.
	1: Your Pimp skills will be tested here, in the arena.
	1: You may heal your Whores as you like.
	1: But only they may fight.
	FIGHT 500
	; Earth 4
	IF DEAD, @dead
	GIVE	T500
; Fall into next

@T90
	IF T501, @T91
	1: But that means little.
	1: Try this one.
	WAIT 3
	FIGHT 501
	; death 11
	IF DEAD, @dead
	GIVE	T501
; Fall into next

@T91
	IF T502, @T92
	1: Not bad
	1: How about another?
	WAIT 3
	FIGHT 502	
	; air 18
	IF DEAD, @dead
	GIVE	T502
; Fall into next

@T92
	IF T503, @T93
	1: A decent accomplishment
	WAIT 3
	FIGHT 503
	; fire 34
	IF DEAD, @dead
	GIVE	T503
; Fall into next

@T93
	IF T504, @T94
	1:hmm
	WAIT 3
	FIGHT 504
	; water 50
	IF DEAD, @dead
	GIVE	T504
; Fall into next

@T94
	IF T505, @T95
	1: The undead yearn for your Whore.
	WAIT 3
	FIGHT 505
	; nature 64
	IF DEAD, @dead
	GIVE	T505
; Fall into next


@T95
	IF T506, @T96
	1: Perhaps she will be your match.
	WAIT 3
	FIGHT 506
	; spirit 85
	IF DEAD, @dead
	GIVE	T506
; Fall into next


@T96
	IF T507, @T97
	1: Here is an opponent worthy of your whore.
	WAIT 3
	FIGHT 507
	; death 101
	IF DEAD, @dead
	GIVE	T507
; Fall into next


@T97
	IF T508, @T98
	1: Surely, *this* whore will give you a STD.
	WAIT 3
	FIGHT 508
	; death 120
	IF DEAD, @dead
	GIVE	T508
; Fall into next


@T98
	IF I301 @back
	1: But now you must face my most Nastiest Hoes!
	WAIT 3
	FIGHT 509, 510
	; death 125 AND death 120
	IF DEAD, @dead
	1: You have defeated my mightiest Whores!
	1: It is with great honor, that I bestow..
	1: upon you... AND your Whores...
	1: My Pimp Stick, the %I301
	GIVE I301

END


@back

1:Welcome back %1

END





SCENE 100		fos, CUT, "hvh", 0, 0

	MUSIC "hades.mid"
TAKE L1
TAKE H9999

FIGHT 283,511,512,513,514,515,516,517,-281,-523,-524,-525,-526,-527,-528,-529
IF ALIVE @a
IF DEAD @a
END

@a
GOTO SCENE 0

END



SCENE 101		LoD, CUT, "jesus", 0, 0

	MUSIC "hades.mid"
TAKE L1
TAKE H9999

FIGHT 534, -535
IF ALIVE @a
IF DEAD @a
END

@a
GOTO SCENE 0

END



SCENE 102		fos, SCENE, "FoS Guild", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Roby",roby, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

		STRCMP #<str.uniform>, "FoS"
		IF= @nicemember
	
	WAIT	1.0
	
	1: Trying To infiltrate our guild eh
	FIGHT2 536
END



@nicemember

1: Welcome to your guild shop
OFFER 616,617,618,619,620,621
END


SCENE 103		energy, SCENE, "SoV Guild", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Roby",roby, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

		STRCMP #<str.uniform>, "SoV"
		IF= @nicemember
	
	WAIT	1.0
		
	1: Trying To infiltrate our guild eh
	FIGHT2 537
END



@nicemember

1: Welcome to your guild shop
OFFER 622,623,624,625,626,627
END



SCENE 104		energy, SCENE, "LoD Guild", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Roby",roby, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

		STRCMP #<str.uniform>, "LoD"
		IF= @nicemember
	
	WAIT	1.0
	
	1: Trying To infiltrate our guild eh
	FIGHT2 538
END



@nicemember

1: Welcome to your guild shop
OFFER 628,629,630,631,632,633
END




SCENE 105		energy, SCENE, "Genocide Guild", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Roby",roby, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

		STRCMP #<str.uniform>, "Genocide"
		IF= @nicemember
	
	WAIT	1.0
	
	1: Trying To infiltrate our guild eh
	FIGHT2 539
END



@nicemember

1: Welcome to your guild shop
OFFER 634,635,636,637,638,639
END





SCENE 106		stairs, SCENE, "Deception Guild", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Roby",roby, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

		STRCMP #<str.uniform>, "Deception"
		IF= @nicemember
	
	WAIT	1.0
	
	1: Trying To infiltrate our guild eh
	FIGHT2 540
END



@nicemember

1: Welcome to your guild shop
OFFER 640,641,642,643,644,645
END


SCENE 107		energy, SCENE, "Minamoto Guild", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Roby",roby, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60

		STRCMP #<str.uniform>, "Minamoto"
		IF= @nicemember
	
	WAIT	1.0
	
	1: Trying To infiltrate our guild eh
	FIGHT2 541
END



@nicemember

1: Welcome to your guild shop
OFFER 646,647,648,649,651,652
END




; made by Silver for RoT
;
; This file will contain the auction script and some other stuff, thanks the experience gained with the tourny script this
; should go pretty smoothly.
;
;
SCENE 1210,	LoD, SCENE, "Auction Entrance",0,0

	ACTOR 1, "Jesus", jesus,4,41,75

	POSE 1,4
@intro
	1: Hi %1, welcome to the auction.
	1: In the auction you can bid at rare special items and Spells..
	STRCMP #<auctionintro>, ""
	IF= @explainsell
@intro2
	1: Some items are also available in shops, but most will be really rare.
	1: To enter the auction we will have to charge you 25,000 Souls.
	IF GS, @special
	1: Do you wish to enter?
	ASK 30.0
	IF -YES,@end1
	IF -G25000,@end2
	COMPARE #<num.peopleInScene>, 1
	IF> @end3
	TAKE G25000
	WAIT 1.0
	1: Before I forget, it's best to select either Map or Stats to prevent lag.
	WAIT 5.0
	GOTO SCENE 1211
@end1
	1: Very well, perhaps I will see you later.
	1: I wish you a pleasant day.
	END
@end2
	1: I'm sorry but it appears you don't have enough souls to enter.
	1: Please return when you have enough souls.
	END
@end3
	1: I'm sorry but due to certain robberies last week we decided that only six people in total can make a bid.
	1: Right now five people already entered, if you return alone then we can let you enter.
	END
@explainsell
	1: You'll see a Shop button appear in the auction too now. 
	1: This is to sell Bank Notes while you're in the auction, 
	1: that way you can keep bidding after you bought an expensive item or spell.
	SET auctionintro, 1
	GOTO @intro2

@special
	1: But since you have a Golden Soul we will only charge you 12,500 Souls.
	1: Do you wish to enter?
	ASK 30.0
	IF -YES,@end1
	IF -G12500,@end2
	COMPARE #<num.peopleInScene>, 1
	IF> @end3
	TAKE G12500
	WAIT 1.0
	1: Before I forget, it's best to select either Map or Stats to prevent lag.
	WAIT 5.0
	GOTO SCENE 1211

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - AUCTION - XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
SCENE 1211, LoD, SCENE, "Auction",0,0

	ACTOR 1, "Jesus",Jesus,4,6,85

	OFFER 5119

	SET 	aucac2, "Satan"
	SET   aucac3, "Astaroth"
	SET	aucac4, "Baphomet"
	SET 	aucac5, "Billy"
	SET 	aucac6, "Demogorgon"

	ACTOR 2, #<aucac2> ,Satan,4,55,99
	ACTOR 3, #<aucac3> ,Astaroth,4,63,85
	ACTOR 4, #<aucac4> ,Baphomet,4,27,75
	ACTOR 5, #<aucac5> ,billy, 4,37,90
	ACTOR 6, #<aucac6> ,demo, 1, 47,83



	1: Welcome at todays auction!
	1: Again we have many special rare items and spells to help you on your way

; XXXXXXXXXXXXXXXXXXXXXXXX - RANDOM - XXXXXXXXXXXXXXXXXXXXXXXX
@taketokens
	IF T384, @bidend
	TAKE T385
	TAKE T386	
	TAKE T387	
	TAKE T388	
	TAKE T389	
	TAKE T390
	SET integritytest, "1"
	COMPARE #<integritytest>, "1"
	IF< @banfi
	IF> @banfi
	SET integritytest, "3"
	COMPARE #<integritytest>, "3"
	IF< @banfi
	IF> @banfi
	SET integritytest, "-3"
	COMPARE #<integritytest>, "-3"
	IF< @banfi
	IF> @banfi
	SET integritytest, "0"
@randomx
	SET aucrandomizer, "%R4" 
	COMPARE #<aucrandomizer>, "1"
	IF= @random2

@random1
	SET aucrandomizer, "%R27" 
	GOTO @item#<aucrandomizer>
@random2
	SET aucrandomizer, "%R17" 
	GOTO @spell#<aucrandomizer>

; XXXXXXXXXXXXXXXXXXXXXXXX - ITEMS - XXXXXXXXXXXXXXXXXXXXXXXX
@item1
	SET auci,	I28
	SET aucp,	80000	
	SET aucpc,  80000
	GOTO @sbid		
@item2
	SET auci,	I29
	SET aucp,	60000	
	SET aucpc,  60000
	GOTO @sbid
@item3
	SET auci,	I27
	SET aucp,	35500	
	SET aucpc,  35500
	GOTO @sbid
@item4
	SET auci,	I26
	SET aucp,	25500	
	SET aucpc,  25500
	GOTO @sbid
@item5
	SET auci,	I39
	SET aucp,	100000	
	SET aucpc,  100000
	GOTO @sbid
@item6
	SET auci,	I453
	SET aucp,	41000	
	SET aucpc,  41000
	GOTO @sbid
@item7
	SET auci,	I454
	SET aucp,	71000	
	SET aucpc,  71000
	GOTO @sbid
@item8
	SET auci,	I455
	SET aucp,	41000	
	SET aucpc,  41000
	GOTO @sbid
@item9
	SET auci,	I456
	SET aucp,	71000	
	SET aucpc,  71000
	GOTO @sbid
@item10
	SET auci,	I457
	SET aucp,	41000	
	SET aucpc,  41000
	GOTO @sbid
@item11
	SET auci,	I458
	SET aucp,	71000	
	SET aucpc,  71000
	GOTO @sbid
@item12
	SET auci,	I459
	SET aucp,	41000	
	SET aucpc,  41000
	GOTO @sbid
@item13
	SET auci,	I461
	SET aucp,	71000	
	SET aucpc,  71000
	GOTO @sbid
@item14
	SET auci,	I462
	SET aucp,	41000	
	SET aucpc,  41000
	GOTO @sbid
@item15
	SET auci,	I463
	SET aucp,	71000	
	SET aucpc,  71000
	GOTO @sbid
@item16
	SET auci,	I464
	SET aucp,	41000	
	SET aucpc,  41000
	GOTO @sbid
@item17
	SET auci,	I465
	SET aucp,	71000	
	SET aucpc,  71000
	GOTO @sbid
@item18
	SET auci,	I466
	SET aucp,	51000	
	SET aucpc,  51000
	GOTO @sbid
@item19
	SET auci,	I467
	SET aucp,	71000	
	SET aucpc,  71000
	GOTO @sbid	
@item20
	SET auci,	I468
	SET aucp,	41000	
	SET aucpc,  41000
	GOTO @sbid		
@item21
	SET auci,	I469
	SET aucp,	71000	
	SET aucpc, 71000
	GOTO @sbid		
@item22
	SET auci,	I471
	SET aucp,	90000	
	SET aucpc,  90000
	GOTO @sbid		
@item23
	SET auci,	I472
	SET aucp,	91000	
	SET aucpc,  91000
	GOTO @sbid
@item24
	SET auci,	I473
	SET aucp,	81000	
	SET aucpc,  81000
	GOTO @sbid
@item25
	SET auci,	I474
	SET aucp,	91000	
	SET aucpc,  91000
	GOTO @sbid
@item26
	SET auci,	I475
	SET aucp,	81000	
	SET aucpc,  81000
	GOTO @sbid
@item27
	SET auci,	I476
	SET aucp,	91000	
	SET aucpc,  91000
	GOTO @sbid	

; XXXXXXXXXXXXXXXXXXXXXXXX - SPELLS - XXXXXXXXXXXXXXXXXXXXXXXX
@spell1
	SET auci,	S624
	SET aucp,	65000	
	SET aucpc,  65000
	GOTO @sbid
@spell3
	SET auci,	S625
	SET aucp,	75000	
	SET aucpc,  75000
	GOTO @sbid
@spell5
	SET auci,	S626
	SET aucp,	70000	
	SET aucpc,  70000
	GOTO @sbid
@spell7
	SET auci,	S627
	SET aucp,	55000	
	SET aucpc,  55000
	GOTO @sbid
@spell9
	SET auci,	S628
	SET aucp,	70000	
	SET aucpc,  70000
	GOTO @sbid
@spell11
	SET auci,	S629
	SET aucp,	75000	
	SET aucpc,  75000
	GOTO @sbid
@spell13
	SET auci,	S630
	SET aucp,	65000	
	SET aucpc,  65000
	GOTO @sbid
@spell15
	SET auci,	S631
	SET aucp,	60000	
	SET aucpc,  60000
	GOTO @sbid
@spell2
	SET auci,	S632
	SET aucp,	85000	
	SET aucpc,  85000
	GOTO @sbid	
@spell4
	SET auci,	S633
	SET aucp,	90000	
	SET aucpc,  90000
	GOTO @sbid	
@spell6
	SET auci,	S188
	SET aucp,	5000	
	SET aucpc,  5000
	GOTO @sbid	
@spell8
	SET auci,	S767
	SET aucp,	5000	
	SET aucpc,  5000
	GOTO @sbid	
@spell10
	SET auci,	S619
	SET aucp,	95000	
	SET aucpc,  95000
	GOTO @sbid	
@spell12
	SET auci,	S605
	SET aucp,	80000	
	SET aucpc,  80000
	GOTO @sbid	
@spell14
	SET auci,	S613
	SET aucp,	95000	
	SET aucpc,  95000
	GOTO @sbid	
@spell16
	SET auci,	S616
	SET aucp,	75000	
	SET aucpc,  75000
	GOTO @sbid	

@spell17
	SET auci,	S618
	SET aucp,	50000	
	SET aucpc,  50000
	GOTO @sbid	

	

; XXXXXXXXXXXXXXXXXXXXXXXX - BID - XXXXXXXXXXXXXXXXXXXXXXXX
@sbid

	IF R20, @sbidx
	IF #<auci>, @randomx

@sbidx
	IF T383, @bid5
	IF T382, @bid4
	IF T381, @bid3
	IF T380, @bid2
@bid1
	GIVE T380
	1: Our first sale will be a %#<auci>, who bids #<aucp> Souls?
	WAIT 3.0
	MENU "Bid=@bidding","Skip Sale=@taketokens"
	GOTO @bidding
@bid2
	GIVE T381
	1: Our second sale today will be a rare %#<auci>, who will bid #<aucp> Souls?
	WAIT 3.0
	MENU "Bid=@bidding","Skip Sale=@taketokens"
	GOTO @bidding
@bid3
	GIVE T382
	1: Our third sale will be a magnificant %#<auci>, who offers #<aucp> Souls?
	WAIT 3.0
	MENU "Bid=@bidding","Skip Sale=@taketokens"
	GOTO @bidding
@bid4
	GIVE T383
	1: The fourth sale today is a beautiful %#<auci>, who bids #<aucp> Souls?
	WAIT 3.0
	MENU "Bid=@bidding","Skip Sale=@taketokens"
	GOTO @bidding
@bid5
	GIVE T384
	1: Our final and last sale today is an ancient %#<auci>, we'll open at #<aucp> Souls, who offers more?
	GOTO @bidding
@bidend
	TAKE T380
	TAKE T381
	TAKE T382
	TAKE T383
	TAKE T384
	TAKE T385
	TAKE T386
	TAKE T387
	TAKE T388
	TAKE T389
	TAKE T390
		
	1: %#<auci> was the last sale for today.
	1: I hope you got what you came for and wish you a pleasant day.
	WAIT 3.0
	MOVE 7,115,95
	WAIT 7.0
	GOTO EXIT
; XXXXXXXXXXXXXXXXXXXXXXXX - BIDDING - XXXXXXXXXXXXXXXXXXXXXXXX
@bidding
	IF R20, @bidac2 
	IF R17, @bidac3
	IF R30, @bidac4
	IF R25, @bidac5	
	IF R15, @bidac6
	IF R45, @bidacx
	GOTO @bidding
@bidac2
	IF T385, @bidding
	TAKE T385
	TAKE T386	
	TAKE T387	
	TAKE T388	
	TAKE T389	
	TAKE T390	

	GIVE T385
	SET 	aucb, 2
	MUL aucp, 1165
	DIV aucp, 1000
	2: I bid #<aucp> Souls!
	GOTO @bidding2	
@bidac3
	IF T386, @bidding
	TAKE T385
	TAKE T386	
	TAKE T387	
	TAKE T388	
	TAKE T389	
	TAKE T390

	GIVE T386	
	SET aucb, 3
	MUL aucp, 127
	DIV aucp, 100
	3: #<aucp> Souls!
	GOTO @bidding2
@bidac4
	IF T387, @bidding
	TAKE T385
	TAKE T386	
	TAKE T387	
	TAKE T388	
	TAKE T389	
	TAKE T390

	GIVE T387
	SET aucb, 4
	MUL aucp, 1032
	DIV aucp, 1000
	4: My bid is #<aucp> Souls!
	GOTO @bidding2
@bidac5
	IF T388, @bidding
	TAKE T385
	TAKE T386	
	TAKE T387	
	TAKE T388	
	TAKE T389	
	TAKE T390

	GIVE T388
	SET aucb, 5
	MUL aucp, 1084
	DIV aucp, 1000
	5: #<aucp> Souls!!
	GOTO @bidding2
@bidac6
	IF T388, @bidding
	TAKE T385
	TAKE T386	
	TAKE T387	
	TAKE T388	
	TAKE T389	
	TAKE T390

	GIVE T389
	SET aucb6
	MUL aucp, 1334
	DIV aucp, 1000
	6: I bid #<aucp> Souls!
	GOTO @bidding2
@bidacx
	IF T390, @bidding
	TAKE T385
	TAKE T386	
	TAKE T387	
	TAKE T388	
	TAKE T389	
	TAKE T390
@madebid
	COMPARE #<aucp>, #<num.hostGP>
	IF> @bidding
	GIVE T390
	N: Make your bid:
	ASK 15
	COMPARE #<lastAsk>, "0"
	IF= @bidding
	IF< @notvalid
	COMPARE #<lastAsk>, #<aucp>
	IF< @notvalid
	IF= @notvalid
	COMPARE #<num.hostGP>, #<lastAsk>
	IF< @notvalid2
	SET aucp,	#<lastAsk>
	GOTO @bidding2
@notvalid
	N: Your bid is too low, if you don't want to bid, bid 0!
	GOTO @madebid
@notvalid2
	N: You don't have that much Souls with you, bid lower!
	GOTO @madebid

@bidding2
	SET aucpa, #<aucpc>
	MUL aucpa, "8"
	SET aucpaa, #<aucp>
	MUL aucpaa, "100"
	DIV aucpaa, #<aucpa>
	
	SET aucpp, #<aucpc>
	MUL aucpp, 150
	DIV aucpp, 100
	COMPARE #<aucp>, #<aucpc>
	IF< @banfi
	COMPARE #<aucp>, #<aucpp>
	IF< @bidding
	COMPARE #<aucp>, #<aucpa>
	IF> @startendbid
	IF R#<aucpaa>, @startend1
	GOTO @bidding
@startendbid
	1: #<aucp> Souls has been bid..
	WAIT 6.0
	1: Going once...
	WAIT 6.0
	1: Going twice...
	WAIT 6.0
@startend3
	1: SOLD!
	IF T385, @soldauc2
	IF T386, @soldauc3
	IF T387, @soldauc4
	IF T388, @soldauc5
	IF T389, @soldauc6
	IF T390, @soldaucx
	END
@startend1
	1: #<aucp> Souls has been bid..
	WAIT 6.0
	1: Going once...
	WAIT 6.0
	MUL aucpaa,	"20"
	DIV aucpaa, "19"
	IF R#<aucpaa>, @startend2
	GOTO @bidding
@startend2
	1: Going twice...
	WAIT 6.0
	IF T390, @startend22
	GOTO @madebida
@startend22
	MUL aucpaa,	"5"
	DIV aucpaa, "4"
	IF R#<aucpaa>, @startend3
	GOTO @bidding
@madebida
	COMPARE #<aucp>, #<num.hostGP>
	IF> @startend22
	N: Make your bid:
	ASK 15
	COMPARE #<lastAsk>, "0"
	IF= @startend22
	IF< @startend22
	COMPARE #<lastAsk>, #<aucp>
	IF< @startend22
	IF= @startend22
	COMPARE #<num.hostGP>, #<lastAsk>
	IF< @startend22
	SET aucp,	#<lastAsk>
	TAKE T385
	TAKE T386	
	TAKE T387	
	TAKE T388	
	TAKE T389	
	TAKE T390
	GIVE T390
	GOTO @bidding2


@soldauc2
	1: %#<auci> has been sold for #<aucp> Souls to #<aucac2>!
	GOTO @taketokens
@soldauc3
	1: %#<auci> has been sold for #<aucp> Souls to #<aucac3>!
	GOTO @taketokens
@soldauc4
	1: %#<auci> has been sold for #<aucp> Souls to #<aucac4>!
	GOTO @taketokens
@soldauc5
	1: %#<auci> has been sold for #<aucp> Souls to #<aucac5>!
	GOTO @taketokens
@soldauc6
	1: %#<auci> has been sold for #<aucp> Souls to #<aucac6>!
	GOTO @taketokens
@soldaucx
	1: %#<auci> has been sold for #<aucp> Souls to %1!
	HOST_GIVE #<auci>
	HOST_TAKE G#<aucp>
	GOTO @taketokens
@banfi
	HOST_GIVE T172
	PARTY T172
	GOTO LINK 99,0,1
	END













; Comment: Hmm... what comment should I pick this time?... Ah well let's just leave it for now!

; Comment2: Aight it took me awhile but finally came up with a more or less decent comment; I LOVE MY MATH SKILLS!! >P
; Okay that still kinda sucked... Well you try better after making up dozens of comments!! grrr >(



SCENE 108		energy, SCENE, "Judgement", 0, 0

	MUSIC "ChildrenOfTheGrave.mid"
	THEME	0
	ACTOR	1,	"Jesus",jesus, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	1,	50, 60
	IF T500 @demon
	IF T501 @angel
	
	1: Prepare to be judged for your sins
	N: Jesus Opens a book
	1: hmm there you are
	1: I see you have been a good child so i will let you be reborn back into the world
	GIVE L1
	GIVE H9999
	GIVE M9999
	COUNTDOWN 100
	WAIT 100
	GOTO LINK 0,0,0
	END
@angel
1: I see you are one of gods chosen i will ressurect you
	GIVE L1
	GIVE H9999
	GIVE M9999
GOTO LINK 0,0,0
END

@demon

1: One of the devils children eh
1: I will not let you leave unless you convert to the light of god
ACTOR	2,	"Satan", satan, 1, 20, 60
    SEL		1
	POSE	32,32,32
	MOVE	2,	50, 60
WAIT 4.0
2: Pfft oh please you whiny bitch
N: SATAN RESSURECTS %1
	GIVE L1
	GIVE H9999
	GIVE M9999
2: Go now
WAIT 4.0
GOTO LINK 0,0,0
END


	














; we need a comment at the end, or bad things happe


