Programming Contest - Cash Prize

[jcsnider]

@‭‭‭Marsh:

> The contest will start on May 13th and end on June 13th giving everyone exactly 1 month to complete their entry.

We have 15 days left…. there will be more submissions ;).

[quintensky]

don't hope so :p i'd like 40$ haha

[jcsnider]

Sorry my friend, im submitting ;)

[Wilfre]

When are you submitting JC?

[jcsnider]

The second my event system is done. Probably here in the next few days.

[Wilfre]

Awesome, I can't wait to see it!

[Killa_]

Same here.Will use your system,snider =)

[JohnPony]

Lets see who will get there system out first… Rose or jc? The race begins!

[The New World]

Uhh, I'm working on about 4 other projects which come before Eclipse Galaxy (Event System) he can go ahead.

[zerosavior115]

hope someone enters a isolate tile tutorial ( if i called it right)

[jcsnider]

My system is done. It is in showoff for now. I am gonna perfect it before official submission.

[gizmo1]

I'm confident i'll smash everyone on this if I go for it…haha

[Marsh]

@StormShellX:

> I'm confident i'll smash everyone on this if I go for it…haha

Do it up

[gizmo1]

@‭‭‭Marshy:

> Do it up

Get on msn once in awhile, I need to talk to you about something….I was going to make a source edit that integrates with a program I created that involves sharecash....but with the errors I keep getting just trying to compile the source make that impossible....

[lel]

I'm rooting for JC. Good luck man.
Thanks to marsh and who ever donated, so this contest was possible.

[Marsh]

@StormShellX:

> Get on msn once in awhile, I need to talk to you about something….I was going to make a source edit that integrates with a program I created that involves sharecash....but with the errors I keep getting just trying to compile the source make that impossible....

I am really busy with finals right now.  Best bet is to pm me with what you need and ill pop on msn to discuss it further if im interested.

[jcsnider]

I would like to officially submit my event system into the contest. I am assuming it will be voted on by the state that it is in at the time of voting. :D

http://www.touchofdeathforums.com/smf2/index.php/topic,80490.msg861651/topicseen.html#msg861651

[JohnPony]

@jcsnider:

> I would like to officially submit my event system into the contest. I am assuming it will be voted on by the state that it is in at the time of voting. :D
>
> http://www.touchofdeathforums.com/smf2/index.php/topic,80490.msg861651/topicseen.html#msg861651

Its like five minuits later someone releasing eclipse 3d. Not that it would be a good thing haha….Vb6 + 3d graphics done mix well...

[Wilfre]

I've always liked 2D better than 3D, IDK why?

[JohnPony]

@Wilfre:

> I've always liked 2D better than 3D, IDK why?

3D eclipse in vb6 would never work, people can barley figure out how to work the engine as is, let alone 3D. And then there's the problem of vb6 handling 3D well. Which i don't think it would…

[kris_hole]

I'd have joined into this if it wasn't for all my finals being this week and the net two upcoming. Sad face :(

[Jacquelinett]

We lost. JC released the event system. Game over

[gdog12356]

The Game. Has been lost.

[dg1423]

Hmm. June 13th? I might just make something, but I'm not sure entirely what yet.

[Scott]

There is still 2nd and 3rd place make something small for those but 1st place is def taken.

2nd - Custom UserGroup name and color for 3 months
3rd - Custom name color selection in profile

My small entry is simple, if an item is rarity 1 or above it will display the items name on the ground in the same color as the item name in the hover over description.

Place this at the bottom of modText
```
Public Sub DrawItemName(ByVal ItemX As Long, ByVal ItemY As Long, ByVal ItemNumber As Long)
Dim TextX As Long
Dim TextY As Long
Dim color As Long
Dim Name As String

    ' If debug mode, handle error then exit out
  If Options.Debug = 1 Then On Error GoTo errorhandler

        Select Case Item(ItemNumber).Rarity
            Case 0 ' white
              color = RGB(255, 255, 255)
            Case 1 ' green
              color = RGB(117, 198, 92)
            Case 2 ' blue
              color = RGB(103, 140, 224)
            Case 3 ' maroon
              color = RGB(205, 34, 0)
            Case 4 ' purple
              color = RGB(193, 104, 204)
            Case 5 ' orange
              color = RGB(217, 150, 64)
        End Select

    Name = Trim$(Item(ItemNumber).Name)

    TextX = ((ConvertMapX(ItemX * PIC_X)) - 4) + (PIC_X * 0.5) - getWidth(TexthDC, (Trim$(Name)))
    TextY = ((ConvertMapY(ItemY * PIC_Y)) - PIC_Y) + (PIC_Y * 0.5)

    ' Draw name
  Call DrawText(TexthDC, TextX, TextY, Name, color)

    ' Error handler
  Exit Sub
errorhandler:
    HandleError "DrawItemName", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub

End Sub 
```In modDirectDraw7 find
```
' draw npc names
  For i = 1 To Npc_HighIndex
        If MapNpc(i).num > 0 Then
            Call DrawNpcName(i)
        End If
    Next
```
Under add
```
  'Draw ItemNames on map
  If NumItems > 0 Then
        For i = 1 To MAX_MAP_ITEMS
            If MapItem(i).num > 0 Then
                If Item(MapItem(i).num).Rarity > 0 Then
                    Call DrawItemName(MapItem(i).x, MapItem(i).y, MapItem(i).num)
                End If
            End If
        Next
    End If
```