Bien sur qu'on peut mettre des boucles dans des boucles (mais après ça ram un peu...). Sinon ton problème vennai principalement du manque des "End" à la fin de chaque boucle, voici ce que j'ai fait (c'est pas otpimiser, on est d'accord.) :

ClrDraw:CoordOff:AxesOff
0->T:0->S:0->A:-5->B
randInt(-8,8)->C
randInt(-8,8)->D
While 1
getKey->K
Pt-On(A,B,2)
Pt-On(C,D,3)
If K=24:Then:A-1->A:Pt-Change(A+1,B):End
If K=26:Then:A+1->A:Pt-Change(A-1,B,2):End
If K=25:Then:B+1->B:Pt-Change(A,B-1,2):End
If K=34:Then:B-1->B:Pt-Change(A,B+1,2):End
If A=C and B=D:Then: S+1->S:End End

Voilà, j'éspère t'avoir aidé (j'ai pas tester le programme mais il devrai marcher). Si tu as d'autre problèmes n'hésite pas à en parler.