Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

damian666

Members
  • Posts

    1632
  • Joined

  • Last visited

    Never

Everything posted by damian666

  1. oooh, finally some otherone that is interested in going to .Net. please tell me your not doing it in C# >.< welcome mate ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons//smile.png) Dami
  2. whahha xd yes its me, im not dead yet mate ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons//tongue.png)
  3. damn it xd its hard to find ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons//sad.png)
  4. a hot hooker and a big bed :3
  5. k, fair enough, ill wait a bit ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons//tongue.png) perhaps post code just for people to look at it and do up some ideas from it?
  6. anyone still has this thing? cant see a link anymore ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons//sad.png)
  7. can anybody that has it give it to me please? and yes i know it has flaws. thanx in advance Dami
  8. wanna buy a account lvl 67/60/50 something? its on europe servers though :P Dami
  9. sigh… nice work, but yeah, now i have to take it out, and then put this back... >.< that sucks :P Dami
  10. nonsense, i have 2500, works fine, although you do notice it when starting server ofcourse :) Dami
  11. its defined in modtypes. i changed it recently, problem is though, you will have to convert your maps, well, if you have any anyway xd ``` Private Type MapRec Name As String * 30 ``` make it like that to get longer names. Dami
  12. Good for you man, I knew it would get out of control xD
  13. made a extra type, called newmap, in which i made name 30 long, instead of 20, then i do: ``` NewMap(i).Name = Map(i).Name NewMap(i).Music = Map(i).Music NewMap(i).Revision = Map(i).Revision NewMap(i).Moral = Map(i).Moral NewMap(i).Up = Map(i).Up NewMap(i).Down = Map(i).Down NewMap(i).Left = Map(i).Left NewMap(i).Right = Map(i).Right NewMap(i).BootMap = Map(i).BootMap NewMap(i).BootX = Map(i).BootX NewMap(i).BootY = Map(i).BootY NewMap(i).MaxX = Map(i).MaxX NewMap(i).MaxY = Map(i).MaxY ``` but errors on mapnpc stuff, very weird xd Dami
  14. hmm… how would i go about changing map's name lenght? tried this: ``` Public Sub ConvertMaps() Dim filename As String Dim i As Long Dim F As Long Dim x As Long Dim y As Long Call CheckMaps For i = 1 To MAX_MAPS filename = App.Path & "\data\maps\map" & i & ".dat" F = FreeFile Open filename For Binary As #F ' Load Old Values ConTextAdd ("Loading map " & i & ".dat") Get #F, , Map(i).Name Get #F, , Map(i).Music Get #F, , Map(i).Revision Get #F, , Map(i).Moral Get #F, , Map(i).Up Get #F, , Map(i).Down Get #F, , Map(i).Left Get #F, , Map(i).Right Get #F, , Map(i).BootMap Get #F, , Map(i).BootX Get #F, , Map(i).BootY Get #F, , Map(i).MaxX Get #F, , Map(i).MaxY ' Add old Custom Values for the file being converted below ' have to set the tile() ReDim Map(i).Tile(0 To Map(i).MaxX, 0 To Map(i).MaxY) For x = 0 To Map(i).MaxX For y = 0 To Map(i).MaxY Get #F, , Map(i).Tile(x, y) Next Next For x = 1 To MAX_MAP_NPCS Get #F, , Map(i).Npc(x) MapNpc(i).Npc(x).Num = Map(i).Npc(x) Next NewMap(i).Name = Map(i).Name NewMap(i).Music = Map(i).Music NewMap(i).Revision = Map(i).Revision NewMap(i).Moral = Map(i).Moral NewMap(i).Up = Map(i).Up NewMap(i).Down = Map(i).Down NewMap(i).Left = Map(i).Left NewMap(i).Right = Map(i).Right NewMap(i).BootMap = Map(i).BootMap NewMap(i).BootX = Map(i).BootX NewMap(i).BootY = Map(i).BootY NewMap(i).MaxX = Map(i).MaxX NewMap(i).MaxY = Map(i).MaxY ' Put new Values with Old Values ConTextAdd ("Converting map " & i & ".dat!") Put #F, , NewMap(i).Name Put #F, , NewMap(i).Music Put #F, , NewMap(i).Revision Put #F, , NewMap(i).Moral Put #F, , NewMap(i).Up Put #F, , NewMap(i).Down Put #F, , NewMap(i).Left Put #F, , NewMap(i).Right Put #F, , NewMap(i).BootMap Put #F, , NewMap(i).BootX Put #F, , NewMap(i).BootY Put #F, , NewMap(i).MaxX Put #F, , NewMap(i).MaxY ' Add new Custom values to add to the file being converted below For x = 0 To Map(i).MaxX For y = 0 To Map(i).MaxY Put #F, , Map(i).Tile(x, y) Next Next For x = 1 To MAX_MAP_NPCS Put #F, , Map(i).Npc(x) Next Close #F ConTextAdd ("Map " & i & ".dat converted!") ClearTempTile i CacheResources i DoEvents Next End Sub ``` but it errors, any suggestions? Dami
  15. 1 free feature huh? k, i would love animated tiles, if i like what you do, i may have some other stuff i cant figure out myself :P so let me know if your interested ^^ PS, if your interested, you can just put it in a fresh EO copy, ill take it out myself then :) Dami
  16. damian666

    Rain on EO

    well, ya know, the point is, your supposed to make good tutorials. although the idea is nice, your gonna stuff up everybodies source with stuff like this. after lots of years, we finally have a engine without trash code in it, lets keep it this way :) just learn some more, then release a good tutorial ^^ Dami
  17. damian666

    Rain on EO

    yep, thats why i told him to stop these "pulled out of my ass" tutorials xd hell, even the one from samus, in cojunction with lightning's fix is better ^^ Dami
  18. damian666

    Rain on EO

    problem is robin, the tutorial for mapanimation sucks, so this sucks to :P Dami
  19. damian666

    Rain on EO

    sigh… could you please stop making this stupid tutorials... your making EO even worse then EE >.< Dami
  20. sigh… ok. give me a day or so, because i have to trace all changes, then ill post a tutorial to add better signs. Dami
  21. sigh… let me think about if i wanna share my signs. this is nice, but not the right way xd Dami
  22. let me guess, you enlarged the screensize? because if your calculation is off, it makes those weird movements too while walking. Dami
×
×
  • Create New...