My own quest script

• Ertzel: So... Anyone with basic/none/limited photoshop or even paint skills want to make some money converting sprites for me?
  Today at 10:07:35 PM
• Gamma™: weaver why are you oflfine on H&H? :S
  Today at 10:04:26 PM
• Ertzel: Ya, only one try per knife, my one try failed :(
  Today at 10:00:17 PM
• LegendWeaver: is it one use?
  Today at 09:43:15 PM
• Ertzel: Wish I didnt spend my 1k+ credits to buy the stupid knife that failed at stealing Robins credits >.<
  Today at 09:42:42 PM
• Wraith: ) Kreator!
  Today at 09:06:52 PM
• Wraith: yes! you were! (in red text
  Today at 09:06:46 PM
• ToshiroHayate: Kreator!
  Today at 08:25:02 PM
• Kreator: o_0 Was I supposed to Wraith?
  Today at 08:16:02 PM
• [Pie] ICT: Don't worry.. I commented.
  Today at 07:55:08 PM
• Wraith: Ay, kreator, wtf is up with you not posting anything about my new cliffs??
  Today at 07:50:36 PM

[EO] Attaching Problem. by 314piwm
[Today at 10:21:04 PM]
Project Vertigo [2d Tile-based Side-Scrolling Engine] by Miguu
[Today at 10:03:22 PM]
Zacaras Empire (Hiring) by Ertzel
[Today at 08:43:54 PM]
custom cliff tiles by ToshiroHayate
[Today at 08:29:15 PM]
.: RPG Kingdom :. by LegendWeaver
[Today at 08:25:20 PM]
What do you think? by [Pie] ICT
[Today at 07:54:54 PM]
[Show Off] Aztec Stuff by [Pie] ICT
[Today at 07:50:07 PM]
So I herd you liek mudkipz by Kreator
[Today at 07:36:52 PM]
Haven and Hearth: Epic Screenshot Thread by Tompwnage™
[Today at 07:14:21 PM]
The Lonliest Star [RP] by DDunit
[Today at 07:09:46 PM]

• Guests: 21
• Hidden: 0
• Users: 15
• Users Online:

• Helladen
• Back to teeming
• drifter000
• jncoblack15
• BRiM570N3
• 314piwm
• Ertzel
• RavenStar
• Bloodmyst
• yaratemaster
• bunnyphantom
• Blue Fly
• LegendWeaver
• Gamma™
• Mikekan13

can someone see if there are any bugs

add this in scripted NPC

Code: [Select]

   Case #
        Call QuestMaster(index)

Then put this at the bottom of your main

Code: [Select]

'***********************
Sub QuestMaster(index)
'***********************
Dim Map
Dim Level
Dim StartMsg
Dim ItemTake

Map = GetPlayerMap(index)
Level = GetVar("scripts\mapextras\" & Map & ".ini", "QuestMaster", "LevelNeeded")
StartMsg = GetVar("scripts\mapextras\" & Map & ".ini", "QuestMaster", "StartMsg")
ItemTake = GetVar("scripts\mapextras\" & Map & ".ini", "QuestMaster", "ItemNeeded")

'This will exit the sub if they are not the right level
MyVar = GetPlayerLevel(index)
    If MyVar = > Level Then
    Exit Sub
    End If

'This give the start message
Call PlayerMsg(index, "" & StartMsg & "", 14)
'This checks for the item
MyVar = GetPlayerInvItemNum(index, 1)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 2)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 3)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 4)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 5)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 6)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 7)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 8)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 9)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 10)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 11)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 12)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 13)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 14)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 15)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 16)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 17)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 18)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 19)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 20)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 21)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 22)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 23)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 24)
    If MyVar = ItemTake Then
        Call TakeItem(index)
MyVar = GetPlayerInvItemNum(index, 25)
    If MyVar = ItemTake Then
        Call TakeItem(index)
Else
'You can edit the message, it says the person does not have the required item
    Call PlayerMsg(index, "You can not finish the quest right now, you are missing the required item.", 15)
End Sub

'***********************
Sub Give_Item(index, number, durability)
'***********************
Dim slot

slot = 1
Do While slot < 25
If Getplayerinvitemnum( index, Int( slot ) ) = 0 Then
Call SetPlayerInvItemNum(index, Int( slot ), Int( number ) )
Call SetPlayerInvItemDur(index, Int( slot ), Int( durability ) )
Call SetPlayerInvItemValue(index, Int( slot ), Int(0) )
Call SendInventoryUpdate(index, Int(slot) )
slot = 25
End If
slot = slot + 1
Loop
End Sub

'***********************
Sub quest_Take_Item(index, number, value)
'***********************

Dim slot
Dim initial
Dim final
Dim taken

slot=1
Do While Int(slot) < 25
If taken <> 1 Then
If Getplayerinvitemnum(index,Int(slot)) = Int(number) Then
If Int(getplayerinvitemvalue(index, Int(slot))) >= Int(value) Then
initial = Int(getplayerinvitemvalue(index, Int(slot) ) )
final = Int(initial) - Int(value)
If Int(final) <= 0 Then
Call setplayerinvitemnum(index, Int(slot), Int(0) )
Call setplayerinvitemvalue(index, Int(slot), Int(0) )
Call setplayerinvitemdur(index, Int(slot), Int(0) )
Call SendInventoryUpdate(index, Int(slot))
taken=1
Else
Call setplayerinvitemvalue(index, Int(slot), Int(final) )
Call SendInventoryUpdate(index, Int(slot) )
taken=1
End If
End If
End If
End If
slot = slot + 1
Loop
End Sub

'***********************
Sub TakeItem(index)
'***********************
Dim ItemTake
ItemTakeNeeded

ItemTake = GetVar("scripts\mapextras\" & Map & ".ini", "QuestMaster", "ItemNeeded")
ItemTakeNeeded = GetVar("scripts\mapextras\" & Map & ".ini", "QuestMaster", "Amount")

'This take the item and checks if they have the right amount
MyVar = GetPlayerInvItemValue(index, 1)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 1)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 2)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 2)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 3)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 3)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 4)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 4)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 5)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 5)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 6)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 6)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 7)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 7)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 8)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 8)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 9)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 9)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 10)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 10)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 11)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 11)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 12)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 12)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 13)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 13)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 14)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 14)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 15)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 15)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 16)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 16)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 17)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 17)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 18)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 18)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 19)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 19)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 20)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 20)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 21)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 21)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 22)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 22)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 23)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 23)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 24)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 24)
        Call SetXP(index)
MyVar = GetPlayerInvItemValue(index, 25)
    If MyVar = ItemTakeNeeded
        quest_Take_Item(index, ItemTake, ItemTakeNeeded)
        Call SendInventoryUpdate(index, 25)
        Call SetXP(index)
Else
'Edit this message if you want, it says they don't have the right amount
    Call PlayerMsg(index, "You can not finish the quest right now, you are missing the required amount.", 15)
End Sub

'***********************
Sub SetXP(index)
'***********************
Dim XP
Dim GiveItem
Dim GiveDur
Dim EndMsg

XP = GetVar("scripts\mapextras\" & Map & ".ini", "QuestMaster", "GiveXP")
GiveItem = GetVar("scripts\mapextras\" & Map & ".ini", "QuestMaster", "GiveItem")
GiveDur = GetVar("scripts\mapextras\" & Map & ".ini", "QuestMaster", "GiveDurability")
EndMsg = GetVar("scripts\mapextras\" & Map & ".ini", "QuestMaster", "EndMsg")

'this give the xp, item, and end message
Call SetPlayerExp(index, GetPlayerExp(index) + Int(XP))
Give_Item(index, GiveItem, GiveDur)
Call PlayerMsg(index, "" & EndMsg & "", 15)
End Sub

Instructions

make the npc scripted, and for the map he is on make an ini file named with the map he/she is on.
Example: 5.ini

now put this inside the ini file

Code: [Select]

[QuestMaster]
Name= < quest name
StartMsg= < Msg on start
LevelNeeded= < level needed to do quest
ItemNeeded= < item # needed
Amount= < how many
GiveItem= < item prize number
GiveDurability= < durability on prize
GiveXP= < xp given to quester
EndMsg= < msg when quest is completed


any bugs or errors I may have made? plz tell me I'm just starting at this

Credit to Baron for Sub quest_Take_Item and Sub Give_Item
also me for writing questmaster  8)

I wrote this cause I couldn't get Baron's quest script to work

aslo put the ini file in scripts/mapextras folder

Grim_Reaper

Not entirely sure, but this might be case sensitive.  For example ;

setplayerinvitemvalue

to

Code: [Select]

SetPlayerInvItemValue

Fulou

baron made that part from his quest script

Grim_Reaper

Not entirely sure, but this might be case sensitive.  For example ;

setplayerinvitemvalue

to

Code: [Select]

SetPlayerInvItemValue

*sigh* code is not case sensitive.

This is not the issue.

Baron

so whats the problem then?

Grim_Reaper

does it work?

chizzlexd23

I'm not sure I need some1 to debug it

Grim_Reaper

MyVar = GetPlayerLevel(index)
    If MyVar = > Level Then
    Exit Sub



You forgot an End If there. Maybe that's the whole problem.

Ilnair

where do I put the end if?

Grim_Reaper

In this case right below the exit sub.

Ilnair

does it work now? and how do I make it end if it can't get the item?

Grim_Reaper

I dont see any errors but im not an expert and my server is down or id try it out.

Lee_Dragoon

Hmm, I dunno what's wrong with this one, looked at it a few times, can't find any real errors, sorry.


I'll have another look tomorow, when I'm rested up.

Ilnair

hehe just try it yourself...and see what errors you get

unnown

how do I make it exit the sub if it can't get the item?

Grim_Reaper

just
If can'tgetitem(dunno the commandforthis) Then
       Exit Sub
End If

Ilnair

can some1 post the script how it is now after all these revisions?

fallenmoogla

I edit it all the time when I fix it... just gotta make the sub exit when it can't get the item

Grim_Reaper

please can some help me here, it's almost complete... I just need it to exit sub if it can't get the item...

Grim_Reaper

I'm trying to learn this in the process of self-teaching scripting.
Pls, when finished post script and ,pls, give me a through tutorial on how to setup!
I've tried to make some spell and item scripts, but none of them worked!
So, pls give me step by step guide.....?!

fallenmoogla