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

Kemerd

Members
  • Posts

    767
  • Joined

  • Last visited

    Never

Posts posted by Kemerd

  1. Does anyone have eclispe advanced 3.1.0.6? I just ~~hate~~ don't like the developer's suite, and how it's seperate from the actual game. So does anyone have the older verson? I know I could probably combine them somehow, but does anyone have it?

    Or would somehow tell me how to combine them? To undo the seperation…
  2. Could I somehow rip this graphic's option from Eclispe Mega? I talked to the developer himself, and he told me that Mega wasn't really to be used as an engine, only to really be ripped from. Could I rip a rip? ._.
  3. How would I go about redoing the layout in VB6 with stock EO 3.0? I want to make it look like CS:DE's GUI, like Eclispe Mega has done. I see it in the source, but how will i do it with the resoution, and making everything appear on the screen, transparently?
  4. I did this (with some help from others) a thing where you use a command to open a panel. Maybe you could add it the front.

    Go to frmMain, make a panel named **redeemcodepanel**, add a textbox and command button. Name them **txtCode** and **cmdClaim**, making sure they are on the inside of the panel. Then, on the corner make a button with the caption **X**, double click it. Add this:

    ```

    Private Sub Close_Click()

    reedemcodepanel.Visible = False

    End Sub

    ```

    Then double click **cmdClaim** and add this:

    ```

    Dim a As Long

    If txtCode.Text = vbNullString Then

    txtCode.Text = "Not Valid Code!"

    Else

    For a = 1 To MAX_SERIAL_NUMBER

    If txtCode.Text = Serial(a).Name Then

    Call SendSerialGift(MyIndex, Serial(a).Item, Serial(a).ItemValue)

    Call ClearSerial(a)

    Call SendSaveSerial(a)

    txtCode.Text = "Item Send to your Inv..."

    Exit Sub

    End If

    Next

    txtCode.Text = "Not Valid Code!"

    End If

    ```

    Then, in modInput, find:

    ```

    Case "/editserial"

    If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then GoTo Continue

    SendRequestSerial

    SendRequestEditSerial

    ```

    Place under it

    ```

    Case "/redeemcode"

    If frmMain.redeemcodepanel.Visible = True Then

    frmMain.redeemcodepanel.Visible = False

    Else

    frmMain.redeemcodepanel.Visible = True

    End If

    ```

    And that should make a good enough menu, and you can modify however you want!
×
×
  • Create New...