السلام عليكم
اسمحلي ... لازم تغير نظريتك ... هي قد تكون بالجافا اسكربت افضل لكن لا يمنع ذلك من عمله باي شكل من الاشكال باي لغة برمجةرد مقتبس من Zizwar
أتحداكم إن أنجزت مثل تلك بال Php
ليس غرورا لكن مثل ثلك اللعبة في الصفحات لا تمكن إلا ب Javascript أو Vbscript أي باللغات التي تتعامل مع المتصفح (navigator) أي و لو إنقطع الإتصال بالسيرفر فإن الكود سيعمل أتمنى توصل الفكرة
وهذا ملف على السريع عملته بالبيرل بما اني مبرمج لهذه اللغة
والفكرة بسيطة جدا وسريعة ولو كنت فاضي لها كان رتبته بحيث يكون اوسع وافضل واحسن حتى من MSN ... لكن هذا فقط مثال بسيط لنفس الغرض
جربه
=================================
#!/usr/bin/perl
use strict;
use CGI ':standard';
my $dos = param('DO');
my $coo = cookie('align');
if ($dos) { &showref; }
else { &showpage; }
sub showpage {
print "Content-type:text/html\n\n";
print qq~<HTML>
<HEAD>
</HEAD>
<BODY>
<table border="1" width="100%">
<tr>~;
if ($coo eq 'right') {
print qq~<td width="33%"></td>
<td width="34%"></td>
<td width="33%"><table bgcolor="navy" width="100%">
<tr bgcolor="white">
<td><a href="tem.cgi?DO=center">GO CENTER</a></td>
</tr>
</table></td>~;
} elsif ($coo eq 'center') {
print qq~<td width="33%"></td>
<td width="34%"><table bgcolor="navy" width="100%">
<tr bgcolor="white">
<td><a href="tem.cgi?DO=left">GO LEFT</a> - <a href="tem.cgi?DO=right">GO RIGHT</a></td>
</tr>
</table></td>
<td width="33%"></td>~;
} else {
print qq~<td width="33%"><table bgcolor="navy" width="100%">
<tr bgcolor="white">
<td><a href="tem.cgi?DO=center">GO CENTER</a></td>
</tr>
</table></td>
<td width="34%"></td>
<td width="33%"></td>~;
}
print qq~</tr>
</table>
</BODY>
</HTML>~;
}
sub showref {
$ENV{'HTTP_REFERER'} =~ s/\?(.*)$//gi;
print "Set-Cookie:align=$dos;path=/\n";
print "Content-type:text/html\n\n";
print qq~<HTML>
<HEAD>
<META HTTP-EQUIV="Refresh" CONTENT="0; URL=$ENV{'HTTP_REFERER'}">
</HEAD>
<BODY>
</BODY></HTML>~;
}
============================
وشكرا
)
