Sakis

Okay my script is messing up right now and I need some help on this one: ``` ' Executes whenever a scripted NPC does an action. Sub ScriptedNPC(index, Script) On Error Resume next Dim status Dim start_msg Dim questing_msg Dim end_msg Dim completed_msg Dim has_needed Dim need_count Dim give_count Dim slot Dim count Dim found Dim number Dim durability Dim value Dim experience Dim name Dim reqitem Dim rewitem Dim reqval Dim rewval Dim pm pm = GetPlayerMap(index) reqitem = GetVar("Quests\Basic.ini", pm, "reqitemnum") reqval = GetVar("Quests\Basic.ini", pm, "reqitemval") rewitem = GetVar("Quests\Basic.ini", pm, "rewitemnum") rewval = GetVar("Quests\Basic.ini", pm, "rewitemval") Select Case Script Case 0 If CheckInventoryForItem(index, reqitem) = true Then Call TakeItem(index, reqitem, reqval) Call GiveItem(index, rewitem, rewval) Call PlayerMsg(index, "Congrats you have completed your quest!", 4) Else Call PlayerMsg(index, "You don't have the requested item, the Slime Goo.", 4) End If End Select End Sub Sub CheckInventoryForItem(index, reqitem) CheckInventoryForItem = false SLOT = 1 Do While SLOT < 24 If GetPlayerInvItemNum(index, SLOT) = item Then CheckInventoryForItem = true SLOT = 24 End If SLOT = SLOT+1 Loop End Sub ``` ``` Sub TakeItem(index, item, value) If value = "all" Then SLOT = 1 Do While SLOT < 24 If GetPlayerInvItemNum(index, SLOT) = item Then Call SetPlayerInvItemNum(index, SLOT, 0) Call SetPlayerInvItemValue(index, SLOT, 0) Call SendInventoryUpdate(index, SLOT) SLOT = 24 End If SLOT = SLOT+1 Loop End Sub Else SLOT = 1 Do While SLOT < 24 If GetPlayerInvItemNum(index, SLOT) = item Then Call SetPlayerInvItemNum(index, SLOT, 0) Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT) - value) Call SendInventoryUpdate(index, SLOT) SLOT = 24 End If SLOT = SLOT+1 Loop End Sub End If Sub GiveItem(index, item, value) SLOT = 1 Do While SLOT < 24 If GetPlayerInvItemNum(index, SLOT) = 0 Then Call SetPlayerInvItemNum(index, SLOT, item) Call SetPlayerInvItemValue(index, SLOT, value) Call SendInventoryUpdate(index, SLOT) SLOT = 24 End If SLOT = SLOT+1 Loop End Sub ``` it keeps having the npc saying the quest is complete but it don't take the item and i don't receive the reward either

@ÅÐмiядζ: > Hi there Phoenixxx, welcome to Eclipse :azn: > > If you want to have it where you actually "talk" to the NPC, you can use a scritped npc. > > It's simple, under whichever NPC's case you want for the shop, use this command: > Call goshopping(Index, ShopNum) > Exit Sub > Replace ShopNum with whatever number your shop is (eg, if you want the NPC to open shop number 3, you'll say Call goshopping(Index, 3)) > > You can find a very nice tutorial on installing scripts [**here**](http://www.touchofdeathforums.com/smf/index.php?topic=10036.0). > > Hope to hear more from you, and I'm glad I could help :) that can help me out as well XD

@Phoenixxx: > OK you will probably hate me asking this but … I'm brand new in here so .. ;) Ive got it running with monster running etc ... but I'm stuck in quest of "how this work!?!?" :P I'm not able to make a shop i got an npc on my map that i added with F1 editor/npc ... but how do i make him a shop ?! and how i had stuff to the shop etc... also had problem to find how i build classes and make them able to be choose and also how the spell work .. i did try to find in tutoriel how to figure it out but actually my english isn't so good at all :evil: also when i try to make a find in the forum my browser dont get any answer at my search ... So anyone can help me out with this ?!?! Plz ?! :icon_crap: Thx in advance > > PhNxXx look in the tutorial section of the forum for your info that you need…its in their somewhere i will post a link if i can get the info u need

@[SB: > AkselJ link=topic=42778.msg428551#msg428551 date=1239981815] > You would simply copy case 0 and add it as case 1, then 2, then 3… And change the numbers and stuff. k thats real good help because i am going to host it now since i got that one script but i need to do some other stuff to get it automatic updated unless my server can do that and stuff from my house and stuff

@[SB: > AkselJ link=topic=42802.msg428542#msg428542 date=1239981543] > Sure, I can do that. great

@[SB: > AkselJ link=topic=42778.msg428543#msg428543 date=1239981581] > That would work. so when i want to make some more quest i would have to just edit that script and then go from their with the inventory check and stuff right?

@[SB: > AkselJ link=topic=42802.msg428533#msg428533 date=1239981268] > Few people look at the category, actually. I have noticed that many times, people saying "Needs source editing" in the source section… XD well if i was able to use my vb6 then i would of helped u out with that problem though…wish you the best of luck at it and show screens when u make it too...lol

@[SB: > AkselJ link=topic=42778.msg428534#msg428534 date=1239981320] > Anywhere, just not inside an existing Sub. The normal is to place it at botom, just above Sub TestMain. so what about underneath the one script that i just made then…would that work or not?

@[SB: > AkselJ link=topic=42778.msg428528#msg428528 date=1239981157] > That should work. k well where do i place my inventory check script now….any help with that one there?? XD

@[SB: > AkselJ link=topic=42802.msg428524#msg428524 date=1239980996] > Well, there is a reason I posted this in source questions ;) my bad…lol...didn't look at the category aksel...lol...my bad....just heard someone else trying to do it once before on here and stuff because i wanted to as well but the thing is that my laptop can't get vb6 to work at all for some reason

@[SB: > AkselJ link=topic=42778.msg428521#msg428521 date=1239980952] > Yes, you have a case, but the case doesn't know what it is, so add Select Case Script and it will work. so i add a script inside of this one like this sort of: ``` Sub ScriptedNPC(index, Script) Dim reqitem Dim rewitem Dim reqval Dim rewval Dim pm pm = GetPlayerMap(index) reqitem = GetVar("Quests\Basic.ini", pm, "reqitemnum") reqval = GetVar("Quests\Basic.ini", pm, "reqitemval") rewitem = GetVar("Quests\Basic.ini", pm, "rewitemnum") rewval = GetVar("Quests\Basic.ini", pm, "rewitemval") Select Case Script Case 0 If CheckInventoryForItem(index, reqitem) = true Then Call TakeItem(index, reqitem, reqval) Call GiveItem(index, rewitem, rewval) Call PlayerMsg(index, "Congrats quest complete.", 4) Else Call PlayerMsg(index, "You don't have the request, I need Slime Goo!", 4) End If End Select End Sub ```

i believe that you might have to actually do source coding for that…if i recall someone was saying that before about the same thing as well

but i have a case in the code already though??? ok i need some help for real with this code now

@[SB: > AkselJ link=topic=42778.msg428507#msg428507 date=1239980349] > You will have to still have Select Case Script, and you should start with Case 0 for the scripts. k explain to me what you are talking about because i am getting confused because i am trying to figure out what exactly is being said here right now

so what about this then: ``` Sub ScriptedNPC(index, Script) Case 1 Dim reqitem Dim rewitem Dim reqval Dim rewval Dim pm pm = GetPlayerMap(index) reqitem = GetVar("Quests\Basic.ini", pm, "reqitemnum") reqval = GetVar("Quests\Basic.ini", pm, "reqitemval") rewitem = GetVar("Quests\Basic.ini", pm, "rewitemnum") rewval = GetVar("Quests\Basic.ini", pm, "rewitemval") Case 0 If CheckInventoryForItem(index, reqitem) = true Then Call TakeItem(index, reqitem, reqval) Call GiveItem(index, rewitem, rewval) Call PlayerMsg(index, "Congrats quest complete.", 4) Else Call PlayerMsg(index, "You don't have the request, I need Slime Goo!", 4) End If End Select End Sub ```

@ÅÐмiядζ: > Well, first of all that sub won't work. > It would need to be: > ``` > Sub KillTheSlime(index) > > End Sub > ``` > Anyway, depending on your timezone, I can teach you to script if you can catch me in the Eclipse Chat. > My timezone is EST, and I'm usually in the chat at night (9

okay I was thinking of making a script to kill something like 5 slimes and stuff but the thing is that i suck at scripting unlike i use to at first when i was actually getting the hang of it and not under so much stress: I got this far for the quest and this is all for real: ``` sub Kill the Slim!(index) End Sub ``` I suck for real…need some help from like a personal tutor like Baron had gave me when i first started making my game before i was gone for some years or so...forgot...just need some help with doing quest scripts because i was already working on actually using a custom graphic to place the quests on it already

@Anna: > [Alternate to Kay-no's PD sprites](http://www.touchofdeathforums.com/smf/index.php?topic=7366.0) (not very good) > Something like this you mean? yeah exactly like that…i need something like that for my game...because i am working on some items soon so i can have them paperdolled later for the characters to actually wear

oh i was wondering if their was a sheet that was able to be transfered to the one i have so I can actually use this for my game classes that are like the basic one

i mean like the sprites that have nothing on them for both the female and males so that when the person chose the character they actually can use the paperdoll items and stuff…i want to actually do this for my game so it can be like a fully customizable type of game

@Edache: > Isn't Hiro Mashima actually writing a manga based on this game (appart from the Fariy Tail one). > > =P yep i had the cover art but lost it when i had to do a system default for my other computer i have…it looks great, nice design, storyline and everything too...i want to read it for sure

@Bobosk: > you never know, even the simplest of scripts can go awry yeah i just need someone to help start it off for me and then let me go from there because if I had some scripter to help me then I would be able to do the other script code for it even better…thats what i really need though

Can someone make me some plain sprites that are 32x64 so i can use my paperdoll items to actually make them look customized instead of like all of the characters that are out right now? So when a person wants to actually customize his/her player the items are actually fitting them and not just covering up what they already have on at the moment. I want the players to actually customize their own character in the way that they would want to instead of actually getting a pre-made one with armor already on them.

@ÅÐмiядζ: > I'd recomend this one: > http://www.touchofdeathforums.com/smf/index.php/topic,15331.0.html > > It uses inis in the class.ini files, which makes things alot more simple. i tried that one before and i had some difficulties with it so i decided to actually just do this one since i only have 12 real classes to actually start with and stuff…plus i can do this one quicker since it actually seems like it will not cause any real bugs and stuff to my game characters and stuff

@samdeath: > First add this to your Sub JoinGame > > ``` > 'Adds starting items to Class 0 > If GetPlayerLevel(index) = 1 Then > If GetPlayerEXP(index) = 0 Then > If GetPlayerClass(index) = 0 Then > Call SetPlayerInvItemNum(index, , ) > End If > End If > End If > > 'Adds starting items to Class 1 > If GetPlayerLevel(index) = 1 Then > If GetPlayerEXP(index) = 0 Then > If GetPlayerClass(index) = 0 Then > Call SetPlayerInvItemNum(index, , ) > End If > End If > End If > > 'Adds starting items to Class 2 > If GetPlayerLevel(index) = 1 Then > If GetPlayerEXP(index) = 0 Then > If GetPlayerClass(index) = 0 Then > Call SetPlayerInvItemNum(index, , ) > End If > End If > End If > > 'Adds starting items to Class 3 > If GetPlayerLevel(index) = 1 Then > If GetPlayerEXP(index) = 0 Then > If GetPlayerClass(index) = 0 Then > Call SetPlayerInvItemNum(index, , ) > End If > End If > End If > > 'Adds starting items to Class 4 > If GetPlayerLevel(index) = 1 Then > If GetPlayerEXP(index) = 0 Then > If GetPlayerClass(index) = 0 Then > Call SetPlayerInvItemNum(index, , ) > End If > End If > End If > ``` > Basically set the required numbers and for any other items just add another > ``` > Call SetPlayerInvItemNum(index, , ) > ``` what should I place in the iventroy slot number…do i place something like this: Call SetPlayerInvItemNum(1, 1, 1000) to give them gold in the 1st slot?