配列にします。グー,チョキ,パーはそれぞれ1,2,3とします。
メインはこんな感じになりそうです。
n=10
dim player1[n],player2[n],winner[n]
fill player1,0
fill player2,0
for i_g=0to n-1
player1[i_g]=関数名1(player1,player2)
player2[i_g]=関数名2(player2,player1)
winner[i_g]=janken(player1[i_g],player2[i_g])
next
def janken(p1,p2)
d=p1-p2
win=0
if d>0 then win=(d==1)+1
if d<0 then win=-d
return win
end