Expand collapse popup Func _PlayerGet _Account ( $Server, $Player ) Local $Char_Name = _GetColVals ( $Server, 'Characters', 'Charname' ) Local $Account_Name = _GetColVals ( $Server, 'Characters', 'Accountname' ) Local $Account = ( '-1' ), $Total = ( '-1' ) If $Char_Name = $Account_Name Then $Total = $Char_Name If $Total = ( '-1' ) Then Return ( '-1' ) If $Total ( '-1' ) Then For $Array = '1' To $Total If $Char_Name = $Player Then $Account = $Account_Name Next If $Account ( '-1' ) Then Return ( 'Account Name : ' & $Account ) If $Account = ( '-1' ) Then Return ( 'Error Player Dose Not Exist In Database' ) EndIf EndFunc Func _PlayerAdd _Penya ( $Server, $Player, $Penya ) $Total_Penya = _PlayerGet _Penya ( $Server, $Player ) + $Penya _Query ( $Server, "UPDATE characters SET penya = '" & $Total_Penya & "' WHERE charname = '" & $Player & "'" ) If Not Then Return ( 'Success' ) EndFunc Func _PlayerGet _Level ( $Server, $Player ) Local $Level = _GetColVals ( $Server, 'Characters', 'Level' ) Local $Char_Name = _GetColVals ( $Server, 'Characters', 'Charname' ) For $Array = '1' To $Char_Name If $Char_Name = $Player Then $Level = $Level Return $Level EndIf Next EndFunc Func _PlayerGet _Penya ( $Server, $Player ) Local $Penya = _GetColVals ( $Server, 'Characters', 'Penya' ) Local $Char_Name = _GetColVals ( $Server, 'Characters', 'Charname' ) For $Array = '1' To $Char_Name If $Char_Name = $Player Then $Penya = $Penya Return $Penya EndIf Next EndFunc Func _PlayerStat _Reset ( $Server, $Player ) _Query ( $Server, "UPDATE characters SET stat_str = '15' WHERE charname = '" & $Player & "'" ) _Query ( $Server, "UPDATE characters SET stat_sta = '15' WHERE charname = '" & $Player & "'" ) _Query ( $Server, "UPDATE characters SET stat_dex = '15' WHERE charname = '" & $Player & "'" ) _Query ( $Server, "UPDATE characters SET stat_int = '15' WHERE charname = '" & $Player & "'" ) $Total_Points = ( _PlayerGet _Level ( $Server, $Player ) * '2' ) - '2' _Query ( $Server, "UPDATE characters SET statpoints = '" & $Total_Points & "' WHERE charname = '" & $Player & "'" ) If Not Then Return ( 'Success' ) EndFunc Func _PlayerSet _Level ( $Server, $Player, $Level ) $Current_Level = _PlayerGet _Level ( $Server, $Player ) _Query ( $Server, "UPDATE characters SET level = '" & $Level & "' WHERE charname = '" & $Player & "'" ) _PlayerStat _Reset ( $Server, $Player ) If Not Then Return ( 'Success' ) EndFunc Func _AccountSet _Access _Level ( $Server, $Account, $Access_Level ) _Query ( $Server, "UPDATE accounts SET accesslevel = '" & $Access_Level & "' WHERE username = '" & $Account & "'" ) If Not Then Return ( 'Success' ) EndFunc
0 kommentar(er)
