Показать сообщение отдельно
Старый 16.08.2013, 00:02   #2
impersonalis
Зануда с интернетом
 
Аватар для impersonalis
 
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений
(для 20,935 пользователей)
Ответ: Банк файлов

Исправленная версия одной из функций
Function TFileBank_Randomize(TFB.TFileBank)
	Local N%=Ceil(TFB\ReadOk/2.0)
	For i=1 To N
		Local a%=Rand(1,TFB\ReadOk)
		Local b%=((a+Rand(1,TFB\ReadOk-1)-1) Mod (TFB\ReadOk))
		a=a-1
		Local sv%=PeekInt(TFB\FilBnk,a*4)
		PokeInt(TFB\FilBnk,a*4,PeekInt(TFB\FilBnk,b*4))
		PokeInt(TFB\FilBnk,b*4,sv)
	Next
End Function
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
(Offline)
 
Ответить с цитированием