Return of the Avenger - the ultimate VB game
A very cool VB space simulation game. This project is for everyone that claims VB can't be used as a game engine. Using home-made buffering methods, I re-wrote the Raptor game engine in VB. Your ship shoots, the bad guys shoot, ships explode, music is played (mp3 format) - this engine has everything. If you've liked the little arcade games people have posted (pong, etc.), you'll be blown away by this full-scale game using hundreds of blits simultaneously. Everything you need is included (including the ocx for playing mp3's), and the code is very concise, clever, and fast. One thing - it's not quite commented fully and the user interface needs some work. I had to rush and finish it for a school project, so there is much left to be done. I am looking for someone to do custom graphics (I am using the ones from Raptor for now) and I will revamp the game to be entirely like Raptor (level editors, weapon upgrades, etc.) for commercial distribution. Contact me (tannerhelland@hotmail.com) if interested. BTW - use the arrow keys to move and the space bar to shoot.
Yapay Zeka Özeti: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Upload
<%@ Language=VBScript %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>ASP Calendar</TITLE>
</HEAD>
<BODY BGCOLOR = "#ffffff">
<STYLE>
.today
{
FONT-SIZE: 9px;
COLOR: #aa0000;
FONT-FAMILY: verdana,arial,helvetica;
}
.weekday
{
FONT-SIZE: 9px;
COLOR: #00aa00;
FONT-FAMILY: verdana,arial,helvetica;
}
.weekend
{
FONT-SIZE: 9px;
COLOR: #0000aa;
FONT-FAMILY: verdana,arial,helvetica;
}
.heading
{
FONT-SIZE: 10px;
COLOR: #0000aa;
FONT-FAMILY: verdana,arial,helvetica;
}
.subheading
{
FONT-SIZE: 10px;
COLOR: #000000;
FONT-FAMILY: verdana,arial,helvetica;
}
</STYLE>
<%
Dim ThisMonthYear
Dim ThisMonth
Dim ThisYear
Dim NextMonthYear
Dim NextMonth
Dim NextYear
Dim LastMonth
Dim LastYear
Dim FirstDay
Dim ThisDay
ThisDay = 0
' Set the Month and Year parameters to equal the current values if they do not exist.
If (Request.QueryString("Month") = "") Then
ThisMonthYear = Now()
ThisMonth = Month(Now())
ThisYear = Year(Now())
Else
ThisMonth = Request.QueryString("Month")
ThisYear = Request.QueryString("Year")
End If
' Determine the Last/Next Month and Year
If (ThisMonth = 12) Then
LastMonth = 11
LastYear = ThisYear
NextMonth = 1
NextYear = ThisYear + 1
Else
If (ThisMonth = 1) Then
LastMonth = 12
LastYear = ThisYear - 1
NextMonth = ThisMonth + 1
NextYear = ThisYear
Else
LastMonth = ThisMonth - 1
LastYear = ThisYear
NextMonth = ThisMonth + 1
NextYear = ThisYear
End If
End If
' Get the day of the week of the first day in This Month
FirstDay = WeekDay(cdate(ThisMonth & "/01/" & ThisYear), vbSunday)
DaysInMonth = Day(cdate(NextMonth & "/01/" & NextYear) - 1)
%>
<TABLE border=0 cellspacing=1 bordercolor=darkblue style="Width=160;height=800">
<TR align="left" valign="top">
<TD width=160 align="center" bgcolor=DarkBlue>
<TABLE border=0 cellspacing=0 bordercolor=darkblue style="Width=150" bgcolor="#fffff0">
<TR align=center>
<TD class=heading ALIGN="center" valign=top width=25>
<A HREF="VBCalendar.asp?Month=<%=LastMonth%>&Year=<%=LastYear%>"><<</A>
</TD>
<TD class=heading ALIGN="center" valign=top width=110>
<B><%=MonthName(ThisMonth)%> <%=ThisYear%></B>
</TD>
<TD class=heading ALIGN="center" valign=top width=25>
<A HREF="VBCalendar.asp?Month=<%=NextMonth%>&Year=<%=NextYear%>">>></A>
</TD>
</TR>
<TR>
<TD colspan=3 style="height=1;width=150" bgcolor=darkblue>
</TD>
</TR>
<TR align=center valign=top>
<TD colspan=3>
<TABLE BORDER=0 bordercolor=blue cellspacing=0 style="Height=150; Width=150" bgcolor="#fffff0">
<TR valign=top>
<TD class=subheading WIDTH = "20" ALIGN = "right"><B>Su</B></TD>
<TD class=subheading WIDTH = "20" ALIGN = "right"><B>Mo</B></TD>
<TD class=subheading WIDTH = "20" ALIGN = "right"><B>Tu</B></TD>
<TD class=subheading WIDTH = "20" ALIGN = "right"><B>We</B></TD>
<TD class=subheading WIDTH = "20" ALIGN = "right"><B>Th</B></TD>
<TD class=subheading WIDTH = "20" ALIGN = "right"><B>Fr</B></TD>
<TD class=subheading WIDTH = "20" ALIGN = "right"><B>Sa</B></TD>
</TR>
<%
' Loop through until the number of days in the Month is reached.
Do While (ThisDay <= DaysInMonth)
%>
<TR valign=top>
<%
For LoopDay = 1 to 7
' If ThisDay is still 0, check to see if the current day of the week in the loop
' matches the day of the week for the first day of the Month.
' If the values match, set ThisDay to 1.
' Otherwise, the value will remain 0 until the correct day of the week is found.
If (ThisDay = 0 And FirstDay = LoopDay) Then
ThisDay = 1
End If
' If the ThisDay value is still 0, or it is greater than the number of days
' in the Month, display nothing in the column.
' Otherwise, display the day of the Month and increment the value.
If (ThisDay > 0 And ThisDay <= DaysInMonth) Then
If (LoopDay <> 1 And LoopDay <> 7) Then
%>
<TD class=weekday valign=top align=right>
<%=ThisDay%>
</TD>
<%
Else
%>
<TD class=weekend valign=top align=right>
<%=ThisDay%>
</TD>
<%
End If
ThisDay = ThisDay + 1
Else
%>
<TD class=weekday valign=top align=right> </TD>
<%
End If
Next
%>
</TR>
<%
Loop
%>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
<TD>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>