Delancis
-
Posts
15 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by Delancis
-
-
When I get this error, I do is turn off the server and then restarting the server
finally open the client, then not get the error.
how to fix this? -
> like i said go to server and classes.ini
>
> StartItemCount=4
>
> StartItem1=1
>
> StartValue1=5
>
> StartItem2=2
>
> StartValue2=1
>
> StartItem3=3
>
> StartValue3=1
>
> StartItem4=4
>
> StartValue4=1
>
> if ur using ER.
this only put the items in the inventory but not wear the player -
> If you're using EO2.3 you can make an event which gives new players some items.
>
> But you'll probably need some coding to make that event automatically equip these items and check new players sex.
How I can validate in the event system that is a new player?
please help me, this is the first time I use the event system -
Hello, how I can do so that new players registered, start with equipaments put, one for female and another for male.
for example with an armor and a helmet.
I need help with the code please…
;)Thanx. -
![](http://img855.imageshack.us/img855/8798/error9.png)
I do not know exactly which line the error occurs, so I copied them in the first post the new codes to add the server. So help me to find where this error .. : ( -
The code, which I wrote up in the first post
-
Yes I added the Malequipe and Femalequip in the text, also debug the code. The error I get on the server when I try to Log In or register in the client
-
Hello, I need your help. I get an error:
**run-time error '9':**
**Subscript out of range**
I'm trying that new players registered, start with equipaments put.
The change in server.vbp codes are:
**In Private Type ClassRec**
```
Malequip(1 To Equipment.Equipment_Count - 1) As Byte
Femalequip(1 To Equipment.Equipment_Count - 1) As Byte
```
**moddatabase in process LoadClasses**
```
' Malestarequip
Class(i).Malequip(Equipment.Armor) = Val(GetVar(filename, "CLASS" & i, "MaleEquipArmor"))
Class(i).Malequip(Equipment.Helmet) = Val(GetVar(filename, "CLASS" & i, "MaleEquipHelmet"))
Class(i).Malequip(Equipment.Shield) = Val(GetVar(filename, "CLASS" & i, "MaleEquipShield"))
Class(i).equip(Equipment.Weapon) = Val(GetVar(filename, "CLASS" & i, "MaleEquipWeapon"))
' Femalestartequip
Class(i).Femalequip(Equipment.Armor) = Val(GetVar(filename, "CLASS" & i, "FemaleEquipArmor"))
Class(i).Femalequip(Equipment.Helmet) = Val(GetVar(filename, "CLASS" & i, "FemaleEquipHelmet"))
Class(i).Femalequip(Equipment.Shield) = Val(GetVar(filename, "CLASS" & i, "FemaleEquipShield"))
Class(i).Femalequip(Equipment.Weapon) = Val(GetVar(filename, "CLASS" & i, "FemaleEquipWeapon"))
```
**and process SaveClasses**
```
' Save Male equipment
Call PutVar(filename, "CLASS" & i, "MaleEquipArmor", STR(Class(i).Malequip(Equipment.Armor)))
Call PutVar(filename, "CLASS" & i, "MaleEquipHelmet", STR(Class(i).Malequip(Equipment.Helmet)))
Call PutVar(filename, "CLASS" & i, "MaleEquipShield", STR(Class(i).Malequip(Equipment.Shield)))
Call PutVar(filename, "CLASS" & i, "MaleEquipWeapon", STR(Class(i).Malequip(Equipment.Weapon)))
' Save Female equipment
Call PutVar(filename, "CLASS" & i, "FemaleEquipArmor", STR(Class(i).Femalequip(Equipment.Armor)))
Call PutVar(filename, "CLASS" & i, "FemaleEquipHelmet", STR(Class(i).Femalequip(Equipment.Helmet)))
Call PutVar(filename, "CLASS" & i, "FemaleEquipShield", STR(Class(i).Femalequip(Equipment.Shield)))
Call PutVar(filename, "CLASS" & i, "FemaleEquipWeapon", STR(Class(i).Femalequip(Equipment.Weapon)))
```
**And finally in the process Addchar**
```
[size] ' set starter equipament
For n = 1 To Equipment.Equipment_Count - 1
If Player(index).Sex = SEX_MALE Then
Player(index).Equipment(n) = Class(ClassNum).Malequip(n)
Else
Player(index).Equipment(n) = Class(ClassNum).Femalequip(n)
End If
Next
[/size]
[color]What is the error or missing?? I'm doing well? help please[/color]
``` -
how I can do that by registering a new account, can choose the gender of sex?
please… -
when I'm registering a new player, doesn't show and can't select the gender sex… why?
-
admin account editor!?
-
> Oh, then you would have to edit the code that allows a new variable say StartEquip and MaxEquip or something.
The code would look like this?
```
If Class(ClassNum).startequipCount > 0 Then
For n = 1 To Class(ClassNum).startequipCount
If Class(ClassNum).Startequip(n) > 0 Then
If Len(Trim$(equip(Class(ClassNum).Startequip(n)).Name)) > 0 Then
Player(index).Inv(n).Num = Class(ClassNum).Startequip(n)
Player(index).Inv(n).Value = Class(ClassNum).StartValue(n)
End If
End If
Next
End If
```
sorry Im new in this forum, I do not know the code and game programming -
> Look in sub addchar server side.
what part of code i need change or replace and please tell me how is this code?? ![:unsure:](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/unsure.png) -
Hello, how I can do so that new players registered, start with equipaments put
for example with an armor and a helmet.
Miracle Reborn v0.1.0beta (before this was Eclipse Reborn)
in Custom Versions
Posted
Thanks for the genres of sex
2\. How I can do to make the move with the mouse faster?
The mouse movements are very slow
3\. I want to cast spells fire ball like projectiles.
How I can do???