Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Kainan54

Members
  • Posts

    61
  • Joined

  • Last visited

    Never

Kainan54's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. Like if i want a npc to say things in multiple chat bubble how do I make him say them one at a time?
  2. What is happening? The ui is super messed up!
  3. well yea they were stackable(btw do i need to make give currency or somthing for stack?) but the problem still persisted when i un stacked them so im very confused…i noticed i deleted this case else thing when i put scripts in..do i need the case else?
  4. ok``` 'Executes whenever a scripted NPC does an action. Sub ScriptedNPC(Index, Script) Select Case Script Case 0 Call PlayerMsg(index, "you look weak…go get me 10 flowers and I might not hurt ya!?", 12) If CanTake(Index, 1, 10) = false Then Call PlayerMsg(index, "You runt go kill those fur things for the flowers! I bet even you can beat em!", 12) Else Call TakeItem(index, 1, 10) Call GiveItem(index, 2, 1) Call GiveItem(index, 3, 1) Call GiveItem(index, 4, 1) Call GiveItem(index, 5, 1) Call PlayerMsg(index, "ok here is some armor and a port potion to the outer world!", 12) End If Exit Sub Case 1 Call PlayerMsg(index, "I need 15 roots. Um erm can you help me??", 12) If CanTake(Index, 7, 15) = false Then Call PlayerMsg(index, "go kill some elites they took them so they should them.!", 12) Else Call TakeItem(index, 7, 15) Call GiveItem(index, 8, 1) Call GiveItem(index, 9, 1) Call GiveItem(index, 10, 1) Call PlayerMsg(index, "ha those roots were never mine!", 12) End If Exit Sub Case 2 Call PlayerMsg(index, "hey get me 30 dragon wings…I will pay you well with real fighting gear",12) If CanTake(Index, 15, 30) = false Then Call PlayerMsg(index, "the dragon’s are south of here now Get Me the wings", 12) Else Call TakeItem(index, 15, 30) Call GiveItem(index, 12, 1) Call GiveItem(index, 13, 1) Call GiveItem(index, 14, 1) Call GiveItem(index 16,1) Call PlayerMsg(index, "well done enjoy!", 12) End If Exit Sub Case 3 Call PlayerMsg(index, "give me 60 gems for a great reward.", 12) If CanTake(Index, 17, 60) = false Then Call PlayerMsg(index, " the cave dwellers have the jewls from there mines", 12) Else Call TakeItem(index, 17, 60) Call GiveItem(index, 18, 1) Call GiveItem(index, 19, 1) Call GiveItem(index, 20, 1) Call GiveItem(index, 21, 1) Call PlayerMsg(index, "hmm these are fine!", 12) End If Exit Sub Case 4 Call PlayerMsg(index, "kill the boss for a epic armor set and the freedom from the arena", 12) If CanTake(Index, 22, 1) = false Then Call PlayerMsg(index, " the kinar have the jewls.", 12) Else Call TakeItem(index, 22, 1) Call GiveItem(index, 23, 1) Call GiveItem(index, 24, 1) Call GiveItem(index, 25, 1) Call GiveItem(index, 26, 1) Call GiveItem(index, 27, 1) Call PlayerMsg(index, "use the port potion to leave", 12) End If Exit Sub End Select End Sub ```and scripts are on in sever
  5. Kainan54

    Pvp

    @Ghost: > ``` > Sub OnAttack(Index, Damage) > Dim Target > > If Int(Damage) > 0 Then > If Int(GetPlayerTarget(Index)) > 0 Then > Target = GetPlayerTarget(Index) > If(GetPlayerClass(Target)GetPLayerClass(Index) Then > Call DamagePlayer(Index, Target, Damage) > End If > Else > Target = GetPlayerTargetNPC(Index) > Call DamageNPC(Index, Target, Damage) > End If > End If > End Sub > ``` > I'm not sure if is the right way to do "not equal to" but I think it is. And that should be all you need… yes since i dont post often i was able to find it by looking through profile. this is not my script but the quotes should show that so yea…
  6. Kainan54

    Pvp

    i belive i saw a script that would do this im going to try and find it…
  7. shador does it work now cause i think i might be having same prob
  8. hmm still no luck is there any other info i may provide for a soultion(btw thx for all the help so far I needed it even if the npc was working :) )
  9. well still not working but i was using word so let me refix it with your noticing's and see if it works. i'm still new to this so this might be a lost cause.
  10. yea When atk the npc or click ctrl when next to it nothing happens. it worked with the default main.txt with godlords inventory stuff added. so yea here is the script thingy: ' Executes whenever a scripted NPC does an action. Sub ScriptedNPC(Index, Script) Select Case Script Case 0 Call PlayerMsg(index, "you look weak…go get me 10 flowers and I might not hurt ya!?", 12) If CanTake(Index, 1, 10) = false Then Call PlayerMsg(index, "You runt go kill those fur things for the flowers! I bet even you can beat em!", 12) Else Call TakeItem(index, 1, 10) Call GiveItem(index, 2, 1) Call GiveItem(index, 3, 1) Call GiveItem(index, 4, 1) Call GiveItem(index, 5, 1) Call PlayerMsg(index, "ok here is some armor and a port potion to the outer world!", 12) End If Exit Sub Case 1 Call PlayerMsg(index, "I need 15 roots. Um erm can you help me??", 12) If CanTake(Index, 7, 15) = false Then Call PlayerMsg(index, "go kill some elites they took them so they should them.!", 12) Else Call TakeItem(index, 7, 15) Call GiveItem(index, 8, 1) Call GiveItem(index, 9, 1) Call GiveItem(index, 10, 1) Call PlayerMsg(index, "ha those roots were never mine!", 12) End If Exit Sub Case 2 Call PlayerMsg(index, "hey get me 30 dragon wings…I will pay you well with real fighting gear”,12) If CanTake(Index, 15, 30) = false Then Call PlayerMsg(index, the dragon’s are south of here now get me the wings", 12) Else Call TakeItem(index, 15, 30) Call GiveItem(index, 12, 1) Call GiveItem(index, 13, 1) Call GiveItem(index, 14, 1) Call GiveItem(index 16,1 Call PlayerMsg(index, "well done enjoy!12) End If Exit Sub Case 3 Call PlayerMsg(index, "give me 60 gems for a great reward.", 12) If CanTake(Index, 17, 60) = false Then Call PlayerMsg(index, " the cave dwellers have the jewls from there mines", 12) Else Call TakeItem(index, 17, 60) Call GiveItem(index, 18, 1) Call GiveItem(index, 19, 1) Call GiveItem(index, 20, 1) Call GiveItem(index, 21, 1) Call PlayerMsg(index, "hmm these are fine!", 12) End If Exit Sub Case 4 Call PlayerMsg(index, "kill the boss for a epic armor set and the freedom from the arena", 12) If CanTake(Index, 22, 1) = false Then Call PlayerMsg(index, " the kinar have the jewls.", 12) Else Call TakeItem(index, 22, 1) Call GiveItem(index, 23, 1) Call GiveItem(index, 24, 1) Call GiveItem(index, 25, 1) Call GiveItem(index, 26, 1) Call GiveItem(index, 27, 1) Call PlayerMsg(index, "use the port potion to leave", 12) End If Exit Sub End Select End Sub i checked npc has stats and scripts are on so yea…
×
×
  • Create New...