judoka

[](http://www.imagenes.alterengine.net/?v=errorzjz.png)

With the deafult CS:DE S:

Robin, I have NEVER seen anything like this, and I have been developing some projects with your engines. I've already reinstalled it x100000000 and nothing, I've downloaded it from differents sites, and nothing, ever the same problem :S I've got DirectX11 and Windows7 and I have installed aaaaaall the libraries, but… ever the same problem :( ¿What can I do? Regards, Guille. Thanks!

I did it before post this.

I haven't done any edit to the source. I use Windows 7 and I have already installed all the libraries and all those things..

Hello ! I'm trying CS:DE with the Celiannas Tileset, but when I try to edit the map, I get this visual error: [](http://www.imagenes.alterengine.net/?v=sintturjr.png) The tileset appears on the main screen instead of in the map editor, and the map preview appears on the map editor. So I can't map S: Any solution? Thanks !

For me works well :S All is showed when I need.

I didn't understand you, but I think that is for reset to the simply rarity system?

If you have a fix, please tell us how to fix our codes si vous plait (;

I only get bug with that. All the rest works like a charm (;

Hi, I installed your system and I love it, I think in the future I'll get marry with it, but… It has a problem with me: It says RT9 when I try to attack a door: **If Doors(key).state = 0 Then** The RTE is located here: Server Side>modPlayer>Sub CheckDoor(ByVal index As Long, ByVal x As Long, ByVal y As Long) How can I fix that? Thanks a lot. You'll receive the invitation for the marriage as soon as possible ! :D Edit: I saw that the RTE is only when I attack and the door is LOCKED if it's unlocked, the door speak.

With this we will modify the rarity system for get another like MU (Excellent, Master Items, etc..) **Client Side:** Find the Sub scrlRarity_Change() on frmEditor_Item and replace it with: ``` Private Sub scrlRarity_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 Select Case scrlRarity.Value 'Add Cases as levels of rarity you want. For me, there are only 3: Case 0 'Item normal lblRarity.Caption = "Rarity: Normal" Case 1 lblRarity.Caption = "Rarity: Excellent" Case 2 lblRarity.Caption = "Rarity: Master" Case Else lblRarity.Caption = "Rarity: Error" End Select Item(EditorIndex).Rarity = scrlRarity.Value ' Error handler Exit Sub errorhandler: HandleError "scrlRarity_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ``` Find "Select Case Item(itemnum).Rarity" in modGameLogic and replace it with: ``` Select Case Item(itemnum).Rarity 'Add or remove cases as levels of rarity you want Case 0 ' white. Item normal. .lblItemName.ForeColor = RGB(255, 255, 255) .lblItemName.Caption = Name Case 1 ' Item Excellent -Green .lblItemName.ForeColor = RGB(0, 255, 0) .lblItemName.Caption = "Excellent " & Name Case 2 ' Item Master -Dark Blue .lblItemName.ForeColor = RGB(65, 86, 197) .lblItemName.Caption = "Master " & Name ' maroon RGB(205, 34, 0) ' purple RGB(193, 104, 204) ' orange RGB(217, 150, 64) End Select ``` **Now, if you want to add extra stats points depends de rarity level:** **Server Side:** in modPlayer find "If Item(Player(index).Equipment(i)).Add_Stat(Stat) > 0 Then" and replace it with: ``` If Item(Player(index).Equipment(i)).Add_Stat(Stat) > 0 Then Select Case Item(Player(index).Equipment(i)).Rarity 'Add Cases as levels of rarity you want. Case 0 'Item Normal x = x + Item(Player(index).Equipment(i)).Add_Stat(Stat) Case 1 'Item Excellent. I will add 5 extra points to all x = x + Item(Player(index).Equipment(i)).Add_Stat(Stat) + 5 Case 2 'Item Master. I will add 15 extra points to all x = x + Item(Player(index).Equipment(i)).Add_Stat(Stat) + 15 End Select End If End If ``` Sorry for my English, I'm from Spain ^^ I hope it'll be useful for someone

Is there any possibility to send more than 3 datas to the server? ``` 'grass If frmEditor_Map.OptGrass.Value Then .Type = TILE_TYPE_GRASS .Data1 = GItem .Data2 = ItemEditorNum .Data3 = ItemEditorValue End If ```I wanna do that: ``` 'grass If frmEditor_Map.OptGrass.Value Then .Type = TILE_TYPE_GRASS .Data1 = GItem .Data2 = ItemEditorNum .Data3 = ItemEditorValueMax .Data4 = ItemEditorValueMin End If ```I tried to do that but… the map was wrong (the tiles went crazy)..