[PHP] Awakes anzeigen

[Marc~]

Weißt du Sedrika,
Ich finde es ziemlich krass, dass du Noobs(like me), mit so einem "radikalen" Post anmachen möchtest. Mal ehrlich

Wer probleme hat die Attribute anzuzeigen sollte gleich die finder davon lassen.

Du warst immer Pro, wurdest als Pro geboren. npnp.~
Jeder brauch irgendwann & wo Hilfe, selbst du!

Absolut userunfreundlicher Moderator.

Das Script rein von der Idee ist ganz okay.

Halbes Thanks!

[Мarvіn]

Originally Posted by .MarcY0

Weißt du Sedrika,
Ich finde es ziemlich krass, dass du Noobs(like me), mit so einem "radikalen" Post anmachen möchtest. Mal ehrlich Du warst immer Pro, wurdest als Pro geboren. npnp.~
Jeder brauch irgendwann & wo Hilfe, selbst du!

Absolut userunfreundlicher Moderator.

Das Script rein von der Idee ist ganz okay.

Halbes Thanks!

Dieser Post ist echt der Inbegriff von Müll.
.. und deine Undankbarkeit verdient ein halbes Facepalm.

Is 'ne super Sache .. Kann man hin und wieder als Serveradmin gebrauchen.

[FlyCraft.TobiLap]

Habe das ganze mal nach VB.net portiert. nur leider kommt immer müll raus raus, egal wa sich eigebe... sieht jemand den fehler?

PHP Code:

        Dim randomfind As CRandomOptionProperty = New CRandomOptionProperty()
        MsgBox(randomfind.GetAwakes(263424)) 


---->' 5str

oder bei 0 kommt das hier

PHP Code:

Public Class CRandomOptionProperty

    Public Function GetRandomOptionSize(ByVal nRandomOptItemId As Int64) As Integer

        Dim nSize As Integer = 0

        Dim bCheckedSafeFlag As Boolean = False
        bCheckedSafeFlag = IsCheckedSafeFlag(nRandomOptItemId)
        If (bCheckedSafeFlag) Then
            Return nSize
        End If

        Dim i As Int64 = (&H3FFFF << 8)

        For j As Integer = 0 To 2

            If (nRandomOptItemId & i) Then
                nSize = nSize + 1
            Else
                Return nSize
            End If
            i = i << 18

        Next

        Return nSize
    End Function
    Public Function IsCheckedSafeFlag(ByVal n64RandomeOption As Int64) As Boolean

        If ((n64RandomeOption & &H2000000000000000) = &H2000000000000000) Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Function GetParam(ByVal nRandomOptItemId As Int64, ByRef i As Integer, ByRef pnDst As Int64, ByVal pnAdj As Int64)

        If (i > 3) Then
            Return False
        End If

        Dim nRandomOption As Int64 = (nRandomOptItemId >> (8 + i * 18))
        pnAdj = nRandomOption & &H1FF
        If (nRandomOption & &H200) Then

            pnAdj = -pnAdj
        End If
        nRandomOption = nRandomOption >> 10

        pnDst = nRandomOption & &H7F

        Return (pnDst > 0)

    End Function


    Public Function GetAwakes(ByVal nRandomOptItemId As Int64)

        Dim nDst As Integer = 0
        Dim nAdj As Integer = 0

        Dim nStr As String = ""
        Dim str As String = ""
        If (GetRandomOptionSize(nRandomOptItemId) > 1) Then
            nStr = ", "
        End If
        For i As Integer = 0 To GetRandomOptionSize(nRandomOptItemId)

            If (GetParam(nRandomOptItemId, i, nDst, nAdj) = False) Then
                Continue For
            End If
            If (nAdj >= 0) Then
                str = str & nDst & " +" & nAdj & nStr
            Else
                str = str & nDst & " -" & nAdj & nStr
            End If
        Next
        Return str
    End Function
End Class 


[Sedrika]

Jo, sehe deine Coding fehler.

[FlyCraft.TobiLap]

Originally Posted by Sedrika

Jo, sehe deine Coding fehler.

Und wo sind die ? xD

[Sedrika]

Erkläre ich dir heute abend. Bin jetzt an der Akademie.

[FlyCraft.TobiLap]

Originally Posted by Sedrika

Erkläre ich dir heute abend. Bin jetzt an der Akademie.

Fehler gefunden & != & ...sondern... & = AND xD

Trotzdem danke

[Taasy]

Benutz ich auch und funzt alles danke Sedrika

[Sedrika]

Originally Posted by FlyCraft.TobiLap

Fehler gefunden & != & ...sondern... & = AND xD

Trotzdem danke

Genau
Ich wollte nur um auf sicher zu gehen bei mir ebend noch vergleichen. Aber da du es hast ist ja in ordnung.

[xTwiLightx]

Danke für das Script.

Hab mir die Freiheit genommen, es auch um Level-Down und Statbonus zu erweitern.

[Sedrika]

Sieht gut aus. Auch wenn das jetzt nichts großes ist

[xTwiLightx]

...und trotzdem fehlt es bei dir noch.

[Sedrika]

Weil es nur um die Awakes ging