My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Mar 20th, 2010 | Syntax: None | Size: 4.26 KB | Hits: 90 | Expires: Never
Download | Raw | Embed | Report abuse
Copy text to clipboard
  1. [Combine Commander]
  2.  
  3. Kill the combine commander and Bring me back his helmet.
  4.  
  5. Add a combine in the room to the left of the combine base. and make him Drop a quest item.  but only some times.
  6.  
  7. (maybe make it a darker model?)
  8.  
  9. NPC
  10.  
  11. local NPC = QuickNPC("combine_smg", "Combine Commander", "npc_combine_s", "combine", 300, "models/Combine_Soldier.mdl")
  12. NPC = AddDrop(NPC, "money", 50, 30, 43)
  13. NPC = AddDrop(NPC, "item_smallammo_small", 20)
  14. NPC = AddDrop(NPC, "item_rifleammo_small", 10)
  15. NPC = AddDrop(NPC, "item_sniperammo_small", 5)
  16. NPC = AddDrop(NPC, "weapon_ranged_junksmg", 1)
  17. NPC = AddDrop(NPC, "weapon_ranged_junkrifle", 1)
  18. NPC = AddDrop(NPC, "weapon_melee_wrench", 3)
  19. NPC = AddDrop(NPC, "armor_helm_gasmask", 2, nil, nil, 5)
  20. NPC = AddDrop(NPC, "quest_comhelm", 10)
  21. NPC = AddMultiplier(NPC, 30, 5)
  22. NPC.Weapon = "weapon_smg1"
  23. NPC.DeathDistance = 14
  24. Register.NPC(NPC)
  25.  
  26. Quest Item
  27.  
  28. local Item = DeriveTable(BaseItem)
  29. Item.Name = "quest_comhelm"
  30. Item.PrintName = "Combine Commander's Helmet"
  31. Item.Desc = "A quest item"
  32. Item.Icon = "icons/hat_cheifshat"
  33. Item.Model = "models/BarneyHelmet_faceplate.mdl"
  34. Item.QuestItem = "quest_comhelm"
  35. Item.Dropable = true
  36. Item.Giveable = false
  37. Item.Weight = 1
  38. Register.Item(Item)
  39.  
  40. Quest
  41.  
  42. local Quest = {}
  43. Quest.Name = "quest_killcombinecommander"
  44. Quest.PrintName = "killcombinecommander"
  45. Quest.Story = "That Combine Commander has Been giving me some Trouble,  I want you to Go kill him and Bring me back His Helment"
  46. Quest.Level = 23
  47. Quest.ObtainItems = {}
  48. Quest.ObtainItems["quest_comhelm"] = 1
  49. Quest.GainedExp = 3000
  50. Quest.GainedItems = {}
  51. Quest.GainedItems["money"] = 1000
  52. Register.Quest(Quest)
  53. []
  54.  
  55.  
  56.  
  57.  
  58. [AntLion Head Soup]
  59.  
  60. Quest Item
  61.  
  62. local Item = DeriveTable(BaseItem)
  63. Item.Name = "quest_antlionhead"
  64. Item.PrintName = "Antlion Head"
  65. Item.Desc = "A quest item"
  66. Item.Icon = "icons/junk_antlionwing.vtf"
  67. Item.Model = "models/Gibs/Antlion_gib_large_2.mdl"
  68. Item.QuestItem = "quest_antlionhead"
  69. Item.Dropable = true
  70. Item.Giveable = false
  71. Item.Weight = 2
  72. Register.Item(Item)
  73.  
  74. Npc Add
  75. NPC = AddDrop(NPC, "quest_antlionhead", 10)
  76.  
  77. Quest
  78.  
  79. local Quest = {}
  80. Quest.Name = "quest_Collectantlionheads"
  81. Quest.PrintName = "Help me make soup"
  82. Quest.Story = "Im in the mood to make my famous Antlion and Banana Soup, Go get me the Ingredients"
  83. Quest.Level = 25
  84. Quest.ObtainItems = {}
  85. Quest.ObtainItems["quest_antlionhead"] = 5
  86. Quest.ObtainItems["item_bananna"] = 5
  87. Quest.GainedExp = 1500
  88. Quest.GainedItems = {}
  89. Quest.GainedItems["item_antlionsoup"] = 1   - Maybe a new item?
  90. Register.Quest(Quest)
  91.  
  92. New item?
  93.  
  94. local Item = QuickCreateItemTable(BaseFood, "item_antlionsoup", "Antlion Soup", "Restores your health by 75 over 10 Seconds", "icons/junk_metalcan2")
  95. Item = AddHealth(Item, 75, 10)
  96. Item.Model = "models/Items/HealthKit.mdl"
  97. Item.Message = "You drank Antlion Soup"
  98. Item.UseSound = "vo/SandwichEat09.wav"
  99. {Item.Dropable = false
  100. Item.Giveable = false Not sure if these Work in normal items}
  101. Item.SellPrice = 0
  102. Item.Weight = 1
  103. Register.Item(Item)
  104. []
  105.  
  106. [Fast ZOmbie]
  107.  
  108. Quest
  109.  
  110. local Quest = {}
  111. Quest.Name = "quest_killfastzombie"
  112. Quest.PrintName = "Those Damned Fast Zombies!"
  113. Quest.Story = "Those damned Fast Zombies keep Chaseing me away everytime i try to go for a walk!!"
  114. Quest.QuestNeeded = "quest_killzombies"
  115. Quest.Level = 10
  116. Quest.Kill = {}
  117. Quest.Kill ["fastzombie"] = 10
  118. Quest.GainedExp = 250
  119. Quest.GainedItems = {}
  120. Quest.GainedItems["money"] = 300
  121. Register.Quest(Quest)
  122. []
  123.  
  124.  
  125. [Combine Scanners]
  126.  
  127. Quest
  128.  
  129. local Quest = {}
  130. Quest.Name = "quest_Collectmanhackeyes"
  131. Quest.PrintName = "Help me build a Satalite"
  132. Quest.Story = "Because those Pesky Combine keep shooting up my Satalite array equipment i need you to collect me some Manhack Eyes."
  133. Quest.Level = 25
  134. Quest.ObtainItems = {}
  135. Quest.ObtainItems["quest_Manhackeyes"] = 10
  136. Quest.GainedExp = 1500
  137. Quest.GainedItems = {}
  138. Register.Quest(Quest)
  139.  
  140. Quest Item
  141.  
  142. local Item = DeriveTable(BaseItem)
  143. Item.Name = "quest_Manhackeyes"
  144. Item.PrintName = "Manhack Eyes"
  145. Item.Desc = "A quest item"
  146. Item.Icon = "icons/junk_box1.vtf"
  147. Item.Model = "models/Gibs/manhack_gib03.mdl"
  148. Item.QuestItem = "quest_Manhackeyes"
  149. Item.Dropable = true
  150. Item.Giveable = false
  151. Item.Weight = 2
  152. Register.Item(Item)
  153.  
  154. Npc Add
  155. NPC = AddDrop(NPC, "quest_Manhackeyes", 10)
create new paste | create new version of this paste RAW Paste Data