Sub RightClick

[Lidnel]

How it works?  ::)

```
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' This sub is used for the right click menu's
Sub RightClick(index, script, otherindex)   
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
if other <> 0 then
Select Case script
    Case 1
call playermsg(index, script, 1)
Case 2
call playermsg(index, script, 1)
    Case 3
call playermsg(index, script, 1)
Case 4
call playermsg(index, script, 1)
    Case 5
call playermsg(index, script, 1)
Case 6
call playermsg(index, script, 1)
    Case 7
call playermsg(index, script, 1)
End Select
else
Select Case script
    Case 1
call playermsg(index, script, 1)
Case 2
call playermsg(index, script, 1)
    Case 3
call playermsg(index, script, 1)
Case 4
call playermsg(index, script, 1)
    Case 5
call playermsg(index, script, 1)
Case 6
call playermsg(index, script, 1)
    Case 7
call playermsg(index, script, 1)
End Select
end if
End Sub
```