Sablefalcon Posted January 12, 2009 Author Share Posted January 12, 2009 OK I give.This works:Sub ScriptedItem(Index, Script)Select Case ScriptCase 0 Call SetPlayerSprite(Index, 30) SendPlayerData(Index)Exit SubThis doesn't:Sub ScriptedItem(Index, Script)Select Case ScriptCase 0 Call GetPlayerSprite(Index) If GetPlayerSprite(Index) = 0 Then Call SetPlayerSprite(Index, 30) SendPlayerData(Index)Exit SubWhy? Link to comment Share on other sites More sharing options...
User01 Posted January 12, 2009 Share Posted January 12, 2009 Hi, im new but i know answer why :).Look **if** your **index=0** then your sprite will be nr 30\. If not, nothink happend. I think you will try so:Sub ScriptedItem(Index, Script) Select Case Script Case 0 Call GetPlayerSprite(Index) If GetPlayerSprite(Index) = 0 Then Call SetPlayerSprite(Index, 30) SendPlayerData(Index) else Call SetPlayerSprite(Index, 30) SendPlayerData(Index) Exit SubIm not sure, but will be work now?. Link to comment Share on other sites More sharing options...
Sablefalcon Posted January 12, 2009 Author Share Posted January 12, 2009 Negative, but thanks for trying. Link to comment Share on other sites More sharing options...
Eviltyphoon Posted January 12, 2009 Share Posted January 12, 2009 You forgot an end if. And you don't have to do a call for the player sprite first unless you put it in a variable.Try this```Sub ScriptedItem(Index, Script) Select Case Script Case 0 If GetPlayerSprite(Index) = 0 Then Call SetPlayerSprite(Index, 30) SendPlayerData(Index) [b]End if[/b] Exit Sub``` Link to comment Share on other sites More sharing options...
Sablefalcon Posted January 12, 2009 Author Share Posted January 12, 2009 That Worked. Thanks, and now because of your help, my daughters can change hair styles and hair color…..oh the joys of fatherhood. :)just to be sure:the continuation of this will be:Sub ScriptedItem(Index, Script)Select Case ScriptCase 0 If GetPlayerSprite(Index) = 0 Then Call SetPlayerSprite(Index, 30) SendPlayerData(Index) Else If GetPlayerSprite(Index) = # Then Call SetPlayerSprite(Index, #) SendPlayerData(Index) Else If GetPlayerSprite(Index) = # Then Call SetPlayerSprite(Index, #) SendPlayerData(Index) End ifExit SubCorrect? Link to comment Share on other sites More sharing options...
Sablefalcon Posted January 13, 2009 Author Share Posted January 13, 2009 OK Case 0 worked fine, until I added Case 1, which was a different item, now neither works.Select Case ScriptCase 0 If GetPlayerSprite(Index) = 30 Then Call SetPlayerSprite(Index, 0) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 31 Then Call SetPlayerSprite(Index, 30) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 32 Then Call SetPlayerSprite(Index, 30) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 33 Then Call SetPlayerSprite(Index, 30) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 34 Then Call SetPlayerSprite(Index, 30) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 34 Then Call SetPlayerSprite(Index, 30) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 36 Then Call SetPlayerSprite(Index, 30) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 15 Then Call SetPlayerSprite(Index, 37) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 38 Then Call SetPlayerSprite(Index, 37) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 39 Then Call SetPlayerSprite(Index, 37) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 40 Then Call SetPlayerSprite(Index, 37) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 41 Then Call SetPlayerSprite(Index, 37) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 42 Then Call SetPlayerSprite(Index, 37) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 43 Then Call SetPlayerSprite(Index, 37) SendPlayerData(Index) End If Exit SubCase ElseCall PlayerMsg(Index, "No item script found. Please contact an admin to solve this problem.", WHITE)Exit SubCase 1 If GetPlayerSprite(Index) = 0 Then Call SetPlayerSprite(Index, 31) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 30 Then Call SetPlayerSprite(Index, 31) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 32 Then Call SetPlayerSprite(Index, 31) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 33 Then Call SetPlayerSprite(Index, 31) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 34 Then Call SetPlayerSprite(Index, 31) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 34 Then Call SetPlayerSprite(Index, 31) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 36 Then Call SetPlayerSprite(Index, 31) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 15 Then Call SetPlayerSprite(Index, 40) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 38 Then Call SetPlayerSprite(Index, 40) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 39 Then Call SetPlayerSprite(Index, 40) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 37 Then Call SetPlayerSprite(Index, 40) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 41 Then Call SetPlayerSprite(Index, 40) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 42 Then Call SetPlayerSprite(Index, 40) SendPlayerData(Index) ElseIf GetPlayerSprite(Index) = 43 Then Call SetPlayerSprite(Index, 40) SendPlayerData(Index) End IfExit SubCase ElseCall PlayerMsg(Index, "No item script found. Please contact an admin to solve this problem.", WHITE)Exit SubEnd SelectEnd SubI hate to keep bugging you guys, I'm just learning scripting, and missing something here. Link to comment Share on other sites More sharing options...
Dark_Marine_123 Posted January 13, 2009 Share Posted January 13, 2009 Case Else Call PlayerMsg(Index, "No item script found. Please contact an admin to solve this problem.", WHITE) Exit SubYou have this baby twice, Copy and paste is not your friend xD Link to comment Share on other sites More sharing options...
Sablefalcon Posted January 13, 2009 Author Share Posted January 13, 2009 I thought it had to be there for each case…thanks :) Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now