[PHP] Awakes anzeigen

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 (
bCheckedSafeFlagThen
            
Return nSize
        End 
If

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

        For 
As Integer 0 To 2

            
If (nRandomOptItemId iThen
                nSize 
nSize 1
            
Else
                Return 
nSize
            End 
If
            
<< 18

        Next

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

        
If ((n64RandomeOption & &H2000000000000000) = &H2000000000000000Then
            
Return True
        
Else
            Return 
False
        End 
If
    
End Function
    Public Function 
GetParam(ByVal nRandomOptItemId As Int64ByRef i As IntegerByRef pnDst As Int64ByVal pnAdj As Int64)

        If (
3Then
            
Return False
        End 
If

        
Dim nRandomOption As Int64 = (nRandomOptItemId >> (18))
        
pnAdj nRandomOption & &H1FF
        
If (nRandomOption & &H200Then

            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) > 1Then
            nStr 
", "
        
End If
        For 
As Integer 0 To GetRandomOptionSize(nRandomOptItemId)

            If (
GetParam(nRandomOptItemIdinDstnAdj) = FalseThen
                
Continue For
            
End If
            If (
nAdj >= 0Then
                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