Code
This is a very simple code that allows you to change the experiance(exp) rate of your game without going through and editting npc's. If I get the time, I'll add more.
Как вы могли понять, это будет такой скролл-бар, который увеличивает "рейты" на опыт на сервере (то есть, умножает их на определенное количество)
1. Открываем исходный код нашего сервера.
2. Создаем скролл-бар там, где нам это будет удобно, и над ним создаем Label. Имя скролл-бара у нас будет "scrlExpRate", ну а надписи "lblExpRate"
3. Двойной клик по скролл-бару, и введем там такой код:
Code
Private Sub scrlExpRate_Change()
Dim EXPRATE As Long
lblExpRate.Caption = "Exp Rate: " & frmServer.scrlExpRate.Value
EXPRATE = frmServer.scrlExpRate.Value
If frmServer.scrlExpRate.Value > 1 Then
Call GlobalMsg("Experiance Rate For The Server Is Currently: " & frmServer.scrlExpRate.Value & "x", Yellow)
Else
If frmServer.scrlExpRate.Value = 0 Then
Call GlobalMsg("Experiance Rate For The Server Is Currently: Frozen", Yellow)
Else
Call GlobalMsg("Experiance Rate For The Server Is Currently: Normal", Yellow)
End If
End If
End Sub
4. Передвигаемся в modCombat, и ищем "Sub PlayerAttackNpc", и под ним вставляем
5. Ищем функцию с комментарием
Quote
Calculate exp to give attacker
И заменяем ее на
Code
' Check server's experaince rate
EXPRATE = frmServer.scrlExpRate.Value
' Calculate exp to give attacker
exp = (Npc(npcNum).exp * EXPRATE)
Собственно, готово господа.
