BIG SPELL DIFINITIVA [EEB]

O que faz
Bem a spell do Elysium e muito pequeno ,então aqui um jeito definitivo para deixa-las 1425x1425 com o tamanho de uma Big Spell, quando eu tiver mais tempo eu posto um com bigspell e spellnormal sendo escolhida por checkbox.

Na FrmSpellEditor onde tem a picSpell deixe desse jeito :

Código:

Height: 1425
Width: 1680

Agora vamos no modDirectX na Sub BltSpell , altere TODA a sub para:

Código:

Sub BltSpell(ByVal Index As Long)
Dim x As Long, y As Long, I As Long

If Player(Index).SpellNum <= 0 Or Player(Index).SpellNum > MAX_SPELLS Then Exit Sub
If Spell(Player(Index).SpellNum).SpellAnim <= 0 Then Exit Sub

For I = 1 To MAX_SPELL_ANIM
    If Player(Index).SpellAnim(I).CastedSpell = YES Then
        If Player(Index).SpellAnim(I).SpellDone < Spell(Player(Index).SpellNum).SpellDone Then
            If Player(Index).SpellAnim(I).SpellVar > 10 Then
                Player(Index).SpellAnim(I).SpellDone = Player(Index).SpellAnim(I).SpellDone + 1
                Player(Index).SpellAnim(I).SpellVar = 0
            End If
            If GetTickCount > Player(Index).SpellAnim(I).SpellTime + Spell(Player(Index).SpellNum).SpellTime Then
                Player(Index).SpellAnim(I).SpellTime = GetTickCount
                Player(Index).SpellAnim(I).SpellVar = Player(Index).SpellAnim(I).SpellVar + 1
            End If
                     
            rec.Top = Spell(Player(Index).SpellNum).SpellAnim * (3 * PIC_Y)
            rec.Bottom = rec.Top + (3 * PIC_Y)
            rec.Left = Player(Index).SpellAnim(I).SpellVar * (3 * PIC_Y)
            rec.Right = rec.Left + (3 * PIC_Y)
         
            If Player(Index).SpellAnim(I).TargetType = TARGET_TYPE_PLAYER Then
                If Player(Index).SpellAnim(I).Target > 0 Then
                    If Player(Index).SpellAnim(I).Target = MyIndex Then
                        x = NewX - 32
                        y = NewY - 32
                        Call DD_BackBuffer.BltFast(x, y, DD_SpellAnim, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
                    Else
                        x = GetPlayerX(Player(Index).SpellAnim(I).Target) * PIC_X + sx + Player(Player(Index).SpellAnim(I).Target).XOffset - 32
                        y = GetPlayerY(Player(Index).SpellAnim(I).Target) * PIC_Y + sx + Player(Player(Index).SpellAnim(I).Target).YOffset - 32
                        Call DD_BackBuffer.BltFast(x - (NewPlayerX * PIC_X) - NewXOffset, y - (NewPlayerY * PIC_Y) - NewYOffset, DD_SpellAnim, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
                    End If
                End If
            Else
                If Player(Index).SpellAnim(I).TargetType = TARGET_TYPE_NPC Then
                    x = MapNpc(Player(Index).SpellAnim(I).Target).x * PIC_X + sx + MapNpc(Player(Index).SpellAnim(I).Target).XOffset - 32
                    y = MapNpc(Player(Index).SpellAnim(I).Target).y * PIC_Y + sx + MapNpc(Player(Index).SpellAnim(I).Target).YOffset - 32
                    Call DD_BackBuffer.BltFast(x - (NewPlayerX * PIC_X) - NewXOffset, y - (NewPlayerY * PIC_Y) - NewYOffset, DD_SpellAnim, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
                Else
                    If Player(Index).SpellAnim(I).TargetType = TARGET_TYPE_LOCATION Then
                        x = MakeX(Player(Index).SpellAnim(I).Target) * PIC_X + sx - 32
                        y = MakeY(Player(Index).SpellAnim(I).Target) * PIC_Y + sx - 32
                        Call DD_BackBuffer.BltFast(x - (NewPlayerX * PIC_X) - NewXOffset, y - (NewPlayerY * PIC_Y) - NewYOffset, DD_SpellAnim, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
                    End If
                End If
            End If
        Else
            Player(Index).SpellAnim(I).CastedSpell = NO
        End If
    End If
Next I
End Sub

Agora volte para a FrmSpellEditor , ache o Timer1 de 2 cliks e mude tudo dentro dele para :

Código:

Private Sub Timer1_Timer()
Dim sRECT As RECT
Dim dRECT As RECT
Dim SpellDone As Long
Dim SpellAnim As Long
Dim SpellTime As Long

SpellDone = scrlSpellDone.Value
SpellAnim = scrlSpellAnim.Value
SpellTime = scrlSpellTime.Value

If SpellAnim <= 0 Then Exit Sub
If done = SpellDone Then Exit Sub

    With dRECT
        .Top = 0
        .Bottom = PIC_Y * 3
        .Left = 0
        .Right = PIC_X * 3
    End With

    If SpellVar > 10 Then
        done = done + 1
        SpellVar = 0
    End If
    If GetTickCount > Time + SpellTime Then
        Time = GetTickCount
        SpellVar = SpellVar + 1
    End If

    If DD_SpellAnim Is Nothing Then
    Else
        With sRECT
            .Top = SpellAnim * (3 * PIC_Y)
            .Bottom = .Top + (3 * PIC_Y)
            .Left = SpellVar * (3 * PIC_Y)
            .Right = .Left + (3 * PIC_Y)
        End With
     
        Call DD_SpellAnim.BltToDC(picSpell.hDC, sRECT, dRECT)
        picSpell.Refresh
    End If
End Sub

Bom tutorial^^obrigado por postar quem sabe servira para alguem^^