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

Credits…


Domino_
 Share

Recommended Posts

Im changing but doesnt works
>! VERSION 5.00
Begin VB.Form frmCredits
  BackColor      =  &H00808080&
  BorderStyle    =  1  'Fixed Single
  Caption        =  "Engine Credits"
  ClientHeight    =  6000
  ClientLeft      =  165
  ClientTop      =  330
  ClientWidth    =  5985
  ControlBox      =  0  'False
  Icon            =  "frmCredits.frx":0000
  LinkTopic      =  "Form1"
  MaxButton      =  0  'False
  MinButton      =  0  'False
  ScaleHeight    =  400
  ScaleMode      =  3  'Pixel
  ScaleWidth      =  399
  StartUpPosition =  2  'CenterScreen
  Begin VB.Timer tmrScroll
      Enabled        =  0  'False
      Interval        =  35
      Left            =  120
      Top            =  120
  End
  Begin VB.PictureBox picCredits
      Appearance      =  0  'Flat
      BackColor      =  &H00000000&
      ForeColor      =  &H80000008&
      Height          =  1575
      Left            =  360
      ScaleHeight    =  1545
      ScaleWidth      =  5265
      TabIndex        =  1
      Top            =  3240
      Width          =  5295
      Begin VB.PictureBox picCreditScroll
        BackColor      =  &H00000000&
        BorderStyle    =  0  'None
        Height          =  8655
        Left            =  240
        ScaleHeight    =  8655
        ScaleWidth      =  5295
        TabIndex        =  2
        Top            =  2160
        Width          =  5295
        Begin VB.Label lblExtra1
            Alignment      =  2  'Center
            BackStyle      =  0  'Transparent
            Caption        =  "I change everywhere but not working.."
            BeginProperty Font
              Name            =  "MS Sans Serif"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00C0C000&
            Height          =  315
            Left            =  1320
            TabIndex        =  30
            Top            =  6960
            Width          =  2550
        End
        Begin VB.Label lblLabel1
            Alignment      =  2  'Center
            BackStyle      =  0  'Transparent
            Caption        =  "2.8 GUI and ideas By Greendude120"
            BeginProperty Font
              Name            =  "MS Sans Serif"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00C0C000&
            Height          =  435
            Left            =  1320
            TabIndex        =  29
            Top            =  7440
            Width          =  2520
        End
        Begin VB.Label lblVerrigan
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Verrigan"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  28
            Top            =  6240
            Width          =  4965
        End
        Begin VB.Label lblMalikona
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Malikona"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  27
            Top            =  6000
            Width          =  4965
        End
        Begin VB.Label lblCoke
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Coke"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  26
            Top            =  6480
            Width          =  4965
        End
        Begin VB.Label lblGodSentDeath
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "GodSentDeath"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  25
            Top            =  5040
            Width          =  4965
        End
        Begin VB.Label lblGlobe
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Globe"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  24
            Top            =  5520
            Width          =  4965
        End
        Begin VB.Label lblShannara
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Shannara"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  23
            Top            =  5280
            Width          =  4965
        End
        Begin VB.Label lblIceCream
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Ice Cream Tuesday"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  22
            Top            =  5760
            Width          =  4965
        End
        Begin VB.Label lblAlanSpike
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "AlanSpike"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  21
            Top            =  4080
            Width          =  4965
        End
        Begin VB.Label lblPingu
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Pingu"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  20
            Top            =  4320
            Width          =  4965
        End
        Begin VB.Label lblRafiki
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Rafiki"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  19
            Top            =  4560
            Width          =  4965
        End
        Begin VB.Label lblFrogImmortal
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "FrogImmortal"
            BeginProperty Font
              Name            =  "MS Sans Serif"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  18
            Top            =  4800
            Width          =  4965
        End
        Begin VB.Label lblContributors
            Alignment      =  2  'Center
            Appearance      =  0  'Flat
            BackColor      =  &H00000000&
            Caption        =  "Eclipse - Contributors"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00C0C000&
            Height          =  255
            Left            =  120
            TabIndex        =  17
            Top            =  3840
            Width          =  4965
        End
        Begin VB.Label lblMellowz
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Mellowz"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  16
            Top            =  3000
            Width          =  4965
        End
        Begin VB.Label lblEmblem
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Emblem"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  15
            Top            =  3240
            Width          =  4965
        End
        Begin VB.Label lblBraydo25
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Braydo25"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  14
            Top            =  3480
            Width          =  4965
        End
        Begin VB.Label lblBaron
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Baron"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  13
            Top            =  2040
            Width          =  4965
        End
        Begin VB.Label lblUnnown
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Unnown"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  12
            Top            =  2280
            Width          =  4965
        End
        Begin VB.Label lblPickle
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Pickle"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  11
            Top            =  2520
            Width          =  4965
        End
        Begin VB.Label lblDemonX
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Demon X"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  10
            Top            =  2760
            Width          =  4965
        End
        Begin VB.Label lblHeyThereJake
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "HeyThereJake"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  9
            Top            =  1560
            Width          =  4965
        End
        Begin VB.Label lblBrutal
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Brutal"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  8
            Top            =  1800
            Width          =  4965
        End
        Begin VB.Label lblTopher
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Topher"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  7
            Top            =  1320
            Width          =  4965
        End
        Begin VB.Label lblYellowMole
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "The Yellow Mole"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  6
            Top            =  1080
            Width          =  4965
        End
        Begin VB.Label lblMarsh
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Marsh"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00FFFFFF&
            Height          =  255
            Left            =  120
            TabIndex        =  5
            Top            =  840
            Width          =  4965
        End
        Begin VB.Label lblDevelopers
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "Eclipse - Developers"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  8.25
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H00C0C000&
            Height          =  255
            Left            =  120
            TabIndex        =  4
            Top            =  600
            Width          =  4965
        End
        Begin VB.Label lblDescription
            Alignment      =  2  'Center
            BackColor      =  &H00000000&
            Caption        =  "This game was built using Eclipse Evolution  http://freemmorpgmaker.com"
            BeginProperty Font
              Name            =  "Tahoma"
              Size            =  9.75
              Charset        =  0
              Weight          =  700
              Underline      =  0  'False
              Italic          =  0  'False
              Strikethrough  =  0  'False
            EndProperty
            ForeColor      =  &H0080C0FF&
            Height          =  495
            Left            =  120
            TabIndex        =  3
            Top            =  0
            Width          =  4965
        End
      End
  End
  Begin VB.Label picCancel
      Alignment      =  2  'Center
      Appearance      =  0  'Flat
      BackColor      =  &H80000005&
      BackStyle      =  0  'Transparent
      BeginProperty Font
        Name            =  "Tahoma"
        Size            =  6.75
        Charset        =  0
        Weight          =  400
        Underline      =  0  'False
        Italic          =  0  'False
        Strikethrough  =  0  'False
      EndProperty
      ForeColor      =  &H80000008&
      Height          =  615
      Left            =  2040
      TabIndex        =  0
      Top            =  5160
      Width          =  1920
  End
End
Attribute VB_Name = "frmCredits"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
>! Private Sub Form_Load()
    Dim I As Long
    Dim Ending As String
>!     For I = 1 To 3
        If I = 1 Then Ending = ".gif"
        If I = 2 Then Ending = ".jpg"
        If I = 3 Then Ending = ".png"
>!         If FileExists("GUI\Credits" & Ending) Then
            frmCredits.Picture = LoadPicture(App.Path & "\GUI\Credits" & Ending)
        End If
    Next I
>!     picCreditScroll.Top = 2160
>!     tmrScroll.Enabled = True
End Sub
>! Private Sub picCancel_Click()
    tmrScroll.Enabled = False
>!     frmCredits.Visible = False
    frmMainMenu.Visible = True

    Unload Me
End Sub
>! Private Sub tmrScroll_Timer()
    If picCreditScroll.Top <= -10000 Then
        picCreditScroll.Top = 2160
    Else
        picCreditScroll.Top = picCreditScroll.Top - 25
    End If
End Sub
Link to comment
Share on other sites

@Maiks1994:

> Okey i will try to download ir and edit the credits..
> Thanks!
>
> –--
> Where i can fast download VB6?  :icon_crap:

We can't give out links and the like, but you can find it on all popular Warez and torrenting sites. It is illegal, but unless you can find a copy on eBay or somewhere it's your only option.
Link to comment
Share on other sites

  • 1 month later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...