Arrastando Janelas no Jogo

Abra o Cliente

1 - Vá até Ex:
Private Sub picParty_MouseDown

Obs.:Tem que ter o "Nome da janela" + _MouseDown

2 - Coloque o código:

Código:

    SOffsetX = X
    SOffsetY = Y

3 - Vá até Ex:
Private Sub picParty_MouseMove

Obs.:Tem que ter o "Nome da janela" + _MouseMove

4 - Coloque o código:

Call MovePicture(frmMain."Nome da janela", Button, Shift, X, Y)

(Substitua o "Nome da janela" pelo o nome da pic)

Obs.: Se a janela não tiver o "MouseMove", como o picOptions por exemplo, você tem que criar o picOptions_MouseDown e o picOptions_MouseMove:

Código:

Private Sub picOptions_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    SOffsetX = X
    SOffsetY = Y

End Sub

Private Sub picOptions_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Call MovePicture(frmMain.picOptions, Button, Shift, X, Y)

End Sub

Obs2.:Em picInventory_MouseMove o código:

Código:

Call MovePicture(frmMain.picInventory, Button, Shift, X, Y)

Deve ser colocado após:

Código:

    If DragInvSlotNum > 0 Then
        If InTrade > 0 Then Exit Sub
        If InBank Or InShop Then Exit Sub
        Call BltInventoryItem(x + picInventory.Left, y + picInventory.top)
    Else

Irá ficar assim:

Código:

    If DragInvSlotNum > 0 Then
        If InTrade > 0 Then Exit Sub
        If InBank Or InShop Then Exit Sub
        Call BltInventoryItem(x + picInventory.Left, y + picInventory.top)
    Else
        Call MovePicture(frmMain.picInventory, Button, Shift, x, y)
        InvNum = IsInvItem(x, y)

Obs3.:Em picSpells_MouseMove o código

Código:

Call MovePicture(frmMain.picSpells, Button, Shift, X, Y)

Deve ser colocado após:

Código:

    If DragSpell > 0 Then
        Call BltDraggedSpell(x + picSpells.Left, y + picSpells.top)
    Else

Créditos:
Valentine

Tópico atualizado, agora arrasta as janelas normalmente (Obs.: Pelo menos como eu queria)

Muito bom esse tuto Marlos
+1 cred
Só uma pergunta, porque você não faz um tuto assim para o RMXP?
Porque esse sistema é muito bom, e seria legal ter pra XP

Fallowz ~//

Porque tudo no rpg maker xp é mais complicado e muito mais códigos, no eclipse você so precisa fazer pequenas modificações como você vê nesse tópico, ja no rpg maker xp você precisaria criar pra isso pelo menos uns 2 scripts grandes

por isso não precisa de uma área de scripts para eclipse, apenas uma de tutorial

hmmm... entendi
Valeu então, parece bem simples a linguagem de scripts no Eclipse
Quem sabe eu num uso ele também XD

Fallowz ~//

Marlos, atualiza o tutorial dizendo aonde é as coisas.

Cliente ou servidor?
O "Private Sub picInventory_MouseDown" fica em qual parte?
'Forms, Modules ou Class modules você não explicou nada disso como o pessoal vai saber?

No mais bom tutorial! \o/

Tópico atualizado e reorganizado para nova versão do eclipse

muito bom agora ta mais facil mecher com as janelas.... o player mesmo pode organizar como ele kiser!

+1cred

Hehe,esqueceu do fato de que não funcionaria no picInventory e também no picSpells...

okabe escreveu:Hehe,esqueceu do fato de que não funcionaria no picInventory e também no picSpells...

Quem disse que não funciona? Claro que funciona, aqui funcionou normalmente em todas as janelas.