Здравейте . Имам затруднение по оправянето на една от опциите на сервера който хоствам. играта е с кораби галактики и така нататък. Проблема ми е следния има хората като достигнат определен експирианс немогат да вдигат повече . Значи бота е направен на 3200 но човека като достигне 3400 не дават повече . А аз искам след 3200 ботовете да дават по 2 няма значение те колко са достигнали . Ако някой знае с радост бих постнал кодовете . Благодаря предварително!
Изпитвам затруднения с Game server
- Автор wladi
- Начална дата
Това са единствените 2 кода каде съм намерил за експерианс на играча
Function ExpLevel(theExpAmmount As Integer) As Integer
WriteSub "explevel"
If theExpAmmount >= 200 Then ExpLevel = 1
If theExpAmmount >= 400 Then ExpLevel = 2
If theExpAmmount >= 800 Then ExpLevel = 3
If theExpAmmount >= 1000 Then ExpLevel = 4
If theExpAmmount >= 1200 Then ExpLevel = 5
If theExpAmmount >= 1600 Then ExpLevel = 6
If theExpAmmount >= 2000 Then ExpLevel = 7
If theExpAmmount >= 2400 Then ExpLevel = 8
If theExpAmmount >= 2800 Then ExpLevel = 9
If theExpAmmount >= 3200 Then ExpLevel = 10
If theExpAmmount >= 3400 Then ExpLevel = 11
If theExpAmmount >= 3600 Then ExpLevel = 12
If theExpAmmount >= 3800 Then ExpLevel = 13
If theExpAmmount >= 4000 Then ExpLevel = 14
If theExpAmmount >= 4200 Then ExpLevel = 15
If theExpAmmount >= 4400 Then ExpLevel = 16
If theExpAmmount >= 4600 Then ExpLevel = 17
If theExpAmmount >= 4800 Then ExpLevel = 18
If theExpAmmount >= 5000 Then ExpLevel = 19
If theExpAmmount >= 5200 Then ExpLevel = 20
End Function
Function UserExpRatio(check As Integer, check2 As Integer) As Double
UserExpRatio = UserExperience(check) / UserExperience(check2)
If UserExpRatio > 3 Then UserExpRatio = 3
If UserExpRatio < 1 Then UserExpRatio = 1
End Function
Function ExpLevel(theExpAmmount As Integer) As Integer
WriteSub "explevel"
If theExpAmmount >= 200 Then ExpLevel = 1
If theExpAmmount >= 400 Then ExpLevel = 2
If theExpAmmount >= 800 Then ExpLevel = 3
If theExpAmmount >= 1000 Then ExpLevel = 4
If theExpAmmount >= 1200 Then ExpLevel = 5
If theExpAmmount >= 1600 Then ExpLevel = 6
If theExpAmmount >= 2000 Then ExpLevel = 7
If theExpAmmount >= 2400 Then ExpLevel = 8
If theExpAmmount >= 2800 Then ExpLevel = 9
If theExpAmmount >= 3200 Then ExpLevel = 10
If theExpAmmount >= 3400 Then ExpLevel = 11
If theExpAmmount >= 3600 Then ExpLevel = 12
If theExpAmmount >= 3800 Then ExpLevel = 13
If theExpAmmount >= 4000 Then ExpLevel = 14
If theExpAmmount >= 4200 Then ExpLevel = 15
If theExpAmmount >= 4400 Then ExpLevel = 16
If theExpAmmount >= 4600 Then ExpLevel = 17
If theExpAmmount >= 4800 Then ExpLevel = 18
If theExpAmmount >= 5000 Then ExpLevel = 19
If theExpAmmount >= 5200 Then ExpLevel = 20
End Function
Function UserExpRatio(check As Integer, check2 As Integer) As Double
UserExpRatio = UserExperience(check) / UserExperience(check2)
If UserExpRatio > 3 Then UserExpRatio = 3
If UserExpRatio < 1 Then UserExpRatio = 1
End Function
Мисля, че си объркал раздела.
Иначе пробвай така:
Ако не стане, значи някъде другаде ти се бърка логиката. Примерно там където се инкрементира exp-то
:?: :idea:
Иначе пробвай така:
Код:
If theExpAmmount >= 200 AND theExpAmmount < 400 Then ExpLevel = 1
If theExpAmmount >= 400 AND theExpAmmount < 800 Then ExpLevel = 2
If theExpAmmount >= 800 AND theExpAmmount < 1000 Then ExpLevel = 3
If theExpAmmount >= 1000 AND theExpAmmount < 1200 Then ExpLevel = 4
If theExpAmmount >= 1200 AND theExpAmmount < 1600 Then ExpLevel = 5
If theExpAmmount >= 1600 AND theExpAmmount < 2000 Then ExpLevel = 6
If theExpAmmount >= 2000 AND theExpAmmount < 2400 Then ExpLevel = 7
If theExpAmmount >= 2400 AND theExpAmmount < 2800 Then ExpLevel = 8
If theExpAmmount >= 2800 AND theExpAmmount < 3200 Then ExpLevel = 9
If theExpAmmount >= 3200 AND theExpAmmount < 3400 Then ExpLevel = 10
If theExpAmmount >= 3400 AND theExpAmmount < 3600 Then ExpLevel = 11
If theExpAmmount >= 3600 AND theExpAmmount < 3800 Then ExpLevel = 12
If theExpAmmount >= 3800 AND theExpAmmount < 4000 Then ExpLevel = 13
If theExpAmmount >= 4000 AND theExpAmmount < 4200 Then ExpLevel = 14
If theExpAmmount >= 4200 AND theExpAmmount < 4400 Then ExpLevel = 15
If theExpAmmount >= 4400 AND theExpAmmount < 4600 Then ExpLevel = 16
If theExpAmmount >= 4600 AND theExpAmmount < 4800 Then ExpLevel = 17
If theExpAmmount >= 4800 AND theExpAmmount < 5000 Then ExpLevel = 18
If theExpAmmount >= 5000 AND theExpAmmount < 5200 Then ExpLevel = 19
If theExpAmmount >= 5200 AND theExpAmmount < 5400 Then ExpLevel = 20Ако не стане, значи някъде другаде ти се бърка логиката. Примерно там където се инкрементира exp-то
:?: :idea: