Abri-se a janela num certo level

por morenoo Qua 06 Abr 2011, 15:01

Olaa gostaria de pedir 1 ajudaa de voseis... euu keriaa qe quanduu tiver num certo level abri-see umaa janela.....

keem souberr pf me falee ^^
grato

por Gu1lh3rm3 Qua 06 Abr 2011, 15:26

bom não sei se vai funcionar :X, nao estou em casa para testar mais tente neh XD,

vai na frmMirage ou onde for que você queira que abra essa tal janelinha e crie uma Timer Mude o Inteval dela para 1 depois de 2 Clicks nela e adicione isso dentro dela.

Código:: If GetPlayerLevel(index) = 2 Then picStat.Visible = True End If

bom lembrando que nao testei ainda!
OBS. mude se seu caso for outro frm e outra pic.

por morenoo Qui 07 Abr 2011, 10:06

caraa taa dandoo erro =/

tipo eu puis qe nem vose feiz mais fikou selecionado o index....ee tenteii por (index, 1)...mais tbm n deuu certo =/.....entaum eu puis myindex....

Código:: Private Sub Timer1_Timer() If GetPlayerClass(MyIndex) = 1 Then If GetPlayerLevel(MyIndex) = 1000 Then PicClass.Visible = True Picclass2.Visible = True Picclass3.Visible = True Picclass4.Visible = True Else If GetPlayerClass(MyIndex) = 2 Then If GetPlayerLevel(MyIndex) = 1000 Then PicClass.Visible = True Picclass1.Visible = True Picclass3.Visible = True Picclass4.Visible = True End If End If End If End If End Sub

maiss daee fikaa selecionado essa linha

GetPlayerClass = Player(Index).Class

no codigo

Código:: Function GetPlayerClass(ByVal Index As Long) As Long GetPlayerClass = Player(Index).Class End Function Sub SetPlayerClass(ByVal Index As Long, ByVal ClassNum As Long) Player(Index).Class = ClassNum End Sub

Ajudaa eu aee =/

por SkyZero Qui 07 Abr 2011, 13:38

código é simples

procura por :
Sub BltPlayerName(ByVal Index As Long)
Isso é no GameLogic .
depois de procura adicione em qualquer parte :

Código:: If Player(MyIndex).Level = YY Then frmMirage.Janela.visible = True End If

YY = Lv
Janela = Nome da Pic para abrir .

por St4rk Qui 07 Abr 2011, 14:04

Não faça nenhum dos códigos a cima, se quizer pode até fazer, mais aconcelho fazer o seguinte:
Vai na Sub PlayerLevelUp(é algo assim) e cria o seguinte código

Código:: If Val(GetPlayerLevel(index) +1) = Level que você quer Then Call SendDataToMap(Index, "f1" & END_CHAR) End If

OU apenas IF GetPlayerLevel(index) = Level Then masi acho melhor o do Val
NO Client, no modulo que tem a sub HandleData você cria uma case nova

ex:

Código:: Case "f1" frmNome.Show ou você pode fazer frmNome.visible = true Exit Sub

Simplesmente seguro e fácil Wink

, aconcelho fazer backup, fiz tudo de cabeça ok (y).

por FilipeJF Qui 07 Abr 2011, 14:18

Testado e aprovado o do Omega '-'.

por morenoo Sex 08 Abr 2011, 12:39

ook Valeuu aee voo testaa...daee see der certoo eu edito ee dou os creditos^^

aa viuu see eu kiser colokar para level e classe tenhu qe por assim?

Código:: If Val(GetPlayerLevel(index) +1) = 1000 Then If GetPlayerClass(index) = 1 Call SendDataToMap(Index, "f1" & END_CHAR) End If End If

------EDIT------
Caraa taa danduu erro.... seleciona a "Case" do "Case "F1""
euu coloqueii ele akii

Código:: If Parse(0) = "info" Then frmMainMenu.lblOnOff.Caption = "Online" frmLogin.lblPlayers.Caption = "Esta com " & Parse(1) & " jogadores" frmLogin.lblPlayers.Visible = True frmLogin.tmrInfo.Enabled = False Exit Sub End If If Parse(0) = "infoequipe" Then frmLogin.lblEquipe.Caption = "sendo " & Parse(1) & " da equipe" frmLogin.lblEquipe.Visible = True Exit Sub End If Case "f1" FrmClass.Visible = True Exit Sub ' ::::::::::::::::::: ' :: Npc hp packet ::

ee naa principal...

Código:: If C > 1 Then Call GlobalMsg(GetPlayerName(index) & " ganhou " & C & " níveis!", 6) Else Call GlobalMsg(GetPlayerName(index) & " ganhou um nível!", 6) End If Call BattleMsg(index, "Você tem " & GetPlayerPOINTS(index) & " pontos para gastar.", 9, 0) If GetPlayerLevel(index) = 1000 Then If GetPlayerClass(index) = 1 Then Call SendDataToMap(Index, "f1" & END_CHAR) End If End If End If End Sub Sub UsingStatPoints(index, PointType, PointQuant) Select Case PointType Case 0 'Gives you a set max

Pf me ajudem >.<

por Conteúdo patrocinado

Abri-se a janela num certo level

Abri-se a janela num certo level

Re: Abri-se a janela num certo level

Re: Abri-se a janela num certo level

Re: Abri-se a janela num certo level

Re: Abri-se a janela num certo level

Re: Abri-se a janela num certo level

Re: Abri-se a janela num certo level

Re: Abri-se a janela num certo level