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

cheatking

Members
 View Profile  See their activity

  • Posts

    4203

  • Joined

  • Last visited

    Never

 Content Type 

Posts posted by cheatking

    Skill/Item Creation System Returns! (For Eclipse 2.7)

    in Source

    Posted

    I get an error. Function not defind.

    Private Sub NameSkill_Click()
    Dim I As Long
    Dim num As Long
      frmExpEdit.SkillName2.caption = SetName.Text
      Call ChangeSkillName(LstSkills.ListIndex + 1, SetName.Text)
      Call SaveSkillData
      num = LstSkills.ListIndex
      LstSkills.Clear
      For I = 1 To MAX_SKILLS
        LstSkills.AddItem CStr(Skills.skill(I).Name)
      Next I
      LstSkills.ListIndex = num
    End Sub

    Popup actions window not working.

    in Source

    Posted

    I'm trying to make a window popup with a list of actions. But I can't get t to work. Can anyone give me tips?

    Server Sided
    ```
    Public Sub Packet_Search(ByVal Index As Long, ByVal X As Long, ByVal Y As Long, [glow]ByVal Name As String)[/glow]

        Dim I As Long
      Dim PlayerIndex As Long

      PlayerIndex = FindPlayer(Name)

        If X < 0 Or X > MAX_MAPX Then
            Exit Sub
        End If

        If Y < 0 Or Y > MAX_MAPY Then
            Exit Sub
        End If

        ' Check for a player

        For I = 1 To MAX_PLAYERS
            If IsPlaying(I) Then
                If GetPlayerMap(Index) = GetPlayerMap(I) Then
                    If GetPlayerX(I) = X Then
                        If GetPlayerY(I) = Y Then

                            ' Change the target.
                            Player(Index).Target = I
                            Player(Index).TargetType = TARGET_TYPE_PLAYER

                            Call PlayerMsg(Index, "Your target is now " & GetPlayerName(I) & ".", YELLOW)

                            Call SendDataTo(Index, "PACTIONS" & SEP_CHAR & PlayerIndex & END_CHAR)
                            Call SendDataTo(PlayerIndex, "PACTIONS" & SEP_CHAR & Index & END_CHAR)

                            Exit Sub
                        End If
                    End If
                End If

            End If
        Next I
    [Trimed]
    End Sub
    ```
    Client
    ```
    [Trimmed]
        ' :::::::::::::::::::::::::
        ' :: Command          ::
        ' :::::::::::::::::::::::::
        If casestring = "pactions" Then
            frmCommand.Test.Caption = "Player: " & Trim$(Player(Val(parse(1))).Name)

            frmCommand.Visible = True
            Exit Sub
        End If
    [Trimmed]

    ```

    RP - Club Eclipse

    in Forum Games

    Posted

    @codemeister1990:

    > *fires at tipsta and ruptures his spleen*  :P

    No god modding. You made it hit him Thats godd modding.
    [Setting change]
    Night falls upon the clubhuse and the lights shine bright.
    [/setting]

    Basil sips his beer and throws it at codemeister1990.

    RP - Club Eclipse

    in Forum Games

    Posted

    [OOC]
    Basicly act as if Eclipse was some sort of club!
    Rules!
    No godmoding.

    [Setting]
    The eclipse clubhouse. With a bar and 3 doors the left most leading outside. Chairs are laid out in a circle in the center of a room. There are some vending machines n the corner of the room
    [/OOC]

    Bsil enters the room and buys a beer from a vending macine befor taking a seat. "Any one here?"

    So this is vista.

    in Off Topic

    Posted

    Ok finnally got anew computer. It's got Vista. Its not bad at all. Much better than my old computer Its got three times more memory(or is is four?) And no problems installing old programs yet. Now time to play ith eclipse some more.
×
×
  • Create New...