ORCS - Oldschool Roleplay Construction Set

Community Forums/Showcase/ORCS - Oldschool Roleplay Construction Set

Krischan (Posted 2010) [#1]

This is my latest project, based on my Khorinis Scenery Demo BSP Loader, still in an early stage but I wanted to share it and get your feedback for it. If you're older than 30 you remember games like The Bard's Tale, Dungeon Master, Eye of the Beholder or even Legend of Faerghail. First I wanted to create a clone of Legend of Faerghail but then I became very interested in creating a standalone engine working together with the NETradiant mapping tool and lightmapped Quake 3 format BSP files as a map source. The long-term focus is that you simply create a map in NETradiant, render the BSP together with the scripting stuff and external textfiles and let the engine do the rest. What has been finished right now? Well there is a nice customized BSP Loader creating the lightmapped mesh out of the BSP directly and it is able to parse the Entities contained in it, too (even custom entities created by yourself). You can walk block by block with a freelook camera, collisions, walk through doors, break doors, open secret doors, display text messages, a simple indoor/outdoor transition together with my BlitzSky for outdoor scenes, treasure chests, different floor walk sounds, compass, minimap and so on... Oh, and I changed my BlitzSky in this package a little bit so that BlitzSky doesn't create an own camera now and is able to use an existing camera instead. Additional, for my Legend of Faerghail (LOF) tests, I wrote a CSV2MAP utility which creates automatically a complete .MAP file out of a CSV file, completely caulked, textured, lights placed, chests placed, doors placed - ready to use. And now please don't laugh - as a 2D Map editor for this I use MS Excel :-D - I export the map to CSV, use CSV2MAP and render the BSP with NETradiant/Q3MAP2. In the folder maps/castle1 you find everything you need to modify the map yourself - it is the representation of the original LOF derelict castle level 1 map (always using 36x36 fields matrix). To run my demo just download the first link only, if you want to modify the maps and play around with it you should download NETradiant first (second link), unzip to ex. C:\Netradiant and then execute the my ORCS.exe file (first link) in this folder - this makes Netradiant portable, too. The demo is in the subfolder blitz3d.game/data/demo.bb. Below there are subfolders for maps, textures, models, shaders following the quake3 folder structures (mandatory for Netradiant to work properly!). How to play: moving with arrows, TAB switches between oldschool and freelook camera, LMB opens secret doors, RMB switches torch, M switches minimap (castle1 only) and SPACE switches wireframe mode. Oh and in the castle1 demo you can break two doors by running against them, over and over again :-D And now have fun with it! First Link: Download O.R.C.S. Second Link: Download NETradiant Please read the credits.txt file for usage rights for some of the used media! Last edited 2010

jfk EO-11110 (Posted 2010) [#2]

Sounds and looks really good. But I never thought that I will ever have to install MS Excel for game design - I hope Open Office works too :°)

Krischan (Posted 2010) [#3]

> I hope Open Office works too :°) Didn't try it but as fallback you're free to create the CSV with notepad :-D

SLotman (Posted 2010) [#4]

Impressive as always :) Any chance for a minib3d version? Last edited 2010

Zmatrix (Posted 2010) [#5]

looks good, :) Sam

taumel (Posted 2010) [#6]

Oh i would love to try this one out. Sadly there isn't a OSX version.

Krischan (Posted 2012) [#7]

I'm still playing Legend of Grimrock and inspired by it I continued to work on this project. Here are some new screens from my current WIP. A very early (=empty) stage of an indoor level and a outdoor scene using Blitzsky for day/night transitions. It is still made with Blitz3D and NetRadiant but I plan to move over to Blitzmax+MiniB3D. Unfortunately I couldn't find a simple solution with shader support to pimp the walls and better lighting using pixelshaders but it does still look nice even with DX7 lighting + lightmaps only. Last edited 2012

Trinosis (Posted 2012) [#8]

Hi Krischan. Doesn't run for me. Extracting the Orcs.exe reveals lots of files and folders but no runable .exe which i was expecting. I can compile the demo.bb source file in Blitz3d but i get the error message, 'texture does not exist'. Any ideas ? Looks really good by the way.

Krischan (Posted 2012) [#9]

Did you update Blitz3D to the latest version? Looks like your version does not yet support DDS textures used in the demo. Here I use 1.106 and it compiles / runs from the start.

Trinosis (Posted 2012) [#10]

Yes, you're right, my version of Blitz3d was out of date. I havn't updated it in years. That was a fun demo. I have a couple of issues though. I wasn't keen on the tile movement system. After playing fps games for many years, tile movement feels quite odd and restrictive to me. The castle level was pretty dark inside. On my monitor, a lot of the time it was really too dark to see, even with the torch activated. A gamma option would really help here, for users like myself who may have particularly dark monitors. I also didn't like the default camera zoom value, which gave that fishbowl lense 3d effect. So, i changed it to 'CameraZoom cam , 1.65' which gave a much more natural look. Apart from those small niggles i think you have a good foundation here to make a really cool retro style rpg. Any plans to make this into a full game ?

Ginger Tea (Posted 2012) [#11]

Seeing as he was inspired by grimrock to get back onto this it comes as no surprise that it's old school grid based

RemiD (Posted 2012) [#12]

I like how you use the flares for the lights, UT style :) Last edited 2012

Krischan (Posted 2012) [#13]

I made a small demo snapshot from my current outdoor quad engine I'll use for ORCS later - I switched over to BlitzMax and miniB3D now. It is only the outdoor area with dynamic grass and billboard trees which will be sufficient - there are no "real" 3D trees there as I won't make it too complicated. It is looking nice to me even if the trees look weird when you're very close to them. But the ORCS engine uses oldschool block moving later so I don't have to care very much about this issue. Use the mouse/arrows to move. Keys 1-3 change the scene time, 4 to 0 show/hide elements and V switches Vsync for FPS tests. Holding LMB elevates and RMB switches torchlight for night mode illumination. Except the sky and background mountains, there are only single surface quads which are updated very fast moving existing vertices only. Hope you like it. How fast does it run at your system? Here on my three year old laptop I get up to 200FPS (C2D @ 2.53GHz / GeForce 9600MGT). Download Executable (4.7MB) Last edited 2012

Hotshot2005 (Posted 2012) [#14]

That is Excellent and I going download it :) Have you heard of Grass party and Tree Party? UPDATED: After checking your program...I have notice you used Tree sprites like you see in Doom where dead enemys on the floor and you turn left or right and you will see the enemys sprites move as same as you see the tree move in circle I love the grass, trees and sky... Well Done Man 62 FPS on WITHOUT Vsync 290 FPS ON With Vsync :) 3GHZ 4GB RAM ATI Radeon 5870 Last edited 2012 Last edited 2012

Jason W. (Posted 2012) [#15]

Hotshot, How is that possible? vsync on will lock the fps to refresh rate? Maybe the refresh toggle is opposite. Jason Last edited 2012

Steve Elliott (Posted 2012) [#16]

Around 56FPS (average). Great atmosphere though, until you looked up. Kinda looked like there was a hole in the ceiling of a building - so you could see the stars.

Krischan (Posted 2012) [#17]

Steve - I can't reproduce your "problem" - on which GFX card did you test it? I changed the CameraRange and updated the upload - so please test it again.

slenkar (Posted 2012) [#18]

i tested it on an old intel gfx card, 7 FPS :) I had the same thing as steve elliot when i looked up

Steve Elliott (Posted 2012) [#19]

Gonna have to delete the notebook in my sig, then peeps would know lol ;) [Edit] I have. Last edited 2012

Banshee (Posted 2012) [#20]

I tried both demos and I thought both were very cool. I hope you finish it :)

Imperium (Posted 2013) [#21]

Uh oh.... Somethings wrong? Orcs worked just fine though.

Krischan (Posted 2013) [#22]

Hmm looks weird. Anyway - here is the unoptimized code for the billboard scene and an update to ORCS, have fun to play around with it: Download ZIP 9.7MB For the indoor levels I played a little bit with Normalmaps and DOT3 lights but I'm not happy with it yet, I really need shader lighting here for better results. In the first screen I used a model from Oblivion to test my single model dot3 light function, it calculates the vertex colors according the light position and so the normalmap lights the mesh correctly, the diamonds are additional dot3 light sources dummys, the base lighting is done with static lightmaps, all done in vanilla miniB3D without shaders. It doesn't look "flat" anymore but could be much better with shaders. Here my "dotlight.bmx" Include which I used for the DOT3 lighting of the model and the level, the B3D model has just the diffusemap applied to it - the texture name gets scanned and the brush will be reorganized with the normalmap which is always [diffusemapname]_n.png here. Please notice that the model should be pickable which I use to check if a model vertex can "see" the light source which is important to keep the dotlight inside rooms. The Lightsource is colored with 255,255,255 and a range of 128. I lose the vertex colors but I apply a single color texture created in CreateBaseTexture to recolor the whole model with a single color simulating colored light. There is only one light source / color possible now. ' load oblivion well model Const MINLIGHT:Int=128 Local model:TMesh=LoadAnimMesh("models/well/well.b3d") EntityFX model,1+2 'EntityColor model,0,0,0 EntityPickMode model,2 EntityType model,2 'UpdateNormals model ScaleEntity model,210,210,210 PositionEntity model,0,0,-512-64 RotateEntity model,0,180,0 UpdateMesh(model,128,128,MINLIGHT) ' Dot3 Model Lights Local rgb:Int[]=[160,144,128] ' RANGE=512 CreateDotLight(Model,False,0,64,-512-64,RANGE,MINLIGHT,rgb[0],rgb[1],rgb[2]) ' retexture model with dot3 normal map For Local s:Int=1 To CountSurfaces(model) Local surf:TSurface=GetSurface(model,s) Local brush:TBrush=GetSurfaceBrush(surf) Local newbrush:TBrush=CreateBrush() For Local t:Int=0 To 7 Local tex:TTexture=Null If GetBrushTexture(brush,t) Then tex=GetBrushTexture(brush,t) Local diffusemap:TTexture=LoadTexture(TextureName(tex)) Local normalmap:TTexture=LoadTexture(Replace(TextureName(tex),".png","_n.png")) Local colormap:TTexture=CreateBaseTexture(32,1,rgb[0],rgb[1],rgb[2]) Local occlusion:TTexture=LoadTexture(Replace(TextureName(tex),".png","_o.png")) TextureBlend normalmap,4 TextureBlend diffusemap,2 TextureBlend colormap,5 TextureBlend occlusion,5 BrushTexture newbrush,normalmap,0,0 BrushTexture newbrush,occlusion,0,1 BrushTexture newbrush,diffusemap,0,2 BrushTexture newbrush,colormap,0,3 EndIf Next PaintSurface(surf,newbrush) Next dotlight.bmx Include: ' ---------------------------------------------------------------------- ' Add a new Dot3 Light to a mesh ' ---------------------------------------------------------------------- Function CreateDotLight:TMesh(mesh:TMesh,vischeck:Int=True,x:Float=0.0,y:Float=0.0,z:Float=0.0,range:Float=128.0,minlight:Int=128,r:Int=255,g:Int=255,b:Int=255,dummysize:Int=8,dummyshow:Int=True) Local Light:TMesh=CreateSphere(2) ScaleEntity Light,dummysize,dummysize,dummysize EntityFX Light,1 EntityColor Light,r,g,b PositionEntity Light,x,y,z DotLight(mesh,Light,range,minlight,vischeck) If dummyshow=False Then FreeEntity Light Else Return Light End Function ' ---------------------------------------------------------------------------- ' lighten up a level or model with a virtual Dot3 light ' ---------------------------------------------------------------------------- Function DotLight(mesh:TMesh,light:TEntity,range:Float=128.0,minlight:Int=128,vischeck:Int=True) Local s:Int,v:Int Local surf:TSurface Local piv:TPivot=CreatePivot() Local intensity:Float Local d:Float,d1:Float,d2:Float Local x:Float,y:Float,z:Float Local dx:Float,dy:Float,dz:Float Local r:Float,g:Float,b:Float Local r1:Float,g1:Float,b1:Float Local r2:Float,g2:Float,b2:Float Local lx:Float=EntityX(light,1) Local ly:Float=EntityY(light,1) Local lz:Float=EntityZ(light,1) Local vis:Int=False ' cycle all surfaces For s=1 To CountSurfaces(mesh) ' get current surface surf=GetSurface(mesh,s) ' cycle all vertices For v=0 To CountVertices(surf)-1 ' transform vertex coordinates to local coordinates TFormPoint VertexX(surf,v),VertexY(surf,v),VertexZ(surf,v),mesh,Null x=TFormedX() y=TFormedY() z=TFormedZ() ' unflag vertex vis=False ' position helper pivot to vertex position ' and move it a little bit towards the light source PositionEntity piv,x,y,z PointEntity piv,light MoveEntity piv,0,0,0.1 ' get distance from light to vertex d1=EntityDistance(light,piv) ' vertex within light range? If d1<=range And vischeck=True Then ' do a linepick between light and vertex If LinePick(lx,ly,lz,x-lx,y-ly,z-lz) Then ' flag vertex vis=True ' position helper pivot to picked position PositionEntity piv,PickedX(),PickedY(),PickedZ() ' check distance to picked position from light d2=EntityDistance(light,piv) ' distance too short? unflag vertex = hit something If d2<d1 Then vis=False EndIf EndIf ' only if vertex is flagged If (vis=True Or vischeck=False) And d1<range Then ' calculate delta vector dx=x-lx dy=y-ly dz=z-lz ' calculate distance to delta vector d=Sqr(dx*dx+dy*dy+dz*dz) ' calculate light intensity intensity=1.0-(d/(range*2)) If intensity<0.0 Then intensity=0.0 ' transform vertex normal to local coordinates TFormNormal VertexNX(surf,v),VertexNY(surf,v),VertexNZ(surf,v),mesh,Null ' position helper pivot to new coordinates PositionEntity piv,TFormedX(),TFormedY(),TFormedZ(),1 ' align helper pivot to vector AlignToVector(piv,TFormedX(),TFormedY(),TFormedZ()) ' rotate helper pivot RotateEntity piv,EntityPitch(piv,1),EntityYaw(piv,1),0,1 ' transform delta vector to local coordinates TFormNormal dx,dy,dz,light,piv x=TFormedX() y=TFormedY() z=TFormedZ() ' calculate new dot3 colors r1=255-((1.0-x)*127.5*intensity) g1=255-((1.0-y)*127.5*intensity) b1=((1.0-z)*127.5*intensity) ' lighten dark areas if set If b1<minlight Then b1=minlight r2=VertexRed(surf,v) g2=VertexGreen(surf,v) b2=VertexBlue(surf,v) r=Overlay(r1,r2) g=Overlay(g1,g2) b=Overlay(b1,b2) ' assign new color to vertex VertexColor surf,v,r,g,b EndIf Next Next End Function ' ---------------------------------------------------------------------------- ' create a unicolor base texture for coloring a mesh ' ---------------------------------------------------------------------------- Function CreateBaseTexture:TTexture(size:Int=32,flags:Int=8,r:Int=255,g:Int=255,b:Int=255,a:Float=1.0) Local x:Int,y:Int Local pixmap:TPixmap=CreatePixmap(size,size,PF_RGBA8888) For x=0 To size-1 For y=0 To size-1 WritePixel(pixmap,x,y,CombineARGB(a*255,r,g,b)) Next Next Return LoadTexturePixmap(pixmap,flags) End Function ' ---------------------------------------------------------------------------- ' missing AlignToVector function for miniB3D ' ---------------------------------------------------------------------------- Function AlignToVector(entity:TEntity,x:Float,y:Float,z:Float) Local yaw:Float,pitch:Float,roll:Float Local x1:Float,y1:Float,z1:Float Local x2:Float,y2:Float,z2:Float Local x3:Float,y3:Float,z3:Float yaw=-ATan2(x,z) x1=z*Sin(yaw)+x*Cos(yaw) y1=y z1=z*Cos(yaw)-x*Sin(yaw) pitch=-ATan2(y1,z1) x2=x1 y2=y1*Cos(pitch)-z1*Sin(pitch) z2=y1*Sin(pitch)+z1*Cos(pitch) roll= -ATan2(x2, y2) x3=x2*Cos(roll)-y2*Sin(roll) y3=x2*Sin(roll)+y2*Cos(roll) z3=z2 If y<0 Then roll:+180 RotateEntity entity,pitch,yaw,roll End Function ' ---------------------------------------------------------------------------- ' change mesh Vertex Colors ' ---------------------------------------------------------------------------- Function UpdateMesh(mesh:TMesh,r:Int=255,g:Int=255,b:Int=255,a:Float=-1) Local v:Int Local s:Int Local surf:TSurface Local alpha:Float For s=1 To CountSurfaces(mesh) surf=GetSurface(mesh,s) For v=0 To CountVertices(surf)-1 If a<0 Then alpha=VertexAlpha(surf,v) Else alpha=a EndIf VertexColor surf,v,r,g,b,alpha Next Next End Function Additional here is the pixmap.bmx include used for LoadTexturePixmap: ' ---------------------------------------------------------------------------- ' Return A value of a given RGB value ' ---------------------------------------------------------------------------- Function GetA:Int(RGB:Int) Return RGB Shr 24 & %11111111 End Function ' ---------------------------------------------------------------------------- ' Return R value of a given RGB value ' ---------------------------------------------------------------------------- Function GetR:Int(RGB:Int) Return RGB Shr 16 & %11111111 End Function ' ---------------------------------------------------------------------------- ' Return G value of a given RGB value ' ---------------------------------------------------------------------------- Function GetG:Int(RGB:Int) Return RGB Shr 8 & %11111111 End Function ' ---------------------------------------------------------------------------- ' Return B value of a given RGB value ' ---------------------------------------------------------------------------- Function GetB:Int(RGB:Int) Return RGB & %11111111 End Function ' ---------------------------------------------------------------------------- ' Return RGB value of given R,G,B single values ' ---------------------------------------------------------------------------- Function CombineRGB:Int(r:Int,g:Int,b:Int) Return b | (g Shl 8) | (r Shl 16) End Function ' ---------------------------------------------------------------------------- ' Return ARGB value of given R,G,B,A single values ' ---------------------------------------------------------------------------- Function CombineARGB:Int(a:Int,r:Int,g:Int,b:Int) Return b | (g Shl 8) | (r Shl 16) | (a Shl 24) End Function ' ---------------------------------------------------------------------------- ' Load a pixmap to a brush ' ---------------------------------------------------------------------------- Function LoadBrushPixmap:TBrush(pixmapin:TPixmap,flags:Int=1,u_scale:Float=1.0,v_scale:Float=1.0) Return PixTBrush.LoadBrushPixmap(pixmapin,flags,u_scale,v_scale) End Function ' ---------------------------------------------------------------------------- ' Load a pixmap to a texture ' ---------------------------------------------------------------------------- Function LoadTexturePixmap:TTexture(pixmapin:TPixmap,flags:Int=1) Return PixTTexture.LoadTexturePixmap(pixmapin,flags) End Function Type PixTBrush Extends TBrush Function LoadBrushPixmap:TBrush(pixmapin:TPixmap,flags:Int=1,u_scale:Float=1.0,v_scale:Float=1.0) Local brush:TBrush=New TBrush brush.tex[0]=PixTTexture.LoadTexturePixmap:TTexture(pixmapin,flags) brush.no_texs=1 brush.tex[0].u_scale#=u_scale# brush.tex[0].v_scale#=v_scale# Return brush End Function End Type Type PixTTexture Extends TTexture Function LoadTexturePixMap:TTexture(pixmapin:TPixmap,flags:Int=1,tex:TTexture=Null) Return LoadAnimTexturePixMap:TTexture(pixmapin,flags,0,0,0,1,tex) End Function Function LoadAnimTexturePixMap:TTexture(pixmapin:TPixmap,flags:Int,frame_width:Int,frame_height:Int,first_frame:Int,frame_count:Int,tex:TTexture=Null) Local pixmapFileName:String="pixmap"+MilliSecs()+Rnd() If flags&128 Then Return LoadCubeMapTexture(pixmapFileName$,flags,tex) If tex=Null Then tex:TTexture=New TTexture tex.file:String=pixmapFileName tex.file_abs:String=pixmapFileName ' set tex.flags before TexInList tex.flags=flags tex.FilterFlags() ' check to see if texture with same properties exists already, if so return existing texture Local old_tex:TTexture old_tex=tex.TexInList() If old_tex<>Null And old_tex<>tex Return old_tex Else If old_tex<>tex ListAddLast(tex_list,tex) EndIf EndIf ' load pixmap tex.pixmap = CopyPixmap(pixmapin) ' check to see if pixmap contain alpha layer, set alpha_present to true if so (do this before converting) Local alpha_present:Int=False If tex.pixmap.format=PF_RGBA8888 Or tex.pixmap.format=PF_BGRA8888 Or tex.pixmap.format=PF_A8 Then alpha_present=True ' convert pixmap to appropriate format If tex.pixmap.format<>PF_RGBA8888 tex.pixmap=tex.pixmap.Convert(PF_RGBA8888) EndIf ' if alpha flag is true and pixmap doesn't contain alpha info, apply alpha based on color values If tex.flags&2 And alpha_present=False tex.pixmap=ApplyAlpha(tex.pixmap) EndIf ' if mask flag is true, mask pixmap If tex.flags&4 tex.pixmap=MaskPixmap(tex.pixmap,0,0,0) EndIf ' --- ' if tex not anim tex, get frame width and height If frame_width=0 And frame_height=0 frame_width=tex.pixmap.width frame_height=tex.pixmap.height EndIf ' --- tex.no_frames=frame_count tex.gltex=tex.gltex[..tex.no_frames] ' --- ' pixmap -> tex Local xframes:Int=tex.pixmap.width/frame_width Local yframes:Int=tex.pixmap.height/frame_height Local startx:Int=first_frame Mod xframes Local starty:Int=(first_frame/yframes) Mod yframes Local x:Int=startx Local y:Int=starty Local pixmap:TPixmap For Local i:Int=0 To tex.no_frames-1 ' get static pixmap window. when resize pixmap is called new pixmap will be returned. pixmap=tex.pixmap.Window(x*frame_width,y*frame_height,frame_width,frame_height) x=x+1 If x>=xframes x=0 y=y+1 EndIf ' --- pixmap=AdjustPixmap(pixmap) tex.width=pixmap.width tex.height=pixmap.height Local width:Int=pixmap.width Local height:Int=pixmap.height Local name:Int glGenTextures 1,Varptr name glBindtexture GL_TEXTURE_2D,name Local mipmap:Int If tex.flags&8 Then mipmap=True Local mip_level:Int=0 Repeat glPixelStorei GL_UNPACK_ROW_LENGTH,pixmap.pitch/BytesPerPixel[pixmap.format] glTexImage2D GL_TEXTURE_2D,mip_level,GL_RGBA8,width,height,0,GL_RGBA,GL_UNSIGNED_BYTE,pixmap.pixels If Not mipmap Then Exit If width=1 And height=1 Exit If width>1 width:/2 If height>1 height:/2 pixmap=ResizePixmap(pixmap,width,height) mip_level:+1 Forever tex.no_mipmaps=mip_level tex.gltex[i]=name Next Return tex End Function End Type

Ian Thompson (Posted 2013) [#23]

I find a non shader based DOT3 very interesting, its good to see how its done in BMX code. Now if you could show me how to do your own runtime shadow maps that would make my day Krischan!