onzinho Posted May 28, 2012 Share Posted May 28, 2012 @quintensky:> the attack speed that you would use for a weapon, same works for the bow, the 1,2 sec thing (i think… this is just a random guess)yeah Run friend, thank you. Link to comment Share on other sites More sharing options...
james5890 Posted June 2, 2012 Share Posted June 2, 2012 do u need vb6 Link to comment Share on other sites More sharing options...
Justn Posted June 2, 2012 Share Posted June 2, 2012 Yes u will need it to do any of these source tutorials Link to comment Share on other sites More sharing options...
Radagast Posted June 5, 2012 Share Posted June 5, 2012 This is a great mod, thank you for sharing. I plan to use this in my game, however, I noticed that if you fire a projectile and quickly move to a different map … it continues onto the new map. Am I missing something?Does anyone have a fix for this?Thanks,~Radagast Link to comment Share on other sites More sharing options...
Ponury Posted June 6, 2012 Share Posted June 6, 2012 I have EO 2.6 Nova and if I do everything step by step,it still can not see arrow and and no damage.This may be due to size on picScreen (my picscreen 1024x768) ?So where i have error ? Link to comment Share on other sites More sharing options...
onzinho Posted June 9, 2012 Share Posted June 9, 2012 someone could tell me how can I let the arrow higher, Ex; big sprite, however big arrow. Link to comment Share on other sites More sharing options...
DarkOne5890 Posted June 10, 2012 Share Posted June 10, 2012 Hey can someone give me some bullets .Message me if you got any. Link to comment Share on other sites More sharing options...
DarkOne5890 Posted June 12, 2012 Share Posted June 12, 2012 Hay you now how theres a save delete and cancel button where the item editor is dose buttons are gone oleaae respond in a message Link to comment Share on other sites More sharing options...
Thor7 Posted June 17, 2012 Share Posted June 17, 2012 Hey sorry to be a pain but I'm getting "Run Time Error 9" on both Client and Server when trying to "Run" after adding your tutorial. Debug points to:HandleDataSub(SHandleProjectile) = GetAddress(AddressOf HandleProjectile)I'm not sure where ive mocked up but sure I followed instructions correctly.This is happening on both Client and Server. Could you guide me to where I'm going wrong as I know it will be me :PThanks and Sorry again, still learning VB. Link to comment Share on other sites More sharing options...
JohnPony Posted June 17, 2012 Share Posted June 17, 2012 Make sure the enums match up both client and server side, and try moving your cursor over the piece code to pinpoint exactly what is returning the RT error. Link to comment Share on other sites More sharing options...
Thor7 Posted June 17, 2012 Share Posted June 17, 2012 Thanks mate found my issue due to your help :)Had Enum in wrong place! lol Link to comment Share on other sites More sharing options...
JohnPony Posted June 18, 2012 Share Posted June 18, 2012 @Thor7:> Thanks mate found my issue due to your help :)> > Had Enum in wrong place! lolAnytime Link to comment Share on other sites More sharing options...
crilleaz Posted June 26, 2012 Share Posted June 26, 2012 I also have problems with Run-time 9, when trading the server crashes sometimes, and when being in party.Is there any fix for this?I've wrote a thread saying im willing to pay for this to work, really desperate! Link to comment Share on other sites More sharing options...
Whackeddie99 Posted June 26, 2012 Share Posted June 26, 2012 @crilleaz:> I also have problems with Run-time 9, when trading the server crashes sometimes, and when being in party.> Is there any fix for this?> > I've wrote a thread saying im willing to pay for this to work, really desperate!I will program for you for free, my friend. Link to comment Share on other sites More sharing options...
Whackeddie99 Posted July 11, 2012 Share Posted July 11, 2012 SOLVED.Tut on it's way. Link to comment Share on other sites More sharing options...
vitorgeller Posted July 25, 2012 Share Posted July 25, 2012 Hello everybody, I writing here asking for help. I got EO 2.0, and de VB6 to edit it.Okay, I followed every step correctly, saved the changes and when gone to compile I got an error, "Compile error: Variable not defined" and the program selected this "scrlProjectileDamage" in the frmEditor_Item (Code).I need help to solve this problem and that may appear after this.I still need help to create the projectiles stuff in the Item Editor Object, I know how to make labels and scrolls but still don't know how to connect the "pic" scroll to change pictures, or the speed scroll for the projectile speed [….]Thanks for help, and sorry for my bad english ;)ps: I couldn't finish the Item Editor Object cuz I don't know how to connect the scrolls to properties, this might be the main problem at all, I think if this problem is solved everything gonna works fine, or not :p Link to comment Share on other sites More sharing options...
Vus Posted July 25, 2012 Share Posted July 25, 2012 If you didnt do any edits, you can just download Item editor attached to main post.Also, you said you dont know how to code scrolling stuff properly right? There is code right under the picture of how it should look :)You need to name that scrolls scrlProjectileDamage, scrlProjectilePic, scrlProjectileRange and so on.>! In frmEditor_Item's source code insert:>! ```' projectilePrivate Sub scrlProjectileDamage_Change()  ' If debug mode, handle error then exit out  If Options.Debug = 1 Then On Error GoTo errorhandler  If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub  lblProjectileDamage.Caption = "Damage: " & scrlProjectileDamage.Value  Item(EditorIndex).ProjecTile.Damage = scrlProjectileDamage.Value  ' Error handler  Exit Suberrorhandler:  HandleError "scrlProjectilePic_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContext  Err.Clear  Exit SubEnd Sub>! ' projectilePrivate Sub scrlProjectilePic_Change()  ' If debug mode, handle error then exit out  If Options.Debug = 1 Then On Error GoTo errorhandler  If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub  lblProjectilePiC.Caption = "Pic: " & scrlProjectilePic.Value  Item(EditorIndex).ProjecTile.Pic = scrlProjectilePic.Value  ' Error handler  Exit Suberrorhandler:  HandleError "scrlProjectilePic_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContext  Err.Clear  Exit SubEnd Sub>! ' ProjecTilePrivate Sub scrlProjectileRange_Change()  ' If debug mode, handle error then exit out  If Options.Debug = 1 Then On Error GoTo errorhandler  If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub  lblProjectileRange.Caption = "Range: " & scrlProjectileRange.Value  Item(EditorIndex).ProjecTile.Range = scrlProjectileRange.Value  ' Error handler  Exit Suberrorhandler:  HandleError "scrlProjectileRange_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContext  Err.Clear  Exit SubEnd Sub>! ' projectilePrivate Sub scrlProjectileSpeed_Change()  ' If debug mode, handle error then exit out  If Options.Debug = 1 Then On Error GoTo errorhandler  If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub  lblProjectilesSpeed.Caption = "Speed: " & scrlProjectileSpeed.Value  Item(EditorIndex).ProjecTile.Speed = scrlProjectileSpeed.Value  ' Error handler  Exit Suberrorhandler:  HandleError "scrlRarity_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContext  Err.Clear  Exit SubEnd Sub>! ```Then replace```>! Private Sub cmbType_Click()>! ```With:```>! Private Sub cmbType_Click()  ' If debug mode, handle error then exit out  If Options.Debug = 1 Then On Error GoTo errorhandler>!   If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub>!   If (cmbType.ListIndex >= ITEM_TYPE_WEAPON) And (cmbType.ListIndex <= ITEM_TYPE_SHIELD) Then    fraEquipment.Visible = True    'scrlDamage_Change    If cmbType.ListIndex = ITEM_TYPE_WEAPON Then      frame4.Visible = True    End If  Else    fraEquipment.Visible = False    frame4.Visible = False  End If>!   If cmbType.ListIndex = ITEM_TYPE_CONSUME Then    fraVitals.Visible = True    'scrlVitalMod_Change  Else    fraVitals.Visible = False  End If>!   If (cmbType.ListIndex = ITEM_TYPE_SPELL) Then    fraSpell.Visible = True  Else    fraSpell.Visible = False  End If  Item(EditorIndex).Type = cmbType.ListIndex>!   ' Error handler  Exit Suberrorhandler:  HandleError "cmbType_Click", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContext  Err.Clear  Exit SubEnd Sub>! ```Hope I helped :) Link to comment Share on other sites More sharing options...
vitorgeller Posted July 26, 2012 Share Posted July 26, 2012 Thanks for your fast reply and help Vus, it worked! ;)Now I'm just having a little problem with the arrow, it doesn't appear when I shot (even with slow speed projectile). I made a picture, 32x32, .bmp and named it as "1.bmp"One more simple question, how does the ammunition work? I mean, you need ammo for bows? If yes, you need to create arrows too? How I create them? if no, so each bow has it own infinite arrow type?Once again, thanks for help and sorry for my bad english :)The PS isn't part of help i'm asking, just an idea I want to share with you, read if you have curiosity.PS: I realized that with this mechanic built here, you can make mages more interesting once you can put each spell in a wand or scroll (for example) and you just shot like a bow (but the spirit sistem for those spells is lacking, I thought something like "spirit cost to hit"), and then create spells that work in squaremeters (I think it's called tiles here) (one animation in each tile/sqm, allowing you to cast spells in form of wave [further the waves travel, higher is its width]), so the gameplay will be funnier once you'ill have to get the best position to damage more enemies, and not just stand still, click and press f1…f12. Of course, other modifications in game are gonna be necessary. It's only an idea, thanks for read. ;) Link to comment Share on other sites More sharing options...
eddy34 Posted August 1, 2012 Share Posted August 1, 2012 Partner, I was only doing this tutorial one of these days. But I "redid" the tutorial but since Spell Arrow and not per item. But I noticed a little problem, I do not know if it was because I swapped to Spell. But I guess not, so to posting here.For example, if I set the damage to the arrow 10\. It always takes 10 damage from the NPC, regardless of agility of it, or critical.So if you want the fix:**Server**Find :```' check for npc hit  For i = 1 To MAX_MAP_NPCS    If x = MapNpc(GetPlayerMap(Index)).Npc(i).x And y = MapNpc(GetPlayerMap(Index)).Npc(i).y Then      ' they're hit, remove it and deal that damage ;)      If CanPlayerAttackNpc(Index, i, True) Then        PlayerAttackNpc Index, i, TempPlayer(Index).ProjecTile(PlayerProjectile).damage        ClearProjectile Index, PlayerProjectile        Exit Sub      Else        ClearProjectile Index, PlayerProjectile        Exit Sub      End If    End If  Next```Replace With :``` ' check for npc hit  For i = 1 To MAX_MAP_NPCS    If x = MapNpc(GetPlayerMap(Index)).Npc(i).x And y = MapNpc(GetPlayerMap(Index)).Npc(i).y Then      ' they're hit, remove it and deal that damage ;)      If CanPlayerAttackNpc(Index, i, True) Then      damage = TempPlayer(Index).ProjecTile(PlayerProjectile).damage - CanNpcBlock(i)      ' take away armour    damage = damage - RAND(1, (Npc(i).stat(Stats.Agility) * 2))    ' randomise from 1 to max hit    damage = RAND(1, damage)    ' * 1.5 if it's a crit!    If CanPlayerCrit(Index) Then      damage = damage * 1.5      SendActionMsg GetPlayerMap(Index), "Critical!", BrightCyan, 1, (GetPlayerX(Index) * 32), (GetPlayerY(Index) * 32)    End If        PlayerAttackNpc Index, i, damage        ClearProjectile Index, PlayerProjectile        Exit Sub      Else        ClearProjectile Index, PlayerProjectile        Exit Sub      End If    End If  Next```Find :```' check if hit player  For i = 1 To Player_HighIndex    ' make sure they're actually playing    If IsPlaying(i) Then      ' check coordinates      If x = Player(i).x And y = GetPlayerY(i) Then        ' make sure it's not the attacker        If Not x = Player(Index).x Or Not y = GetPlayerY(Index) Then          ' check if player can attack          If CanPlayerAttackPlayer(Index, i, False, True) = True Then            ' attack the player and kill the project tile            PlayerAttackPlayer Index, i, TempPlayer(Index).ProjecTile(PlayerProjectile).damage            ClearProjectile Index, PlayerProjectile            Exit Sub          Else            ClearProjectile Index, PlayerProjectile            Exit Sub          End If        End If      End If    End If  Next```Replace with :```' check if hit player  For i = 1 To Player_HighIndex    ' make sure they're actually playing    If IsPlaying(i) Then      ' check coordinates      If x = Player(i).x And y = GetPlayerY(i) Then        ' make sure it's not the attacker        If Not x = Player(Index).x Or Not y = GetPlayerY(Index) Then          ' check if player can attack          If CanPlayerAttackPlayer(Index, i, False, True) = True Then' Get the damage we can do    damage = TempPlayer(Index).ProjecTile(PlayerProjectile).damage    ' if the npc blocks, take away the block amount    damage = (damage - CanPlayerBlock(i))    ' take away armour    damage = damage - RAND(1, (GetPlayerStat(i, Agility) * 2))    ' randomise for up to 10% lower than max hit    damage = RAND(1, damage)    ' * 1.5 if can crit    If CanPlayerCrit(index) Then      damage = damage * 1.5      SendActionMsg getplayermap(Index), "Critical!", BrightCyan, 1, (GetPlayerX(index) * 32), (GetPlayerY(index) * 32)End If            ' attack the player and kill the project tile            PlayerAttackPlayer Index, i, Damage            ClearProjectile Index, PlayerProjectile            Exit Sub          Else            ClearProjectile Index, PlayerProjectile            Exit Sub          End If        End If      End If    End If  Next```I did it fast, is to use the TryPlayerAttackNpc or TryPlayerAttackPlayer. But something is already better than ever cause the same damage. xD If item does not occur with this error, I'm sorry. But tests ae by guarantee. Oh, and good tutorial. Link to comment Share on other sites More sharing options...
Dawntide Posted August 2, 2012 Share Posted August 2, 2012 "runtime error 380 invalid property value" when i open the item editor. I deleted my current items and now the error is gone, but the half of the item editor frame is missing. Even the combobox is bugged, there is no item type in there anymore.help please Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 3, 2012 Share Posted August 3, 2012 Do you written it to the right List? And resize the editor i think you moved it a bit and then you cant see the rest Link to comment Share on other sites More sharing options...
Dawntide Posted August 3, 2012 Share Posted August 3, 2012 Can you set a "cooldown" for the projectile? At the moment the player can shoot them with Ctrl like machine guns. Link to comment Share on other sites More sharing options...
quivscor Posted August 22, 2012 Share Posted August 22, 2012 Sorry for making trouble, but can you post a template how should arrow picture look, or describe what are resolutions and how should it be positioned Link to comment Share on other sites More sharing options...
DopeyBiach Posted September 19, 2012 Share Posted September 19, 2012 > In **Sub PlayerAttackNpc** _before:_> > ```> Name = Trim$(Npc(npcNum).Name)> ```> _Insert:_> > ```> If npcNum < 1 Then Exit Sub> ``````If npcNum < 1 then exit ```Should be AFTER```npcNum = MapNpc(mapnum).Npc(mapNpcNum).Num```To avoid confusionLike this:``` mapnum = GetPlayerMap(attacker) npcNum = MapNpc(mapnum).Npc(mapNpcNum).Num Name = Trim$(Npc(npcNum).Name) If npcNum < 1 Then Exit Sub```![:lol:](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/laugh.png) Link to comment Share on other sites More sharing options...
Smasher Yoshi Posted October 10, 2012 Share Posted October 10, 2012 Wow, I really can't see any attachments…Can someone link me to 1.bmp? (The arrow example) 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