Yamasusi
-
Posts
13 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by Yamasusi
-
-
> That's too much to explain. There are tutorials for both on here.
>
>
>
> Alternatively, you could try to rip that code from another engine. You can salvage the paperdoll code from almost any engine, with EclipseVB being the most similar to ED. The MP3 functionality is in many engines, including EFF and the 3.0 nightly build, and should require only moderate tweaking by way of renaming subs and adding globals to work.
there arent any tutorials on here. i looked through allllll the tutorial pages just now and the paperdoll tutorials are just how to make them, not code them. and i found nothing on coding mp3 support….
i dont know any coding at all btw >__> -
> I've heard of and used Elysium Diamond. Elysium was a great engine in its hey-day, at the time one of the main alternatives to Eclipse and Konfuze.
>
>
>
> I don't have the ED source handy, but look at the top of sub bltPlayerName in modDirectX (or modDirectDraw) for
>
> ```
> color =
>
> ```
> It should be in an if statement involving PK status with a select case on player access. Replace the select case with color = black (however black is coded - look at your standard player) and leave if statement with the PK color = red intact.
yay thanks it works ;D
EDIT: do you know the paperdoll code and how to enable mp3 also? -
> Theres few people to help with official and new engines, there surely will be no one who will be able to help you with an outdated engine some people haven't even heard off.
mannnn.. well is there a way to switch my maps to the new engines? -
> Elysium Diamond is unsupported last I checked, and not many people actually still have or use the source to it. So you're likely on your own here.
what do you mean by unsupported? you can still code everything so i dont see what the difference is unless someone doesnt know how to code -
how would i code so everyones name in the game will be black even admins and all access admins name's black (except when someone pks). and also..the code so i can enable mp3s in game
and paperdoll code so image appears behind a character when equipped.
im using elysium diamond. dont tell me to use something newer or a new engine cause i dont want to. and dont want to start making maps over again. -
> What engine are you using ?
its elysium diamond -
can someone code this so everyones name in the game will be black (except when one pks of course). and also.. can someone put the code so i can enable mp3s in there xD
and if it is not asking too much, paperdoll code so image appears behind a character when equipped.
sorry idk any coding at all. ima noob .____. i was able to change things like the MOTD color but idk….........and yes i already know this is a old game maker that im using but im going to stick with it so dont tell me to download some other game maker.
```
':: Access ::
'ADMIN_MONITER = 1
'ADMIN_MAPPER = 2
'ADMIN_DEVELOPER = 3
'ADMIN_CREATOR = 4
':: Text Color Code ::
'Black = 0
'Blue = 1
'Green = 2
'Cyan = 3
'Red = 4
'Magenta = 5
'Brown = 6
'Grey = 7
'DarkGrey = 8
'BrightBlue = 9
'BrightGreen = 10
'BrightCyan = 11
'BrightRed = 12
'Pink = 13
'Yellow = 14
'White = 15
Sub JoinGame(index)
Dim GameName
Dim MOTD
GameName = Trim(GetVar("Data.ini", "CONFIG", "GameName"))
MOTD = GetVar("motd.ini", "MOTD", "Msg")
' Send a global message that he/she joined
If GetPlayerAccess(index) <= ADMIN_MONITER Then
Call GlobalMsg(GetPlayerName(index) & " has joined " & GameName & "!", 7)
Else
Call GlobalMsg(GetPlayerName(index) & " has joined " & GameName & "!", 15)
End If
' Send them welcome
Call PlayerMsg(index, "Welcome to " & GameName & "!", 15)
' Send motd
If Trim(MOTD) <> "" Then
Call PlayerMsg(index, "SERVER: " & MOTD, 2)
End If
End Sub
Sub LeftGame(index)
Dim GameName
Dim n
GameName = Trim(GetVar("Data.ini", "CONFIG", "GameName"))
' Check for boot map
If GetBootMap(index) > 0 Then
Call SetPlayerX(index, Map(GetPlayerMap(index)).BootX)
Call SetPlayerY(index, Map(GetPlayerMap(index)).BootY)
Call SetPlayerMap(index, Map(GetPlayerMap(index)).BootMap)
End If
' Send a global message that he/she left
If GetPlayerAccess(index) <= 1 Then
Call GlobalMsg(GetPlayerName(index) & " has left " & GameName & "!", 7)
Else
Call GlobalMsg(GetPlayerName(index) & " has left " & GameName & "!", 15)
End If
End Sub
Sub PlayerLevelUp(index)
Dim I
Dim D
Dim C
C = 0
Do While GetPlayerExp(index) => GetPlayerNextLevel(index)
D = GetPlayerExp(index) - GetPlayerNextLevel(index)
Call SetPlayerLevel(index, GetPlayerLevel(index) + 1)
I = Int(GetPlayerSPEED(index) / 10)
If I < 1 Then I = 1
If I > 3 Then I = 3
Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + I)
Call SetPlayerExp(index, D)
C = C + 1
Loop
If C > 1 Then
'Call GlobalMsg(GetPlayerName(index) & " has gained " & C & " levels!", 6)
Else
'Call GlobalMsg(GetPlayerName(index) & " has gained a level!", 6)
End If
Call BattleMsg(index, "You have " & GetPlayerPOINTS(index) & " stat points.", 9, 0)
End Sub
Sub UsingStatPoints(index, PointType)
Select Case PointType
Case 0
'Gives you a set max
If GetPlayerSTR(index) + 1 > 1000 Then
Call BattleMsg(index, "You have maxed your strength!", 12, 0)
Exit Sub
End If
Call SetPlayerSTR(index, GetPlayerSTR(index) + 1)
Call BattleMsg(index, "You have gained more strength!", 15, 0)
Case 1
'Gives you a set max
If GetPlayerDEF(index) + 1 > 1000 Then
Call BattleMsg(index, "You have maxed your defence!", 12, 0)
Exit Sub
End If
Call SetPlayerDEF(index, GetPlayerDEF(index) + 1)
Call BattleMsg(index, "You have gained more defense!", 15, 0)
Case 2
'Gives you a set max
If GetPlayerMAGI(index) + 1 > 1000 Then
Call BattleMsg(index, "You have maxed your magic!", 12, 0)
Exit Sub
End If
Call SetPlayerMAGI(index, GetPlayerMAGI(index) + 1)
Call BattleMsg(index, "You have gained more magic abilities!", 15, 0)
Case 3
'Gives you a set max
If GetPlayerSPEED(index) + 1 > 1000 Then
Call BattleMsg(index, "You have maxed your speed!", 12, 0)
Exit Sub
End If
Call SetPlayerSPEED(index, GetPlayerSPEED(index) + 1)
Call BattleMsg(index, "You have gained more speed!", 15, 0)
End Select
Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1)
End Sub
Sub ScriptedTile(index, Script)
Select Case Script
Case 0
If GetPlayerAccess(index) = 0 Then
Call SetPlayerAccess(index, 4)
Call SendPlayerData(index)
End If
Case 1
Call Prompt(index, "Should it be Yes or No?", 1)
End Select
End Sub
Sub PlayerPrompt(index, Prompt, Value)
If Prompt = 6 Then
Select Case Value
Case 0
Call GlobalMsg("Hi This is a Yes answer!", 3)
Case 1
Call GlobalMsg("This is case 1?", 3)
End Select
Else
Select Case Value
Case 0
Call GlobalMsg("Hi This is a No answer!", 4)
Case 1
Call GlobalMsg("This is no case 1?", 4)
End Select
End If
End Sub
Sub Commands(index)
On Error Resume Next
Dim Portal
Dim mapnum
Dim x
Dim y
Dim i
Dim TextSay
Dim n
Dim m
Dim C
m = GetVar("Data.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Command.ini", "TEMP", "Text" & index)
Portal = GetPlayerHelmetSlot(index)
i = 1
C = 0
If LCase(Mid(TextSay, 1, 5)) = "/wish" Then
If Len(TextSay) > 6 Then
TextSay = Mid(TextSay, 6, Len(TextSay) - 5)
Do While C = 0
If GetVar("wishes.ini", "WISH", "Wish" & i) <> "" then
i = i + 1
Else
Call PutVar("wishes.ini", "WISH", "Wish" & i, Trim(TextSay))
Call PlayerMsg(index, "Thank You For Wishing!", 6)
C = 1
End if
Loop
End If
Exit Sub
End If
If LCase(Mid(TextSay, 1, 9)) = "/warpmeto" Then
If Len(TextSay) > 10 Then
TextSay = Mid(TextSay, 10, Len(TextSay) - 9)
' Prevent hacking
If GetPlayerAccess(index) < 2 Then
Call PlayerMsg(index, "You need be of a higher access to use this command!", 4)
Exit Sub
End If
' The player
n = FindPlayer(TextSay)
If n <> index Then
If n > 0 Then
Call PlayerWarp(index, GetPlayerMap(n), GetPlayerX(n), GetPlayerY(n))
Call PlayerMsg(n, GetPlayerName(index) & " has warped to you.", 6)
Call PlayerMsg(index, "You have been warped to " & GetPlayerName(n) & ".", 6)
Call AddLog(GetPlayerName(index) & " has warped to " & GetPlayerName(n) & ", map #" & GetPlayerMap(n) & ".", ADMIN_LOG)
Else
Call PlayerMsg(index, "Player is not online.", 15)
End If
Else
Call PlayerMsg(index, "You cannot warp to yourself!", 15)
End If
End If
Exit Sub
End If
If LCase(Mid(TextSay, 1, 9)) = "/warptome" Then
If Len(TextSay) > 10 Then
If GetPlayerAccess(index) < 2 Then
Call PlayerMsg(index, "You need be of a higher access to use this command!", 4)
Exit Sub
End If
n = Mid(TextSay, 10, Len(TextSay) - 9)
n = FindPlayer(n)
If n <> index Then
If n > 0 Then
Call PlayerWarp(n, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index))
Call PlayerMsg(n, "You have been summoned by " & GetPlayerName(index) & ".", 9)
Call PlayerMsg(index, GetPlayerName(n) & " has been summoned.", 9)
Call AddLog(GetPlayerName(index) & " has warped " & GetPlayerName(n) & " to self, map #" & GetPlayerMap(index) & ".", ADMIN_LOG)
Else
Call PlayerMsg(index, "Player is not online.", 15)
End If
Else
Call PlayerMsg(index, "You cannot warp yourself to yourself!", 15)
End If
End If
Exit Sub
End If
If LCase(Mid(TextSay, 1, 7)) = "/warpto" Then
If Len(TextSay) > 8 Then
TextSay = Mid(TextSay, 8, Len(TextSay) - 7)
n = TextSay
If n > 0 And n <= m Then
If GetPlayerAccess(index) < 2 Then
Call PlayerMsg(index, "You need be of a higher access to use this command!", 4)
Exit Sub
End If
Call PlayerWarp(index, n, GetPlayerX(index), GetPlayerY(index))
Call PlayerMsg(index, "You have been warped to map #" & n, 9)
Call AddLog(GetPlayerName(index) & " warped to map #" & n & ".", ADMIN_LOG)
Else
Call PlayerMsg(index, "Invalid map number.", 4)
End If
End If
Exit Sub
End If
If LCase(Trim(TextSay)) = "/help" Then
Call PlayerMsg(index, "Social Commands:", 15)
Call PlayerMsg(index, "'msghere = Broadcast Message", 15)
Call PlayerMsg(index, "-msghere = Emote Message", 15)
Call PlayerMsg(index, "!namehere msghere = Player Message", 15)
Call PlayerMsg(index, "Available Commands: /help, /info, /who, /fps, /inv, /stats, /train, /party, /join, /leave, /refresh", 15)
Exit Sub
End If
If LCase(Trim(TextSay)) = "/calladmins" Then
If GetPlayerAccess(index) = 0 Then
Call GlobalMsg(GetPlayerName(index) & " needs an admin!", 10)
Else
Call PlayerMsg(index, "You are an admin!", 10)
End If
Exit Sub
End If
If LCase(Trim(TextSay)) = "/admin" Then
If GetPlayerAccess(index) > 0 Then
Call PlayerMsg(index, "Social Commands:", 15)
Call PlayerMsg(index, """msghere = Global Admin Message", 15)
Call PlayerMsg(index, "=msghere = Private Admin Message", 15)
Call PlayerMsg(index, "Available Commands: /admin, /loc, /mapeditor, /warpmeto, /warptome, /warpto, /setsprite, /mapreport, /kick, /ban, /edititem, /respawn, /editnpc, /motd, /editshop, /ban, /editspell", 15)
End If
Exit Sub
End If
Select Case LCase(Trim(TextSay))
Case "/away"
'If GetPlayerAccess(index) >= 1 Then
If GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 0 Then
Call GlobalMsg(GetPlayerName(index) & " is now away.", 14)
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 1)
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName", GetPlayerName(index))
Call SetPlayerName(index, GetPlayerName(index) & " - Away")
Call SendPlayerData(index)
Exit Sub
ElseIf GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 1 Then
Call SetPlayerName(index, GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName"))
Call GlobalMsg(GetPlayerName(index) & " has returned from being away.", 14)
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 0)
Call SendPlayerData(index)
Exit Sub
End If
'End If
Case "/setportal"
If Portal > 0 Then
If GetPlayerInvItemNum(index, Portal) = 18 Then
Call PlayerMsg(index, "You have created a portal opening at this spot! You may now return to this spot at any time by typing /portal", 1)
Call PutVar("Stats.ini", GetPlayerName(index), "map", GetPlayerMap(index))
Call PutVar("Stats.ini", GetPlayerName(index), "x", GetPlayerX(index))
Call PutVar("Stats.ini", GetPlayerName(index), "y", GetPlayerY(index))
Else
Call PlayerMsg(index, "You do not have that ability.", 4)
End If
Exit Sub
End If
Case "/portal"
If Portal > 0 Then
mapnum = GetVar("Stats.ini", GetPlayerName(index), "map")
y = GetVar("Stats.ini", GetPlayerName(index), "y")
x = GetVar("Stats.ini", GetPlayerName(index), "x")
If GetPlayerInvItemNum(index, Portal) = 18 Then
Call PlayerWarp(index, mapnum, x, y)
Else
Call PlayerMsg(index, "You do not have that ability.", 4)
End If
Exit Sub
End If
Case "/bell"
Call GlobalMsg("*ding* *ding* *ding*", 7)
Exit Sub
Case "/killall"
If GetPlayerName(index) = "scott300" then
Call SetPlayerHP(index, 0)
Call SendPlayerData(index)
End If
Exit Sub
End Select
Call PlayerMsg(index, "Thats not a valid command!", 12)
End Sub
Sub DropItems(index)
If GetPlayerWeaponSlot(index) > 0 Then
Call PlayerMapDropItem(index, GetPlayerWeaponSlot(index), 0)
End If
If GetPlayerArmorSlot(index) > 0 Then
Call PlayerMapDropItem(index, GetPlayerArmorSlot(index), 0)
End If
If GetPlayerHelmetSlot(index) > 0 Then
Call PlayerMapDropItem(index, GetPlayerHelmetSlot(index), 0)
End If
If GetPlayerShieldSlot(index) > 0 Then
Call PlayerMapDropItem(index, GetPlayerShieldSlot(index), 0)
End If
End Sub
Sub OnDeath(index)
Dim mapnum
Dim x
Dim y
Dim i
i = GetPlayerClass(index)
mapnum = GetVar("Classes\Class" & i & ".ini", "CLASS", "Map")
y = GetVar("Classes\Class" & i & ".ini", "CLASS", "y")
x = GetVar("Classes\Class" & i & ".ini", "CLASS", "x")
Call PlayerWarp(index, mapnum, x, y)
End Sub
``` -
-
> Yes, TFF among many others here offer the ability to use any sized image files in .png format.
>
> To answer your other question, TFF also has the ability to edit animations to be visible behind or in front of the character. (Not sure about other engines)
downloaded the thing in your sig and i get runtime error 429 when trying to run the client ..spend like 3 hours trying to fix it -_____- the server didnt work at first but i got it to work and yeah now its the client…
and you can layer on elysium, thats what the old creator did D: i just dont know how to code anything.
nobody can code it for me and tell me where to put it? xD -
so none of you guys know where i would put it? like the exact location D:
and also, those programs you use.. would i be able to use my own sprites and maps tiles (which are smaller than the ones i usually see people post.)?
im trying to make a copy of a game someone made because it shut down.. (has anyone heard of the 2d cyberconnects dot hack game? lol thats what im trying to duplicate)
i had another question also but i might as well ask it on here.. does anyone know how to paperdoll with the item showing BEHIND the character, not on top.. for example if i was making a dragonball z game (which im not lol) how would i make the energy field when appear behind them -
> Hello. Welcome to the forums.
>
> You should always try to provide as much information as possible. What engine are you using?
>
> Many Eclipse engines already support MP3 playback, among other formats. They do it through fmod, not through un4seenBASS. I'm not aware of any BASS mp3 players used in Eclipse engines, so you might be working from scratch if you'd prefer it over fmod.
>
> If your engine does not already support mp3 playback, you can find instructions to upgrade your code in the tutorials -> source section. A working copy of VB6 and some basic coding knowledge is assumed.
well.. im actually using elysium diamond, but i heard its pretty similar.. and unfortunately i dont know any coding D: …
before i posted this i read this topic but he didnt say how he resolved it :/
[http://www.touchofdeathforums.com/community/index.php?/topic/131402-resolved-mp3-support/page__hl__midi#entry875324](http://www.touchofdeathforums.com/community/index.php?/topic/131402-resolved-mp3-support/page__hl__midi#entry875324) -
How do i code this
in Q & A
Posted
>
>
>
> MP3 support:
>
> [http://www.eclipseorigins.com/community/index.php?/topic/132769-eo-adding-fmod-to-eo-20/](http://www.eclipseorigins.com/community/index.php?/topic/132769-eo-adding-fmod-to-eo-20/)
>
> [http://www.eclipseorigins.com/community/index.php?/topic/114955-eo-adding-mp3-support-to-eo-very-basic/](http://www.eclipseorigins.com/community/index.php?/topic/114955-eo-adding-mp3-support-to-eo-very-basic/)
>
>
>
> You won't find an easy paperdoll tutorial, because your engine is not supported. Everything you would need to know you could get here:
>
> [http://www.eclipseorigins.com/community/index.php?/topic/130331-dx7gender-based-paperdoll-rendering/](http://www.eclipseorigins.com/community/index.php?/topic/130331-dx7gender-based-paperdoll-rendering/)
>
>
>
> If you're feeling more to the safe side, just get another engine with more of the features you want.
> You can't find a thread on a forum, so I have little hope that you'll be able to find bugs in a code that was written for another engine. But… If you're feeling lucky:
>
>
>
> MP3 support:
>
> [http://www.eclipseorigins.com/community/index.php?/topic/132769-eo-adding-fmod-to-eo-20/](http://www.eclipseorigins.com/community/index.php?/topic/132769-eo-adding-fmod-to-eo-20/)
>
> [http://www.eclipseorigins.com/community/index.php?/topic/114955-eo-adding-mp3-support-to-eo-very-basic/](http://www.eclipseorigins.com/community/index.php?/topic/114955-eo-adding-mp3-support-to-eo-very-basic/)
>
>
>
> You won't find an easy paperdoll tutorial, because your engine is not supported. Everything you would need to know you could get here:
>
> [http://www.eclipseorigins.com/community/index.php?/topic/130331-dx7gender-based-paperdoll-rendering/](http://www.eclipseorigins.com/community/index.php?/topic/130331-dx7gender-based-paperdoll-rendering/)
>
>
>
> If you're feeling more to the safe side, just get another engine with more of the features you want.
the first link says theres an error in the code and the second one, the links of the two downloads he said you need to download arent there anymore. so both of those wont help -.-
and the paperdoll thing.. i have no idea how to code, so i wouldnt be able to change the gender based code to how i want it etc.