Ищу энтузиаста способного создать игру типа монополия бесплатно. (43 стр)

Imports System ''' СКЕЛЕТ. ИНСТРУМЕНТАРИЙ
Imports System.Drawing
Imports System.Windows.Forms
Public Class Form1 ''' СКЕЛЕТ. { ОПРЕДЕЛЕНИЕ ФОРМЫ
Inherits Form
Dim Timer1 As Timer ''' СКЕЛЕТ. ТАЙМЕР

Shared MouseX As Integer, MouseY As Integer ''' РЕЦЕПТОРЫ...
Shared BaseN As Integer ''' ... КООРДИНАТЫ МЫШИ, НОМЕР КЛАВИШИ

Public class Thing ''' ОРГАНЫ. { ОПРЕДЕЛЕНИЕ АБСТРАКТНОГО ОРГАНА
Public Younger As Thing, Older As Thing ''' ОРГАНЫ. ССЫЛКИ НА БРАТЬЕВ
Public X As Integer, Y As Integer ''' ГОРОДА. КООРДИНАТЫ
Public Overridable Sub Draw(e As PaintEventArgs) ''' ОРГАНЫ...
End Sub ''' ... ВИРТУАЛЬНЫЙ РИСОВАТЕЛЬ
Public Overridable Sub Tick ''' ОРГАНЫ. ВИРТУАЛЬНЫЙ ТЕЛЕПАТОР
End Sub
Public Overridable Function IsTarget() As Integer ''' ВРАЖЬИ РАКЕТЫ...
Return 0 ''' ВИРТУАЛЬНЫЙ ИНДИКАТОР ЦЕЛИ
End Function
Public Overridable Sub Detonate(x0 As Integer, y0 As Integer _
, r0 As Integer, first As Boolean) ''' ПОДРЫВ ПРОТИВОРАКЕТ. ДЕТОНАЦИЯ
End Sub
End Class ''' ОРГАНЫ. ОПРЕДЕЛЕНИЕ АБСТРАКТНОГО ОРГАНА }
Shared Head As Thing ''' ОРГАНЫ. ГОЛОВА СПИСКА
Shared Sub Link(current As Thing) ''' ОРГАНЫ. ДОБАВЛЯТОР ОРГАНА
current.Younger = Head.Younger: Head.Younger = current: current.Older = Head
If current.Younger IsNot Nothing Then current.Younger.Older = current
End Sub
Shared Sub Unlink(current As Thing) ''' ОРГАНЫ. УДАЛЯТОР ОРГАНА
current.Older.Younger = current.Younger
If current.Younger IsNot Nothing Then current.Younger.Older = current.Older
current.Older = Nothing
End Sub

Public class Horizon ''' ГОРИЗОНТ. { ОПРЕДЕЛЕНИЕ ОРГАНА - ЛИНИИ ГОРИЗОНТА
Inherits Thing
Dim Time As Integer ''' РАКЕТНЫЙ ЗАЛП. СЧЕТЧИК ВРЕМЕНИ
Public Game As Integer, Score As Integer ''' РАЗРУШЕНИЯ. СЧЕТЧИК ГОРОДОВ
Public Overrides Sub Draw(e As PaintEventArgs) ''' ГОРИЗОНТ...
Dim p = new Pen(Color.Black, 1) ''' ... { РИСОВАТЕЛЬ ЛИНИИ ГОРИЗОНТА
e.Graphics.DrawLine(p, 0, 459, 639, 459)
Dim b As New SolidBrush(Color.Black)
If Game < 1 Then  ''' РАЗРУШЕНИЯ. GAME OVER
Dim f As New Font("Arial", 22)
e.Graphics.DrawString("GAME OVER", f, b, 150, 150)
End If
Dim f2 As New Font("Arial", 14) ''' СЧЕТЧИК ОЧКОВ. ОТОБРАЖЕНИЕ СЧЕТЧИКА
e.Graphics.DrawString(CStr(Score), f2, b, 600, 10)
End Sub ''' ГОРИЗОНТ. РИСОВАТЕЛЬ ЛИНИИ ГОРИЗОНТА }
Public Overrides Sub Tick ''' РАКЕТНЫЙ ЗАЛП. { ТЕЛЕПАТОР ГОРИЗОНТА
If Game=0 Then Return
Attack(Start(2, (Time Mod 3)=0, False), 0, 0)
If Start(1, True, True) Then ''' САМОЛЕТЫ. { ЗАПУСКАТЕЛЬ САМОЛЕТА
Dim Current = New Plane
Current.X = 0
Current.Y = Int(Rnd()*200)+50
Current.Horizontal = 3
Current.Vertical = 0
Link(Current)
End If ''' САМОЛЕТЫ. ЗАПУСКАТЕЛЬ САМОЛЕТА }
If Start(1, True, True) Then ''' УПРАВЛЯЕМАЯ БОМБА. { ЗАПУСКАТЕЛЬ БОМБЫ
Dim Current As Bomb
Current = new Bomb
Current.X = Int(640*Rnd())
Current.Y = 0
Current.Target = ToTarget()
Link(Current)
End If ''' УПРАВЛЯЕМАЯ БОМБА. ЗАПУСКАТЕЛЬ БОМБЫ }
Time = Time + 1
End Sub ''' РАКЕТНЫЙ ЗАЛП. ТЕЛЕПАТОР ГОРИЗОНТА }
End Class ''' ГОРИЗОНТ. ОПРЕДЕЛЕНИЕ ОРГАНА - ЛИНИИ ГОРИЗОНТА }

Public class City ''' ГОРОДА. { ОПРЕДЕЛЕНИЕ ОРГАНА - ГОРОДА
Inherits Thing
Public Overrides Sub Draw(e As PaintEventArgs) ''' ГОРОДА. { РИСОВАТЕЛЬ ГОРОДА
Dim myPen = new Pen(Color.Red, 1)
e.Graphics.DrawRectangle(myPen, X-7, Y-3, 15, 5)
e.Graphics.DrawRectangle(myPen, X+1, Y-8, 4, 10)
e.Graphics.DrawLine(myPen, X-5, Y-6, X-5, Y-3)
End Sub ''' ГОРОДА. РИСОВАТЕЛЬ ГОРОДА }
Public Overrides Function IsTarget() As Integer ''' ВРАЖЬИ РАКЕТЫ...
Return 1 ''' ИНДИКАТОР ЦЕЛИ - ГОРОДА
End Function
End Class ''' ГОРОДА. ОПРЕДЕЛЕНИЕ ОРГАНА - ГОРОДА }

Public class Base ''' РАКЕТНЫЕ БАЗЫ { ОПРЕДЕЛЕНИЕ ОРГАНА - РАКЕТНОЙ БАЗЫ
Inherits Thing
Public Code As Integer ''' РАКЕТНЫЕ БАЗЫ. КОД БАЗЫ
Public Missiles As Integer ''' РАКЕТНЫЕ БАЗЫ. КОЛИЧЕСТВО РАКЕТ
Public Overrides Sub Draw(e As PaintEventArgs) ''' РАКЕТНЫЕ БАЗЫ...
Dim myPen = new Pen(Color.Red, 1) ''' ... { РИСОВАТЕЛЬ РАКЕТНОЙ БАЗЫ
Dim I As Integer, X0 As Integer, Y0 As Integer: For I = 1 To Missiles
Select Case I
case 1: X0 = 6: Y0 = 3
case 2: X0 = 4: Y0 = 3
case 3: X0 = 2: Y0 = 3
case 4: X0 = 0: Y0 = 3
case 5: X0 = 5: Y0 = 2
case 6: X0 = 3: Y0 = 2
case 7: X0 = 1: Y0 = 2
case 8: X0 = 4: Y0 = 1
case 9: X0 = 2: Y0 = 1
case 10: X0 = 3: Y0 = 0
End Select
X0 = X + X0*5 - 15: Y0 = Y + Y0*10 - 25
e.Graphics.DrawLine(myPen, X0, Y0, X0, Y0+5)
e.Graphics.DrawLine(myPen, X0, Y0, X0-1, Y0+1)
e.Graphics.DrawLine(myPen, X0, Y0, X0+1, Y0+1)
e.Graphics.DrawLine(myPen, X0-2, Y0+5, X0+2, Y0+5)
e.Graphics.DrawLine(myPen, X0-2, Y0+4, X0-2, Y0+6)
e.Graphics.DrawLine(myPen, X0+2, Y0+4, X0+2, Y0+6)
Next
End Sub ''' РАКЕТНЫЕ БАЗЫ. РИСОВАТЕЛЬ РАКЕТНОЙ БАЗЫ }
Public Overrides Sub Tick ''' ПРОТИВОРАКЕТЫ. { ТЕЛЕПАТОР РАКЕТНОЙ БАЗЫ
Dim H As Horizon
H = Head
If (H.Game = 0) Or (BaseN <> Code) Then Return
If Missiles > 0 Then
Missiles = Missiles - 1
Launch(Me)
End If
BaseN = 0
End Sub ''' ПРОТИВОРАКЕТЫ. ТЕЛЕПАТОР РАКЕТНОЙ БАЗЫ }
Public Overrides Function IsTarget() As Integer ''' ВРАЖЬИ РАКЕТЫ...
Return 2 ''' ... ИНДИКАТОР ЦЕЛИ - РАКЕТНОЙ БАЗЫ
End Function
End Class ''' РАКЕТНЫЕ БАЗЫ" ОПРЕДЕЛЕНИЕ ОРГАНА - РАКЕТНОЙ БАЗЫ }

Public class Missile ''' ВРАЖЬИ РАКЕТЫ. { ОПРЕДЕЛЕНИЕ ОРГАНА - РАКЕТЫ
Inherits Thing
Public Target As Thing ''' ВРАЖЬИ РАКЕТЫ. ЦЕЛЬ РАКЕТЫ
Public Percent As Single ''' ВРАЖЬИ РАКЕТЫ. ПРОЙДЕННАЯ ДОЛЯ ПУТИ
Public Overrides Sub Draw(e As PaintEventArgs) ''' ВРАЖЬИ РАКЕТЫ...
Dim myPen = new Pen(Color.Blue, 1) ''' ... РИСОВАТЕЛЬ РАКЕТЫ
e.Graphics.DrawLine(myPen, X, Y _
, X+Int((Target.X-X)*Percent), Y+Int((459-Y)*Percent))
End Sub
Public Overrides Sub Tick ''' РАКЕТНЫЙ ЗАЛП. { ТЕЛЕПАТОР РАКЕТЫ
Percent = Percent+0.01
If Percent > 1 Then ''' ВЗРЫВЫ. ВЗРЫВ ПО ДОСТИЖЕНИИ ПОВЕРХНОСТИ
Unlink(Me): Boom(Target.X,459)
Destroy(Target) ''' РАЗРУШЕНИЯ. УНИЧТОЖЕНИЕ ЦЕЛИ
Else
Attack(Start(2, Percent < 0.75 And Percent > 0.25, True) _
, X+Int((Target.X-X)*Percent), Y+Int((459-Y)*Percent))''' РАЗДЕЛЯЮЩИЕСЯ...
End If ''' ... БОЕГОЛОВКИ. РАЗДЕЛЕНИЕ БОЕГОЛОВКИ
End Sub ''' РАКЕТНЫЙ ЗАЛП. ТЕЛЕПАТОР РАКЕТЫ }
Public Overrides Sub Detonate(x0 As Integer, y0 As Integer _
, r0 As Integer, first As Boolean) ''' ПОДРЫВ ПРОТИВОРАКЕТ...
Dim x1 = X+Int((Target.X-X)*Percent) ''' ... { ДЕТОНАЦИЯ РАКЕТЫ
Dim y1 = Y+Int((459-Y)*Percent)
If (x1-x0)^2+(y1-y0)^2<r0^2 Then
Boom(x1, y1): Unlink(Me)
Dim H As Horizon ''' СЧЕТЧИК ОЧКОВ. ПОЛУЧЕНИЕ БОНУСА
H = Head: H.Score = H.Score+1
End If
End Sub ''' ПОДРЫВ ПРОТИВОРАКЕТ. ДЕТОНАЦИЯ РАКЕТЫ }
End Class ''' ВРАЖЬИ РАКЕТЫ. ОПРЕДЕЛЕНИЕ ОРГАНА - РАКЕТЫ }


...

(всего 400 строк)