damian666
Members-
Posts
1632 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Everything posted by damian666
-
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
-
Quick! Admins are asleep! Count as high as possible!
damian666 replied to emblem's topic in Forum Games
666? :3 -
whahha xd yes its me, im not dead yet mate ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons//tongue.png)
-
damn it xd its hard to find ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons//sad.png)
-
a hot hooker and a big bed :3
-
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?
-
anyone still has this thing? cant see a link anymore ![:(](http://www.touchofdeathforums.com/community/public/style_emoticons//sad.png)
-
can anybody that has it give it to me please? and yes i know it has flaws. thanx in advance Dami
-
wanna buy a account lvl 67/60/50 something? its on europe servers though :P Dami
-
sigh… nice work, but yeah, now i have to take it out, and then put this back... >.< that sucks :P Dami
-
unzip it >.<
-
nonsense, i have 2500, works fine, although you do notice it when starting server ofcourse :) Dami
-
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
-
Good for you man, I knew it would get out of control xD
-
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
-
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
-
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
-
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
-
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
-
problem is robin, the tutorial for mapanimation sucks, so this sucks to :P Dami
-
sigh… could you please stop making this stupid tutorials... your making EO even worse then EE >.< Dami
-
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
-
sigh… let me think about if i wanna share my signs. this is nice, but not the right way xd Dami
-
let me guess, you enlarged the screensize? because if your calculation is off, it makes those weird movements too while walking. Dami