Sablefalcon

That's awesome.

I know that I am sort of reviving a dead thread. The reason I haven't posted lately is that I've been working on the sprites for this to use. The sprites are done, and at this point I think that I can clarify things. Overly simplified, but you get the gist: Default Male = 0 Default Female = 15 Case 0 (white hair dye) Male Style 1 If Get = 0, 31, 32, 33, 34, 35, 36 Set to 31 Female Style 1 If Get = 15, 38, 39, 40, 41, 42, 43 Set to 37 Male Style 2 If Get = 45, 46, 47, 48, 49, 50, 51 Set to 44 Female Style 2 If Get = 52, 53, 54, 55, 56, 57, 58 Set to 59 Male Style 3 If Get = 60, 61, 62, 63, 64, 65, 66 Set to 67 Female Style 3 If Get = 68, 69, 70, 71, 72, 73, 74 Set to 75 Male Style 4 If Get = 76, 77, 78, 79, 80, 81, 83 Set to 82 Female Style 4 If Get = 84, 85, 86, 87, 88, 89, 90 Set to 91 Male Style 5 If Get = 92, 93, 94, 95, 96, 97, 99 Set to 98 Female Style 5 If Get = 100, 101, 102, 103, 104, 105, 106 Set to 107 That is all of Case 0, which simply changes hair color to white, in 5 male hair styles and 5 female hair styles. The entry to change each "Get" to its proper "Set" looks like this: ElseIf GetPlayerSprite(Index) = # Then Call SetPlayerSprite(Index, #) Call TakeItem(Index, #) SendPlayerData(Index) Cases 1-7 do the exact same thing but change to different colors. Yellow, Brown, Blue, Black, Red, Pink and Green. NOTE: These change hair color but not hair style. Cases 8-17 change hair style but not color. The script as it stands is 5 times the size it was in my original post, and this will double when i script Cases 8-17. I hope this is more clear than my original post. Is there a shorter way? Gender won't work because each item has 5 different outcomes per gender. If needs be I can post the script for you to look at, I just figured that the paraphrased version would suffice. So, Is there a shorter way? Thanks.

That works well for haircoloring, in fact I changed the script I had over to it so the kids could use that function. I've been working on the sprites for hair styles though, and each style comes in all those colors. It all has to interchange. ie The player has style 1 brown hair….if they change color, it remains style 1, if they change style, it remains brown. GetPLayerGender won't work when I add that. But I already have uses for what you've taught me. Thanks

Riney, that won't work because half way through the case the sprite changes. the first 7 entries are for the male sprite, the second 7 are for female. Oldspice, I could do that, but to be honest, I am trying to learn scripting, so I was looking for a scripting solution to say: If GetPlayerSprite(Index) = 0, 31, 32, 33, 34, 35, 36 Then Call SetPlayerSprite(Index, 30) ElseIf GetPlayerSprite(Index) = 15, 38, 39, 40, 41, 42, 43 Then Call SetPlayerSprite(Index, 37) KNow what I mean? But thanks for posting guys, I do apreciate the guidance. Oh, and Oldspice, you just taught me something and I am already thinking of ways to use it.

When you have to write a script telling you exactly to go to the store and buy a soda, Else GetPlayerThirst(Index, 1)

It makes sense. As late as the early 1980's, according to our knowledge of Physics…a bumblebee couldn't fly. It made no snense that it flew....but now that we have more knowledge, it makes sense that a bumblebee can fly.

OK thanks to a couple of guys answering questions, and a good deal of research on my part, I have my first script up and running. My daughters asked for hair dyes, so it works now. Each color is a Case, and the whole thing is scripted Items…buy a bottle of dye, doubleclick, and your hair color changes. Anyway.....It took 8 Cases to do the script, and each case is 75 lines, it's a fairly long script. It will grow extremely long when I add 4 more hair styles in all 8 available colors, this is only 1 hairstyle male and 1 for female. I'll post it here for reference, but my question is, can a variable take the place of a bunch of lines in a case like this? > Case 0 > > If GetPlayerSprite(Index) = 0 Then > Call SetPlayerSprite(Index, 30) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 31 Then > Call SetPlayerSprite(Index, 30) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 32 Then > Call SetPlayerSprite(Index, 30) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 33 Then > Call SetPlayerSprite(Index, 30) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 34 Then > Call SetPlayerSprite(Index, 30) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 34 Then > Call SetPlayerSprite(Index, 30) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 36 Then > Call SetPlayerSprite(Index, 30) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 15 Then > Call SetPlayerSprite(Index, 37) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 38 Then > Call SetPlayerSprite(Index, 37) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 39 Then > Call SetPlayerSprite(Index, 37) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 40 Then > Call SetPlayerSprite(Index, 37) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 41 Then > Call SetPlayerSprite(Index, 37) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 42 Then > Call SetPlayerSprite(Index, 37) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 43 Then > Call SetPlayerSprite(Index, 37) > Call TakeItem(Index, 96) > SendPlayerData(Index) > > End if > > Exit Sub > > Case 1 > > If GetPlayerSprite(Index) = 0 Then > Call SetPlayerSprite(Index, 31) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 30 Then > Call SetPlayerSprite(Index, 31) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 32 Then > Call SetPlayerSprite(Index, 31) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 33 Then > Call SetPlayerSprite(Index, 31) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 34 Then > Call SetPlayerSprite(Index, 31) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 35 Then > Call SetPlayerSprite(Index, 31) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 36 Then > Call SetPlayerSprite(Index, 31) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > > ElseIf GetPlayerSprite(Index) = 15 Then > Call SetPlayerSprite(Index, 40) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 38 Then > Call SetPlayerSprite(Index, 40) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 39 Then > Call SetPlayerSprite(Index, 40) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 37 Then > Call SetPlayerSprite(Index, 40) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 41 Then > Call SetPlayerSprite(Index, 40) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 42 Then > Call SetPlayerSprite(Index, 40) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 43 Then > Call SetPlayerSprite(Index, 40) > Call TakeItem(Index, 97) > SendPlayerData(Index) > > End If > > Exit Sub > > Case 2 > > If GetPlayerSprite(Index) = 0 Then > Call SetPlayerSprite(Index, 33) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 30 Then > Call SetPlayerSprite(Index, 33) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 32 Then > Call SetPlayerSprite(Index, 33) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 31 Then > Call SetPlayerSprite(Index, 33) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 34 Then > Call SetPlayerSprite(Index, 33) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 35 Then > Call SetPlayerSprite(Index, 33) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 36 Then > Call SetPlayerSprite(Index, 33) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > > ElseIf GetPlayerSprite(Index) = 15 Then > Call SetPlayerSprite(Index, 43) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 38 Then > Call SetPlayerSprite(Index, 43) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 39 Then > Call SetPlayerSprite(Index, 43) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 37 Then > Call SetPlayerSprite(Index, 43) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 41 Then > Call SetPlayerSprite(Index, 43) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 42 Then > Call SetPlayerSprite(Index, 43) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 40 Then > Call SetPlayerSprite(Index, 43) > Call TakeItem(Index, 98) > SendPlayerData(Index) > > End If > > Exit Sub > > Case 3 > > If GetPlayerSprite(Index) = 0 Then > Call SetPlayerSprite(Index, 32) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 30 Then > Call SetPlayerSprite(Index, 32) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 33 Then > Call SetPlayerSprite(Index, 32) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 31 Then > Call SetPlayerSprite(Index, 32) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 34 Then > Call SetPlayerSprite(Index, 32) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 35 Then > Call SetPlayerSprite(Index, 32) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 36 Then > Call SetPlayerSprite(Index, 32) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > > ElseIf GetPlayerSprite(Index) = 43 Then > Call SetPlayerSprite(Index, 15) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 38 Then > Call SetPlayerSprite(Index, 15) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 39 Then > Call SetPlayerSprite(Index, 15) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 37 Then > Call SetPlayerSprite(Index, 15) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 41 Then > Call SetPlayerSprite(Index, 15) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 42 Then > Call SetPlayerSprite(Index, 15) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 40 Then > Call SetPlayerSprite(Index, 15) > Call TakeItem(Index, 99) > SendPlayerData(Index) > > End If > > Exit Sub > > > Case 4 > > If GetPlayerSprite(Index) = 0 Then > Call SetPlayerSprite(Index, 34) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 30 Then > Call SetPlayerSprite(Index, 34) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 32 Then > Call SetPlayerSprite(Index, 34) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 31 Then > Call SetPlayerSprite(Index, 34) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 33 Then > Call SetPlayerSprite(Index, 34) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 35 Then > Call SetPlayerSprite(Index, 34) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 36 Then > Call SetPlayerSprite(Index, 34) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > > ElseIf GetPlayerSprite(Index) = 15 Then > Call SetPlayerSprite(Index, 39) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 38 Then > Call SetPlayerSprite(Index, 39) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 43 Then > Call SetPlayerSprite(Index, 39) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 37 Then > Call SetPlayerSprite(Index, 39) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 41 Then > Call SetPlayerSprite(Index, 39) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 42 Then > Call SetPlayerSprite(Index, 39) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 40 Then > Call SetPlayerSprite(Index, 39) > Call TakeItem(Index, 100) > SendPlayerData(Index) > > End If > > Exit Sub > > Case 5 > > If GetPlayerSprite(Index) = 34 Then > Call SetPlayerSprite(Index, 0) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 30 Then > Call SetPlayerSprite(Index, 0) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 32 Then > Call SetPlayerSprite(Index, 0) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 31 Then > Call SetPlayerSprite(Index, 0) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 33 Then > Call SetPlayerSprite(Index, 0) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 35 Then > Call SetPlayerSprite(Index, 0) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 36 Then > Call SetPlayerSprite(Index, 0) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > > ElseIf GetPlayerSprite(Index) = 15 Then > Call SetPlayerSprite(Index, 41) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 38 Then > Call SetPlayerSprite(Index, 41) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 43 Then > Call SetPlayerSprite(Index, 41) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 37 Then > Call SetPlayerSprite(Index, 41) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 39 Then > Call SetPlayerSprite(Index, 41) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 42 Then > Call SetPlayerSprite(Index, 41) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 40 Then > Call SetPlayerSprite(Index, 41) > Call TakeItem(Index, 101) > SendPlayerData(Index) > > End If > > Exit Sub > > Case 6 > > If GetPlayerSprite(Index) = 0 Then > Call SetPlayerSprite(Index, 35) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 30 Then > Call SetPlayerSprite(Index, 35) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 32 Then > Call SetPlayerSprite(Index, 35) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 31 Then > Call SetPlayerSprite(Index, 35) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 33 Then > Call SetPlayerSprite(Index, 35) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 34 Then > Call SetPlayerSprite(Index, 35) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 36 Then > Call SetPlayerSprite(Index, 35) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > > ElseIf GetPlayerSprite(Index) = 15 Then > Call SetPlayerSprite(Index, 42) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 38 Then > Call SetPlayerSprite(Index, 42) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 43 Then > Call SetPlayerSprite(Index, 42) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 37 Then > Call SetPlayerSprite(Index, 42) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 41 Then > Call SetPlayerSprite(Index, 42) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 39 Then > Call SetPlayerSprite(Index, 42) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 40 Then > Call SetPlayerSprite(Index, 42) > Call TakeItem(Index, 102) > SendPlayerData(Index) > > End If > > Exit Sub > > Case 7 > > If GetPlayerSprite(Index) = 0 Then > Call SetPlayerSprite(Index, 36) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 30 Then > Call SetPlayerSprite(Index, 36) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 32 Then > Call SetPlayerSprite(Index, 36) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 31 Then > Call SetPlayerSprite(Index, 36) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 33 Then > Call SetPlayerSprite(Index, 36) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 35 Then > Call SetPlayerSprite(Index, 36) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 34 Then > Call SetPlayerSprite(Index, 36) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > > ElseIf GetPlayerSprite(Index) = 15 Then > Call SetPlayerSprite(Index, 38) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 39 Then > Call SetPlayerSprite(Index, 38) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 43 Then > Call SetPlayerSprite(Index, 38) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 37 Then > Call SetPlayerSprite(Index, 38) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 41 Then > Call SetPlayerSprite(Index, 38) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 42 Then > Call SetPlayerSprite(Index, 38) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > ElseIf GetPlayerSprite(Index) = 40 Then > Call SetPlayerSprite(Index, 38) > Call TakeItem(Index, 103) > SendPlayerData(Index) > > End If > > Exit Sub > > Case Else > Call PlayerMsg(Index, "No item script found. Please contact an admin to solve this problem.", WHITE) > Exit Sub

I thought it had to be there for each case…thanks :)

OK Case 0 worked fine, until I added Case 1, which was a different item, now neither works. Select Case Script Case 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 Sub Case Else Call PlayerMsg(Index, "No item script found. Please contact an admin to solve this problem.", WHITE) Exit Sub Case 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 If Exit Sub Case Else Call PlayerMsg(Index, "No item script found. Please contact an admin to solve this problem.", WHITE) Exit Sub End Select End Sub I hate to keep bugging you guys, I'm just learning scripting, and missing something here.

8/10 your siggy cracks me up. I needed a good laugh this morning

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 Script Case 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 if Exit Sub Correct?

Negative, but thanks for trying.

OK I give. This works: Sub ScriptedItem(Index, Script) Select Case Script Case 0 Call SetPlayerSprite(Index, 30) SendPlayerData(Index) Exit Sub This doesn't: Sub ScriptedItem(Index, Script) Select Case Script Case 0 Call GetPlayerSprite(Index) If GetPlayerSprite(Index) = 0 Then Call SetPlayerSprite(Index, 30) SendPlayerData(Index) Exit Sub Why?