Domino_

emm… all are sleeping?

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

i changed in sources bur in client its not changing… :icon_crap:

Hello again! I want to know how to edit credits in Eclibse Stable..?

sorry now it works! Need to change: Server/Scripts/Events/PlayerLevelUp.ess And Server/Scripts/ES/Events/PlayerLevelUp.ess from >! ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Module: PlayerLevelUp.ess ' ' Author: Stephan J.R. van Schaik ' ' Date: August 30th, 2009. ' ' Version: 1.0.0 ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' >! ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Function: PlayerLevelUp ' ' Brief: executes when a player levels up. ' ' Parameters: ' ' Index: the index number of the player. ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub PlayerLevelUp(Index) Dim PlayerExp >! If GetPlayerExp(Index) < GetPlayerNextLevel(Index) Then Exit Sub End If >! Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index) PlayerExp = GetPlayerNextLevel(Index) >! Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1) Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 1) Call SetPlayerExp(Index, GetPlayerExp(Index) - PlayerExp) Call SetPlayerHP(Index, GetPlayerMaxHP(Index)) Call SetPlayerMP(Index, GetPlayerMaxMP(Index)) Call SetPlayerSP(Index, GetPlayerMaxSP(Index)) Call SendPlayerData(Index) Call SendStats(Index) Call SendHP(Index) Call SendMP(Index) Call SendSP(Index) Call SendPTS(Index) Loop >! Call BattleMsg(Index, "You have " & GetPlayerPOINTS(Index) & " stat points.", BRIGHTBLUE, LEFT) End Sub to >! ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Module: PlayerLevelUp.ess ' ' Author: Stephan J.R. van Schaik ' ' Date: August 30th, 2009. ' ' Version: 1.0.0 ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' >! ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Function: PlayerLevelUp ' ' Brief: executes when a player levels up. ' ' Parameters: ' ' Index: the index number of the player. ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub PlayerLevelUp(Index) Dim PlayerExp >! If GetPlayerExp(Index) < GetPlayerNextLevel(Index) Then Exit Sub End If >! Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index) PlayerExp = GetPlayerNextLevel(Index) >! Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1) Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 3) Call SetPlayerExp(Index, GetPlayerExp(Index) - PlayerExp) Call SetPlayerHP(Index, GetPlayerMaxHP(Index)) Call SetPlayerMP(Index, GetPlayerMaxMP(Index)) Call SetPlayerSP(Index, GetPlayerMaxSP(Index)) Call SendPlayerData(Index) Call SendStats(Index) Call SendHP(Index) Call SendMP(Index) Call SendSP(Index) Call SendPTS(Index) Loop >! Call BattleMsg(Index, "You have " & GetPlayerPOINTS(Index) & " stat points.", BRIGHTBLUE, LEFT) End Sub Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 3) +3 change only 3 ! you can give 300 points pre lvl! example: >! ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Module: PlayerLevelUp.ess ' ' Author: Stephan J.R. van Schaik ' ' Date: August 30th, 2009. ' ' Version: 1.0.0 ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' >! ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Function: PlayerLevelUp ' ' Brief: executes when a player levels up. ' ' Parameters: ' ' Index: the index number of the player. ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub PlayerLevelUp(Index) Dim PlayerExp >! If GetPlayerExp(Index) < GetPlayerNextLevel(Index) Then Exit Sub End If >! Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index) PlayerExp = GetPlayerNextLevel(Index) >! Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1) Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 300) Call SetPlayerExp(Index, GetPlayerExp(Index) - PlayerExp) Call SetPlayerHP(Index, GetPlayerMaxHP(Index)) Call SetPlayerMP(Index, GetPlayerMaxMP(Index)) Call SetPlayerSP(Index, GetPlayerMaxSP(Index)) Call SendPlayerData(Index) Call SendStats(Index) Call SendHP(Index) Call SendMP(Index) Call SendSP(Index) Call SendPTS(Index) Loop >! Call BattleMsg(Index, "You have " & GetPlayerPOINTS(Index) & " stat points.", BRIGHTBLUE, LEFT) End Sub

not working… :S

I must to turn On scripts yes? because file is in Server/scripts/ES/events

I found PlayerLevelUp.ess but there i cannot find anything… :S >! ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Module: PlayerLevelUp.ess ' ' Author: Stephan J.R. van Schaik ' ' Date: August 30th, 2009. ' ' Version: 1.0.0 ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' >! ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Function: PlayerLevelUp ' ' Brief: executes when a player levels up. ' ' Parameters: ' ' Index: the index number of the player. ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub PlayerLevelUp(Index) Dim PlayerExp >! If GetPlayerExp(Index) < GetPlayerNextLevel(Index) Then Exit Sub End If >! Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index) PlayerExp = GetPlayerNextLevel(Index) >! Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1) Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 1) Call SetPlayerExp(Index, GetPlayerExp(Index) - PlayerExp) Call SetPlayerHP(Index, GetPlayerMaxHP(Index)) Call SetPlayerMP(Index, GetPlayerMaxMP(Index)) Call SetPlayerSP(Index, GetPlayerMaxSP(Index)) Call SendPlayerData(Index) Call SendStats(Index) Call SendHP(Index) Call SendMP(Index) Call SendSP(Index) Call SendPTS(Index) Loop >! Call BattleMsg(Index, "You have " & GetPlayerPOINTS(Index) & " stat points.", BRIGHTBLUE, LEFT) End Sub

There is no anything about level up points… maybe need to use script? :huh:

I mean free points who can get by leveling up. in class is not written theat… :S [CLASS] Name=Warrior MaleSprite=254 FemaleSprite=255 Desc= STR=5 DEF=4 SPEED=2 MAGI=0 MAP=1 X=3 Y=12 Locked=0

Hi all! I need little help.. I'm using Eclipse Stable Server and i want to know hot to change points pre lvl from 1 to 3 ?

But Eclipse worked for me before i reinstalled my windows… i dont know why im sayng this... :icon_beer: ;)

Im not so stupid.. :azn: I have C and D disck I will install windows in D and formate C disck and than install windows in C and format D ;D Is there faster way to do this all? (sun) Defragmating wount give any results for this, yes?

@ilpoonu: > lol , i pretty much had the same problem … in the end i couldn't get it to work ... formatted my computer and then it worked again. Thanks i will try..

Theat was so hard? XD VERY BIG THX!!! :azn:

WTF!? can you say it in people language? XD or do you have skype please help i dont understand XD

Who ealse knows something about that? I need help!!! .. :evil: XD

Eclipse Origins is working… :azn: Eclipse Evolution not working... :sad:

Sygate = disabled and allowed connect Windows firewall = disabled and add except. What more programms blocking theese applications like Eclipse server ?

I reinstalled Libary files with my account and disabled firewall… nothing.. ;D P.S. hey! can somebody with teamviewer do it and fix my problem? if need my skype nick: taurenis1994

when im making a new account he is showing: " Connected! Creating account… " But nothing happens.....

@Marsh: > make sure your ip is 127.0.0.1 not whatever is shown there. If you are trying to connect to yourself. I changed Port in client and server to 4002 and ip in client to 127.0.0.1 but still nothing….

Hello all! I have a problem… :icon_crap: I installed all Library files and downloaded Eclipse 2.7 Now i run server going in to Client but he is showing me this: :rolleyes:  Please help…