I need help as a begginer coder.

[adamsharp]

can someone please debug this script for me plz?

```
Case "/dice1"
    Dim D1
    D1 = Rand(1,5)
    If D1 = 1 Then
    Call PlayerMsg(Index, "You Rolled 1 Out Of 5", BLUE)
        Call GiveCurrency(index, 1, 100)
    Else
    If D1 = 2 Then
    Call PlayerMsg(Index, "You Rolled 2 Out Of 5", BLUE)
Else
    If D1 = 3 Then
    Call PlayerMsg(Index, "You Rolled 3 Out Of 5", BLUE)
Else
    If D1 = 4 Then
    Call PlayerMsg(Index, "You Rolled 4 Out Of 5", BLUE)
Else
    If D1 = 5 Then
    Call PlayerMsg(Index, "You Rolled 5 Out Of 5", BLUE)
    End If
Exit Sub

```
Thanks.

[DrNova]

To clarify, his /help and other commands arent working, this is the only thing he edited in his main.txt so far so it might be thr problem.

[adamsharp]

@DrNova:

> To clarify, his /help and other commands arent working, this is the only thing he edited in his main.txt so far so it might be thr problem.

thank you for saying drnova

[Owen F]

each one should exit sub once it is done, otherwise it does not know what to do.
Also it should be ElseIf
There for:
```
Case "/dice1"
    Dim D1
    D1 = Rand(1,5)
    If D1 = 1 Then
    Call PlayerMsg(Index, "You Rolled 1 Out Of 5", BLUE)
        Call GiveCurrency(index, 1, 100)
    Else
    If D1 = 2 Then
    Call PlayerMsg(Index, "You Rolled 2 Out Of 5", BLUE)
Else
    If D1 = 3 Then
    Call PlayerMsg(Index, "You Rolled 3 Out Of 5", BLUE)
Else
    If D1 = 4 Then
    Call PlayerMsg(Index, "You Rolled 4 Out Of 5", BLUE)
Else
    If D1 = 5 Then
    Call PlayerMsg(Index, "You Rolled 5 Out Of 5", BLUE)
    End If
Exit Sub

```should be
```
Case "/dice1"
    Dim D1
    D1 = Rand(1,5)
    If D1 = 1 Then
    Call PlayerMsg(Index, "You Rolled 1 Out Of 5", BLUE)
        Call GiveCurrency(index, 1, 100)
Exit Sub
    ElseIf D1 = 2 Then
    Call PlayerMsg(Index, "You Rolled 2 Out Of 5", BLUE)
Exit Sub
ElseIf D1 = 3 Then
    Call PlayerMsg(Index, "You Rolled 3 Out Of 5", BLUE)
Exit Sub
ElseIf D1 = 4 Then
    Call PlayerMsg(Index, "You Rolled 4 Out Of 5", BLUE)
Exit Sub
Else
    Call PlayerMsg(Index, "You Rolled 5 Out Of 5", BLUE)
    End If
Exit Sub

```

[xelander]

```
Case "/dice1"
    Dim D1
    D1 = Rand(1,5)
    If D1 = 1 Then
    Call PlayerMsg(Index, "You Rolled 1 Out Of 5", BLUE)
        Call GiveCurrency(index, 1, 100)
    Else If D1 = 2 Then
    Call PlayerMsg(Index, "You Rolled 2 Out Of 5", BLUE)
Else If D1 = 3 Then
    Call PlayerMsg(Index, "You Rolled 3 Out Of 5", BLUE)
Else If D1 = 4 Then
    Call PlayerMsg(Index, "You Rolled 4 Out Of 5", BLUE)
Else If D1 = 5 Then
    Call PlayerMsg(Index, "You Rolled 5 Out Of 5", BLUE)
    End If
Exit Sub
```Really nice one you did.
I just edited some minor minor synax errors.
I made a really looking script once, the first like i though you copied mine. xD

Edit: I got body slamd.
I though it was space bettwen Else and If, but yah.

[adamsharp]

thank you people.

[Owen F]

Lol.
Before you use mine, adam, please allow me to edit one last thing. The last ElseIf should merely be Else.