; 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,	auction2, SCENE, "Auction Entrance",0,0

	ACTOR 1, "Bekoch", monster016,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 5,000 GP.
	IF GS, @special
	1: Do you wish to enter?
	ASK 30.0
	IF -YES,@end1
	IF -G5000,@end2
	COMPARE #<num.peopleInScene>, 1
	IF> @end3
	TAKE G5000
	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 money to enter.
	1: Please return when you have enough money.
	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 2,500 GP.
	1: Do you wish to enter?
	ASK 30.0
	IF -YES,@end1
	IF -G2500,@end2
	COMPARE #<num.peopleInScene>, 1
	IF> @end3
	TAKE G2500
	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, auction3, SCENE, "Auction",0,0

	ACTOR 1, "Micrato",monster011,4,6,85

	OFFER 5119

	SET 	aucac2, "Kanaki"
	SET   aucac3, "Wellatro"
	SET	aucac4, "Shavitu"
	SET 	aucac5, "Bushra"
	SET 	aucac6, "Cassandra"

	ACTOR 2, #<aucac2> ,monster053,4,55,99
	ACTOR 3, #<aucac3> ,monster055,4,63,85
	ACTOR 4, #<aucac4> ,monster056,4,27,75
	ACTOR 5, #<aucac5> ,monster059, 5,37,90
	ACTOR 6, #<aucac6> ,pet021, 1, 47,83


	IF -R15, @actorsetkitana
	IF T147, @actorsetkitana
	IF T148, @actorsetkitana
	SET aucac2, "Kitana"
	ACTOR 2, #<aucac2> ,a75,4,55,99
@actorsetkitana

	IF -R2, @actorsettwin
	SET aucac3, "Your secret twin"
	ACTOR 3, #<aucac3> ,mirror,4,63,85
@actorsettwin

	IF -R5, @actorsetamplissa
	SET aucac4, "Verlaine"
	ACTOR 4, #<aucac4> ,vamp02,4,27,75
@actorsetamplissa

	IF -R10, @actorsetbilly
	SET aucac5, "Billy"
	ACTOR 5, #<aucac5> ,billy, 5,37,90
@actorsetbilly

	IF -R1,  @actorsetcarmen
	SET aucac6, "Carmen"
	ACTOR 6, #<aucac6> ,pet014, 1, 47,83
@actorsetcarmen

	IF -R1,  @actorsetprot
	ACTOR	7,	"RoT's Protector",monster002, 4, 110, 95
	MOVE 7, 95,95
 @actorsetprot


	SEL 1
	FACE 1, 1
	POSE 4, 3, 1
	SEL 2
	FACE 2, 0
	POSE 1, 4
	SEL 3
	FACE 3, 0
	POSE 1, 4
	SEL 4
	FACE 4, 0
	POSE 1, 4
	SEL 5
	FACE 5, 0
	POSE 1, 4
	SEL 6
	FACE 6, 0
	POSE 1, 4

	LOCK 1

	TAKE T380
	TAKE T381
	TAKE T382
	TAKE T383
	TAKE T384

	1: Welcome to today's auction!
	1: Again we have many special rare items and spells to help you on your way in Revolution of Terror!

; 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, "%R5" 
	COMPARE #<aucrandomizer>, "1"
	IF= @random2

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

; XXXXXXXXXXXXXXXXXXXXXXXX - ITEMS - XXXXXXXXXXXXXXXXXXXXXXXX
@item1
	SET auci,	I8
	SET aucp,	55000	
	SET aucpc,  55000
	GOTO @sbid		
@item2
	SET auci,	I20
	SET aucp,	35000	
	SET aucpc,  35000
	GOTO @sbid
@item3
	SET auci,	I21
	SET aucp,	37500	
	SET aucpc,  37500
	GOTO @sbid
@item4
	SET auci,	I22
	SET aucp,	32500	
	SET aucpc,  32500
	GOTO @sbid
@item5
	SET auci,	I23
	SET aucp,	30000	
	SET aucpc,  30000
	GOTO @sbid
@item6
	SET auci,	I25
	SET aucp,	31000	
	SET aucpc,  31000
	GOTO @sbid
@item7
	SET auci,	I703
	SET item.id, 703
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid
@item8
	SET auci,	I704
	SET item.id, 704
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid
@item9
	SET auci,	I718
	SET item.id, 718
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid
@item10
	SET auci,	I961
	SET item.id, 961
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid
@item11
	SET auci,	I963
	SET item.id, 963
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid
@item12
	SET auci,	I969
	SET item.id, 969
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid
@item13
	SET auci,	I972
	SET item.id, 972
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid
@item14
	SET auci,	I973
	SET item.id, 973
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid
@item15
	SET auci,	I734
	SET item.id, 734
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid
@item16
	SET auci,	I738
	SET item.id, 738
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid
@item17
	SET auci,	I739
	SET item.id, 739
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid
@item18
	SET auci,	I737
	SET aucp,	75000	
	SET aucpc,  75000
	GOTO @sbid
@item19
	SET auci,	I719
	SET item.id, 719
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid	
@item20
	IF I2050, @randomx
	IF T507, @randomx
	SET auci,	I2050
	SET aucp,	50000	
	SET aucpc,  50000
	GOTO @sbid		
@item21
	IF I2051, @randomx
	IF T507, @randomx
	SET auci,	I2051
	SET aucp,	50000	
	SET aucpc,  50000
	GOTO @sbid		
@item22
	IF I2052, @randomx
	IF T507, @randomx
	SET auci,	I2052
	SET aucp,	50000	
	SET aucpc,  50000
	GOTO @sbid		
@item23
	SET auci,	I2078
	SET aucp,	25000	
	SET aucpc,  25000
	GOTO @sbid
@item24
	SET aucrA,	%R18
	ADD aucrA,	2106
	SET auci,	I#<aucrA>
	SET aucrB,	%R20000
	ADD aucrB,	90000
	SET aucp,	#<aucrB>	
	SET aucpc,  #<aucrB>
	GOTO @sbid
@item25
	SET auci,	I2132
	SET aucp,	125000	
	SET aucpc,  125000
	GOTO @sbid
@item26
	SET aucrA,	%R6
	ADD aucrA,	2124
	SET auci,	I#<aucrA>
	SET item.id #<aucrA>
	SET aucrB,	#<item.level>
	MUL aucrB,	1000
	SET aucp,	#<aucrB>	
	SET aucpc,  #<aucrB>
	GOTO @sbid
@item27
	SET auci,	I249
	SET item.id, 249
	SET aucp,	#<item.price>
	DIV aucp,	"2"	
	SET aucpc,  #<aucp>
	GOTO @sbid	
@item28
	IF I2053, @randomx
	IF T507, @randomx
	SET auci,	I2053
	SET aucp,	50000	
	SET aucpc,  50000
	GOTO @sbid	
@item29
	IF I2054, @randomx
	IF T507, @randomx
	SET auci,	I2054
	SET aucp,	50000	
	SET aucpc,  50000
	GOTO @sbid	
@item30
	IF I2055, @randomx
	IF T507, @randomx
	SET auci,	I2055
	SET aucp,	50000	
	SET aucpc,  50000
	GOTO @sbid		

; XXXXXXXXXXXXXXXXXXXXXXXX - SPELLS - XXXXXXXXXXXXXXXXXXXXXXXX
@spell1
	SET auci,	S35
	SET aucp,	75000	
	SET aucpc,  75000
	GOTO @sbid
@spell3
	SET auci,	S65
	SET aucp,	95000	
	SET aucpc,  95000
	GOTO @sbid
@spell5
	SET auci,	S95
	SET aucp,	80000	
	SET aucpc,  80000
	GOTO @sbid
@spell7
	SET auci,	S115
	SET aucp,	65000	
	SET aucpc,  65000
	GOTO @sbid
@spell9
	SET auci,	S135
	SET aucp,	90000	
	SET aucpc,  90000
	GOTO @sbid
@spell11
	SET auci,	S155
	SET aucp,	85000	
	SET aucpc,  85000
	GOTO @sbid
@spell13
	SET auci,	S175
	SET aucp,	75000	
	SET aucpc,  75000
	GOTO @sbid
@spell15
	SET auci,	S197
	SET aucp,	70000	
	SET aucpc,  70000
	GOTO @sbid
@spell2
	SET auci,	S36
	SET aucp,	105000	
	SET aucpc,  105000
	GOTO @sbid	
@spell4
	SET auci,	S66
	SET aucp,	150000	
	SET aucpc,  150000
	GOTO @sbid	
@spell6
	SET auci,	S96
	SET aucp,	115000	
	SET aucpc,  115000
	GOTO @sbid	
@spell8
	SET auci,	S116
	SET aucp,	105000	
	SET aucpc,  105000
	GOTO @sbid	
@spell10
	SET auci,	S136
	SET aucp,	135000	
	SET aucpc,  135000
	GOTO @sbid	
@spell12
	SET auci,	S156
	SET aucp,	130000	
	SET aucpc,  130000
	GOTO @sbid	
@spell14
	SET auci,	S176
	SET aucp,	125000	
	SET aucpc,  125000
	GOTO @sbid	
@spell16
	SET auci,	S198
	SET aucp,	115000	
	SET aucpc,  115000
	GOTO @sbid	

@spell17
	IF -R25, @item24
	SET auci,	S271
	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> GP?
	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> GP?
	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> GP?
	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> GP?
	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> GP, 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> GP!
	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> GP!
	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> GP!
	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> GP!!
	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> GP!
	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 GP 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> GP 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> GP 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> GP to #<aucac2>!
	GOTO @taketokens
@soldauc3
	1: %#<auci> has been sold for #<aucp> GP to #<aucac3>!
	GOTO @taketokens
@soldauc4
	1: %#<auci> has been sold for #<aucp> GP to #<aucac4>!
	GOTO @taketokens
@soldauc5
	1: %#<auci> has been sold for #<aucp> GP to #<aucac5>!
	GOTO @taketokens
@soldauc6
	1: %#<auci> has been sold for #<aucp> GP to #<aucac6>!
	GOTO @taketokens
@soldaucx
	1: %#<auci> has been sold for #<aucp> GP 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 >(