zidsal

looks awsome (if I'm raiting as a base as it aint the finished product) expecally the shadow but is that true iso (2:1 pixel pattern ratio)? EDIT quoting ghosts post from below as cba to make another post to this topic > If you could make a game in that perspective it'd be sweet haha 100% agreed

This took me 5 seconds to do as its just ripped from the source so no credit needs to be given. PERSONALLY TESTED BY ME open the server up with visual basic 6\. Go to the class moduel clscommands and paste this new sub in ``` Function GetPlayerDamage(ByVal Index As Long) As Long Dim WeaponSlot As Long, RingSlot As Long, NecklaceSlot As Long GetPlayerDamage = 0 ' Check for subscript out of range If IsPlaying(Index) = False Or Index MAX_PLAYERS Then Exit Function End If ' GetPlayerDamage in script - TODO LATER - Can't get it to work. :( ' If Scripting = 1 Then ' GetPlayerDamage = MyScript.RunCodeReturn("Scripts\Main.txt", "GetPlayerDamage ", index) ' Else GetPlayerDamage = Int(GetPlayerSTR(Index) / 2) ' End If If GetPlayerDamage 0 Then WeaponSlot = GetPlayerWeaponSlot(Index) GetPlayerDamage = GetPlayerDamage + Item(GetPlayerInvItemNum(Index, WeaponSlot)).Data2 If GetPlayerInvItemDur(Index, WeaponSlot) > -1 Then Call SetPlayerInvItemDur(Index, WeaponSlot, GetPlayerInvItemDur(Index, WeaponSlot) - 1) If GetPlayerInvItemDur(Index, WeaponSlot) = 0 Then Call BattleMsg(Index, "Your " & Trim$(Item(GetPlayerInvItemNum(Index, WeaponSlot)).Name) & " has broken.", YELLOW, 0) Call TakeItem(Index, GetPlayerInvItemNum(Index, WeaponSlot), 0) Else If GetPlayerInvItemDur(Index, WeaponSlot) 0 Then RingSlot = GetPlayerRingSlot(Index) GetPlayerDamage = GetPlayerDamage + Item(GetPlayerInvItemNum(Index, RingSlot)).Data2 If GetPlayerInvItemDur(Index, RingSlot) > -1 Then Call SetPlayerInvItemDur(Index, RingSlot, GetPlayerInvItemDur(Index, RingSlot) - 1) If GetPlayerInvItemDur(Index, RingSlot) = 0 Then Call BattleMsg(Index, "Your " & Trim$(Item(GetPlayerInvItemNum(Index, RingSlot)).Name) & " has broken.", YELLOW, 0) Call TakeItem(Index, GetPlayerInvItemNum(Index, RingSlot), 0) Else If GetPlayerInvItemDur(Index, RingSlot) 0 Then NecklaceSlot = GetPlayerNecklaceSlot(Index) GetPlayerDamage = GetPlayerDamage + Item(GetPlayerInvItemNum(Index, NecklaceSlot)).Data2 If GetPlayerInvItemDur(Index, NecklaceSlot) > -1 Then Call SetPlayerInvItemDur(Index, NecklaceSlot, GetPlayerInvItemDur(Index, NecklaceSlot) - 1) If GetPlayerInvItemDur(Index, NecklaceSlot) = 0 Then Call BattleMsg(Index, "Your " & Trim$(Item(GetPlayerInvItemNum(Index, NecklaceSlot)).Name) & " has broken.", YELLOW, 0) Call TakeItem(Index, GetPlayerInvItemNum(Index, NecklaceSlot), 0) Else If GetPlayerInvItemDur(Index, NecklaceSlot) 0 Then Target2 = GetPlayerTarget(Index) Call DamagePlayer(Index, Target2, GetPlayerDamage(index) + GetPlayerStr(index)) Else Target2 = GetPlayerTargetNPC(Index) Call DamageNPC(Index, Target2, GetPlayerDamage(index) + GetPlayerStr(index)) End If Exit sub ```

@DragonFire: > I was actually talking feature wise but okay…. these are engines not games. Engines should supply the basics and be STABLE. It is up to the developer to make the features not the programmers of the engine.

@DragonFire: > Personally the past Eclipses EE and TE have been less then the ChaosEngine Chaos engine has always been behind in the vb6 scene as its baised off elysuim diamond. The difference between elysuim and chaos is where chaos branched off too add major buggy features (thing eclipse 2.5 but still adding them) elysuim started optimising and fixing alot of bugs.

@[WTF: > Rage link=topic=38926.msg377516#msg377516 date=1234975618] > ``` > For Each frm In VB.Forms > ``` > Are you sure you can do that? (It's been a while since I used Vb) ripped it out directly from a mirage 4 soruce so ya I guess you can do that EDIT Though going to add before today I'd never heard of a for each statement

talked to robin about it and I was right using end is horrible as it gives very bad memory leaks. I ripped this from mirage source 4 it remains untested credit is given to mirage. Change Sub GameDestroy() to this: ``` ' Closes the game client. Sub GameDestroy() ' Unloads all TCP-related things. Call TcpDestroy ' Unloads all DirectX objects. Call DestroyDirectX ' Unloads the BGM in memory (soon-to-be obsolete). Call StopBGM ' Closes the VB6 application. Call UnloadAllForms End Sub ``` Add this new sub ``` Public Sub UnloadAllForms() Dim frm As Form For Each frm In VB.Forms Unload frm Next End Sub ``` thats one less memory leak to worry about. I reccomomend every does to fix

~~well I am completely stummped and have no clue what is going: **I have port forwaded**

you can't have a text box transparent but you can have labels and rich text boxes transparent however. Labels can be set to transparent in the properties. Rich text boxe how ever requires some code to make transparent. here is the mirage tutorial on how to make it transparent (not sure if there is an eclipse 1) http://web.miragesource.com/forums/viewtopic.php?f=75&t=8

``` ' Closes the game client. Sub GameDestroy() ' Unloads all TCP-related things. Call TcpDestroy ' Unloads all DirectX objects. Call DestroyDirectX ' Unloads the BGM in memory (soon-to-be obsolete). Call StopBGM ' Closes the VB6 application. End End Sub ``` I'm proberly wrong and missing something obvoius but why in hells name is eclipse using end instead of unload frmmirage e.t.c. Isn't that just going to end badly as it will leave it running in memory?

ya the giant hed vikings would of been a really bad move. Personally if you'd use them it would of put me off the game (not that my opinion matters but free posts are free posts).

if your going to buy it not any old version of visual basic 6 will do try and get visual basic 6 enterprise. Stay away from the lower costs versions as they don't have all the features that you can get from vb6.

thanks alot guys

[](http://imageshack.us) Would someone please do me a massive favour and recolour it red or black to make it look evil/corrupted? thanks zidsal

what do you want on the tab 1 is it the inventory? if so you should just be able to drag the inventory over into the tab selectiom of what you want.

yes if you want to know where to get ask me in privete

this is kind of derailing the thread abit but I'm interested to know does vb6 IDE work in windows 7?

step 1 run msconfig go to tools –> disable UAC --> launch --> o.k step 2\. Register the .dll dx7vb.dll step 3\. Run the eclipse libary files. step 4\. (if you wish) run msconfig go to tools --> Enable UAC --> apply --> o.k I'll find the screenshot I sent to someone about turning off uac so hang on. [](http://imageshack.us) [](http://g.imageshack.us/img4/stebbystepintrstructionxh8.png/1/)

@[BS: > Eviltyphoon - Eldaren link=topic=38787.msg375226#msg375226 date=1234818183] > If you want, I can do it for you and post the server.exe here. But you'll have to wait for tomorrow, cause now I'm going to sleep. no need to do that he has visual basic 6 now.

@Hippoman: > Zid. > > VB6 is outdated. although we still use that. > > Nintendo 64 is out-dated i still use that. difference between photoshop versions and visual basic version is that there where no major changes. Photoshop was not raped by the .net framework while visual basic was. Visual basic 6 is what we know .net is a totaly different experiance you cant compare to two.

@Ricky: > What version of photoshop do you recommend I buy? > > Thanks a bit of a stupid question as no point buying out dated software. I thing the latest is cs4

you would do something like: ``` Call PutVar("Quests//" & GetPlayerName(index) &".ini", "header", "variable", 0) ``` quests is the folder you wish to put the .ini in getplayername will be the file name header will be the header in the .ini variable will be the variable saved in the .ini and it will be equal to 0 basically in the folder quests you find a inner with a players name with the contents like this [header] variable=0

I have not really started looking at the eclipse soruce but make sure npc hp e.t.c are longs and not integers or it's going to cause overflow errors in game.

if there is no function in SS* add this to clscommand (SOURCE EDIT) ``` Function Killnpc(MapNum, Npcslot) As Long MapNPC(MapNum, Npcslot).num = 0 MapNPC(MapNum, Npcslot).SpawnWait = GetTickCount MapNPC(MapNum, Npcslot).HP = 0 Call SendDataToMap(MapNum, NPCDEAD_CHAR & SEP_CHAR & Npcslot & END_CHAR) End Function ``` *not sure with eclipse functions if you wanted to kill the npc on map 1 in slot 5 in main.txt write call Killnpc(1,5)

if server and client are hosted on same p.c/laptop change the i.p to 127.0.0.1 If it connects then its a problem with portforwading or your external i.p has changed if it does not connect then the client port does not match the server port.

@minipimp: > Thanks Zidsal, im trying to make the Pvp room/arenas and its crazy with all the players going trough each other so im just trying out new ideas. but if its a safe zone they cant pvp anyway :S I still don't get why you made it so if your in a safe zone you can't move at all but its your call.