Показать сообщение отдельно
Старый 19.10.2005, 15:48   #5
Lexa
ПроЭктировщик
 
Регистрация: 10.10.2005
Сообщений: 102
Написано 2 полезных сообщений
(для 2 пользователей)
это пример из хелпа. он понятен
не понятно др. вот обьект (деревян. стена) мне надо его наверно размножить и раставить на карте. Я видел в примерах тама пишут типа
Dim blox(7,7,Levels)
Dim numblox(Levels)

For l=0 To Levels
	Select l
	Case 0: Restore Level0
	.................
	Case 5: Restore Level5
	End Select	
	For by=0 To 7
 *For bx=0 To 7
 *	Read blox(bx,by,l)
 *	If blox(bx,by,l)>0 And blox(bx,by,l)<8 Then numblox(l)=numblox(l)+1
 *Next; bx
	Next; by
Next;l
.Level0
Data 0,0,0,0,0,0,0,0
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
пример: Break It! v1.0

но как это раборает и называется я незнаю. хотябы принцип?
(Offline)
 
Ответить с цитированием