Ryujin
-
Posts
15 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by Ryujin
-
-
Go in the Font Folder. Edit the Font Picture (Texture)! End…-.-
-
```
Dim plvl As Long
Dim index as long
plvl = Get.Player(index).Level
frmMain.lblPlevel = plvl
``` -
1\. Hast du die normale oder die portable Version von VB6?
Wenn es die normale ist einfach mal als Admin ausführen oder bei Kompatibilität-Modus auf Win XP schalten.
2\. Ja das ist möglich. Am Besten schaust du unter Tutorials->Source hier im Forum.
3\. Ebenso unter Source nachschauen, u.a. kannst du es selbst erstellen wenn du die Party-Funktion änderst.
4\. Zu German Eclipse fragst du am Besten Kamii. -
Are you stupid?
Press CTRL+F for SEARCH! -
Only HG/SS
!!! -
Du solltest für
Mensch/Krieger
Männlich + Weiblich
unterschiedliche Klamotten erstellen.
Das selbe auch für die Orks, find ich.
Zum Topic:
Ich würd gern mal was neues von gEO hören :D -
This is my second Tutorial.
I tell you, how to can send messages in different colours.
Before we beginn, we need following things:
1x ComboBox (cbColours)
First, click on the ComboBox (cbColours) and search in the properties for **List**
Enter the following into the list:
```
Black
Blue
Green
Cyan
Red
Magenta
Brown
Grey
DarkGrey
BrightBlue
BrightGreen
BrightCyan
BrightRed
Pink
Yellow
White
```
**THEN CHANGE IN THE PROPERTIES AT "STYLE" 0 TO 2**
Second, search for **Private Sub Form_Load()**.
Below **Call UsersOnline_Start** add **cbColours.Text = "White"**
Thirdly, search for **Private Sub txtChat_KeyPress(KeyAscii As Integer)**
Change this:
```
Private Sub txtChat_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
If LenB(Trim$(txtChat.Text)) > 0 Then
Call GlobalMsg(txtChat.Text, White)
Call TextAdd("Server: " & txtChat.Text)
txtChat.Text = vbNullString
End If
KeyAscii = 0
End If
End Sub
```
WITH THIS (THX to [7](http://www.touchofdeathforums.com/smf/index.php?action=profile;u=22287)):
```
Private Sub txtChat_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
If LenB(Trim$(txtChat.Text)) > 0 Then
Select Case cbColours.Text
Case "Black"
Call GlobalMsg("Server: " & txtChat.Text, Black)
Case "Blue"
Call GlobalMsg("Server: " & txtChat.Text, Blue)
Case "Green"
Call GlobalMsg("Server: " & txtChat.Text, Green)
Case "Cyan"
Call GlobalMsg("Server: " & txtChat.Text, Cyan)
Case "Red"
Call GlobalMsg("Server: " & txtChat.Text, Red)
Case "Magenta"
Call GlobalMsg("Server: " & txtChat.Text, Magenta)
Case "Brown"
Call GlobalMsg("Server: " & txtChat.Text, Brown)
Case "Grey"
Call GlobalMsg("Server: " & txtChat.Text, Grey)
Case "DarkGrey"
Call GlobalMsg("Server: " & txtChat.Text, DarkGrey)
Case "BrightBlue"
Call GlobalMsg("Server: " & txtChat.Text, BrightBlue)
Case "BrightGreen"
Call GlobalMsg("Server: " & txtChat.Text, BrightGreen)
Case "BrightCyan"
Call GlobalMsg("Server: " & txtChat.Text, BrightCyan)
Case "BrightRed"
Call GlobalMsg("Server: " & txtChat.Text, BrightRed)
Case "Pink"
Call GlobalMsg("Server: " & txtChat.Text, Pink)
Case "Yellow"
Call GlobalMsg("Server: " & txtChat.Text, Yellow)
Case "White"
Call GlobalMsg("Server: " & txtChat.Text, White)
Case Else
Call GlobalMsg("Server: " & txtChat.Text, Black)
End Select
Call TextAdd("Server: " & txtChat.Text)
txtChat.Text = vbNullString
End If
KeyAscii = 0
End If
End Sub
```
Done!
**At the end it looks like this:**
**Big THX to the DEVELOPERS OF ES SERVER EDIT!**
**EDITED: Now is done!** -
Pls delete the second post, sry
-
This is my first Tutorial,
I tell you, how to can count the files in the orders and display on your server form.
**Before we beginn, we need following things:**
1x Modul (modCounts)
1x Frame (Directory File Count)
1x Label (Accounts)
**Let's begin:**
You create a Modul and you give it the name **modFileCounts**
And add the follow Code in the Modul:
```
Function CountAccounts() As Long
Dim d As String
Dim i As Long
d = Dir("data\accounts\*.*")
Do Until d = ""
i = i + 1
d = Dir
Loop
frmServer.lblCountAccounts.Caption = "Accounts: " & i
End Function
```
Next, you create the Frame and the Lable
**Like this:**
Now you give the new Label the name **lblCountAccounts**.
Next you search in the **frmServer** for
```
Private Sub Form_Load()
Call UsersOnline_Start
End Sub
```
**Below you add this:**
```
Private Sub Form_Activate()
Call CountAccounts
End Sub
```
**And in the End it look like this:**
And what do this?
It counts the files in the Folder of Accounts ;D
When you would to count the maps you must add this in the **modFileCounts**
**Below the CountAccounts Function:**
```
Function CountMaps() As Long
Dim d As String
Dim i As Long
d = Dir("data\maps\*.*")
Do Until d = ""
i = i + 1
d = Dir
Loop
frmServer.lblCountMaps.Caption = "Maps: " & i
End Function
```
Now a new Label in the Directory File Count Frame:
The name of the Lable is **lblCountMaps**
At last you search for **Call CountAccounts** and below you add this **Call CountMaps**
**In the end it look like this:**
PS: I'm new in VB6 -
@Domino_:
> Can you fix whisper too? I think It doesnt work. :D the "!" command. ^^
Show at this Thread: http://www.touchofdeathforums.com/smf/index.php/topic,68998.0.html
You can change the /p to a ! command but you must change:
This:
' Player message
If Left$(ChatText, 3) = "/p " Then
ChatText = Mid$(ChatText, 4, Len(ChatText) - 3)
To this:
' Player message
If Left$(ChatText, 1) = "! " Then
ChatText = Mid$(ChatText, 2, Len(ChatText) - 1)
@Topic:
I think this Fix for the "-" Command is not right because when you change the MyText to ChatText and wrote with - inGame a Message its cutted 1 letter.
Example:
You write -hello
This comes out:
Accountname ello
We can fix this? -
-
Ich hätte nach den Questsystem zwei Vorschläge:
1\. Charakter aus selbst erstellen, wie im alten EE
Man kann eine Grafik für den
Kopf
Körper
Füße
bestimmen.
2\. Drei oder mehr Charakterslots auswählen.
Die Funktionen fehlen irgendwie in EO^^ -
Erstmals ich finds klasse das du an der Engine arbeitest.
Zweitens irgendwie versteh ich nicht genau was das SVN bringt oder wofür es genau dient es würde mich ziemlich intressieren^^
Und wirst du als nächstes ein Questsystem einbaun?
Wenn ja wirst du es komplett selbst schreiben oder aus den Tutorials eines nehmen und verbessern xD?
Also ich würd es als wichtig empfinden nach der Bug beseitig das Questsystem dann das Gildensystem einzubaun u.a in die INI eintragen wo eine Klasse den Startpunkt bekommt?
Und da du später ja auch mehr Ausrüstungen für einen Charakter einbaun willst könnte man doch nach der Registrierung sich einen Charakter erbauen so wie im alten EE?
Jedenfalls nice Job mit der geo Engine! -
Die Credits werden nicht mehr angezeigt.
Ansonsten ein gutes Update, dass Handbuch gibt euch einige Infos her.
Was man vllt noch machen könnte wäre die Editoren noch zu übersetzen, also den Map Editor oder vllt. das ACP verschiebbar einstellen.
Simple ORPG
in Non-Eclipse projects
Posted
First, You should never given up this engine because I'm so glad that a person invent a java online rpg engine *_*
Second, I hope you can add a better movement, a simple show and hide map stats (like fps, x=location, y=location, map=name), server log4j to textarea (appender) because consoles are so mainstream and a gui?