Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Im In Deep Poo!!!


JayT
 Share

Recommended Posts

hey i need help before i mess anything else up!! i pm'd Godlord my main and he says i have lots of syntax errors in it and most things dont work in my game now!! can sum1 plz look it over and help me fix it?? i'll back it up when its fixed so i never break it again. i just dont wanna lose what i have up to yet or i would start again.

Main link: [http://magicrealms.game-host.org/Main.txt](http://magicrealms.game-host.org/Main.txt)
Link to comment
Share on other sites

well all i can see now thats not working is godlord inv script which i added as a include. when a player joins it dont tell them whos online. i think a sub may be 'broken' somwere but i cant find nothing wrong lol :huh:
Link to comment
Share on other sites

@Harris:

> I saw one. Its right at the top.
>
> Replace:
> ```
> #include
> ```
> With:
> ```
> #include #include
> ```

It is:

> #include #include

My syntax checker might be retarded though because it always pointed at comments, telling me that you're missing "Then".

Plus you site is down. Upload it as an attachment.

Regards,
  Godlord.
Link to comment
Share on other sites

sry for double post but i think i read somewere on here the other day that you can put a code in your main that dont break it up if theres a broken code in it. maybe that can help me find the problem? can some1 gimme a link plz cos i cant find it now!! lol  :huh:
Link to comment
Share on other sites

```
Sub QueryBox(index, Prompt)
Value = GetVar("responses.ini","Responses",Cstr(index))
If Prompt = 0 Then
Call playermsg(index,  "lol", 12)
End If
End Sub

End Sub
```Delete the second End Sub. 

```
If GetVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) ".ini", "EXTRAS", "DOUBLEEXP") = "1" Then
  Call SetPlayerExp(Index, GetPlayerExp(Index) + GetNpcExp(NPCNum))
End If
End Sub
```Replace with:
```
If GetVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "EXTRAS", "DOUBLEEXP") = "1" Then
  Call SetPlayerExp(Index, GetPlayerExp(Index) + GetNpcExp(NPCNum))
End If
End Sub
```

```
Case 3
  Call PutVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) ".ini", "EXTRAS", "DOUBLEEXP", "1")
  Call PlayerMsg(Index, "For the next hour, you will have double-EXP", WHITE)
  Call PlayerMsg(Index, "Please do not logout, or the item's effect will stop early", WHITE)
  Call SetTimer("RemoveExp " & Index, 3600000)
  Call TakeItem(Index, 81, 1)
  Exit Sub
```Replace with:
```
      Case 3
  Call PutVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "EXTRAS", "DOUBLEEXP", "1")
  Call PlayerMsg(Index, "For the next hour, you will have double-EXP", WHITE)
  Call PlayerMsg(Index, "Please do not logout, or the item's effect will stop early", WHITE)
  Call SetTimer("RemoveExp " & Index, 3600000)
  Call TakeItem(Index, 81, 1)
  Exit Sub
```

```
      Case Else

  Exit Sub

End Sub
```Replace with:
```
      Case Else
      Exit Sub
  End Select

End Sub
```

```
Sub RemoveExp(Index)
  Call PutVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) ".ini", "EXTRAS", "DOUBLEEXP", "0")
  Call RemoveTimer("RemoveExp " & Index)
End Sub
```Replace with:
```
Sub RemoveExp(Index)
  Call PutVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "EXTRAS", "DOUBLEEXP", "0")
  Call RemoveTimer("RemoveExp " & Index)
End Sub
```

That should be all the syntax problems.
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...