; Made by Sekuna for RoT.  This is basically the randomness for the werewolf quest. Does not make for a very good read ;)
; tokens 2030-2036, scenes 1400-1402

	IF -C11,  @endscript6969
	IF T2033, @endscript6969
	IF T2031, @neitherwere
	IF T2032, @endscript6969
	IF T2030, @endscript6969

@werewolf1
	COMPARE #<num.mapNum>, 23
	IF= @werewolf2
	GOTO @endscript6969

@werewolf2
	COMPARE #<num.TimeHour>, 18
	IF> @werewolf
	IF= @werewolf

	COMPARE #<num.TimeHour>, 6
	IF< @werewolf
	GOTO @endscript6969

@werewolf
	IF R20, @introwerewolf
	GOTO @endscript6969

@introwerewolf
	GOTO SCENE 1400

@neitherwere
	IF C11 @werewolf3
	GOTO @endscript6969

@werewolf3
	COMPARE #<num.mapNum>, 25
	IF= @werewolf4
	GOTO @endscript6969

@werewolf4
	COMPARE #<num.TimeHour>, 17
	IF> @werewolf5

	COMPARE #<num.TimeHour>, 6
	IF< @werewolf5
	GOTO @endscript6969

@werewolf5
	IF -V20+R20, @fightwere
	GOTO @endscript6969

@fightwere
	LOCK 1
	EJECT T172
	FIGHT2 2002
	COMPARE "#<KM.2002>", "5"
	IF= @donewere
	IF> @donewere
	GOTO @finalend


; Jaie and me felt like being friendly with a script for a change, that's why you can read all requirements below to become 
; a werewolf. I'm turning into such a softie. >.<

@donewere
	EJECT T172
	HOST_GIVE T2033
	IF V20, @rewardnormalwere
	COMPARE #<num.hostKills>, 150
	IF> @rewardnormalwere2
	COMPARE #<num.hostDeaths>, 4
	IF> @rewardnormalwere
	COMPARE #<num.hostDeaths>, 0
	IF> @rewardnormalwere2
	COMPARE #<num.hostPets>, 1
	IF> @rewardnormalwere2
	IF< @rewardnormalwere2
	SET werelevel, #<num.hostLevel>
	SUB werelevel, "1"
	COMPARE #<num.hostPetLevel>, #<werelevel>
	IF< @rewardnormalwere2
	IF T2033+T2031+T2030+T127, @donewere2
	GOTO @finalend

@donewere2
	IF -V16, @werechance1
	IF R20, @turnwolf
	GOTO @rewardnormalwere

@werechance1
	COMPARE #<num.hostKills>, 140
	IF< @werechance2
	IF R20, @turnwolf
	GOTO @rewardnormalwere

@werechance2
	IF -GS, @werechance3
	COMPARE #<num.hostAge>, 120
	IF< @werechance4
	IF R20, @turnwolf
	GOTO @rewardnormalwere

@werechance3
	COMPARE #<num.hostAge>, 150
	IF< @werechance4
	IF R20, @turnwolf
	GOTO @rewardnormalwere

@werechance4
	IF -GS, @werechance16a
	IF R75, @turnwolf
	GOTO @rewardnormalwere
@werechance16a
	IF R70, @turnwolf
	GOTO @rewardnormalwere

@turnwolf
	GOTO SCENE 1402

@rewardnormalwere2
	IF T118, @rewardnormalwere
	IF R50, @turnwolf
@rewardnormalwere
	GOTO SCENE 1403

@endscript6969

;
; Ik hou heeeeel veeeel van jasper!
;