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

bunny123

Members
  • Posts

    49
  • Joined

  • Last visited

    Never

Posts posted by bunny123

  1. > Gonna try this way bunny I would hate to make two tiles for something like this..
    >
    > @jumbofile I will try but no promises… Shouldn't be too hard though

    LOL, I've already edited the code over here so there's an on and off threshold. XD Should I just undo my new code? Besides, I can't fit attributes on my side if I use a threshold for on and off seperatly.
  2. > Yea that's something I dont like.. I have been trying to make the threshold tile better to prevent this but haven't been able to do it like stien suggested.. easy fix would be to make a duplicate tile and just have one for visble and one for not visible :/ seems like a waste though

    That's exactly what I was thinking.
  3. I just thought of something… Diagram:

    >! # = Brick
    >! % = Visible roof
    >! Space = Just floor or invisible roof
    >! @ = Threshold
    >! $ = Player
    >! ! = Player + Threshold
    >! & = Player + Visible roof
    >! ```
    #####
    >! #@@@#
    >! #@@@#
    >! #@@@#
    >! #T###
    >! $
    ```
    Someone could just do this:
    >! ```
    #####
    >! # #
    >! # #
    >! # #
    >! #!###
    >!
    ```
    ```
    #####
    >! # #
    >! # #
    >! # #
    >! #T###
    >! $
    ```
    ```
    #####
    >! #@@@#
    >! #@@@#
    >! #@@@#
    >! #!###
    >!
    ```
    ```
    #####
    >! #@@@#
    >! #@@@#
    >! #&@@#
    >! #T###
    >!
    ```
    How do I prevent this?

    The above is in a spoiler since it is so long…
  4. > OMG i just noticed that this is the Arena Tile XD
    >
    > that was a major blonde moment right there! XD
    >
    > I actually did this to the Chest attriute Kibbelz made XD
    >
    > my bad i completely forgot that this is the Arena attribute XD

    LOL.

    Also, how do I make it so [this tutorial](http://www.touchofdeathforums.com/community/index.php?/topic/117014-eo-walking-through-players/) doesn't apply while on an Arena tile?

    But, let me guess. Change

    ```
    If Map.Moral = MAP_MORAL_SAFE Then Exit Function
    ```
    to

    ```
    If Map.Moral = MAP_MORAL_SAFE And Not Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).Type = TILE_TYPE_ARENA Then Exit Function
    ```?
  5. I made a quick edit that only requires one check box.

    Delete the label, **optAlphaOn**, and **optAlphaff**.

    Add one check box, name it chkAlpha.

    Replace the frmMain code with:

    ```
    Private Sub chkAlpha_Click()

    ' If debug mode, handle error then exit out

    If Options.Debug = 1 Then On Error GoTo errorhandler

    Options.alpha = 0

    ' save to config.ini

    SaveOptions

    ' Error handler

    Exit Sub

    errorhandler:

    HandleError "optMOff_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext

    Err.Clear

    Exit Sub

    End Sub
    ```

    At the bottom of **Public Sub LoadOptions()**, replace

    ```
    If Options.alpha = 0 Then

    frmMain.optAlphaff.Value = True

    Else

    frmMain.optAlphaOn.Value = True

    End If
    ```
    with

    ```
    frmMain.optAlphaff.Value = Options.alpha = 0
    ```

    Done.
  6. (This is based off of [this tutorial (link)](http://www.touchofdeathforums.com/community/index.php?/topic/128919-party-only-maps/))

    Server Side

    In modPlayer find the

    ```
    Sub PlayerWarp
    ```

    underneath

    ```
    ' Save old map to send erase player data to

    OldMap = GetPlayerMap(index)
    ```

    Add

    ```
    ' Check to see if its a Member Map

    If Map(mapnum).Moral = MAP_MORAL_MEMBER Then

    ' Check to make sure the player is a member. If not exit the sub so they dont change maps

    If Player(index).IsMember = 0 Then

    Call PlayerMsg(index, "This is a member map. You have to be a member to enter it.", Red)

    Exit Sub

    End If

    End If
    ```

    EDIT: The above has been fixed. It originally would only let non-members in.
  7. I think the problem with the log in is I added extra code:

    If Map(GetPlayerMap(index)).Moral = 2 Then

    **If Map(GetVar(App.Path & "\Data\accounts\checkpoints.ini", "" & GetPlayerName(index), "MAPNUM")).Moral = MAP_MORAL_MEMBER Then

    Call CustomScript(i, 1)

    End If**

    PlayerWarp index, Map(GetPlayerMap(index)).BootMap, Map(GetPlayerMap(index)).BootX, Map(GetPlayerMap(index)).BootY

    End If

    And Custom Script #1 is

    Call PutVar(App.Path & "\Data\accounts\checkpoints.ini", "*SERVEROPTIONS*", "" & GetPlayerName(index), "" & 0)
  8. ```

    Case "/adm:" & Func, "/adm", "/admin:" & Func, "/admin", "/adminhelp", "/admhelp":

    Call TextAdd("adm1:(name) / admin1:(name) / mon:(name) / monitor:(name) = Gives player monitor access.")

    Call TextAdd("adm2:(name) / admin2:(name) / map:(name) / mapper:(name) = Gives player mapper access.")

    Call TextAdd("adm3:(name) / admin3:(name) / dev:(name) / developer:(name) = Gives player developer access.")

    Call TextAdd("adm4:(name) / admin4:(name) / cre:(name) / creator:(name) = Gives player creator access.")

    Call TextAdd("radm:(name) / radmin:(name) / player:(name) = Sets player access level back to player.")

    Case "/adm1:" & Func, "/admin1:" & Func, "/mon:" & Func, "/monitor:" & Func:

    If IsPlaying(Func) = False Then Exit Sub

    Call SetPlayerAccess(FindPlayer(Name), ADMIN_MONITOR)

    Call SendPlayerData(FindPlayer(Name))

    Call PlayerMsg(FindPlayer(Name), "You have been granted administrator access.", BrightCyan)

    txtChat.Text = vbNullString

    Case "/adm2:" & Func, "/admin2:" & Func, "/map:" & Func, "/mapper:" & Func:

    If IsPlaying(Func) = False Then Exit Sub

    Call SetPlayerAccess(FindPlayer(Name), ADMIN_MAPPER)

    Call SendPlayerData(FindPlayer(Name))

    Call PlayerMsg(FindPlayer(Name), "You have been granted administrator access.", BrightCyan)

    txtChat.Text = vbNullString

    Case "/adm3:" & Func, "/admin3:" & Func, "/dev:" & Func, "/developer:" & Func:

    If IsPlaying(Func) = False Then Exit Sub

    Call SetPlayerAccess(FindPlayer(Name), ADMIN_DEVELOPER)

    Call SendPlayerData(FindPlayer(Name))

    Call PlayerMsg(FindPlayer(Name), "You have been granted administrator access.", BrightCyan)

    txtChat.Text = vbNullString

    Case "/adm4:" & Func, "/admin4:" & Func, "/cre:" & Func, "/creator:" & Func:

    If IsPlaying(Func) = False Then Exit Sub

    Call SetPlayerAccess(FindPlayer(Name), ADMIN_CREATOR)

    Call SendPlayerData(FindPlayer(Name))

    Call PlayerMsg(FindPlayer(Name), "You have been granted administrator access.", BrightCyan)

    txtChat.Text = vbNullString

    Case "/radm:" & Func, "/radmin:" & Func, "/player:" & Func:

    If IsPlaying(Func) = False Then Exit Sub

    Call SetPlayerAccess(FindPlayer(Name), 0)

    Call SendPlayerData(FindPlayer(Name))

    Call PlayerMsg(FindPlayer(Name), "You have had your administrator access revoked.", BrightRed)

    txtChat.Text = vbNullString

    Case "/ban:" & Func:

    If IsPlaying(Func) = False Then Exit Sub

    Call ServerBanIndex(FindPlayer(Func))

    txtChat.Text = vbNullString

    Case "/kill:" & Func:

    If IsPlaying(Func) = False Then Exit Sub

    Call KillPlayer(FindPlayer(Func))

    txtChat.Text = vbNullString

    Case "/home:" & Func:

    If IsPlaying(Func) = False Then Exit Sub

    Call PlayerWarp(FindPlayer(Func), START_MAP, START_X, START_Y)

    txtChat.Text = vbNullString

    Case "/boot:" & Func:

    If IsPlaying(Func) = False Then Exit Sub

    If Map(GetPlayerMap(Func)).BootMap = 0 Then Exit Sub

    Call PlayerWarp(FindPlayer(Func), Map(GetPlayerMap(Func)).BootMap, Map(GetPlayerMap(Func)).BootX, Map(GetPlayerMap(Func)).BootY)

    txtChat.Text = vbNullString

    ```
  9. > I like ponies, and bunnies and EVERYTHING that's fluffy! YIPPEE!
    >
    > ~~k asshat i wont even try help anyone anymore on here. ya hated hated hated asshat.~~
    >
    > If you disagree with someone, or feel like you're being mistreated, don't go swearing because of it. You'll just get in trouble. ;]

    LOL, nice edit Joyce. ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/tongue.png)
  10. I can't believe no one noticed this bug!

    In the code for CmdSave on the server, replace

    ```
    PlayerMsg index, "You have been granted membership by the server.", yellow"
    ```
    with

    ```
    PlayerMsg index, "You have been granted membership by the server.", yellow
    ```
    (There shouldn't be a " at the end)
×
×
  • Create New...