Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

sir zach

Members
  • Posts

    181
  • Joined

  • Last visited

    Never

Posts posted by sir zach

  1. So I have been reading these amazing books called Black, Red, and White. They are part of a trilogy called The Circle Trilogy.

    Anyways… I didn't have an idea for a game but I eagerly wanted to make one. So bam!! The idea kicked in... Why don't I make a game based off these books?!

    But then I thought... Wouldn't the law get in the way? So I went onto the author's website, Ted Dekker, and went to his contacts page and emailed a random person asking who I talk to about making a game based on the Circle Trilogy.

    This morning I woke up to my favorite email. An email from Ted Dekker's Brand Manager. He wanted to know about my previous projects and a little about me. So I wrote up a quick bio, sent him links to some websites I created, and asked him if he wanted me to send some pictures of my previous game projects. I still have yet to get a reply from him but I have a good feeling about...

    Wish me luck!!
  2. Here is a compilation of videos I have created. They show new users how to use Eclipse.

    **Starting Up A Server (EE2.7)** - [Download](http://rapidshare.com/files/128059346/starting_a_game.rar.html) [1.54MB]
    **Replacing Tilesets (EE2.7)** - [Download](http://rapidshare.com/files/128577387/replacing_tiles.rar.html) [1.38MB]
  3. This allows people to move using WASD. It is all Client Side.

    Side Note: It does have errors with the chat box because of the characters its using. But I have a fix for this, [here](http://www.touchofdeathforums.com/smf/index.php/topic,28926.0.html). It is also coded around that other tutorial. If you need help and don't want to use the other code, just let me know and I can edit this code to suit your needs.

    **All of the edits are in modGameLogic.**

    1\. Find:

    ```
                If KeyCode = vbKeyUp Then
                    DirUp = True
                    DirDown = False
                    DirLeft = False
                    DirRight = False
                End If

                If KeyCode = vbKeyDown Then
                    DirUp = False
                    DirDown = True
                    DirLeft = False
                    DirRight = False
                End If

                If KeyCode = vbKeyLeft Then
                    DirUp = False
                    DirDown = False
                    DirLeft = True
                    DirRight = False
                End If

                If KeyCode = vbKeyRight Then
                    DirUp = False
                    DirDown = False
                    DirLeft = False
                    DirRight = True
                End If
    ```

    Replace with:

    ```
                If KeyCode = vbKeyUp Or (KeyCode = vbKeyW And frmMirage.txtMyTextBox.Visible = False) Then
                    DirUp = True
                    DirDown = False
                    DirLeft = False
                    DirRight = False
                End If

                If KeyCode = vbKeyDown Or (KeyCode = vbKeyS And frmMirage.txtMyTextBox.Visible = False) Then
                    DirUp = False
                    DirDown = True
                    DirLeft = False
                    DirRight = False
                End If

                If KeyCode = vbKeyLeft Or (KeyCode = vbKeyA And frmMirage.txtMyTextBox.Visible = False) Then
                    DirUp = False
                    DirDown = False
                    DirLeft = True
                    DirRight = False
                End If

                If KeyCode = vbKeyRight Or (KeyCode = vbKeyD And frmMirage.txtMyTextBox.Visible = False) Then
                    DirUp = False
                    DirDown = False
                    DirLeft = False
                    DirRight = True
                End If
    ```

    2\. Find:

    ```
                  ' Check to make sure they aren't trying to auto do anything
                    If GetAsyncKeyState(VK_UP) >= 0 And DirUp Then
                        DirUp = False
                    End If
                    If GetAsyncKeyState(VK_DOWN) >= 0 And DirDown Then
                        DirDown = False
                    End If
                    If GetAsyncKeyState(VK_LEFT) >= 0 And DirLeft Then
                        DirLeft = False
                    End If
                    If GetAsyncKeyState(VK_RIGHT) >= 0 And DirRight Then
                        DirRight = False
                    End If
                    If GetAsyncKeyState(VK_CONTROL) >= 0 And ControlDown Then
                        ControlDown = False
                    End If
                    If GetAsyncKeyState(VK_SHIFT) >= 0 And ShiftDown Then
                        ShiftDown = False
                    End If
    ```

    Replace with:

    ```
                    ' Check to make sure they aren't trying to auto do anything
                    If GetAsyncKeyState(VK_UP) >= 0 And DirUp Then
                    If GetAsyncKeyState(VK_W) >= 0 Then
                        DirUp = False
                    End If
                    End If
                    If GetAsyncKeyState(VK_DOWN) >= 0 And DirDown Then
                    If GetAsyncKeyState(VK_S) >= 0 Then
                        DirDown = False
                    End If
                    End If
                    If GetAsyncKeyState(VK_LEFT) >= 0 And DirLeft Then
                    If GetAsyncKeyState(VK_A) >= 0 Then
                        DirLeft = False
                    End If
                    End If
                    If GetAsyncKeyState(VK_RIGHT) >= 0 And DirRight Then
                    If GetAsyncKeyState(VK_D) >= 0 Then
                        DirRight = False
                    End If
                    End If
    ```
  4. This tutorial will show you how you make talking impossible without pressing Enter first. It will be very helpful for my upcoming WASD/OKL; Movement Script.

    1\. Set txtMyTextBox visibility, found in frmMirage, to False.

    2\. Find, in modGameLogic:

    ```
        If (KeyAscii = vbKeyReturn) Then
            frmMirage.txtMyTextBox.Text = vbNullString
            If Player(MyIndex).y - 1 > -1 Then
                If Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).Type = TILE_TYPE_SIGN And Player(MyIndex).Dir = DIR_UP Then
                    Call AddText("The Sign Reads:", BLACK)
                    If Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String1) <> vbNullString Then
                        Call AddText(Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String1), GREY)
                    End If
                    If Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String2) <> vbNullString Then
                        Call AddText(Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String2), GREY)
                    End If
                    If Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String3) <> vbNullString Then
                        Call AddText(Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String3), GREY)
                    End If
                    Exit Sub
            End If
    ```

    And Replace with this:

    ```
        If (KeyAscii = vbKeyReturn) Then
            frmMirage.txtMyTextBox.Text = vbNullString
            If Player(MyIndex).Y - 1 > -1 Then
                If Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).Type = TILE_TYPE_SIGN And Player(MyIndex).Dir = DIR_UP Then
                    Call AddText("The Sign Reads:", BLACK)
                    If Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String1) <> vbNullString Then
                        Call AddText(Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String1), GREY)
                    End If
                    If Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String2) <> vbNullString Then
                        Call AddText(Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String2), GREY)
                    End If
                    If Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String3) <> vbNullString Then
                        Call AddText(Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String3), GREY)
                    End If
                    Exit Sub
                Else
                    Call CheckMapGetItem
                    If Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).Type <> TILE_TYPE_ITEM Then
                    If frmMirage.txtMyTextBox.Visible = False Then
                        frmMirage.txtMyTextBox.Visible = True
                        frmMirage.txtMyTextBox.SetFocus
                    Else
                        frmMirage.picScreen.SetFocus
                        frmMirage.txtMyTextBox.Visible = False
                    End If
                    End If

                End If
            End If
    ```
  5. Shouldn't this work, like, honestly.

    ```
                If KeyCode = vbKeyUp Or KeyCode = vbKeyW Then
                    DirUp = True
                    DirDown = False
                    DirLeft = False
                    DirRight = False
                End If

                If KeyCode = vbKeyDown Or KeyCode = vbKeyS Then
                    DirUp = False
                    DirDown = True
                    DirLeft = False
                    DirRight = False
                End If

                If KeyCode = vbKeyLeft Or KeyCode = vbKeyA Then
                    DirUp = False
                    DirDown = False
                    DirLeft = True
                    DirRight = False
                End If

                If KeyCode = vbKeyRight Or KeyCode = vbKeyD Then
                    DirUp = False
                    DirDown = False
                    DirLeft = False
                    DirRight = True
                End If
    ```
  6. Sorry for another topic about walking.. but..

    I am _sick_ of all the topics and debates over the walking, so I have a proposal:

    I will make a custom sprite with all of the necessary frames we need to remake the walking and attacking animations. I could even try to add diagonal moving.

    If enough people want this, then I will gladly do it. And if anyone wants to help then that would be nice.
  7. George Carlin's
    Solution to Save Gasoline :

    Bush wants us to cut the amount of gas we use…..

    The best way to stop using so much gas is to deport 11 million illegal immigrants!

    That would be
    11 million less people using our gas. The price of gas would come down.....

    Bring our troops home from Iraq to
    guard the Border....

    When they
    catch an illegal immigrant crossing the border, hand him a canteen, rifle and some ammo and ship him to Iraq ...
    Tell him if he
    wants to come to America then
    he must serve a tour in the military....
    Give him a
    soldier's pay while he's there and tax him on it.....

    After his tour, he will be allowed to become a citizen since he defended this
    country.....
    He will also
    be registered to be taxed and be a legal patriot....

    This option
    will probably deter illegal immigration and provide a
    solution for the
    troops in Iraq and
    the aliens trying to make a better life for themselves..

    If they refuse
    to serve, ship them to Iraq anyway, without the canteen, rifle or ammo......
  8. I know I have requested this already but that topic got lost and Eclipse is being developed hard now.

    An attackable tile would be very useful because chests would be possible. Or just a chest tile xD
  9. I have seen many topics asking about the Library Files. So here are the the questions and answers of the latest billion topics about the Library Files.

    **Q: Why do I need the Library Files?**
    _A: They are the base code for the Eclipse Engine and are required for the engine to run._

    **Q: Can I install the Library Files on a Mac?**
    _A: No, the Library Files are Windows based._

    **Q: I can't install the Library Files because it contains a virus.**
    _A: No, if you download them from touchofdeathproductions.com they do not contain a virus. I just downloaded and scanned the available Library Files. Your anti-virus software may think it does because they are system files._

    **Q: How do I install the Library Files?**
    _A: Download the installer from touchofdeathproductions.com or use [ELI](http://www.touchofdeathforums.com/smf/index.php/topic,27712.0.html)._

    **Q: They willn't install on Vista?!**
    _A: Yes they will. I have successfully done it seven times. No joke. It may give you errors but you can run the Eclipse Engine._
  10. I wrote this code that is suppose to be called every minute, or when Seconds = 0.

    ```
    Sub Bathe()

    TotalTime = GetVar("Accounts\" & GetPlayerLogin(index) & "\" & GetPlayerName(index) & ".ini", "Bathe", "Time")

    If TotalTime = "" Then
    Call PutVar("Accounts\" & GetPlayerLogin(index) & "\" & GetPlayerName(index) & ".ini", "Bathe", "Time", "1")
    Else If
    NewTotal = TotalTime + 1
    Call PutVar("Accounts\" & GetPlayerLogin(index) & "\" & GetPlayerName(index) & ".ini", "Bathe", "Time", NewTotal)
    End If

    End Sub
    ```

    But that code isn't working AND nothing will be called when Seconds = 0\. Here is my timed event sub:

    ```
    Sub TimedEvent(Hours, Minutes, Seconds)
    If Minutes = 0 Then
    If Seconds = 0 Then
    Call AdminMsg("Don't forget to vote for Eclipse.", YELLOW)
    End If
    End If

    If Seconds = 0 Then
    Call Bathe()
    End If

    End Sub
    ```

    Side Note: I have tried to include the bathe sub from another file and inside the timed event sub.
  11. So a month ago I booted up my PC which was running Vista.

    Well, I kinda booted it… When I turned it on it said "Unknown OS" and wouldn't boot up to Vista.

    The boot loader repair on the Vista disc wasn't doing anything.

    So I just installed a clean thing of Vista, went to put in my activation key, and couldn't find it on the bottom of my laptop. It could be anywhere from the West Coast to Montana...

    Now I have two days left before Vista commits suicide and I wake up to a laptop hanging from a rope.

    I installed XP with all of the hardware for my computer and it works :D

    XP pwns Vista's view.
  12. How the FUCK do you make them go away?

    My eyes hurt so bad that I can't wear contacts.

    My nose is so stuffed up it hurts to breathe.

    And I am allergic every little flipping thing on this planet.

    Dumb bird shit.
  13. I have been working on a tree for a few days and can't get it right.

    So I am requesting a tree.

    It should follow this color style (Dull and simple):

    ![](http://www.touchofdeathforums.com/Avatars/avatar_4185.png)

    And instead of like one solid color for the leaves, have it leafy and darker on the right lower side (like the sun is shining on the top left).

    Thanks :)
×
×
  • Create New...