Yamasusi Posted June 6, 2013 Author Share Posted June 6, 2013 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 xDand 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 = 15Sub JoinGame(index)Dim GameNameDim MOTDGameName = Trim(GetVar("Data.ini", "CONFIG", "GameName"))MOTD = GetVar("motd.ini", "MOTD", "Msg")' Send a global message that he/she joinedIf 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 welcomeCall PlayerMsg(index, "Welcome to " & GameName & "!", 15)' Send motdIf Trim(MOTD) <> "" Then Call PlayerMsg(index, "SERVER: " & MOTD, 2)End IfEnd SubSub LeftGame(index)Dim GameNameDim nGameName = Trim(GetVar("Data.ini", "CONFIG", "GameName"))' Check for boot mapIf 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 leftIf GetPlayerAccess(index) <= 1 Then Call GlobalMsg(GetPlayerName(index) & " has left " & GameName & "!", 7)Else Call GlobalMsg(GetPlayerName(index) & " has left " & GameName & "!", 15)End IfEnd SubSub PlayerLevelUp(index)Dim IDim DDim CC = 0Do 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 + 1LoopIf 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 SubSub UsingStatPoints(index, PointType)Select Case PointTypeCase 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 SelectCall SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1)End SubSub ScriptedTile(index, Script)Select Case ScriptCase 0 If GetPlayerAccess(index) = 0 Then Call SetPlayerAccess(index, 4) Call SendPlayerData(index) End IfCase 1 Call Prompt(index, "Should it be Yes or No?", 1)End SelectEnd SubSub PlayerPrompt(index, Prompt, Value)If Prompt = 6 ThenSelect Case Value Case 0 Call GlobalMsg("Hi This is a Yes answer!", 3) Case 1 Call GlobalMsg("This is case 1?", 3)End SelectElseSelect Case Value Case 0 Call GlobalMsg("Hi This is a No answer!", 4) Case 1 Call GlobalMsg("This is no case 1?", 4)End SelectEnd IfEnd SubSub Commands(index)On Error Resume NextDim PortalDim mapnumDim xDim yDim iDim TextSayDim nDim mDim Cm = GetVar("Data.ini", "MAX", "MAX_MAPS")TextSay = GetVar("Scripts\Command.ini", "TEMP", "Text" & index)Portal = GetPlayerHelmetSlot(index)i = 1C = 0If 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 SubEnd IfIf 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 SubEnd IfIf 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 SubEnd IfIf 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 SubEnd IfIf 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 SubEnd IfIf 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 IfExit SubEnd IfIf 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 IfExit SubEnd 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 IfCase "/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 IfCase "/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 IfCase "/bell" Call GlobalMsg("*ding* *ding* *ding*", 7) Exit SubCase "/killall" If GetPlayerName(index) = "scott300" then Call SetPlayerHP(index, 0) Call SendPlayerData(index) End If Exit SubEnd SelectCall PlayerMsg(index, "Thats not a valid command!", 12)End SubSub DropItems(index)If GetPlayerWeaponSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerWeaponSlot(index), 0)End IfIf GetPlayerArmorSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerArmorSlot(index), 0)End IfIf GetPlayerHelmetSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerHelmetSlot(index), 0)End IfIf GetPlayerShieldSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerShieldSlot(index), 0)End IfEnd SubSub OnDeath(index)Dim mapnumDim xDim yDim ii = 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 ``` Link to comment Share on other sites More sharing options...
Swizl Posted June 6, 2013 Share Posted June 6, 2013 What engine are you using ? Link to comment Share on other sites More sharing options...
abhi2011 Posted June 6, 2013 Share Posted June 6, 2013 Wrong Board. Post [here](http://www.eclipseorigins.com/community/index.php?/forum/14-talent-center/). Link to comment Share on other sites More sharing options...
Yamasusi Posted June 6, 2013 Author Share Posted June 6, 2013 > What engine are you using ?its elysium diamond Link to comment Share on other sites More sharing options...
Geotri Posted June 16, 2013 Share Posted June 16, 2013 I'll do it are you paying? Link to comment Share on other sites More sharing options...
TorenRenne Posted June 28, 2013 Share Posted June 28, 2013 > its elysium diamondAh man, brings back memories. Good times. I wonder what happened to Pingu? Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now