Sub Form Load()
If Usuario = "Admin" Then
MsgBox "Bienvenido Administrador"
End If
End Sub
 

Function Carga()
 
lblUser.Caption = s_usr
lblNivel.Caption = s_nvl
data_XP = Split(s_xp, "|")
lblXP.Caption = data_XP(0)
lblXPMax.Caption = data_XP(1)
 
''Llama los objetos que tiene el usuario
data_Objetos = Split(s_objetos, "|")
 
 
Call Load_Objetos(data_Objetos(0), data_Objetos(1), data_Objetos(2), data_Objetos(2), _
data_Objetos(4), data_Objetos(5), data_Objetos(6), data_Objetos(7), data_Objetos(8), _
data_Objetos(9), data_Objetos(10), data_Objetos(11), data_Objetos(12), data_Objetos(13), _
data_Objetos(14), data_Objetos(15), data_Objetos(16), data_Objetos(17), data_Objetos(18), _
data_Objetos(19), data_Objetos(20), data_Objetos(21), data_Objetos(22), data_Objetos(23), _
data_Objetos(24), data_Objetos(25))
 
''Llama las medallas que tiene el usuario
data_Medallas = Split(s_medallas, "|")
Call Medallas(data_Medallas(0), data_Medallas(1), data_Medallas(2), data_Medallas(3), _
data_Medallas(4), data_Medallas(5), data_Medallas(6))
 
''Carga el avatar del usaurio
imgAvatar.LoadImageFromFile (App.Path & "\images\Avatares\" & s_avatar & ".jpg")
lblMonedas.Caption = s_monedas
 
''Carga el rango y sus opciones
Call Rank(s_rank)
lblWins.Caption = s_Wins
lblLoses.Caption = s_Loses
 
''Llama los datos de tu digimon 1
data_Digimon1 = Split(s_digimon1, "|")
 
Call Digimon1(data_Digimon1(0), data_Digimon1(1), data_Digimon1(3), data_Digimon1(4))
 
''Llama los datos de tu digimon 2
data_Digimon2 = Split(s_digimon2, "|")
 
Call Digimon2(data_Digimon2(0), data_Digimon2(1), data_Digimon2(3), data_Digimon2(4))
 
 
''Llama los datos de tu digimon 3
data_Digimon3 = Split(s_digimon3, "|")
 
Call Digimon3(data_Digimon3(0), data_Digimon3(1), data_Digimon3(3), data_Digimon3(4))
 
''Llama los datos de tu digimon 3
data_Digimon4 = Split(s_digimon4, "|")
 
Call Digimon4(data_Digimon4(0), data_Digimon4(1), data_Digimon4(3), data_Digimon4(4))
 
frmMain.Enabled = True
pnlInicio.Visible = False
 
End Function

Public Function Load_Objetos(O1 As String, O2 As String, O3 As String, _
O4 As String, O5 As String, O6 As String, O7 As String, _
O8 As String, O9 As String, O10 As String, O11 As String, _
O12 As String, O13 As String, O14 As String, O15 As String, _
O16 As String, O17 As String, O18 As String, O19 As String, _
O20 As String, O21 As String, O22 As String, O23 As String, _
O24 As String, O25 As String, O26 As String) As String
 
 
 
 
For cont_obj = 0 To 25
 
imgObjects(cont_obj).LoadImageFromFile (App.Path & "\Images\Objetos\" & Load_Objetos(cont_obj) & ".png")
imgObjects(cont_obj).Tag = cont_obj
 
Next cont_obj
 
 
End Function
 
Public Function Medallas(M1, M2, M3, M4, M5, M6, M7)
 
Dim cont_medallas As Integer
 
For cont_medallas = 0 To 25
 
imgMedallas(cont_medallas).LoadImageFromFile (App.Path & "\Images\Medallas\" & Medallas(cont_obj) & ".png")
imgMedallas(cont_medallas).Tag = Medallas(cont_medallas)
 
Next cont_medallas
 
End Function
 
 

Error de compilacion:

El tipo de argumento ByRef no coincide

<?php
$puntos=$_GET["puntos"];
$pnt= $_COOKIE['puntos'];
$user=$_COOKIE['user'];
$val=$_GET["val"];
 $puntos_user="";
$res="";
    $con = mysql_connect('localhost','root','pass');
    $db = 'BD';
    $sql = 'select * from usuarios where user=' .$_COOKIE['user']; "'";
    $res = mysql_db_query($db,$sql,$con);
 
    if ($puntos_user = mysql_fetch_array($res)){
       $puntos_user = $pnt;
    } 
    $puntos_user = $puntos_user $val $puntos;
    $sql = "update puntos set puntos='" . $puntos_user . "' where user='" . $user . "'";
    mysql_db_query($db,$sql,$con);
    echo "Se ha modificado correctamente!.";
     echo "";
    echo "Los puntos de". $user  "puntos quedan ahora asi: " . $puntos_user;
    }
    ?>
 

 Parse error: syntax error, unexpected T_VARIABLE in /home/u527083781/public_html/games/puntos.php on line 16  

 
<?php
    $con = mysql_connect('host','usuario','contraseña');
    $db = 'nombre_de_la_tabla';
    $sql = 'select * from nomtabla where user_id=' . $_POST["tu_id"] . "'";
    $res = mysql_db_query($db,$sql,$con);
 
    if ($user_1 = mysql_fetch_array($res)){
 
       $puntos_user_1 = $user_1[puntos];
 
    }
 
    $sql = "select * from nomtabla where user_id='" . $_POST["otro_id"] . "'";
 
    $res = mysql_db_query($db,$sql,$con);
 
    if ($user_2 = mysql_fetch_array($res))
 
    {
 
       $puntos_user_2 = $user_2[puntos];
 
    }
 
    if ($puntos_user_1<$_POST["puntos_a_dar"])
    {
 
       echo "Puntos insuficientes";
 
    }else{
 
    $puntos_user_2 = $puntos_user_2 + $_POST["puntos_a_dar"];
 
    $puntos_user_1 = $puntos_user_1 - $_POST["puntos_a_dar"];
 
    $sql = "update puntos set puntos='" . $puntos_user_2 . "' where user_id='" . $_POST["otro_id"] . "'";
 
    mysql_db_query($db,$sql,$con);
 
    $sql = "update puntos set puntos='" . $puntos_user_1 . "' where user_id='" . $_POST["tu_id"] . "'";
 
    mysql_db_query($db,$sql,$con);
 
    echo "Se suman " . $_POST["puntos_a_dar"] . " al usuario con id " . $_POST["otro_id"];
 
    echo "";
 
    echo "Tus puntos quedan ahora asi: " . $puntos_user_1;
 
    }
 
    ?>