▣ ASP로 간단한 게임 만들기 (같은그림찾기)
같은그림찾기의 로직중 같은 그림을 섞는 로직입니다.
이게임의 핵심이라 할 수 있겠죠? ㅎㅎ
오래전에 만든거라 허접하긴 하지만.. 그냥 재미삼아 보세요.
'같은그림찾기게임로직_배열에 랜덤으로 뿌리기(wid:가로칸수,hei:세로칸수,같은아이콘의 갯수[짝수로],배열은1,1부터적용)
Function FindSameIcon(wid,hei,cnt)
Dim arylist,arynum,i,j,k
Dim old_x_position, old_y_position, now_x_position, now_y_position
ReDim arylist(wid,hei)
k=0
For i=1 To wid
For j=1 To hei
If k=0 Or k = (wid*hei/cnt) Then
k = 1
Else
k = k+1
End If
arylist(i,j) = k
Next
Next
old_x_position = 0
old_y_position = 0
Randomize
For i=1 To (wid*hei)
now_x_position = ((CInt(rnd*10) Mod wid)+1)
now_y_position = ((CInt(rnd*10) Mod hei)+1)
arylist(old_x_position,old_y_position) = arylist(now_x_position,now_y_position)
old_x_position = now_x_position
old_y_position = now_y_position
Next
arylist(now_x_position,now_y_position) = arylist(0,0)
FindSameIcon = arylist
End Function
ex)
Dim arylist,i,j
arylist = FindSameIcon(4,4,2)
response.write "<table border='1'>"
For i=1 To 4
response.write "<tr>"
For j=1 To 4
response.write "<td width='100px' align='center'>" & arylist(i,j) & "</td>"
Next
response.write "</tr>"
Next
response.write "</table>"
'Language > ASP' 카테고리의 다른 글
| XML File Load (0) | 2012.04.24 |
|---|---|
| recordset 객체 (0) | 2012.04.24 |
| ASP에서 XML파일 읽기 (0) | 2012.04.24 |
| 에러처리 On Error Resume Next 와 On Error Goto 레이블명 (0) | 2012.04.24 |
| ASP XRS사용 (0) | 2012.04.24 |
