DarkSpine

Sorry, I wrote that too quickly, add/put this in the rewards: ``` Call SetPlayerClass(Index, #) Call SetPlayerSTR(Index, GetVar("/Classes/Class#.ini", "CLASS", "STR")) Call SetPlayerDEF(Index, GetVar("/Classes/Class#.ini", "CLASS", "DEF")) Call SetPlayerSPEED(Index, GetVar("/Classes/Class#.ini", "CLASS", "SPEED")) Call SetPlayerMAGI(Index, GetVar("/Classes/Class#.ini", "CLASS", "MAGI")) If GetPlayerGender(Index) = 0 Then Call SetPlayerSprite(Index, GetVar("/Classes/Class#.ini", "CLASS", "MaleSprite")) Else Call SetPlayerSprite(Index, GetVar("/Classes/Class#.ini", "CLASS", "FemaleSprite") End If Call SendPlayerData(Index) ```Just fill in any "#"s in there, so that Class# would be something like Class2, and setplayerclass(Index, #) would be the same as the class in any of the GetVars.(Example:SetPlayerClass(Index, 2)) That should work, use that as a base for any others and it should work fine.

You could do this… ``` Case # Call Prompt(Index, "Do you wish to buy this house for (Cost)?", #) Exit Sub `````` Case # If CanTake(Index, (Currency#), (Cost)) Then Call TakeItem(Index, (Currency#), (Cost)) Call PlayerMsg(Index, "You bought this house!", BLUE) Call PutVar("Scripts/Houses/" & GetPlayerMap(Index) & ".ini", "HOUSE", "HouseOwnedBy", GetPlayerName(Index) Else Call PlayerMsg(Index, "You do not have enough money to buy this house!", BRIGHTRED) End If Exit Sub `````` Case # Call PlayerMsg(Index, "Ok, if you change your mind come back!", BLUE) Exit Sub ```Then just add this before any of the house editing stuff. ``` If GetVar("Scripts/Houses/" & GetPlayerMap(Index) & ".ini", "HOUSE", "HouseOwnedBy") = GetPlayerName(Index) Then ```And for an Else, do this ``` Else Call PlayerMsg(Index, "You do not own this house, you can not edit it!", BRIGHTRED) End If ```I hope that works, since I made it just for you, and haven't used it xD

If you know where to put it, just add this for the reward part. ``` Call SetPlayerClass(Index, #) ```

Interesting, well at least it's fixed!

I'm going to just go through this again… Idk what's wrong, but I'll change what it has on it to what I would've done... ``` ' Executes whenever a scripted NPC does an action.' Sub ScriptedNPC(Index, Script) Select Case Script Case 0 Call PlayerMsg(Index, "This scripted NPC has no apparent use.", WHITE) Exit Sub Case 1 If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest6") = "Have" Then Call playermsg(index, "Thanks for doing that, I see you found the chests of Gold in there, that was for you.", 14) Exit Sub End If If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest8") = "Have" Then Call playermsg(index, "Please get this delivered, just use it on the door", 14) Exit Sub End if If GetFreeSlots(Index) = 0 Then Call PlayerMsg(Index, "You don't have enough slots!", RED) Exit Sub End If Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest8", "Have") Call GiveItem(Index, 261, 1) Call playermsg(index, "Could you take this to the room over there with the rug", 14) Case 2 If CanTake(Index, 269, 1) Then Call TakeItem(Index, 269, 1) Call GiveItem(Index, 270, 1) Call playermsg(index, "You Cook the meat", 14) Exit Sub End if If CanTake(Index, 269, 1) = FALSE Then Call playermsg(index, "You have no meat to cook", 14) End If Case 3 If CanTake(Index, 272, 1) Then Call TakeItem(Index, 272, 1) Call GiveItem(Index, 273, 1) Call playermsg(index, "You Cook the meat", 14) Exit Sub End if If CanTake(Index, 272, 1) = FALSE Then Call playermsg(index, "You have no meat to cook", 14) End If Case 4 If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest11") = "Have" Then Call playermsg(index, "You can only do this quest once", 14) Exit Sub End if If GetFreeSlots(Index) = 0 Then Call PlayerMsg(Index, "Hey, clear out a slot, and come back to me!", RED) Exit Sub End if If CanTake(Index, 178, 1) Then Call GiveCurrency(Index, 277, 1) Call playermsg(index, "You hand Her your graveyard key, She then hands it back", 14) Call playermsg(index, "Thanks, I just never got to see one before!", 14) Call playermsg(index, "She hands you 125 Gold QUEST COMPLETE", 14) Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest11", "Have") Exit Sub Else Call playermsg(index, "Oh... You don't have it...", 14) Exit Sub End if Case 5 If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest12") = "Have" Then Call playermsg(index, "Thanks.. but I don't need your help anymore!", 14) Exit Sub End if If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest13") = "Have" Then Call playermsg(index, "Oh, did you tell him, what did he say?", 14) Call playermsg(index, "So, he said you were wrong, and to go away?", 14) Call playermsg(index, "Oh well, I guess I will have to go down there and explain it to him", 14) Call playermsg(index, "Thanks for your help, I, OH, here you go, it is not much, but...", 14) Call GiveCurrency(Index, 2, 50) Call playermsg(index, "There is some gold for your troubles, Thank you!", 14) Call playermsg(index, "You Gain 50 Gold, QUEST COMPLETE", 10) Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest12", "Have") Exit Sub End if If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest14") = "Have" Then Call playermsg(index, "I Don't Quite Know where he's got to, but he has to be around town", 14) Call playermsg(index, "He is the small boy in the stripped tee shirt", 14) Exit Sub End if If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest2") = "Have" Then Call playermsg(index, "Hey you, are you interested in making some cash?", 14) Call playermsg(index, "Good, could you go down there and set him streight", 14) Call playermsg(index, "QUEST STARTED: Bad Kid", 15) Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest14", "Have") Exit Sub End if Case 6 If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest12") = "Have" Then Call playermsg(index, "Hmph, My Mommy says you told on me, I don't like you!!", 14) Exit Sub End if If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest13") = "Have" Then Call playermsg(index, "I Won't go, I WON'T I WON'T I WON'T", 14) Exit Sub End if If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest14") = "Have" Then Call playermsg(index, "What, OH, My Mommy Wants me, well, I won't go,", 4) Call playermsg(index, "And you Can't Make Me!!!!!", 4) Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest13", "Have") Exit Sub End if Case 7 If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest16") = "Have" Then Call playermsg(index, "Thank you again, but I don't actually need the gem...", 14) Exit Sub End if If GetFreeSlots(Index) = 0 Then Call PlayerMsg(Index, "Listen, you need to make room so I can give this to you", RED) Exit Sub End if If CanTake(Index, 250, 1) Then Call GiveItem(Index, 281, 1) Call playermsg(index, "Oh, you got it.. (that was fast). oh, I should offer you payment", 14) Call playermsg(index, "For your deed, how does 1000 gold sound *he hands you a bag of money*", 14) Call playermsg(index, "QUEST COMPLETE", 2) Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest16", "Have") Exit Sub End if If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest15") = "Have" Then Call playermsg(index, "Could you do this for me, Please!!", 14) Exit Sub End if Call playermsg(index, "Hello you there, yes you, I would like to go on an expedition", 14) Call playermsg(index, "When I was a little boy, my father was taken away from me by a 3-headed dog", 14) Call playermsg(index, "The dog ran away into the cave and ate him, I would like to avenge my father!", 14) Call playermsg(index, "So, I would like to get the rarest gem in all the lands, the Gem of Death to help bring him back", 14) Call playermsg(index, "QUEST STARTED: Gemeni Of Gems", 10) Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest15", "Have") Case Else Call PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", WHITE) Exit Sub End Select End Sub ```I did that very quick…only changed one or two things, I really doubt it did anything...

Haha, I seem to be earning myself compliments xD Glad it works for you now, I was happy to help.

Here is my best try, I can't test it because I don't have any of the other stuff, but if this doesn't work, then I'm really sorry, but I can't help you. ``` 'All checks are complete. Feed the data to the catching sub. r = rand(1,100) If r>= 1 And r = 1 And r = 11 And r = 21 And r

Glad it works now, I'm surprised I even noticed that last problem XD And when I get my game online I'll take your offer up…And if you ever need a scripter, I could use the job =P

So, everything working for you after getting rid of that last "End If"? If it's not I can definately look through it again if you want.

@Diskmaster: > Thx =) and I love ur Avatar, is that Shadow the hedgehog inverse? I fixed it =) Off-Topic: And no, it's my fan char, Spine, Inverted, also named "Spechno" because he is combined with Techno, another one of my fanchars ( A green sonic with gold shoes)

I'll do the same to this as I did to the NPCs, hopefully that'll work again =P EDIT: Got to case 13, very last line, get rid of the End If Very simple mistake xD

@durama: > lol this was 5 days ago he didn't post again so he probably already got it to work Well, idk, if he did, then he should've edited one of his posts to say that it works for him now, so that anyone that thinks they could help would know…

@DarkMazer: > In this block: > ``` > If CanTake(Index, 178, 0) Then > Call GiveCurrency(Index, 277, 1) > Call playermsg(index, "You hand Her your graveyard key, She then hands it back", 14) > Call playermsg(index, "Thanks, I just never got to see one before!", 14) > Call playermsg(index, "She hands you 125 Gold QUEST COMPLETE", 14) > Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest11", "Have") > Exit Sub > End If > Call playermsg(index, "Oh... You don't have it...", 14) > Exit Sub > End If > ```The first "End If" should be "Else". Well, the first thing I notice wrong is that the "If CanTake(Index, 178, 0)" is that there is a "0" when shouldn't it be a 1 or some other number? Other than that, I don't see anything that would cause a problem… EDIT: I am going to go through all the scripts you've posted and fix anything I believe would be causing problems...Change what you want once I'm done... EDIT2: When I start the server with this, I don't get a single error, try it out: ``` ' Executes whenever a scripted NPC does an action.' Sub ScriptedNPC(Index, Script) Select Case Script Case 0 Call PlayerMsg(Index, "This scripted NPC has no apparent use.", WHITE) Exit Sub Case 1 If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest8") = "Have" Then Call playermsg(index, "Please get this delivered, just use it on the door", 14) Exit Sub End if If GetFreeSlots(Index) = 0 Then Call PlayerMsg(Index, "You don't have enough slots!", RED) Exit Sub End If Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest8", "Have") Call GiveItem(Index, 261, 1) Call playermsg(index, "Could you take this to the room over there with the rug", 14) Case 2 If CanTake(Index, 269, 1) Then Call TakeItem(Index, 269, 1) Call GiveItem(Index, 270, 1) Call playermsg(index, "You Cook the meat", 14) Exit Sub End if If CanTake(Index, 269, 1) = FALSE Then Call playermsg(index, "You have no meat to cook", 14) End If Case 3 If CanTake(Index, 272, 1) Then Call TakeItem(Index, 272, 1) Call GiveItem(Index, 273, 1) Call playermsg(index, "You Cook the meat", 14) Exit Sub End if If CanTake(Index, 272, 1) = FALSE Then Call playermsg(index, "You have no meat to cook", 14) End If Case 4 If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest11") = "Have" Then Call playermsg(index, "You can only do this quest once", 14) Exit Sub End if If GetFreeSlots(Index) = 0 Then Call PlayerMsg(Index, "Hey, clear out a slot, and come back to me!", RED) Exit Sub End if If CanTake(Index, 178, 1) Then Call GiveCurrency(Index, 277, 1) Call playermsg(index, "You hand Her your graveyard key, She then hands it back", 14) Call playermsg(index, "Thanks, I just never got to see one before!", 14) Call playermsg(index, "She hands you 125 Gold QUEST COMPLETE", 14) Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest11", "Have") Exit Sub Else Call playermsg(index, "Oh... You don't have it...", 14) Exit Sub End if Case 5 If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest12") = "Have" Then Call playermsg(index, "Thanks.. but I don't need your help anymore!", 14) Exit Sub End if If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest14") = "Have" Then Call playermsg(index, "I Don't Quite Know where he's got to, but he has to be around town", 14) Call playermsg(index, "He is the small boy in the stripped tee shirt", 14) Exit Sub End if If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest13") = "Have" Then Call playermsg(index, "Oh, did you tell him, what did he say?", 14) Call playermsg(index, "So, he said you were wrong, and to go away?", 14) Call playermsg(index, "Oh well, I guess I will have to go down there and explain it to him", 14) Call playermsg(index, "Thanks for your help, I, OH, here you go, it is not much, but...", 14) Call GiveCurrency(Index, 2, 50) Call playermsg(index, "There is some gold for your troubles, Thank you!", 14) Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest12", "Have") Exit Sub End if If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest2") = "Have" Then Call playermsg(index, "Hey you, are you interested in making some cash?", 14) Call playermsg(index, "Good, could you go down there and set him streight", 14) Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest14", "Have") Exit Sub End if Case 6 If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest13") = "Have" Then Call playermsg(index, "I Won't go, I WON'T I WON'T I WON'T", 14) Exit Sub End if If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest12") = "Have" Then Call playermsg(index, "What, OH, My Mommy Wants me, well, I won't go,", 14) Call playermsg(index, "And you Can't Make Me!!!!!", 14) Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest13", "Have") Exit Sub End if Case Else Call PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", WHITE) Exit Sub End Select End Sub ```

@Diskmaster: > OMG THANK YOU THANK YOU THANK YOU, you saved me a lot of work!! Your welcome, I'm glad you got it to work =)

@Diskmaster: > Umm… What does it mean when NONE of your scripts are working... Say you forget one ")" or anything, it messes up your entire main, making scripts useless. Go into the Data.ini in the server folder, turn on scripting errors, reload your script. If an error comes up, try to find where it is and fix it, otherwise all the scripts go down the drain, even adding stats won't work.

@♪♫♪: > But it's calling the messages and everything. The script is working, except for the item taking. The script itself is part of the CastCheck sub of my fishing script. And the checks for bait in the inventory are already there, just not shown. This is confusing me a lot…I'm going to try out the "TakeItem" Script once, as it has not been working for me either... EDIT:Everything on my script is working fine... EDIT2: Why not get rid of all the "Call TakeItem(Index, 50, 1)"s and put one before the first if? I doubt that'd do anything but it's worth a shot... EDIT3: If it doesn't seem to be doing anything, try adding "SendInventory(Index)" If that doesn't work, I'm out of ideas.

It seems very odd to me that this is not working…Although, shouldn't it check if it can even take the item first, instead of just taking it? Meaning if you don't have bait, you can't go fishing. Such as this: ``` If CanTake(Index, 50, 1) = TRUE Then ```I truly don't know if that would do anything, but I'm also wondering, is this a tile, or part of a sub itself? I'd like to see the outcome of what happens…Do you have scriptingerrors on with the server? If you don't, turn them on, if you do, and there are no errors, turn them off, I've found if there is an error and the scriptingerrors are on, it can halt any scripts running, and stop any from starting.

@Jooshua6: > ok > ``` > ' Executes when a player steps onto a scripted tile. > Sub ScriptedTile(Index, Script) > Select Case Script > Case 0 > Call PlayerMsg(Index, "This scripted tile has no apparent use.", WHITE) > Exit Sub > Case 1 > Select Case GetPlayerClass(Index) > Case 0 > Call PlayerMsg(Index, "Hello, young knight come forth.", YELLOW) > Case 2 > Call PlayerMsg(Index, "HEllo, young archer come forth.", YELLOW) > Case 3 > Call PlayerMsg(Index, "HEllo, young wizard come forth.", YELLOW) > Case 4 > Call PlayerMsg(Index, "Hello, young shaman come forth.", YELLOW) > Case 5 > Call PlayerMsg(Index, "HEllo, young summoner come forth.", YELLOW) > End Select > > Case Else > Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE) > Exit Sub > End Select > End Sub > > ``` Can you post one of your classes? I'd like to try it out and see if anything happens to me…

I see your point, it wouldn't be too hard to edit. In fact, it would just be one thing, in stead of @Spine: > Call GiveCurrency(Index, (ItemNum),(amount) Then it could be ``` Call GiveItem(Index, (ItemNum), (Amount)) ```(Btw for all of this you need Barons inventory script!) -Spine

Wing, say you want a scripted tile, search your main for Sub ScriptedTile and you should find it. add Case 1, 2, 3 ,4 or whatever number and add in the script after that. If that's not what your asking, then i don't know >.< Spine

Some software things you can get are: Gimp Paint.net Or photoshop. I might be able to make you one if you explain what you want >.< -Spine

Honor/reputation is sorta simple: here, add this to sub joingame ``` If GetVar("Accounts/" & GetPlayerLogin(Index) & "ini" & "Points") = 1 Then Call PlayerMsg(Index, "You have 1 point!") Else Call PlayerMsg(Index, "Thank's for joining the game! (You have been awarded 1 point!)) Call GiveCurrency(Index, (ItemNum),(amount) Call PutVar("Accounts/" & GetPlayerLogin(Index) & ".ini", "Points" "1") End If ``` If you want it to be for every new char do this ``` If GetVar("Accounts/" & GetPlayerLogin(Index) & "ini" & "Points") = 1 Then Call PlayerMsg(Index, "You have 1 point!") Else Call PlayerMsg(Index, "Thank's for joining the game! (You have been awarded 1 point!)) Call GiveCurrency(Index, (ItemNum),(amount) Call PutVar("Accounts/" & GetPlayerLogin(Index) & ".ini", "Points" "1") End If ``` There you go! -Spine

Are you trying to do a command or something else? You didn't explain it very well… I might be able to help

Ok, so i tried to add a script to make npc's cast spells, BUT i don't know where to put this > Dim Hp > Dim Dmg > Dim MapNum > Dim X > Dim Y > > Hp = GetPlayerHp(index) > Dmg = 0 > MapNum = GetPlayerMap(index) > X = GetPlayerX(index) > Y = GetPlayerY(index) > > Call playermsg(index, "You were hit by an opponent's spell.", 12) > Dmg = Hp - 1000 > Call SpellAnim(1,MapNum,X,Y) > Call SetPlayerHp(index, Dmg) > Call SendHP(index) > > > End Select Link to the script: [http://www.touchofdeathforums.com/smf/index.php?topic=24989.0](http://www.touchofdeathforums.com/smf/index.php?topic=24989.0) It did not say in the script. Can anyone help me? -Spine

Ok so i got vb6 portable but when i try to compile it thinks something is wrong with ".socket" in frmmirage Any way to fix this? Thanks, -Darkspine