Richy420Rich

Nice explaination, thanks lol

With all ya'll walking across it, It'll break and all you fall in the river ;)

What's up with this rock?

I see small people?

Under Sub OnAttack(index, Damage) Put: Call SpellAnim(SpellNum, GetPlayerMap(Target), GetPlayerX(Target), GetPlayerY(Target)) You might want to do the same for OnArrowHit(index, Damage) And PlayerHit(index, Damage) as well Example of it would be: Sub OnAttack(Index, Damage) Dim Target If Int(Damage) > 0 Then If Int(GetPlayerTarget(Index)) > 0 Then Target = GetPlayerTarget(Index) Call SpellAnim(35, GetPlayerMap(Target), GetPlayerX(Target), GetPlayerY(Target)) Call DamagePlayer(Index, Target, Damage) Else Target = GetPlayerTargetNPC(Index) Call SpellAnim(34, GetPlayerMap(index), GetNPCX(GetPlayerMap(index), Target), GetNPCY(GetPlayerMap(index), Target)) Call DamageNPC(Index, Target, Damage) End If End If End Sub

When you type Do Until Channel = MyChannel Channel = Channel + 1 Next Channel To change the channel on your TV. When you recieve a run time error 7\. Out of Memory. Because you lost your memory of the life you once had before eclipse.

When you try to use Sadscript in HTML. When your myspace is decorated with backgrounds of your game. When you start asking your family source coding questions..

Oh noes, the sea master Leviathan is getting closer to Naxoss! Cool stuff

This'll be how I would do it.. It's offhand and not tested but I believe it should work. ``` Sub ScriptedNPC(Index, Script) Dim charname Dim charnum charname = GetPlayerLogin(index) charnum = GetPlayerCharNum(index) Select Case Script Case 1 If GetVar("accounts\" & charname & "\char" & charnum & ".ini", "QUESTS", "Quest1") = "2" Then Call PlayerMsg(index, "Take this to Jonathan he's around here ", 15) Call GivePlayerItem(index, 46, 1, 1) Call PutVar("accounts\" & charname & "\char" & charnum & ".ini", "QUESTS", "Quest1", 3) ElseIf GetVar("accounts\" & charname & "\char" & charnum & ".ini", "QUESTS", "Quest1") = "0" Then Call PlayerMsg(Index, "Hi there do you see that portal down there?.", 15) Call PlayerMsg(Index, "its the portal to the land of oblivian but its failing.", 15) Call PlayerMsg(Index, "Could you go and see if everything is ok in oblivian?.", 15) Call PutVar("accounts\" & charname & "\char" & charnum & ".ini", "QUESTS", "Quest1", 2) End If Exit Sub Case 2 If GetVar("accounts\" & charname & "\char" & charnum & ".ini", "QUESTS", "Quest1") = "3" Then Call PlayerMsg(index, "Wow i never thought this could ever happen", 15) Call PlayerMsg(index, "Im afraid i have to turn off the portal", 15) Call PlayerMsg(index, "What???", 15) Call PlayerMsg(index, "Its sinking into the ground????", 15) Call PlayerMsg(index, "Well i can handle it here heres your reward!", 15) Call TakeItem(index, 46, 1, 0) Call GivePlayerItem(index, 48, 1, 1) Call PutVar("accounts\" & charname & "\char" & charnum & ".ini", "QUESTS", "Quest1", 2) End If Exit Sub End Select End Sub ``` Your scripted tiles also have to be changed. ``` Sub ScriptedTile(Index, Script) Dim charname Dim charnum charname = GetPlayerLogin(index) charnum = GetPlayerCharNum(index) Select Case Script Case 0 Call PutVar("accounts\" & charname & "\char" & charnum & ".ini", "QUESTS", "Quest1", 0) Exit Sub Case 1 If GetVar("accounts\" & charname & "\char" & charnum & ".ini", "QUESTS", "Quest1") = "1" Then Call PlayerMsg(index, "There must not be enough power in this thing!", 15) Call PlayerMsg(index, "Maby i should tell Judy.", 15) Call PutVar("accounts\" & charname & "\char" & charnum & ".ini", "QUESTS", "Quest1", 2) End If Exit Sub End Select End Sub ``` End Select and End Sub should stay on the very end, for all future Select Cases you may have.

Pretty simple what it does, in game, you go into online list. double click on any players name It'll bring up a custom menu profile with information regarding the player that you've clicked on.  All other additions to profile can be easily edited in the Sub PlayersProfile script. 

Yeah, thought I'd give alittle something to the community to play around with if they ever wanted to..

Credits to Ambardia Productions should anyone use this.. In Client Throw this in modClientTCP ``` Sub SendProfile(ByVal Name As String) Call SendData("profile" & SEP_CHAR & Name & END_CHAR) End Sub ``` Look for Client / frmMirage.lstOnline Put this code in for double click. ``` Private Sub lstOnline_DblClick() Call SendProfile(Trim$(frmMirage.lstOnline.Text)) End Sub ``` Now go into Server Under modHandleData put this ``` Case "profile" Call Packet_Profile(Index, Parse(1)) Exit Sub ``` Scroll down a bit, until you start seeing Public Sub Packet_"" , throw this in. ``` Public Sub Packet_Profile(ByVal Index As Long, ByVal Name As String) Dim Player Player = FindPlayer(Name) If Player = 0 Then Call PlayerMsg(Index, Player & " is currently offline.", WHITE) Exit Sub End If If SCRIPTING = 1 Then MyScript.ExecuteStatement "Scripts\Main.txt", "PlayersProfile " & Index & "," & Player End If End Sub ``` This'll call your profile out of the script. You could always move the script into the server source but I'm not sure how much would have to change in order to do so. For now, it'll be script. Open up main.txt. Put this in the bottom of your script. ``` Sub Profile(index, menunum, text) Call CustomMenuShow(index, menunum, "\GUI\PlayerStats.gif", 1) Call CustomMenuLabel(index, 1, "" & text & "", 20, 20, 8, 0, 0, 350, 400) Call CustomMenuPicture(index, 1, "\GFX\closeskill.gif", 114, 355) End Sub ``` This'll make your profile custom menu. Change the CustomMenuShow to your GUI location which is your custom menu. Then Change the CustomMenuPicture to your GFX location being a close button. Now, put this on bottom as well. ``` Sub PlayersProfile(index, Player) Call Profile(index, 21, "" & vbnewline & "" & vbnewline & "Name: " & GetPlayerName(Player) & "" & vbnewline & "Class: " & GetPlayerClassName(Player) & "" & vbnewline & "Guild: " & GetPlayerGuild(Player) & "" & vbnewline & "Level: " & GetPlayerLevel(Player) & "" & vbnewline & "Strength: " & GetPlayerStr(Player) & "" & vbnewline & "Defense: " & GetPlayerDef(Player) & "" & vbnewline & "Magic: " & GetPlayerMagi(Player) & "" & vbnewline & "Speed: " & GetPlayerSpeed(Player) & "") End Sub ``` Now under menuscripts. Put this in, change the menu_title number if need be, remember to also change the Call Profile(index, **MENUNUM**, text) As well. ``` If menu_title = "21" Then If Clicked_Index = 1 Then Call CustomMenuClose(index) End If End If ``` Now you can always add more onto the profile but for now, this'll be what it shows. Name: Class: Guild: Level: Str: Def: Magi: Speed: So if you ever want to add more to profile, just edit the PlayersProfile Sub in script.

I may also want to comment.. That if it weren't for the developers of Eclipse, we simply wouldn't be what we are today. We've had so many helpers from this community. I also just want to thank them. Female dogging complaining player… I take offense to that! LoL, but yes it was true, but when I started seeing the ropes of all the things a developer has to go through to make a game playable, along with keeping to his creation. I regret being like that. It's player mentality that creates the complaints, but when a player takes a look in the developers life. It's not a picnic. Alot of time and work goes into creating the smallest features. So for that, I regret having a player mentality, but look at me now. Lol. What goes around, came around. Anywho, ECLIPSE FTW! :P

I think my personal first favorite is Final Fantasy Tactics, then my second favorite is Final Fantasy 7\. Both for PS. I so wanted to make a game turn based like Tactics, but I thought it's to out of my league lol. For PC Non-MMO, it'll have to be Diablo. For MMO, it'll have to be Atu'los Online (Thus considering I've only played 2 MMORPG games ever, one was Runescape and, nah, I'll pass calling that my favorite lol.

Looks like the animation stops working after 1 hit killing NPC's or Players with a spell? Or is it AoE animations not show hitting all NPC's and Players on the map? EDIT: Hmm, idk :( Ah well, I'll wait for the release fix for it cause I'm still noobish in VB lol. Very nice source fix, thanks again Goddie.

Ah, ain't enough hours in a day lol. Time is power though. The longer it takes, the better it'll be. I hope to be around for it either way. Good Luck to the whole team..

Looks good, let me know when it gets open aye, I'd play it :)

I don't call this the act of stealing. Plus, for this game to be "played" by LoZ fans, It has to have it's own role play, following an original or further plot. Why would they create an identical story? It would contridict the very reasons why they develop it. Plus the game is non-commerical, so it's in Fair Use of any Copywrite. As long as LoZ has a disclaimer on their webpage that the game is a non-commerical Fanbased game. I doubt Nintendo would really trip on it.

Hell, I would love to play an ORPG Zelda game myself. This is one of those games I'll wait impatiently for and hope it comes out strong. Good Luck Kreator and Japez.

Hey everyone, I just wanted to know if it was possible to trade currency/stackables between players, and if it is, what all would I have to do to make that happen? Also another question related to making the banks store more items, is this possible and if so, what all would I have to do for this as well? Thanks in advanced for the help.

Cool Cool, gonna try it out now. Thanks GodLord

Hi, I have recieved some RTE 9 reports when entering an area ran by these scripted tiles. I'm just wondering if it has something to do with the script or if there's a deeper reason as to why they recieve this error. This is what I have under Scripted Tiles. ``` Case 16 If GetPlayerMap(index) = 372 And GetPlayerArmorSlot(index) = 0 And GetPlayerLegsSlot(index) = 0 And GetPlayerShieldSlot(index) = 0 And GetPlayerHelmetSlot(index) = 0 And GetPlayerNecklaceSlot(index) = 0 And GetPlayerRingSlot(index) = 0 And GetPlayerAccess(index)

I've enountered an endless RTE 9 when trying to sub script NPC respawning using tmrtest and scriptspawnnpc. It works but when a player tries to log into the map this script is being ran on, they will get RTE 9's.. Possibly something I could be scripting wrong, I don't know, heres what I have. Under NPCS I have ``` If GetPlayerinvitemNum(index, GetPlayerWeaponSlot(index)) = 162 Then If F_Freeslots(index) > 0 Then If GetPlayerMap(index) = 400 And GetPlayerX(index) = 9 And GetPlayerY(index) = 3 Then Call Baron_Uber_Skills(index) Call ScriptSpawnNPC(1, 400, 0, 0, 0) Call SetTimer("TMRTEST " & index & "," & 1, 5000) Else Call PlayerMsg(index, "There doesn't seem to be a keyhole from where you're standing.", 14) End If Else Call PlayerMsg(index, "You don't have anymore room in your inventory.", 14) End If Else Call PlayerMsg(index, "You don't have the right item equipped to open this chest!", 14) End If Exit Sub ``` And in TMRTEST, I got this. ``` Case 1 Call RemoveTimer("TMRTEST " & index & ",1") Call ScriptSpawnNPC(1, 400, 9, 2, 110) Exit Sub ``` It could be the scripted spawn, which has to send the data into the map everytime its ran, which could cause packet overflow or something, I dunno.. Thought I'd report it as a deeper bug unless told otherwise that what I'm scripting is wrong lol.

I seem to get this bug alot in the client when warping to another map, either by server warping, or by tile warping. also sometimes just by simply changing maps. I checked the list and it said to check my classes, however my classes look fine to me. I'm sorry if this had been posted before, I'll look down the list though and see if it's already here. (Edit: Yes sorry I found a few topics about it. However I'm still unable to understand the fix. I guess I'll just have to look more into it.) (Updated: I went ahead and uninstalled, reinstalled, renamed my backup maps, map8 , map9 and map10 to map1 , map2 and map3 and I'm able to move through these maps without a problem now. Guess it's a temp fix for me lol.)