...Писать креативы... (для людей с фантазией)

[Tamplier]

Боян, хотя, я уверен, нигде еще не играл.
В общем, появилась у меня довольно давно идея. Написать рассказ в виде кода. Потом идея получила апдейт и стала идеей написать человеческую жизнь в коде. Написано пока, не то, что даже мало, а более, чем мало. Так, одна, две функции... Но если кого заинтересовала идея - присоединяйтесь. Собственно, скорее всего, писать будете только вы, те кто этим заинтересуется, поскольку щас у меня времени нет.

Огромное спасибо написавшему сие

Public Declare Function CreateHumanEx Lib "userplus32.dll" (ByVal dwExAbilities As Long, ByVal lpRaceName As String, ByVal lpHumanName As String, ByVal dwAbilities As Long, ByVal nWeight As Long, ByVal nStoutness As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hHumanFather As Long, ByVal hHumanMother As Long, ByVal hTwin As Boolean, hInvulnerable As Boolean) As Long

уже не помню, кто это был.

Код: Выделить всё

Option Explicit
Option Base 1

Private Type UniType
   strName As String
   strDescription As String
   strHideEffects() As String
   strViewableEffects() As String
End Type

Private Type Constitution
   snHealth As Single
   snWeightKG As Single
   snHeightSM As Single
   snStoutness As Single
   snMuscleMass As Single
   snFatMass As Single
End Type

Private Type CurrentPosition
   x As Double
   y As Double
   z As Double
End Type

Private Type HumanParametres
   hHuman As Long
   strName As String
   dtBorn As Date
   blLive As Boolean
   dtDead As Date
   hMother As Long
   hFather As Long
   strChildrens() As String
   utIlls() As UniType
   utAbilities() As UniType
   utExAbilities() As UniType
   ctConstitution As Constitution
   cpCurrentPosition As CurrentPosition
   strOtherInfo() As String
End Type

Private Declare Function CreateHumanIndirect Lib "userex32.dll" (lphp As HumanParametres) As Long
Private Declare GetInfoFromGodsComputer Lib "gclink32.dll" (strInfoType As String, strAdditionalInfo As String, anyContainer As Any)

Sub Main()'EDIT!!
   Private hpYourMother As HumanParametres, hpYourFather As HumanParametres
   'Private hYourMother As Long, hYourFather As Long
   Private hpYou As HumanParametres
   'Private hYou As Long
   
   Call GetInfoFromGodsComputer ("HumanParametres", hpYourMother)
   Call GetInfoFromGodsComputer ("HumanParametres", hpYourFather)
   
   'Let hYourMother = CreateHumanIndirect(hpYourMother)
   'Let hYourFather = CreateHumanIndirect(hpYourFather)
   
   Call WaitForConception
   
   Call WaitForBorn
   
   Call GetInfoFromGodsComputer ("HumanParametres", hpYou)
   
   'Let hYou = CreateHumanIndirect (hpYou)
   
   Call YourLife
   
End Sub

Private Sub WaitForConception()
   'TimerFunction
End Sub

Private Sub WaitForBorn()
   'TimerFunction
End Sub

Private Sub YourLife()
   
End Sub


Если кто возьмется - забирайте себе все копирайты и т.п. Мне просто интересно, что из этого выйдет.

[tyomitch]

Эх... Когда у нас было представление, посвящённое дню первокурсника (стало быть, 4 года назад), там какие-то старшекурсники изображали что-то такое же (правда, с синтаксисом Паскаля). Самым шикарным они, видимо, считали программирование отправления физиологических потребностей. В целом их "рассказ" вышел отвратительным. Больше не хочется.

(это было про копирайты)

[Tamplier]

Понял, но велосипед лично мой.
И все-таки самому интересно, что может из этого выйти. Лан, сам как-нить займусь.