<%@ language = vbscript %>
<%
'Rules: 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
%>
Othello
Kurallar:
Othello oyunu, bilgisayar ve ziyaretçi arasında oynanan zekaya dayalı bir oyundur.
Oyunda tarafların amacı, tahtadaki taşları kendi rengine çevirmektir.Bunu yaparken, çapraz, dikey ya da yatay biçimde kendi rengine ait taşların aynı sırada olması gerekiyor. Eğer taraflardan birinin taş koyduğu bölümle, yine kendisine ait başka taş arasında rakibe ait taşlar varsa, onlar da renk değiştirerek oyuncunun taşının rengini alıyor. Kırmızı taşlar ziyaretçiye, Maviler ise bilgisayara ait. Bilgisayar, oyununu oynadıktan sonra, program, kurallara uygun olarak taş koyabileceğiniz kareleri çarpı içerisine alıyor. Böylece yanılgıya düşmeniz engellenmekte.
İyi Eğlenceler!
