Memory Drive

[ASP] 3x3 Puzzle Game - IIS

자작2006. 9. 30. 23:50
반응형
  1. <%
  2.   Option Explicit
  4.   ' ASP의 Rand를 이용한 3x3 Puzzle Game
  5. %>
  6. <style type="text/css">
  7. h2 {
  8.   font-family:  Arial;
  9.   font-size:    24px;
  10.   color:      #666;
  11.   padding:    4px;
  12.   background:  #CCCCFF;
  13.   border-bottom:  2px solid #ddd;
  14.   text-align:  center;
  15. }
  17. td {
  18.   font-family:  Impact;
  19.   font-size:    60px;
  20.   color:      white;
  21.   background:  #DDE8FF;
  22. }
  24. a:hover {
  25.   color: #FF0066;
  26.   text-decoration: none;
  27.   font-weight: bold
  28. }
  29. a:visited {
  30.   color: #000099;
  31.   text-decoration: none;
  32. }
  33. a:active {  
  34.   text-decoration: none;
  35. }
  36. a:link {
  37.   color: #000099;
  38.   text-decoration: none;
  39. }
  40. </style>
  43. <h2> 3x3 Puzzle Game by ASP</h2>
  45. <%
  46.   ' Random Seed값 초기화
  47.   Randomize
  48.     Dim board(8)  ' 배열을 선언한다.
  49.     Dim ThePick  ' 임의로 선택된 값의 색인 변수
  50.     Dim Temp    ' 값을 교환하기 위한 임시 변수
  51.     Dim i, j    ' 반복문의 카운터용
  52.   Dim ct
  53.   Dim cnt   ' 클릭한 인덱스값 받기
  54.   Dim getArr    ' 값을 저장해 Get으로 던지는 변수
  55.   Dim getArr2  ' 값을 저장한것을 받는 변수
  56.   Dim sum   ' 0-8 까지 합을 저장하기 위한 변수
  57.   Dim chaos  ' 무질서도 판단
  58.   Dim loopcnt  ' loop cnt
  60.   ' Request...
  61.   getArr  = Request.QueryString("getArr") ' get된 전체 값들
  62.   cnt  = Request.QueryString("ct")    ' get된 index값
  64. ' 처음 실행 할경우
  65. If cnt=0 Then
  68.   loopcnt = true
  69.   While loopcnt
  71.     ' 배열을 채운다.
  72.     For I = 0 To 8
  73.       board(I) = I
  74.     Next
  76.     ' 배열을 썩는다.
  77.     For I = 0 To 8
  78.       ThePick = Int(1 + Rnd * 8)  ' 랜덤으로 생성!
  79.       Temp = board(I)
  80.       board(I) = board(ThePick)
  81.       board(ThePick) = Temp
  82.     Next
  84.     ' 무질서도 체크
  85.     For i = 0 To 8
  86.       For j = i To 8
  87.         If board(i) > board(j) Then chaos=chaos+1 : End if
  88.       next
  89.     Next
  91.     '무질서 더한값이 짝수 이면 Loop 탈출
  92.     ' 무질서도가 홀수이면 게임 퍼즐을 풀수 없다.
  93.     If (chaos Mod 2) = 0 Then
  94.       loopcnt = false
  95.       Else
  96.       loopcnt = true
  97.     End if
  99.   wend
  104. ' 두번째 실행
  105. Else
  106.   ' getArr String -> 배열 로 변경
  107.     getArr2 = Split( getArr , "-" )
  109.   For i=0 To 8
  110.       board(i) = getArr2(i)
  111.   Next
  113.   ' 해당 Index으로 값을 이동
  114.   Select Case CInt(cnt) ' 위치값(Index)
  115.     Case 1
  116.       If board(1) = 0 Then  ' 1번이 비었다면
  117.       board(1) = board(0)
  118.             board(0) = 0
  119.          End If
  120.         If board(3) = 0 Then  ' 3번이 비었다면
  121.             board(3) = board(0)
  122.             board(0) = 0
  123.       End If
  124.     Case 2
  125.        If board(0) = 0 Then
  126.         board(0) = board(1)
  127.         board(1) = 0
  128.       End If
  129.       If board(2) = 0 Then
  130.         board(2) = board(1)
  131.         board(1) = 0
  132.       End If
  133.       If board(4) = 0 Then
  134.         board(4) = board(1)
  135.         board(1) = 0
  136.       End If     
  137.     Case 3
  138.       If board(1) = 0 Then
  139.         board(1) = board(2)
  140.         board(2) = 0
  141.       End If
  142.       If board(5) = 0 Then
  143.         board(5) = board(2)
  144.         board(2) = 0
  145.       End If
  146.     Case 4
  147.       If board(0) = 0 Then
  148.         board(0) = board(3)
  149.         board(3) = 0
  150.       End If
  151.       If board(4) = 0 Then
  152.         board(4) = board(3)
  153.         board(3) = 0
  154.       End If
  155.       If board(6) = 0 Then
  156.         board(6) = board(3)
  157.         board(3) = 0
  158.       End If
  159.     Case 5
  160.       If board(1) = 0 Then
  161.         board(1) = board(4)
  162.         board(4) = 0
  163.       End If
  164.       If board(3) = 0 Then
  165.         board(3) = board(4)
  166.         board(4) = 0
  167.       End If
  168.         If board(5) = 0 Then
  169.         board(5) = board(4)
  170.         board(4) = 0
  171.       End If
  172.       If board(7) = 0 Then
  173.         board(7) = board(4)
  174.         board(4) = 0
  175.       End If
  176.     Case 6
  177.       If board(8) = 0 Then
  178.       board(8) = board(5)
  179.       board(5) = 0
  180.       End If
  181.       If board(4) = 0 Then
  182.         board(4) = board(5)
  183.         board(5) = 0
  184.       End If
  185.       If board(2) = 0 Then
  186.         board(2) = board(5)
  187.         board(5) = 0
  188.       End If     
  189.     Case 7
  190.       If board(3) = 0 Then
  191.         board(3) = board(6)
  192.         board(6) = 0
  193.       End If
  194.       If board(7) = 0 Then
  195.         board(7) = board(6)
  196.         board(6) = 0
  197.       End If 
  198.     Case 8
  199.       If board(4) = 0 Then
  200.         board(4) = board(7)
  201.         board(7) = 0
  202.       End If
  203.       If board(6) = 0 Then
  204.         board(6) = board(7)
  205.         board(7) = 0
  206.       End If
  207.       If board(8) = 0 Then
  208.         board(8) = board(7)
  209.         board(7) = 0
  210.       End If
  211.     Case 9
  212.       If board(5) = 0 Then
  213.         board(5) = board(8)
  214.         board(8) = 0
  215.       End If
  216.       If board(7) = 0 Then
  217.         board(7) = board(8)
  218.         board(8) = 0
  219.       End If
  220.   End select
  222.   For i = 0 To 8
  223.     If board(i) = CStr(i+1) Then sum=sum+1 : End If
  224.     If sum=8 Then
  225.     response.write "<script language=javascript>alert('문제를 다 풀었습니다') </script>"
  226.     End if
  227.   Next
  228. End if
  231.   ' 넘기기 위한 묶음 변수 생성
  232.   getArr = ""
  233.   For i=0 To 8
  234.       getArr =  getArr &  board(i) & "-"
  235.   Next
  237.   '출력....
  238.   response.write "<table cellpadding=4 cellspacing=4 border=2 align=center>"
  240.   ct = 1
  241.   For i = 0 To 2
  242.     response.write "<tr align=center height=100>"
  243.     For j = 0 To 2
  244.       If board(ct-1) = 0 Then
  245.         response.write "<td width=100>&nbsp;</td>"
  246.       Else
  247.         response.write "<td width=100><a href=puzzle.asp?ct=" & ct & "&getArr=" & getArr & ">" &board(ct-1) &"</a></td>"
  248.       End if
  249.       ct = ct+1
  251.     next
  252.     response.write "</tr>"
  254.   Next
  255. %>
  257. </table>

Many Bugs!!!~
실행화면

실행화면


반응형

티스토리툴바