;comment

	THEME	0
;	MUSIC	mortal.midi
	ACTOR 1, null,
	SET label, "testSID"
	#include accessrights.qst
	END
@ismaster
@isbeta
@normal
	IF XP @normalprob
	SET prob4, "10"
	SET prob3, "40"
	SET prob2, "75"
	GOTO @afterprob 
	END
@normalprob
	IF I26 @lowprob
	SET prob4, "5"
	SET prob3, "25"
	SET prob2, "50"
	GOTO @afterprob
	END
@lowprob
	SET prob4, "1"
	SET prob3, "12"
	SET prob2, "25"
@afterprob
	COMPARE #<numbernpcs>, "0"
	IF= @fight0
	SET currentslot, "1"
	SET offset, "0"
@loop
	SET_SUBSTR fslotc, #<offset>, 3, #<battlestring>
	IF T#<fslotc> @okay
@back
	ADD offset, "3"
	IF= @fight#<numbernpcs>
	COMPARE #<currentslot>, #<numbernpcs>
	IF= @fight#<numbernpcs>
	ADD currentslot, "1"
	GOTO @loop
	END
@okay
	SET cookiename, "slot#<currentslot>"
	SET #<cookiename>, "#<fslotc>"
	GOTO @back
	END

@goback

;comment of death: this will be useful