This sub isnt working. help please

[JayT]

hey im making a lottery/chest script but my on click sub dont seem to be working when i click the chest :huh:
```
' Executes when a player clicks on an OnClick tile.
Sub OnClick(Index, Script)
Dim Amount
Dim High
Dim Low

Low = 2
High = 50
Amount = Rand(Low, High)
Select Case Script
Case 0
Call PlayerMsg(Index, "No Use", WHITE)
Case 1
Call PlayerMsg(Index, "No Use", WHITE)
Case 2
If GetVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "LOTTERY", "STATUS") = 1 Then
Call GiveItem(Index, Amount, 1)
Call PlayerMsg(Index, "Congratulations you have used a Lottery Point!", WHITE)
Call PutVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "LOTTERY", "STATUS", 0)
Else
Call PlayerMsg(Index, "You dont have a Lottery Point, you can obtain one from Mr Lucky!" BRIGHTRED)
End If

Case Else
Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE)
Exit Sub
End Select
End Sub
```i got my OC set to case 2 but nothing happens! lol

[Bobosk]

```
Call PlayerMsg(Index, "You dont have a Lottery Point, you can obtain one from Mr Lucky!", BRIGHTRED)
```

[JayT]

yer i just found that but it still aint working

[JayT]

ok maybe this will help…... this is all the script that i have up to yet:

```
------------------
Lottery Script
------------------
'THIS GOES IN ONCLICK FOR CHEST'

Dim Amount
Dim High
Dim Low

Low = 2
High = 50
Amount = Rand(Low, High)

Case x
If GetVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "LOTTERY", "STATUS") = 1 Then
Call GiveItem(Index, Amount, 1)
Call PlayerMsg(Index, "Congratulations you have used a Lottery Point!", WHITE)
Call PutVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "LOTTERY", "STATUS", 0)
Else
Call PlayerMsg(Index, "You dont have a Lottery Point, you can obtain one from Mr Lucky!", BRIGHTRED)
End If

'THIS GOES IN SCRIPTEDNPC'

Case x
If GetVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "LOTTERY", "STATUS") = 0 Then
Call Prompt(index, "Would you like to buy a Lottery Point?", 2)

Else
Call PlayerMsg(Index, "You already have a Lottery Point! Click a Chest to get a prize!", WHITE)

End If

'THIS GOES IN PROMPT UNDER THE FIRST "Select Case Value"'
Case x
If CanTake(Index, 82, 15) Then
Call TakeItem(Index, 82, 15)
Call PutVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "LOTTERY", "STATUS", 1)

'THIS GOES IN PROMPT UNDER THE SECOND "Select Case Value"'
Case x
Call PlayerMsg(Index, "Ok then please come back later...", WHITE)

```

[Bobosk]

it probably is, aside from the fact you're checking if a string = an int, and the incorrect GiveItem syntax, not to mention, giveitem gives non-stackable items, so you need to use GiveCurrency

[JayT]

@Bobosk:

> it probably is, aside from the fact you're checking if a string = an int, and the incorrect GiveItem syntax, not to mention, giveitem gives non-stackable items, so you need to use GiveCurrency

items 2-50 or non stackable. and the string thing works for my other scripts and the ones admiral did for me :huh:

[Bobosk]

then label your crap correctly, because the way you have it, looks like you're meaning to give them a random amount of gold.. as for the rest of your debugging, stick playermsgs everywhere

[JayT]

@Bobosk:

> then label your crap correctly, because the way you have it, looks like you're meaning to give them a random amount of gold.. as for the rest of your debugging, stick playermsgs everywhere

```
'THIS GOES IN ONCLICK FOR CHEST'

Dim Item
Dim High
Dim Low

Low = 2
High = 50
Item = Rand(Low, High)

Case x
If GetVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "LOTTERY", "STATUS", "1") Then
Call GiveItem(Index, Item, 1)
Call PlayerMsg(Index, "Congratulations you have used a Lottery Point!", WHITE)
Call PutVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "LOTTERY", "STATUS", 0)
Else
Call PlayerMsg(Index, "You dont have a Lottery Point, you can obtain one from Mr Lucky!", BRIGHTRED)
End If

```
Happy….. :icon_surprised:

[shadowwulf]

```
Call GiveItem(Index, Item, 1)
```I think you need to use itemnum() and reference your variable here.

Future note:
```
Call PutVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "LOTTERY", "STATUS", 0)

```This is fine if the max lottery points is 1… if you want to carry more... then you need to reduce by 1, not set to 0.
Hint:putvar=getvar-1

[JayT]

@~SW~:

> ```
> Call GiveItem(Index, Item, 1)
> ```I think you need to use itemnum() and reference your variable here.
>
> Future note:
> ```
> Call PutVar("Accounts\" & GetPlayerLogin(Index) & "\" & GetPlayerName(Index) & ".ini", "LOTTERY", "STATUS", 0)
>
> ```This is fine if the max lottery points is 1… if you want to carry more... then you need to reduce by 1, not set to 0.
> Hint:putvar=getvar-1

yer the max lotto points is 1… but the first part i dont get... do you mean GiveItem(Index, ItemNum(Item), 1)

[shadowwulf]

i beleive so.. havent used the source/script in like 6 months… but i beleive you cant just put item number there...
check what the call is for an item.

[JayT]

what about GiveItem(Index, ItemNum(Item), 1) and then take all the dims out e.t.c

[Bobosk]

No no no *smacks with a newspaper* it is GiveItem(Index, #,#)

[JayT]

i want the item number to be Rand(2, 50) tho not 1 specific number

[Bobosk]

rand(2, 50) IS a specific number, you don't need to do anything to it

[DrNova]

Dim itemnum

itemnum=rand(2, 50)

Call giveitem(index, INT(itemnum), #)

something along those lines

[JayT]

ok thanks Nova :) thats all i needed just a little guidance :P

[shadowwulf]

@Bobosk:

> No no no *smacks with a newspaper* it is GiveItem(Index, #,#)

that was great lol.

Yes that was what i was trying to get to… the command for get item was not correct. now it shooud be

[Owen F]

hmm
OnClick never work/s/ed for me. :l
anyway, i think you've got your answer already or am i missing something here? :huh:

[Bobosk]

@~SW~:

> that was great lol.
>
> Yes that was what i was trying to get to… the command for get item was not correct. now it shooud be

No no no *smacks with a newspaper* it is GiveItem(Index, #,#)

his command is fine..

[shadowwulf]

get/give whatever… I never said "call getitem()" cause i know that doesnt work... dont try and make an arguent lol