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

Domino_

Members
  • Posts

    944
  • Joined

  • Last visited

Posts posted by Domino_

  1. 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
  2. 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
  3. 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
  4. 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?
  5. 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:

    ![](http://s60.radikal.ru/i168/1003/c8/248eb4a96de5.jpg)

    Please help…
×
×
  • Create New...