Только что нашёл!!!
Программа позволяет штамповать квесты для eclipse Evolution и stable
Программа просто в освоении понять можно за 2 минуты вот сей чудо продукт: Скачать
Ставим + кому понравилось! 
Также для неё требуется установить 2 скрипта:
Этот скопируйте в самый низ main.txt
Code
Function GetFreeSlots(Index)
Dim Slot
Dim Slots
Slot = 1
Slots = 0
Index = Int(Index)
Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = 0 Then
Slots = Slots + 1
End If
Slot = Slot + 1
Loop
GetFreeSlots = Slots
End Function
Sub GiveItem(Index, Number, Durability)
Dim Slot
Slot = 1
Index = Int(Index)
Number = Int(Number)
Durability = Int(Durability)
Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = 0 Then
Call SetPlayerInvItemNum(Index, Slot, Number)
Call SetPlayerInvItemDur(Index, Slot, Durability)
Call SendInventoryUpdate(Index, Slot)
Exit Sub
End If
Slot = Slot + 1
Loop
End Sub
Sub GiveCurrency(Index, Number, Amount)
Dim Slot
Dim CurrentAmount
Slot = 1
Index = Int(Index)
Number = Int(Number)
Amount = Int(Amount)
Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = Number Then
CurrentAmount = GetPlayerInvItemValue(Index, Slot)
Call SetPlayerInvItemValue(Index, Slot, CurrentAmount + Amount)
Call SendInventoryUpdate(Index, Slot)
Exit Sub
End If
Slot = Slot + 1
Loop
Slot = 1
Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = 0 Then
Call SetPlayerInvItemNum(Index, Slot, Number)
Call SetPlayerInvItemValue(Index, Slot, Amount)
Call SendInventoryUpdate(Index, Slot)
Exit Sub
End If
Slot = Slot + 1
Loop
End Sub
Function CanTake(Index, Number, Amount)
Dim Slot
Slot = 1
Index = Int(Index)
Number = Int(Number)
Amount = Int(Amount)
Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = Number Then
If GetPlayerInvItemValue(Index, Slot) >= Amount Then
CanTake = True
Exit Function
End If
End If
Slot = Slot + 1
Loop
CanTake = False
End Function
Sub TakeItem(Index, Number, Amount)
Dim Slot
Dim CurrentAmount
Index = Int(Index)
Number = Int(Number)
Amount = Int(Amount)
Slot = 1
Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = Number Then
If GetPlayerInvItemValue(Index, Slot) >= Amount Then
CurrentAmount = GetPlayerInvItemValue(Index, Slot)
If CurrentAmount <= Amount Then
Call SetPlayerInvItemNum(Index, Slot, 0)
Call SetPlayerInvItemValue(Index, Slot, 0)
Call SetPlayerInvItemDur(Index, Slot, 0)
Call SendInventoryUpdate(Index, Slot)
Else
Call SetPlayerInvItemValue(Index, Slot, CurrentAmount - Amount)
Call SendInventoryUpdate(Index, Slot)
End If
Exit Sub
End If
End If
Slot = Slot + 1
Loop
End Sub
И этот также скопируйте в самый низ main.txt
Code
'#################################################################'
'# Function: CanPlayerLearnSpell #'
'# #'
'# Author: cloudwolf00 #'
'# Created: April 2nd, 2010. #'
'# Updated: April 2nd, 2010. #'
'# Version: 1.0.0 #'
'# Licence: http://creativecommons.org/licenses/by/3.0/ #'
'# Licence holder: cloudwolf00 #'
'# #'
'# Brief: Finds if a player can learn another spell #'
'# Parameters: #'
'# - Index - The index number of the player #'
'# Returns: #'
'# - True, if successful #'
'# - False, otherwise #'
'#################################################################'
Function CanPlayerLearnSpell(Index)
Dim slot
Dim maxSpells
Dim learnSpell
slot = 1
learnSpell = 0
maxSpells = 20
'For every spell slot
Do while slot <= maxSpells
'If the player has a free spell slot, they can learn a spell
If GetPlayerSpell(Index, slot) = 0 Then
'Player can learn spell, exit loop
learnSpell = 1
slot = maxSpells
End If
slot = slot + 1
Loop
'If the player does not have a free spell slot
If learnSpell = 0 Then
'They cannot learn a spell
CanPlayerLearnSpell = False
Else
'They can learn a spell
CanPlayerLearnSpell = True
End If
End Function
'#################################################################'
'# Function: PlayerLearnSpell #'
'# #'
'# Author: cloudwolf00 #'
'# Created: April 2nd, 2010. #'
'# Updated: April 2nd, 2010. #'
'# Version: 1.0.0 #'
'# Licence: http://creativecommons.org/licenses/by/3.0/ #'
'# Licence holder: cloudwolf00 #'
'# #'
'# Brief: Teaches a player a spell #'
'# Parameters: #'
'# - Index - The index number of the player #'
'# - SpellNum - The spell number to be learnt #'
'# Returns: #'
'# - None #'
'#################################################################'
Function PlayerLearnSpell(Index, SpellNum)
Dim slot
Dim maxSpells
slot = 1
maxSpells = 20
'For every spell slot
Do while slot <= maxSpells
'If the player has a free spell slot, they can learn a spell
If GetPlayerSpell(Index, slot) = 0 Then
'Learn the spell
Call SetPlayerSpell( Index, slot, SpellNum)
'Exit function
Exit Function
End If
slot = slot + 1
Loop
End Function
