Beiträge von robbi2304

  • Häuser kaufen funktioniert nicht

    danke hab den fehler gefunden ein 1 ! zeichen zuviel
    ohne debug hätte ich das net gemerkt



    Habe nun allerdings ein Problem noch beim kaufen und verkaufen Updatet er den Pickup nicht.


    Welchen Fehler habe ich gemacht?


    UpdateHaus ist ganz oben mit eingefügt.


    Von meinem Samsung gesendet

  • Häuser kaufen funktioniert nicht

    In debuggen bin ich nicht gut krieg das nie hin xD


    Liegt im jedenfall an diesem Befehl:




    ocmd:hauskaufen(playerid,params[])
    {



    if(hatPlayerHaus(playerid))return
    SendClientMessage(playerid, COLOR_RED, "Du hast kein Haus");
    for(new i=0; i<sizeof(hInfo); i++)
    {
    if(!hInfo[i][h_id])continue;
    if(!IsPlayerInRangeOfPoint(playerid,5,hInfo[i][h_x],hInfo[i][h_y], hInfo[i][h_z]))return SendClientMessage(playerid,COLOR_RED, "Nix");
    if(!strlen(hInfo[i][h_besitzer]))
    { if(GetPlayerMoney(playerid)<hInfo[i][h_preis])return
    SendClientMessage(playerid,COLOR_RED, "Du hast nicht genug Geld");
    GivePlayerMoney(playerid, -hInfo[i][h_preis]);
    strmid(hInfo[i][h_besitzer],getPlayerName(playerid), 0, MAX_PLAYER_NAME, MAX_PLAYER_NAME);
    updateHaus(i);
    saveHaus(i);
    return 1;
    }
    return SendClientMessage(playerid,COLOR_RED," Das Haus steht nicht zum Verkauf");
    }
    return 1;
    }

  • Häuser kaufen funktioniert nicht

    Hallo, ich kann keine Häuser kaufen und weiß leider nicht mehr weiter.
    Mag mir wer helfen ? @Jeffry




    ocmd:hauskaufen(playerid, params[])
    {
    if(hatPlayerHaus(playerid))return
    SendClientMessage(playerid, COLOR_RED, "Du hast bereits ein Haus.");
    for(new i=0; i<sizeof(hInfo); i++)
    {
    if(!hInfo[i][h_id])continue;
    if(!IsPlayerInRangeOfPoint(playerid,5.0,hInfo[i][h_x], hInfo[i][h_y], hInfo[i][h_z]))continue;
    if(!strlen(hInfo[i][h_besitzer]))
    {
    if(GetPlayerMoney(playerid)<hInfo[i][h_preis])return
    SendClientMessage(playerid, COLOR_RED, "Du hast nicht genügend Geld.");
    GivePlayerMoney(playerid, -hInfo[i][h_preis]);
    strmid(hInfo[i][h_besitzer], getPlayerName(playerid), 0, MAX_PLAYER_NAME, MAX_PLAYER_NAME);
    updateHaus(i);
    saveHaus(i);
    return 1;
    }
    return SendClientMessage(playerid, COLOR_RED,"Das Haus steht nicht zum Verkauf.");
    }
    return 1;
    }



    getPlayerName(playerid)
    {
    new name[MAX_PLAYER_NAME];
    GetPlayerName(playerid, name, sizeof(name));
    return name;
    }



    hatPlayerHaus(playerid)
    {
    new name[MAX_PLAYER_NAME];
    GetPlayerName(playerid, name, sizeof(name));
    for(new i=0; i<sizeof(hInfo); i++)
    {
    if(!hInfo[i][h_id])continue;
    if(!strlen(hInfo[i][h_besitzer]))continue;
    }
    return 0;
    }



    saveHaus(id)
    {
    new query[128];
    format(query, sizeof(query), "UPDATE haus SET besitzer='%s', h_preis='%i' WHERE id='%i'", hInfo[id][h_besitzer], hInfo[id][h_preis], hInfo[id][h_id]);
    mysql_function_query(handle, query, false, "", "");
    return 1;
    }
    updateHaus(id)
    {
    new string[128];
    if(hInfo[id][h_pickup])
    {
    DestroyPickup(hInfo[id][h_pickup]);
    }
    if(hInfo[id][h_text])
    {
    Delete3DTextLabel(hInfo[id][h_text]);
    }
    if(!strlen(hInfo[id][h_besitzer]))
    {
    hInfo[id][h_pickup]=CreatePickup(1273, 1, hInfo[id][h_x], hInfo[id][h_y], hInfo[id][h_z], -1);
    format(string,sizeof(string), "Zum Verkauf\nKosten: %i$\n/hauskaufen", hInfo[id][h_preis]);
    hInfo[id][h_text]=Create3DTextLabel(string, COLOR_RED, hInfo[id][h_x], hInfo[id][h_y], hInfo[id][h_z], 10, 0, 1);
    }
    else
    {
    hInfo[id][h_pickup]=CreatePickup(1239, 1, hInfo[id][h_x], hInfo[id][h_y], hInfo[id][h_z], -1);
    format(string,sizeof(string), "Besitzer: %s\n/enter", hInfo[id][h_besitzer]);
    hInfo[id][h_text]=Create3DTextLabel(string, COLOR_BLUE, hInfo[id][h_x], hInfo[id][h_y], hInfo[id][h_z], 10, 0, 1);
    }
    return 1;
    }

  • VB ini Datei Problem

    Hallo,


    ich weiß das es hier kein Forum für VB ist aber vielleicht kann mir ja doch einer helfen.
    Mir wird immer wieder angezeigt das die ini datei nicht vorhanden ist.
    Wie kann ich diese am besten erstellen bzw. aus welchen Verzeichnis sucht er die ini raus ?


    Code
    Dim chronikPfad As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\kiwiweb\"
        Dim chronikArray() As String = Split(My.Computer.FileSystem.ReadAllText(chronikPfad & "test.ini"), vbNewLine)

  • Bot erstellt Accounts im Forum

    Ich habe seit 2 Jahren ein WBB Forum. Dieses hat keine Bots die irgendein zeug schreiben.


    Lass den Benutzer durch ein Team Mitglied bestätigen. Nur dann kann der Benutzer einen Beitrag erstellen wenn du es Richtig eingestellt hast.


    Ich habe auch Bot Zugriffe kann sie aber durch die Methode sehr Gut aussperren.


    Andernfalls bleibt dir nur die Accounts inmer wieder zu bannen

  • WhatsApp in Joomla

    Meine Anforderungen:


    Chatten über den Webbrowser
    Hinzufügen von Personen in einer Gruppe
    Wenn es möglich ist mit einem KryWort automatisch die Person in die Gruppe hinzufügen und das wars.


    Da ich mich in dem Bereich nich nicht beschäftigt habe bitte ich zunächst um eine Preisliche Vorstellung.

  • WhatsApp in Joomla

    Guten Tag liebe Leute,


    heute suche ich mal nach einer kleinen Info.


    Ich würde gerne in meinem Forum (Joomla) WhatsApp haben. Es soll eine eigene Rufnummer vorhanden sein. Ebenfalls soll über das Forum eine Antwort Funktion geben genauso eine Funktion zum hinzufügen von Leuten in eine Gruppe. Ich weiß das es das ganze gibt.


    Die Suchbegriffe sind mir aber leider nicht bekannt so das ich mal einen Rat von euch brauch. Vielleicht weiß da ja jemand wie es funktioniert und kann mir auch eine Seite geben wo dies erklärt wird