[EO]Модификатор получаемого опыта - Конструкторы игр и лёгкие в освоении системы разработки игр - Конструкторы OnLine-игр

[EO]Модификатор получаемого опыта

harmoxyne

Дата: Пятница, 06 Июля 2012, 18:26 | Сообщение # 1

заслуженный участник

Сообщений: 527

Сейчас нет на сайте

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", и под ним вставляем

Code

Dim EXPRATE As Long

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)

Собственно, готово господа.