Beiträge von FrEaKyBoY

Combat Arms | Selfmade

Info:

Viel gibts zu diesem Script nicht zu sagen. Ein Deathmatch Script nach dem Vorbild von
Nexons Combat Arms nachgescriptet. Bis jetzt sind noch keine Bugs bekannt , wenn ihr
welche findet meldet euch einfach bei mir per PM.

Maps/Modes:

10 verschiedene Combat Arms Maps , so gut wie möglich nachgebaut(Roadkill , SandHog, ...)
3 verschiedene Modes möglich (Elemination , S&D und Capture the Flag)
25 verschiedene Ränge können erreicht werden

Systeme

Wie oben genannt das Levelsystem
Ein Waffensystem das es einem möglich macht immer andere Waffen zu kaufen
Ein System das es möglich macht eigene "Rooms" zu erstellen
GM-System mit 3 Rängen

Download/Copyright

/edit by The Boondock Saints:
Behalt deine Ref Links

Hey Leute war lange nicht in der SA-MP Szene aktiv und versuch jetzt mal
was anderes. Nun steh ich ihrgendwie vor einem Rätsel.

Ich möchte das wenn jemand einen Befehl macht das erst abgefragt wird
ob der alevel > 5 besitzt.

if(GetPVarInt(playerid,"alevel" > 5))
{
SendClientMessage(playerid, COLOR_GREY, " Du darfst diesesn Befehl nicht nutzen!");
}
else
{

Gibt Errors , weiß wer wie es richtig geht?

Danke

Public Class Form1


Dim Zahlen As String = "1234567890"
Dim z As New Random
Dim Buchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklm­nopqrstuvwxyz1234567890"
Dim l As New Random
Dim Buchstabennur As String = "-nopqrstuvwxABCDEFGHIJKefghijklmyzLMNOPQRSTUVWXYZabcd"
Dim r As New Random






Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)






End Sub




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


    TextBox3.Text = ""
    For i As Integer = 1 To NumericUpDown1.Value
        erstellenz()
    Next





    TextBox2.Text = ""
    For i As Integer = 1 To NumericUpDown1.Value
        erstellen()
    Next






    TextBox1.Text = ""
    For i As Integer = 1 To NumericUpDown1.Value
        generieren()
    Next






End Sub


Private Sub generieren()
    Try
        TextBox1.Text += Buchstaben.Substring(l.Next(1, 60), 1)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub


Private Sub erstellen()


Try
        TextBox2.Text += Buchstabennur.Substring(r.Next(1, 61), 1)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub




Private Sub erstellenz()


    Try
        TextBox3.Text += Zahlen.Substring(z.Next(1, 62), 1)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub










End Class

Das Sollte eigentlich ein Random Code ausgeben.
Der je nach dem wie "NumericUpDown1.Value" eingestellt ist
viele Stellen hat. Funktioniert auch eigentlich , nur gibt er immer

Zitat

startIndex darf nicht länger als die Länge der Zeichenfolge sein.
Parametername: startIndex

Ich bin noch ein total anfänger und weiß nicht was ich
daran ändern muss , damit es geht.

Ich hoffe ihr könnt mir helfen!

Gruss Freaky

Die erste Frage wäre mit welchem Programm möchtest du das
machen bzw in welcher Sprache?

Visual Basic oder Autohotkey ......

public OnPlayerExitVehicle(playerid, vehicleid)
{
new Float:X, Float:Y, Float:Z;
GetPlayerPos(playerid, X, Y, Z);
AddStaticPickup(model,type,X, Y, Z);
return 1;
}

edit: in pwn
edit2: Fehler verbessert
edit3: Rechtschreibfehler

PutPlayerInVehicle(playerid, veh, 0);

probier das mal!

Nehm am besten das von ]hp[
ich habs ja genauso ich wusste nur nicht
welche Zahle welcher sitzt ist.

Versuch es mal so

new tmpplayerid[MAX_PLAYERS];

if(strcmp("/sp",cmdtext,true) == 0)
{
status4 = 1;
GetPlayerPos(playerid,SaveX[playerid],SaveY[playerid],SaveZ[playerid]);
SendClientMessage(playerid,COLOR_GREEN,"Your Posesition has been saved! To load use /lp");
GetPlayerFacingAngle(playerid,SaveR[playerid]);
tmpplayerid[playerid] = playerid;
return 1;
}

public Control1(playerid)
{
TogglePlayerControllable(tmpplayerid[MAX_PLAYERS],1);
GameTextForPlayer(tmpplayerid[MAX_PLAYERS],"~s~You_can_move_now",780,3);
SetPVarInt(tmpplayerid[MAX_PLAYERS],"Control", 0);
return 1;
}

Der ersten 20 Zeilen der server_log.txt poste mal bitten ansonsten kann
man schlecht sagen woran es liegt.War ein bisschin zu spät^^

Edit: text geändert