[PHP] Awakes anzeigen

Page 2 of 2 1 2
01/30/2013 14:27 Marc~#16
Weißt du Sedrika,
Ich finde es ziemlich krass, dass du Noobs(like me), mit so einem "radikalen" Post anmachen möchtest. Mal ehrlich
Quote:
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!
[Only registered and activated users can see links. Click Here To Register...]
01/30/2013 23:09 Мarvіn#17
Quote:
Originally Posted by .MarcY0 View Post
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. :facepalm:

Is 'ne super Sache .. Kann man hin und wieder als Serveradmin gebrauchen.
04/21/2013 22:53 FlyCraft.TobiLap#18
Habe das ganze mal nach VB.net portiert. nur leider kommt immer müll raus raus, egal wa sich eigebe... sieht jemand den fehler?
[Only registered and activated users can see links. Click Here To Register...]


PHP Code:
        Dim randomfind As CRandomOptionProperty = New CRandomOptionProperty()
        MsgBox(randomfind.GetAwakes(263424)) 
---->' 5str

oder bei 0 kommt das hier
[Only registered and activated users can see links. Click Here To Register...]

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 
04/22/2013 00:05 Sedrika#19
Jo, sehe deine Coding fehler.
04/22/2013 07:07 FlyCraft.TobiLap#20
Quote:
Originally Posted by Sedrika View Post
Jo, sehe deine Coding fehler.
Und wo sind die ? xD
04/22/2013 07:37 Sedrika#21
Erkläre ich dir heute abend. Bin jetzt an der Akademie.
04/22/2013 16:56 FlyCraft.TobiLap#22
Quote:
Originally Posted by Sedrika View Post
Erkläre ich dir heute abend. Bin jetzt an der Akademie.
Fehler gefunden & != & ...sondern... & = AND xD

Trotzdem danke
04/22/2013 17:22 Taasy#23
Benutz ich auch und funzt alles danke Sedrika
04/22/2013 17:26 Sedrika#24
Quote:
Originally Posted by FlyCraft.TobiLap View Post
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.
05/03/2014 00:46 xTwiLightx#25
Danke für das Script.

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

[Only registered and activated users can see links. Click Here To Register...]

[Only registered and activated users can see links. Click Here To Register...]
05/03/2014 19:55 Sedrika#26
Sieht gut aus. Auch wenn das jetzt nichts großes ist :)
05/03/2014 21:55 xTwiLightx#27
...und trotzdem fehlt es bei dir noch. :D
05/03/2014 22:04 Sedrika#28
Weil es nur um die Awakes ging :D
Page 2 of 2 1 2