SRC2.2以降限定で良ければ簡単です。Sortで整列してからForEachで必要な
分だけコピーします。

----

Sort 撃退数 "降順"

Local nth = 3
Local c = 1
Local nth_elem pname
ForEach pname in 撃退数
	If c > nth Then
		Break
	EndIf
	nth_elem[c] = Nickname(pname)
	incr c
Next

Ask nth_elem ""

----

　SRC2.0以前でも動かしたい場合は、少し手間がかかりますが以下のようにします。

----

# まず撃退数をコピー
Local temp pname
ForEach pname In 撃退数
	temp[pname] = 撃退数[pname]
Next

Local nth = 3
Local nth_elem maxpname max i

# n個の要素を大きい方から順に抜き出す
For i = 1 To nth
	# 初期値（前提条件 : 撃退数 >= 0）
	max = -1

	# tempから最大値を探す
	ForEach pname In temp
		If max < temp[x] Then
			max = temp[pname]
			maxpname = pname
		EndIf
	Next

	If max = -1 Then
		# 最大値が更新されていない == nth > Count(撃退数)
		Break
	EndIf

	# 最大値をtempからpop
	nth_elem[Count(nth_elem) + 1] = Nickname(maxpname)
	UnSet temp[maxpname]
Next

Ask nth_elem ""

----