[Chuma]

Пока сделал так. Потом добью саму угадайку. Так чтоб одна картинка - несколько ответов. Потом перенесу в 3д сделаю эффекты и т.п.. Но это все потом - зачет по согласным в понедельник. Буду пока учить так. Времени нет.

зы. там 76 букв. И все надо именно запомнить. Жопа =)

SeedRnd MilliSecs()
Graphics3D(800,300,32,2)


fntArial=LoadFont("Arial",17,True) 

; Установить шрифт и напечатать текст
SetFont fntArial 

cam = CreateCamera() 
MoveEntity cam,0,0,-5 




dir$ = "2"

Global cnt = 0
Global f$
e = ReadFile(dir+"/myfile1.txt")
While Not Eof(e)
	ReadLine(e)
	cnt = cnt +1
Wend

CloseFile(e)
DebugLog cnt
Dim symbols$(cnt)
Dim images(cnt)
Dim tex(cnt)

e = ReadFile(dir+"/myfile1.txt")
ci = 1
While Not Eof(e)
	symbols(ci) = ReadLine(e)
	images(ci) = LoadImage(dir+"/"+ci+".jpg")

	DebugLog ci+":"+images(ci)
	ci = ci +1
Wend

CloseFile(e)
Global varcnt =5
Global cv = 0
Dim vars(5)
Dim varsindex(5)


.label1

GetRandomVariant()

While Not KeyDown(1)
	
	
	
	
	Cls
	
	Print symbols(index)
	DrawCards()
	
	Flip
	RenderWorld 
	
	WaitKey
	Goto label1
	
	
	
Wend




Function GetRandomVariant()
	
	vars(1) = Rand(1,cnt-1)
	vars(2) = Rand(1,cnt-1)
	vars(3) = Rand(1,cnt-1)
	vars(4) = Rand(1,cnt-1)
	vars(5) = Rand(1,cnt-1)
	vars(6) = Rand(1,cnt-1)

End Function


Function DrawCards()
	
	For i = 1 To 6
		index = vars(i)
		img = images(index)
		DrawImage img,i*140-140,100	
		f$=symbols(index)
		Text i*140-90,200,f$,True,False 
				
	Next
End Function

Если у кого есть идеи - пуляйте... =)))

Зы. HolyDel, спасибо большое. Мало что понял, кое-как сделал вывод самих слов. Однако, я думал как-то проще это делается.

зы.зы. не ругайте за гото, уж забыл как правильно надо.