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

Nickpop123

Members
  • Posts

    35
  • Joined

  • Last visited

    Never

Posts posted by Nickpop123

  1. Does your old maps use Mask2 or Fringe2 at all? If so:

    ```
    Sub ConvertOldMapsToNew()
       Dim FileName As String, FileName2 As String
       Dim M As Long, I As Long, F As Long, X As Long, Y As Long
       Dim OldMap As OldMapRec
       Dim NewMap As NewMapRec

       ReDim NewMap.Tile(0 To MAX_MAPX, 0 To MAX_MAPY) As NewTileRec
       ReDim OldMap.Tile(0 To MAX_MAPX, 0 To MAX_MAPY) As OldTileRec

       For I = 1 To MAX_MAPS
           FileName = App.Path & "\maps\map" & I & ".dat"
           FileName2 = App.Path & "\new maps\map" & I & ".dat"

           ' Get the old file.
           F = FreeFile
           Open FileName For Binary Access Read As #F
               Get #F, , OldMap
           Close #F

           ' Convert.
           NewMap.Name = OldMap.Name
           NewMap.Music = OldMap.Music
           NewMap.Revision = OldMap.Revision
           NewMap.Moral = OldMap.Moral
           NewMap.Up = OldMap.Up
           NewMap.Down = OldMap.Down
           NewMap.Left = OldMap.Left
           NewMap.Right = OldMap.Right
           NewMap.BootMap = OldMap.BootMap
           NewMap.BootX = OldMap.BootX
           NewMap.BootY = OldMap.BootY
           NewMap.MaxX = MAX_MAPX
           NewMap.MaxY = MAX_MAPY

           For Y = 0 To MAX_MAPY
               For X = 0 To MAX_MAPX
                   NewMap.Tile(X, Y).Layer(MapLayer.Ground).X = (OldMap.Tile(X, Y).Ground \ 7) * PIC_X
                   NewMap.Tile(X, Y).Layer(MapLayer.Ground).Y = (OldMap.Tile(X, Y).Ground \ 7) * PIC_Y
                   NewMap.Tile(X, Y).Layer(MapLayer.Mask1).X = (OldMap.Tile(X, Y).Mask \ 7) * PIC_X
                   NewMap.Tile(X, Y).Layer(MapLayer.Mask1).Y = (OldMap.Tile(X, Y).Mask \ 7) * PIC_Y
                   NewMap.Tile(X, Y).Layer(MapLayer.Mask2).X = (OldMap.Tile(X, Y).Mask2 \ 7) * PIC_X
                   NewMap.Tile(X, Y).Layer(MapLayer.Mask2).Y = (OldMap.Tile(X, Y).Mask2 \ 7) * PIC_Y
                   NewMap.Tile(X, Y).Layer(MapLayer.Fringe1).X = (OldMap.Tile(X, Y).Fringe \ 7) * PIC_X
                   NewMap.Tile(X, Y).Layer(MapLayer.Fringe1).Y = (OldMap.Tile(X, Y).Fringe \ 7) * PIC_Y
                   NewMap.Tile(X, Y).Layer(MapLayer.Fringe2).X = (OldMap.Tile(X, Y).Fringe \ 7) * PIC_X
                   NewMap.Tile(X, Y).Layer(MapLayer.Fringe2).Y = (OldMap.Tile(X, Y).Fringe \ 7) * PIC_Y
                   NewMap.Tile(X, Y).Layer(MapLayer.Ground).Tileset = 1
                   NewMap.Tile(X, Y).Layer(MapLayer.Mask1).Tileset = 1
                   NewMap.Tile(X, Y).Layer(MapLayer.Mask2).Tileset = 1
                   NewMap.Tile(X, Y).Layer(MapLayer.Fringe1).Tileset = 1
                   NewMap.Tile(X, Y).Layer(MapLayer.Fringe2).Tileset = 1
                   NewMap.Tile(X, Y).Type = OldMap.Tile(X, Y).Type
                   NewMap.Tile(X, Y).Data1 = OldMap.Tile(X, Y).Data1
                   NewMap.Tile(X, Y).Data2 = OldMap.Tile(X, Y).Data2
                   NewMap.Tile(X, Y).Data3 = OldMap.Tile(X, Y).Data3
               Next
           Next

           For X = 1 To 15
               NewMap.Npc(X) = OldMap.Npc(X)
           Next

           ' Save the new map
           F = FreeFile
           Open FileName2 For Binary Access Write As #F
               Put #F, , NewMap
           Close #F
       Next
    End Sub
    ```
    I didn't know if you have any NPCs on your old maps either, so I added a convert to that too.

    Also for your error, what line is it pointing to?
  2. I think this has something to do with the screen DPI (dots per inch).

    [http://www.dummies.com/how-to/content/change-your-monitors-dots-per-inch-dpi-setting.html](http://www.dummies.com/how-to/content/change-your-monitors-dots-per-inch-dpi-setting.html)

    Im guessing your screen DPI is a little bit higher than normal size DPI, so change it down a few to test it.
  3. > Hey everyone. I spent some time today editing the source for Eclipse Stable. I fixed the bug where the magic and speed stats got switched, and I made it so the menu music loops. It's available below. Also, I put together another zip with some extra resources I had on hand. Firstly, there are the Eclipse Library Installers.
    >
    > I also included:
    >
    > 1. A list of the Eclipse Evolution Commands.
    > 2. A list of several sadscript commands for a quick reference.
    > 3. A Main.ess file with a bunch of extra scripts that were only available on the old website.
    >
    > So here you go:
    >
    >  
    >
    > [Eclipse-Stable.zip](https://dl-web.dropbox.com/get/Eclipse%20Stable/Eclipse-Stable.zip?_subject_uid=274547289&w=AAB_G2uydHypJRZL4q4YQB5WqgQCp1CZ1NvLl_VmAgN7Fw&dl=1)
    >
    > [ES Extra.zip](https://dl-web.dropbox.com/get/Eclipse%20Stable/ES%20Extra.zip?_subject_uid=274547289&w=AAAYKO5mWWqPt6DC7jpRoZxs9gjanMkoSmqyThhX6J6iyw&dl=1)
    >
    >  
    >
    > I was wondering if anyone would be interested in seeing some ES tutorials for things like making a skill system and quests. I made both of those already in the past. Please let me know if you are. Thanks again Crest for uploading ES and EE.

    I wouldn't mind seeing tutorials of ES, but I'm not sure if there are any more ES users :(… But anyway yeah, I wouldn't mind ^_^.
  4. > Nothing will ever make me tear up like the anime, Clannad After Story did…...Anyways the game looks pretty interesting. i may check it out.

    Yeah! It is very recommended!

    > Very awesome game

    I couldn't agree more!
  5. Hello! I would like to show you this amazing RPG Maker XP game, called "To The Moon."

    To start, it's genres are: RPG Adventure, Sci-Fi, Tragicomedy, and Psychological. Kan R. Gao with Freebird Games made it. Its about 2 doctors, Dr. Eva Rosalene and Dr. Neil Watts, which work at Sigmund Life of Generation Corps. Their job is to give people another chance to live. Their patients name is Johnny. His wish is to go to the moon, but he doesn't know why. So, the 2 doctors must transverse through Johnny's memories, starting from old age to childhood. As you go through his memories, you learn more and more about Johnny's story and past. The objective is to go to his childhood, and send the motivation signal of him wanting to go to the moon. It's a really sad and beautiful story, as well as the music for the game is beautifully composed!

    I'd recommend trying this game. You can get it on steam, or get it from the website: [http://www.freebirdgames.com/](http://www.freebirdgames.com/)

    Here are a few screenshots of the game:

    ![](http://freebirdgames.com/system/wp-content/uploads/TTM6..png)

    ![](http://freebirdgames.com/system/wp-content/uploads/TTM-Ss3.jpg)

    Here is a trailer for the game:

    [media]http://www.youtube.com/watch?feature=player_embedded&v=sqkJuSV-23U[/media]

    Feel free to reply of what you think. If you ever played "To The Moon," you can also reply and say what you think of the game!
  6. I'm not sure if anyone remembers this eclipse game, but Super Mario Online (SMO) made by Ne0n, had a pay to play feature. Basically you had like 2 hours of gameplay time, then you'd have to buy for more time through paypal or buy a timebox in game for a amount of coins. Ne0n made like around 30 to 40 bucks off this. Many emailed Nintendo about this, but after the years of SMO being around (like around 4 years), SMO didn't get any cease and decist from Nintendo. I don't see why they didn't do that? I'd figure they would protect Mario more?
  7. **~Introduction~**

    Hello! My name is Nickpop123, but you can call me Nick. Anyway, to start, I have been programming for about 2+ years now. I can help code for Any VB6 engine like, EO or CS:DE. etc! I currently help a game(paused at the moment) called Project MLO. I do many coding work for Project MLO. I also help my friends if they have trouble with some coding to! Anyway lets get started shall we!

    **~How much do you charge?~**

    Well, not a lot actually! Depends on the job. I will charge minimun of $3, anything past $15+ are the jobs that may take me a while. The price really varies on how much the difficulty is for me! I will also let you test out the code afterwards, to see if you like it or not.

    **~Some Examples of your work?~**

    I'm going to show some of my work through screenshots!

    Server Select Screen: This feature is for games which have one than more host for the game! The Ip and Port are hard coded into it.

    ![](http://i840.photobucket.com/albums/zz326/nickpop123/ServerSelect_zpsa09f23f9.png)

    Best Player: This is for players who win a event or has been helping out the game! Their name will be displayed at the main menu!

    ![](http://i840.photobucket.com/albums/zz326/nickpop123/BestPlayer_zpsc510151b.png)

    More than 1 character + Displays Character Sprite: This shows all the characters you have on your account, and displays them in boxes. A red box will appear around the box you click. It also tells your name, class, and level.

    ![](http://i840.photobucket.com/albums/zz326/nickpop123/CharacterSelect_zpsb728fb57.png)

    Alert Message Box: A form which acts as the Eclipse Alert Messages, which server sends to client.

    ![](http://i840.photobucket.com/albums/zz326/nickpop123/AlertMessage_zpsd88c9e47.png)

    Names with a backdrop, also custom graphic for staff members: Names have a 3D effect with a shadow backdrop. Also Staff members will have a graphic like "GM or "MODERATOR", etc.

    ![](http://i840.photobucket.com/albums/zz326/nickpop123/3Dnames_zps07e5ea66.png)

    Battle Messages: Battle messages can be displayed anywhere on the form like this:

    ![](http://i840.photobucket.com/albums/zz326/nickpop123/BattleMessages_zps47e138f2.png)

    Global Events: You can broadcast global events like a global radio, or give everyone a link to a website!

    ![](http://i840.photobucket.com/albums/zz326/nickpop123/GlobalEvents_zpsa70aead1.png)

    PvP Messages or congrats messages: This box scrolls up on the picScreen displaying a message like "Player has defeated Player" or "Player has leveled up!"

    ![](http://i840.photobucket.com/albums/zz326/nickpop123/PvPMessages_zps1a33b568.png)

    Super Speed running: Players can go twice as fast as the run speed, but loose more SP from it (also can have a animation to it!)

    ![](http://i840.photobucket.com/albums/zz326/nickpop123/SuperSpeedRunning_zps9e340af6.png)

    RPG Styled Text: Something like Paper Mario or any RPG game where it writes out the dialogue for you, letter by letter!

    ![](http://i840.photobucket.com/albums/zz326/nickpop123/RPGStyledText_zpse8e946fc.png)

    Packet Revealer: A really nice addition to any server. You can see what packet name is coming in, the amount of bytes the packet is, and the time it arrived!

    ![](http://i840.photobucket.com/albums/zz326/nickpop123/ShowPackets_zpsd737723b.png)

    Npc Edit Box + edit Map: This little box appears when you click a npc on the map. If you click the green number, it opens that number up in the NPC editor! Also if you don't like going in admin panel to open map editor, or using the command, just click on a npc in map and click the "Edit Map."

    ![](http://i840.photobucket.com/albums/zz326/nickpop123/editnpc_zps229bb695.png)

    **~Contact Info!~**

    I have many ways to contact me!:

    You can PM me!

    You can email me at: [email protected]

    You can add me on skype: nick.hardy21

    I will be glad to help anyone!

    P.S: Keep in mind that I'm not the BEST coder out there, so I can't do EVERYTHING. I can maybe do some big things, but for the most part, probably not.
  8. Use your old code you had, and with your old problem code, replace it with this:

    ```
    If NpcX = GetPlayerX(Attacker) Then
        If NpcY = GetPlayerY(Attacker) Then
            If Npc(npcNum).Behaviour <> NPC_BEHAVIOUR_FRIENDLY And Npc(npcNum).Behaviour <> NPC_BEHAVIOUR_SHOPKEEPER And Npc(npcNum).Behaviour <> NPC_BEHAVIOUR_MANAGER Then 'House Editor
                CanPlayerAttackNpc = True
            Else
                'House Editor
                If Npc(npcNum).Behaviour = NPC_BEHAVIOUR_MANAGER Then
                    Call SendInitManager(Attacker, CInt(GetVar(App.Path & "\data\accounts\houses.ini", "OPTIONS", "" & Player(Attacker).Name)), Npc(npcNum).HMapNum, Npc(npcNum).HBuy, Npc(npcNum).HSell)
                    End If
                '/House Editor

                If Len(Trim$(Npc(npcNum).AttackSay)) > 0 Then
                    PlayerMsg Attacker, Trim$(Npc(npcNum).Name) & ": " & Trim$(Npc(npcNum).AttackSay), White
                End If
            End If
        End If
    End If
    ```
  9. Actually, since my old account was deleted, I can't update the first post. The server is offline due to re-development. After I finish a few chapters, and have a area where players can keep then busy while we make more chapters, I'll be happy to turn the server for players. But, since there is only a few playable maps, It will be offline for now to player access.
×
×
  • Create New...