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.
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
Release ( GM Awakes ) Befehle 01/19/2014 - Flyff PServer Guides & Releases - 11 Replies Die ID´s habe ich nicht rausgefunden also kriege ich auch nur 0,0001%
der Credits fürs Copy and Paste ;D
Die restlichen sollte man ohne Probleme in einem der GM Tools finden. Empfehlen tue ich da das Tool von Sedrika ;)!
Awakes 03/29/2013 - Flyff Private Server - 3 Replies Hey,
Ich hab da mal ne frage , die Negativen kann man ja durch 00000000 deaktivieren aber nun müsste ich wissen wie man die Positiven deaktiviert.
Könnte mir das jemand sagen?
Mfg.: Nightr0ad
Awakes auslesen 06/04/2012 - Flyff Private Server - 3 Replies Hey,
ist es möglich Awakes auszulesen? Falls ja was brauch ich dazu?
MfG
[Problem] Awakes 10/28/2011 - Flyff Private Server - 2 Replies Ich habe so ein kleines Problem mit den Awa´s. Unzwar habe ich STR umgeänderdt so in etwa:
DST_STR 7 // ÇØ´ç DST°ªÀÌ ºÙÀ» È®·ü
10 10000000
15 10000000
30 10000000
39 10000000
43 10000000
50 10000000
55 5000000
Negative Awakes 02/24/2011 - Flyff Private Server - 3 Replies Hi ich hab mal wieder nen problem :P
Ich wolte negative Awakes austellen doch wenn ich es nach dem TuT aus dem offi fiele index mache geht es nicht da kommt dan immer zb fp - 0.
da hab ich die - einträge gelöscht und es hat auchnix gebracht kann mir jemand helfen?
MFG
![[PHP] Awakes anzeigen](https://www.elitepvpers.com/forum/iconimages/flyff-pserver-guides-releases/php-awakes-anzeigen_ltr.gif){kind=small}
