هذه اللعبة لم تنته. كان الغرض فقط لإظهار أنه يمكنك القيام ببعض الأشياء الرسومية دون الحاجة إلى استخدام الصور الخارجية.
إذا كنت ترغب في تطوير هذه اللعبة ، فيرجى إرسال تحديثاتك.
اسم الملف: htanoid.hta
متطلبات: أي 6؟
المؤلف: جان لوك أنطوان
المقدمة: 17/05/2002
الفئة: أخرى
： ：
： ：
代码如下:
<html xmlns: v = "urn: schemas-microsoft-com: vml" xmlns: t = "urn: schemas-microsoft-com: time">
<head>
<hta: التطبيق
ApplicationName = "htanoid"
الحدود = "سميكة" | "مربع الحوار" | "لا شيء" | "رفيع"
BorderStyle = "Normal" | "مجمع" | "مرفوع" | "ثابت" | "غارق"
Caption = "Yes" ContextMenu = "Yes"
ID = "Ohta" ALERT (OHTA.APPlicationName) ؛
innerborder = "yes" maximizedbutton = "yes" mailurebutton = "yes"
savigable = "no" scroll = "no" scrollflat = "no"
Selection = "Yes" ShowIntaskBar = "Yes" SingleInstance = "NO"
sysmenu = "نعم" الإصدار = "0.5"
WindowState = "Normal" | "تعظيم" | "الحد الأدنى">
<لغة البرنامج النصي = vbscript>
الخيار صريح
const c_screenw = 400
const c_nbx = 12
const c_nby = 10
التضاريس الخافتة (10،12)
Dim raqx ، الرقو ، اللعب ، BALLEX ، BALLEY
Dim DiRBX ، dirby'direction balle x ، y
باهت بوردرويت
borddroit = c_screenw-32
document_onkeypress ()
حدد Case Ucase (chr (window.event.keycode))
حالة "P"
msgbox "توقف مؤقت"
'window.cleartimeout
نهاية الاختيار
نهاية الفرعية
document_onclick ()
اللعب = صحيح
'document.title = "انقر فوق" & window.event.button
نهاية الفرعية
document_onmousemove ()
raqx = window.event.clientx-raqw'.shiftkey .KeyCode .Ctrlkey. لكن
إذا كان raqx <16 ثم raqx = 16'mur gauche
إذا كان raqx+raqw> borddroit ثم raqx = borddroit-raqw
raquette.style.left = raqx
إذا لم يلعب بعد ذلك
BALLEX = raqx+raqw/2
balle.Style.Left = Ballex
إنهاء إذا
نهاية الفرعية
مستويات فرعية (ن)
DIM K ، X ، Y.
set k = document.getElementByid ("Raquette")
لـ y = 0 إلى c_nby
لـ x = 0 إلى c_nbx
التضاريس (y ، x) = 0'nb de Coups Restant à porter
التالي
التالي
حدد الحالة ن
الحالة 1
الطوب
من أجل y = 0 إلى 5
لـ x = 0 إلى c_nbx
K.InsertAdjacenthtml "exerbegin" ، "<table style = 'position: absolute ؛ top =" & 102+14*y & "؛ left =" & 16+27*x _
& "؛ العرض = 25 ؛ الارتفاع = 10 ؛ ' BgColor = "& Array (" Silver "،" Red "،" Yellow "،" Blue "،" Magenta "،" Lightgreen ") (y) &"> <td> </td> </tr> </tabl> "
التالي
التالي
نهاية الاختيار
عشوائي
بالي = 400
dirbx = int (rnd ()*3) +1
dirby = 0- (int (rnd ()*4) +1)
نهاية الفرعية
init sub
DIM X ، Y ، K.