Othello游戏源程序

　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　
　　　　　　　　　　　　



　　　　　　　　　　　　<%@ language = vbscript %><%
'程序版权所有者: http://www.rainfall.com/othello/rules/othellorules.html
Response.Buffer=True dim p(8,8),b(8,8),x(8,8)
p(1,1) = 7 : p(8,1) = 7 : p(8,8) = 7 : p(1,8) = 7 : p(3,3) = 6 : p(3,4) = 6
p(3,5) = 6 : p(3,6) = 6 : p(4,3) = 6 : p(4,6) = 6 : p(5,3) = 6 : p(5,4) = 6
p(6,3) = 6 : p(6,4) = 6 : p(6,5) = 6 : p(6,6) = 6 : p(1,3) = 5 : p(1,6) = 5
p(3,1) = 5 : p(3,8) = 5 : p(6,1) = 5 : p(6,8) = 5 : p(8,3) = 5 : p(8,6) = 5
p(1,4) = 4 : p(1,5) = 4 : p(4,1) = 4 : p(4,8) = 4 : p(5,1) = 4 : p(5,8) = 4
p(8,4) = 4 : p(8,5) = 4 : p(2,3) = 3 : p(2,4) = 3 : p(2,5) = 3 : p(2,6) = 3
p(3,2) = 3 : p(3,7) = 3 : p(4,2) = 3 : p(4,7) = 3 : p(3,2) = 3 : p(3,7) = 3
p(4,2) = 3 : p(4,7) = 3 : p(5,2) = 3 : p(5,7) = 3 : p(6,2) = 3 : p(6,7) = 3
p(7,3) = 3 : p(7,4) = 3 : p(7,5) = 3 : p(7,6) = 3 : p(1,2) = 2 : p(1,7) = 2
p(2,1) = 2 : p(2,8) = 2 : p(7,1) = 2 : p(7,8) = 2 : p(8,2) = 2 : p(8,7) = 2
p(2,2) = 1 : p(2,7) = 1 : p(7,2) = 1 : p(7,7) = 1 for i = 1 to 8
for j = 1 to 8 b(i,j) = cint(request("b" & i & j)) next next
sel = request("sel") select case sel case 0 ' init for i=1 to 8
for j=1 to 8 b(i,j) = 0 next next
b(4,4) = 1 : b(5,5) = 1 : b(4,5) = 2 : b(5,4) = 2 case 1 ' human put
for i=1 to 8 for j=1 to 8
if request("n" & i & j & ".x") <> "" then call put(i,j,1) next next
case 2 call mark(2) ' com mark cpass = 0 for i=1 to 8
for j=1 to 8 if x(i,j) <> 0 then cpass = 1 next next
if cpass <> 0 then for i=1 to 8 for j=1 to 8
if x(i,j) = 1 then if pp < p(i,j) then pp = p(i,j)
ii = i jj = j end if end if next next
call put(ii,jj,2) end if call mark(1) ' human mark hpass = 0
for i=1 to 8 for j=1 to 8 if x(i,j) <> 0 then hpass = 1 next
next if cpass <> 0 and hpass = 0 then sel = 1 ' com again
if cpass = 0 and hpass = 0 then sel = 3 ' end end select%>

<% for j=1 to 8
response.write "" for i=1 to 8 response.write "" next response.write "" next
response.write "

" response.write "" select case b(i,j) case 0 if x(i,j) = 1 then response.write "" else response.write "" end if case 1 response.write "" case 2 response.write "" end select response.write "

" select case sel case 0,1
response.write ""
response.write "" case 2
response.write ""
response.write "Din tur" case 3 for i=1 to 8 for j=1 to 8
if b(i,j) = 1 then human = human + 1
if b(i,j) = 2 then com = com + 1 next next 'Added by Alex98
IF com > human THEN response.write "You lost!
"
ELSE response.write "You won!
" END IF
response.write "Score:
Computer " & (com) & ".000 points
You " & (human) & ".000
points" response.write "
A new game."
response.write "

---

Credits:
"
response.write "Original code: Koh Itoh
"
response.write "Gfx & modifications: A. Haneng
"
end select%>

Othello
rules所有源程序及图版请在本站游戏源程序里找找。