Backgammon ist ein Puzzlespiel, mit dem jeder sehr vertraut ist, und es gibt viele verwandte Spielesoftware. Hier stelle ich Ihnen feierlich eine neue reine Online-Version von Backgammon vor. Es verwendet ASP als Entwicklungsumgebung und ist daher im Internet sehr beliebt . Es ist nicht nötig, Client-Software herunterzuladen, wenn Sie Schlachten spielen, solange Sie über einen Browser verfügen. Sie können dieses Spiel auch in einem lokalen Netzwerk spielen.
Zu ASP möchte ich nicht zu viel erklären, ich habe bereits in früheren Artikeln viel gesagt.
Der Ablauf des Spiels ist wie folgt: Wir loggen uns zuerst ein und können dann das Schlachtfeld auswählen. Es gibt fünf Schlachtfelder wie Venus, Jupiter, Merkur, Mars und Saturn Venus, ansonsten können Sie die anderen nacheinander auswählen. Der Planet dient als Schlachtfeld. Wenn es auf diesem Planeten keinen Herausforderer gibt, sollten Sie als Herausforderer teilnehmen, und dann können andere mit Ihnen konkurrieren. Wenn auf allen Planeten Krieg begonnen hat, müssen Sie natürlich nur eine Weile warten.
Wenn Sie sich als Herausforderer anmelden, können Sie darauf warten, dass andere gegen Sie kämpfen. Wenn Sie sich als Angreifer anmelden, können Sie schnell einen Kampf mit dem Herausforderer beginnen. Nachdem der Kampf begonnen hat, übernimmt der Ringführer mit Schwarz die Führung, dann führt der Angreifer den Zug aus und so weiter. Bei der endgültigen Entscheidung wird es entsprechende Hinweise geben.
Die Site verfügt über mehrere Hauptdateien:
Index.asp-Anmeldedatei:
Zwischendatei Index0.asp:
Match.asp-Match-Datei:
Back0.jpg white0.jpg black0.jpg Die in der Mitte verwendeten Grafikdateien beziehen sich auf das Schachbrett, die weißen Steine bzw. die schwarzen Steine, wie unten gezeigt:
Teilen Sie während der Initialisierung des Programms das Schachbrett in mehrere Tische auf, fügen Sie dort das Hintergrundbild ein, um ein Schachbrett zu bilden, und ersetzen Sie dann nach dem Platzieren einer Schachfigur das Bild durch die entsprechende weiße oder schwarze Figur.
Werfen wir zunächst einen Blick auf die Login-Datei:
＜%@ Language=VBScript %＞
<HTML>
<KOPF>
<META NAME=GENERATOR Content=Microsoft Visual Studio 6.0＞
＜title＞Star Wars: Five Sons-Wettbewerb! ＜/Titel＞
＜/KOPF＞
<KÖRPER>
＜p align=center＞＜font size=6＞Star Wars＜/font＞＜/P＞
＜Tabellenrand=1 Breite=80 % Ausrichtung=Mitte＞
＜tr＞＜td＞Planet＜/td＞＜td＞Herausforderung＜/td＞＜td＞Schlacht＜/td＞＜td＞Angriff＜/td＞＜/tr＞
<tr>
＜td＞Venus＜/td＞
<td>
<%
if application(first1)= then
%>
<form action=index0.asp?flag=First1 method=post>
＜INPUT id=text1 name=txtFirst1 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=Enter>
＜/form＞
<%
anders
Response.write-Anwendung (first1)
Ende wenn
%>
＜/td＞
＜td＞War＜/td＞
<td>
<%
if application(second1)= then
%>
<form action=index0.asp?flag=second1 method=post>
＜INPUT id=text1 name=txtSecond1 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=Enter>
＜/form＞
<%
anders
Response.write-Anwendung (Second1)
Ende wenn
%>
＜/td＞
＜/tr＞
<tr>
＜td＞Jupiter＜/td＞
<td>
<%
if application(first2)= then
%>
<form action=index0.asp?flag=First2 method=post>
＜INPUT id=text1 name=txtFirst2 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=Enter>
＜/form＞
<%
anders
Response.write-Anwendung (first2)
Ende wenn
%>
＜/td＞
＜td＞War＜/td＞
<td>
<%
if application(second2)= then
%>
<form action=index0.asp?flag=second2 method=post>
＜INPUT id=text1 name=txtSecond2 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=Enter>
＜/form＞
<%
anders
Response.write-Anwendung (Second2)
Ende wenn
%>
＜/td＞
＜/tr＞
<tr>
＜td＞Venus＜/td＞
<td>
<%
if application(first3)= then
%>
<form action=index0.asp?flag=First3 method=post>
＜INPUT id=text1 name=txtFirst3 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=Enter>
＜/form＞
<%
anders
Response.write-Anwendung (first3)
Ende wenn
%>
＜/td＞
＜td＞War＜/td＞
<td>
<%
if application(second3)= then
%>
<form action=index0.asp?flag=second3 method=post>
＜INPUT id=text1 name=txtSecond3 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=Enter>
＜/form＞
<%
anders
Response.write-Anwendung (Second3)
Ende wenn
%>
＜/td＞
＜/tr＞
<tr>
＜td＞Venus＜/td＞
<td>
<%
if application(first4)= then
%>
<form action=index0.asp?flag=First4 method=post>
＜INPUT id=text1 name=txtFirst4 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=Enter>
＜/form＞
<%
anders
Response.write-Anwendung (first4)
Ende wenn
%>
＜/td＞
＜td＞War＜/td＞
<td>
<%
if application(second4)= then
%>
<form action=index0.asp?flag=second4 method=post>
＜INPUT id=text1 name=txtSecond4 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=Enter>
＜/form＞
<%
anders
Response.write-Anwendung (Second4)
Ende wenn
%>
＜/td＞
＜/tr＞
<tr>
＜td＞Venus＜/td＞
<td>
<%
if application(first5)= then
%>
<form action=index0.asp?flag=First5 method=post>
＜INPUT id=text1 name=txtFirst5 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=Enter>
＜/form＞
<%
anders
Response.write-Anwendung (first5)
Ende wenn
%>
＜/td＞
＜td＞War＜/td＞
<td>
<%
if application(second5)= then
%>
<form action=index0.asp?flag=second5 method=post>
＜INPUT id=text1 name=txtSecond5 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=Enter>
＜/form＞
<%
anders
Response.write-Anwendung (Second5)
Ende wenn
%>
＜/td＞
＜/tr＞
＜/Tabelle＞
＜/KÖRPER＞
＜/HTML＞
Diese Datei muss nicht allzu sehr erklärt werden, es handelt sich lediglich um eine große Tabelle, die jeder von dort aus betreten kann. Wenn ein bestimmter Ort verwendet wurde, wird er zum Namen des Helden und wiederholte Anmeldungen sind nicht zulässig. Melden Sie sich nach dem Einloggen an
index0.asp, dies ist eine Zwischenaustauschdatei, in der einige Variablen verarbeitet und zugewiesen werden, und dann wird match.asp für die offizielle Übereinstimmung eingegeben. Werfen wir einen Blick auf den Inhalt von index0.asp:
＜%@ Language=VBScript %＞
<%
if Request.Form(txt & request.querystring(flag))＜＞ dann
'response.write in!
session(nice)=Request.Form(txt & request.querystring(flag))
'response.write session(nice) &
'response.write application(request.querystring(flag))
if application(request.querystring(flag))= then
application(request.querystring(flag))=session(nice)
session(class)=right(request.querystring(flag),1)
wenn left(request.querystring(flag),1)=f dann
application(session(nice))=false
elseif left(request.querystring(flag),1)=s then
application(session(nice))=false
application(application(first & session(class)))=true
Ende wenn
Response.Redirect match.asp
Ende wenn
Ende wenn
%>
<HTML>
＜/HTML＞
In diesem Programm wird „session (nice)“ zum Aufzeichnen Ihres Anmeldenamens verwendet. Er wird in vielen zukünftigen Prozessen verwendet, um viele Benutzer zu unterscheiden. Wenn Sie von der Position des Zirkusdirektors aus eintreten, haben Sie folgende Rechte
Erstens, andernfalls zweitens, verwenden Sie session(class), um aufzuzeichnen, auf welchem Schlachtfeld es sich befindet, Jinmu
Wasser, Feuer und Erde werden als 1, 2, 3, 4 und 5 dargestellt, da mehrere Schlachtfelder gleichzeitig kämpfen können. Wenn sie nicht richtig unterschieden werden können, kann es zu Chaos kommen. application(session(nice)) ist eine logische Variable, die mit „true“ oder „false“ angibt, ob Sie Schach spielen können. Wenn sie „false“ ist, müssen Sie auf „true“ warten. Erst nachdem zwei Personen ein Schlachtfeld betreten haben, kann der Herausforderer Schach spielen, und erst nachdem der Herausforderer eine Figur hervorgebracht hat, kann der Angreifer Schach spielen. Wenn Sie bereit sind, betreten Sie das Wettbewerbsfeld. Bitte sehen Sie sich die Datei match.asp an
<html>
<Kopf>
＜meta http-equiv=Content-Type content=text/html;
<meta name=GENERATOR content=Microsoft FrontPage 4.0>
<meta name=ProgId content=FrontPage.Editor.Document>
＜META http-equiv=refresh content=3＞
＜title＞Renju-Wettbewerb...＜/title＞
＜/Kopf＞
<%
Response.Write Challenger: & application(first & session(class))
& Angriff: & Anwendung(Sekunde & Sitzung
(Klasse))
if Request.QueryString(pos)＜＞ dann
application(pos & session(class) & Request.QueryString(pos))
=wahr
Ende wenn
%>
<Körper>
<%
'Response.Write-Anwendung (aaa)
if application(first & session(class))=session(nice) then
Farbe=schwarz
if Request.QueryString(pos)＜＞ dann
wenn session(last)= dann session(last)=abc
if session(last)＜＞ Request.QueryString(pos) then
application(application(first & session(class)))=false
if application(second & session(class))＜＞ then application
(application(second & session(class)))=true
session(last)=Request.QueryString(pos)
ENDE WENN
Ende wenn
anders
if application(second & session(class))=session(nice) then
Farbe=weiß
if Request.QueryString(pos)＜＞ dann
'if session(last)= then session(last)=abc
if session(last)＜＞ Request.QueryString(pos) then
application(application(first & session(class)))=true
application(application(second & session(class)))=false
session(last)=Request.QueryString(pos)
ENDE WENN
Ende wenn
anders
if application(second & session(class))= then
application(second & session(class))=session(nice)
Farbe=weiß
if Request.QueryString(pos)＜＞ dann
wenn session(last)= dann session(last)=abc
if session(last)＜＞ Request.QueryString(pos) then
application(application(first & session(class)))=true
application(application(second & session(class)))=false
session(last)=Request.QueryString(pos)
ENDE WENN
Ende wenn
anders
Farbe=
Ende wenn
Ende wenn
Ende wenn
Response.Write <Tabellenbreite=400 Höhe=400 Rand=0 Zellenabstand=0
cellpadding=0>
für i=1 bis 16
Response.Write <tr>
für j=1 bis 16
if application(pos & session(class) & cstr(i) & _ & cstr(j))=
Dann
application(color & session(class) & _ & Request.QueryString
(pos))=Farbe
Response.Write <td width=25 height=25>
'response.write application(application(first & session(class)))
wenn application(session(nice))=true dann
Response.write <a href=match.asp?pos= & cstr(i) & _ & cstr(j)
& ＞＜img border=0 src=back0.jpg width=25 height=25＞＜/a＞
anders
Response.write <img border=0 src=back0.jpg width=25 height=25>
Ende wenn
Response.write ＜/td＞
anders
Response.Write ＜td width=25 height=25＞＜img border=0 src= &
application(color & session(class) & _ & cstr(i) & _ & cstr
(j)) & 0.jpg width=25 height=25＞＜/td＞ & chr(13)
Ende wenn
nächste
Response.Write ＜/tr＞
nächste
Response.Write ＜/table＞
„Beurteilen Sie, ob Sie gewinnen oder verlieren.“
if application(first & session(class))=session(nice) then
m=schwarz
h=weiß
anders
h=schwarz
m=weiß
Ende wenn
„Horizontales Urteil-“
für i=1 bis 15
win=false
Verlust=falsch
five_me=0
five_he=0
für j=1 bis 15
if application(color & session(class) & _ & cstr(i) & _ & cstr
(j))=m dann
five_me=fünf_me+1
five_he=0
elseif application(color & session(class) & _ & cstr(i) & _ &
cstr(j))=h dann
five_me=0
five_he=fünf_he+1
anders
five_me=0
five_he=0
Ende wenn
wenn five_me=5 dann
win=wahr
Verlust=falsch
Ausgang für
elseif five_he=5 dann
win=false
Verlust=wahr
Ausgang für
Ende wenn
nächste
Wenn Sie gewinnen oder verlieren, beenden Sie das Spiel
nächste
Wenn du gewinnst, dann
Response.write Du gewinnst!
application(application(first & session(class)))=false
application(application(second & session(class)))=false
Ende wenn
wenn Verlust dann
Response.write Entschuldigung, Sie haben verloren!
application(application(first & session(class)))=false
application(application(second & session(class)))=false
Ende wenn
'Spaltenrichtungsurteil|
für j=1 bis 15
win=false
Verlust=falsch
five_me=0
five_he=0
für i=1 bis 15
if application(color & session(class) & _ & cstr(i) & _ & cstr
(j))=m dann
five_me=fünf_me+1
five_he=0
elseif application(color & session(class) & _ & cstr(i) & _ &
cstr(j))=h dann
five_me=0
five_he=fünf_he+1
anders
five_me=0
five_he=0
Ende wenn
wenn five_me=5 dann
win=true
Verlust=falsch
Ausgang für
elseif five_he=5 dann
win=false
Verlust=wahr
Ausgang für
Ende wenn
nächste
Wenn Sie gewinnen oder verlieren, beenden Sie das Spiel
nächste
Wenn du gewinnst, dann
Response.write Du gewinnst!
application(application(first & session(class)))=false
application(application(second & session(class)))=false
Ende wenn
wenn Verlust dann
Response.write Entschuldigung, Sie haben verloren!
application(application(first & session(class)))=false
application(application(second & session(class)))=false
Ende wenn
'Schräges Urteil/
für i=1 bis 11
win=false
Verlust=falsch
five_me=0
five_he=0
für j=i+4 bis 1 Schritt -1
if application(color & session(class) & _ & cstr(j) & _ & cstr
(i+5-j))=m dann
five_me=fünf_me+1
five_he=0
elseif application(color & session(class) & _ & cstr(j) & _ &
cstr(i+5-j))=h dann
five_me=0
five_he=fünf_he+1
anders
five_me=0
five_he=0
Ende wenn
wenn five_me=5 dann
win=true
Verlust=falsch
Ausgang für
elseif five_he=5 dann
win=false
Verlust=wahr
Ausgang für
Ende wenn
nächste
Wenn Sie gewinnen oder verlieren, beenden Sie das Spiel
nächste
Wenn du gewinnst, dann
Response.write Du gewinnst!
application(application(first & session(class)))=false
application(application(second & session(class)))=false
Ende wenn
wenn Verlust dann
Response.write Entschuldigung, Sie haben verloren!
application(application(first & session(class)))=false
application(application(second & session(class)))=false
Ende wenn
'Schräges Urteil/
für i=1 bis 11
win=false
Verlust=falsch
five_me=0
five_he=0
für j=12-i bis 15
if application(color & session(class) & _ & cstr(13-ij) & _
& cstr(j))=m dann
five_me=fünf_me+1
five_he=0
elseif application(color & session(class) & _ & cstr(13-ij)
& _ & cstr(j))=h dann
five_me=0
five_he=fünf_he+1
anders
five_me=0
five_he=0
Ende wenn
wenn five_me=5 dann
win=wahr
Verlust=falsch
Ausgang für
elseif five_he=5 dann
win=false
Verlust=wahr
Ausgang für
Ende wenn
nächste
Wenn Sie gewinnen oder verlieren, beenden Sie das Spiel
nächste
Wenn du gewinnst, dann
Response.write Du gewinnst!
application(application(first & session(class)))=false
application(application(second & session(class)))=false
Ende wenn
wenn Verlust dann
Response.write Entschuldigung, Sie haben verloren!
application(application(first & session(class)))=false
application(application(second & session(class)))=false
Ende wenn
%>
＜/Körper＞
＜/html＞
Wenn an einem bestimmten Punkt keine Schachfigur vorhanden ist, fügen Sie eine Hyperverbindung hinzu und platzieren Sie eine Schachfigur mit einer anderen Farbe entsprechend dem Unterschied zwischen Herausforderer und Angreifer. Der letzte Absatz dient zur Beurteilung von Sieg und Niederlage und ist in horizontale Richtung, Spaltenrichtung und zwei diagonale Richtungen unterteilt. Sie können es verstehen, indem Sie sich den spezifischen Inhalt ansehen.
Das Letzte, worüber ich sprechen möchte, ist global.asa, eine Kerndatei auf der Website. Um die Position nach dem Beenden des Schachspiels anderen zu überlassen, müssen Sie wie folgt Code zur Verarbeitung zu session_onend hinzufügen:
<script language=vbscript runat=server>
sub application_onstart
session.timeout=1
Ende sub
sub session_onstart
if application(num)= then
Anwendung(Anzahl)=0
Ende wenn
Anwendung(Anzahl)=Anwendung(Anzahl)+1
Ende sub
＜/script＞
<script language=vbscript runat=server>
sub session_onend
if application(num)= then
Anwendung(Anzahl)=0
Ende wenn
Anwendung(Anzahl)=Anwendung(Anzahl)-1
wenn application(first1)=session(nice), dann
application(first1)=
elseif application(second1)=session(nice) then
application(second1)=
elseif application(first2)=session(nice) then
application(first2)=
elseif application(second2)=session(nice) then
application(second2)=
elseif application(first3)=session(nice) then
application(first3)=
elseif application(second3)=session(nice) then
application(second3)=
elseif application(first4)=session(nice) then
application(first4)=
elseif application(second4)=session(nice) then
application(second4)=
elseif application(first5)=session(nice) then
application(first5)=
elseif application(second5)=session(nice) then
application(second5)=
Ende wenn
für i=1 bis 15
für j=1 bis 15
application(color & session(class) & _ & cstr(i) & _ & cstr
(J))=
application(pos & session(class) & cstr(i) & _ & cstr(j))=
nächste
nächste
application(session(nice))=
Ende sub
＜/script＞
Das Obige sind einige Hauptdateien, Sie können es ausprobieren. Was, willst du Go spielen? Wechseln Sie einfach das Schachbrett.