scn obsetestnewscr

; testing new functionality before beta 2 release

string_var s1
string_var s2
short sh
array_var arr
ref refvar

short run

begin gamemode
if run
	; '$stringvar'
	let s1 := "player name is %%n"
	let refvar := player
	printc $s1 refvar
	
	let s2 := getname refvar
	if compareName $s2 refvar
		PrintC "comparename failed"
	else
		PrintC "comparename passed"
	endif

	let s1 := actorvaluetostringC 0
	Print "actorvalue 0 = " + s1

	let s1 := getkeyname 14
	Print "key 14 should be backspace, is " + s1

	let s1 := asciitochar 65
	print "ascii 65 should be A is " + s1

	let s1 := getformidstring refvar
	print "player formID string = " + s1

	let s1 := numtohex 255 5
	print "should see 0x000FF: " + s1

	Print "following line should read '4, playerName"
	print $(2 + 2) + ", " + $refVar

	sv_Destruct s1 s2
endif
end