*label strengthcheck
*gosub_scene MISC skillconversion
*if activaterand20
	*if nocritfail = true
		*rand d20 2 20
	*if nocritfail = false
		*rand d20 1 20
*if showrand
	(rolling D20, rolled [b]${d20}[/b] + Strength([b]${strengthmodifier}[/b]) + Luck([b]${luckmod}[/b]) | DC = ${DCrange} or above)

*set rollresult ((d20 + strengthmodifier) + luckmod)
*set critfail false
*set nat20 false
*set rollsuccess false
*set rollfail false
*if d20 = 1
	*set critfail true
	*set nat20 false
	*set rollsuccess false
	*set rollfail false
*if d20 = 20
	*set critfail false
	*set nat20 true
	*set rollsuccess false
	*set rollfail false
*if rollresult < DCrange
	*set critfail false
	*set nat20 false
	*set rollfail true
	*set rollsuccess false
*if rollresult >= DCrange
	*set critfail false
	*set nat20 false
	*set rollsuccess true
	*set rollfail false
*return

*label skillconversion
*set strengthmodifier (strength / 10)
*set strengthmodifier round(strengthmodifier)
*set strengthmodifier -strengthpenalty
*set perceptionmodifier (perception / 10)
*set perceptionmodifier round(perceptionmodifier)
*set perceptionmodifier -perceptionpenalty
*set intelligencemodifier (intelligence / 10)
*set intelligencemodifier round(intelligencemodifier)
*set intimidationmodifier (intimidation / 10)
*set intimidationmodifier round(intimidationmodifier)
*set charmmodifier (charm / 10)
*set charmmodifier round(charmmodifier)
*set accuracymodifier (accuracy / 10)
*set accuracymodifier round(accuracymodifier)
*set accuracymodifier -accuracypenalty
*set agilitymodifier (agility / 10)
*set agilitymodifier round(agilitymodifier)
*set agilitymodifier -agilitypenalty
*set incognitomodifier (incognito / 10)
*set incognitomodifier round(incognitomodifier)
*set incognitomodifier -incognitopenalty
*set engineeringmodifier (engineering / 10)
*set engineeringmodifier round(engineeringmodifier)
*set weaponrymodifier (weaponry / 10)
*set weaponrymodifier round(weaponrymodifier)
*set drivingmodifier (driving / 10)
*set drivingmodifier round(drivingmodifier)
*set improvisationmodifier (improvisation / 10)
*set improvisationmodifier round(improvisationmodifier)
*set tacticsmodifier (tactics / 10)
*set tacticsmodifier round(tacticsmodifier)
*set explosivesmodifier (explosives / 10)
*set explosivesmodifier round(explosivesmodifier)
*set machinerymodifier (machinery / 10)
*set machinerymodifier round(machinerymodifier)
*return