;Many thanks to Leniad for using his masterful
;Qbasic skills to make the TAKE lists!
SCENE 62 black, SCENE, "Time Warp"
ACTOR 1, "Professor", act, 1, 40, 50
MUSIC TimeTravel.mid
LOCK 1
PARTY G#<num.hostGP>
PARTY C#<num.hostClass> 
PARTY V#<num.hostLevel>
	COMPARE "1","#<num.peopleInScene>"
	IF=, @okay
	IF>, @nogofourth
	IF<, @nogofourth
	@nogofourth
	1: You must come here alone.
END
	@okay
	1: Welcome to the Time Warp.  Because you have become so strong in your dimension, the only way back is through time.
	1: You must make numerous sacrifices in order to take this warp, being such a volatile technology we have just discovered.
	1: First, you must sacrifice all of your items. 
      1: Secondly, all you have done in the world will be reset.
	1: Third, in order to get through the warp, you must search a large area for a special "door".  It is very difficult.
	1: ...
		COMPARE "1","#<num.peopleInScene>"
	IF>, @nogofourth
	IF<, @nogofourth
	1: Many have never returned.  Do you still want to go? (YES/NO)
	ASK 999999
	IF Yes, @y
	IF Y, @y
	1: No?  I don't blame you.
END
	@y
		COMPARE "1","#<num.peopleInScene>"
	IF>, @nogofourth
	IF<, @nogofourth
	1: The process of removing items from your ship may take a while pending on how much weaponary you have.
	1: If you leave, you will stop the process, but what has been taken it is too late to recover.
	1: This is your last chance to back out.
	1: Do you wish to sacrifice everything you have achieved except your level and abilities, to travel back in time? (YES/NO)
	ASK 999999
	IF Yes, @cont
	IF Y, @cont
	1: I am glad you reconsidered.  Please return if you ever change your mind.
END
	@cont
LOCK 1
PARTY G#<num.hostGP>
PARTY C#<num.hostClass> 
PARTY V#<num.hostLevel>
	COMPARE "1","#<num.peopleInScene>"
	IF>, @nogofourth
	IF<, @nogofourth
	1: As you will.  The process is now beginning.
	1: Your computer will appear to be inactive for a about 30 seconds-1 minute.  This is normal.
	1: You should be done before this timer expires..
	COUNTDOWN 180
TAKE I10
SET item, "1"
SET token, "0"
SET count1, "0"
@enders
set eq1, "%E10"
set eq2, "%E0"
set eq3, "%E20"
set eq4, "%E21"
set eq5, "%E23"
set eq6, "%E22"
set eq7, "%E11"
ADD eq1, "#<eq2>"
ADD eq1, "#<eq3>"
ADD eq1, "#<eq4>"
ADD eq1, "#<eq5>"
ADD eq1, "#<eq6>"
ADD eq1, "#<eq7>"
COMPARE #<eq1>, 10
IF= @check
IF> @eqtake
IF< @check

@check
COMPARE #<item>, 930
IF= @end 
IF I#<item>, @take
ADD item, "1"
COMPARE "#<item>","9"  ;30-43,54,55 Happy, 11-99
IF= @tyr
COMPARE "#<item>", "44"
IF= @rty
COMPARE "#<item>", "56"
IF= @weqa
COMPARE "#<item>", "106"
IF= @chty
COMPARE "#<item>", "208"
IF= @twoadd
COMPARE "#<item>", "209"
IF= @oneadd
COMPARE "#<item>", "213"
IF= @oneadd
COMPARE "#<item>", "331"
IF= @ajkj
COMPARE "#<item>", "392"
IF= @yjgv
COMPARE "#<item>", "431"
IF= @vvvv
COMPARE "#<item>", "631"
IF= @tttt
COMPARE "#<item>", "719"
IF= @utyrpp
COMPARE "#<item>", "804"
IF= @oneadd
COMPARE "#<item>", "807"
IF= @oneadd
COMPARE "#<item>", "813"
IF= @oneadd
COMPARE "#<item>", "815"
IF= @oneadd
COMPARE "#<item>, "868"
IF= @llls
COMPARE "#<item>", "901"
IF= @wqeiov
COMPARE "#<item>", "905"
IF= @finaladd
GOTO @check

@finaladd
ADD item, "4"
GOTO @check
END
@twoadd
ADD item, "2"
GOTO @check
END

@wqeiov
ADD item, "3"
GOTO @check
END

@llls
ADD item, "32"
GOTO @check
END

@utyrpp
ADD item, "81"
GOTO @check
END

@tttt
ADD item, "83"
GOTO @check
END

@vvvv
ADD item, "169"
GOTO @check
END

@yjgv
ADD item, "8"
GOTO @check
END

@ajkj
ADD item, "19"
GOTO @check
END

@oneadd
ADD item, "1"
GOTO @check
END
@chty
ADD item, "95"
GOTO @check
END

@weqa
ADD item, "40"
GOTO @check
END

@tyr
ADD item, "21"
GOTO @check
END

@rty
ADD item, "10"
GOTO @check
END

@take
TAKE I#<item>
IF I#<item>, @take
GOTO @check
@end

@checkers
COMPARE #<token>, 4096
IF=, @endleoo
IF T#<token>, @takers
ADD token, "1"
GOTO @checkers

@takers
TAKE T#<token>
IF T#<token>, @takers
GOTO @checkers

@eqtake
1: You cannot have anything equipped when you enter this warp.
1: Please unequip all your weapons/armor and return.
END
@endleoo
LOCK 1
PARTY G#<num.hostGP>
PARTY C#<num.hostClass> 
PARTY V#<num.hostLevel>
TAKE S750
TAKE S751
TAKE S752
TAKE S753
TAKE S754
TAKE S755
TAKE S756
TAKE S757
TAKE S758
TAKE S759
TAKE S760
TAKE S761
TAKE S762
TAKE S763
TAKE S764
TAKE S765
TAKE S766
TAKE S767
TAKE S768
TAKE S749
TAKE S32
set e1, "0"
set e2, "0"
set e3, "0"
set e4, "0"
set e5, "0"
set e6, "0"
set e7, "0"
set l2,"0"
set l3,"0"
set debris, "0"
set hap,"0"
set a,"0"
set thou,"1"
set num,"0"
set KM.Blue,"0"
set KM.Red,"0"
set bluek,"0"
set redk,"0"
set helpme,"0"
LOCK 1
PARTY G#<num.hostGP>
PARTY C#<num.hostClass> 
PARTY V#<num.hostLevel>
	1: The process is now complete.  You will be warping back in time in approximatly 1 second.
	COUNTDOWN 0
	1: Good luck!
	COMPARE "1","#<num.peopleInScene>"
	IF>, @nogofourth
	IF<, @nogofourth
	WAIT 1.0
	GOTO LINK 13.0.0
END
;


