1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Blacksmith Setup game programing

Discussion in 'Game programming' started by XXxxImmortalxxXX, Jun 12, 2008.

  1. XXxxImmortalxxXX

    XXxxImmortalxxXX New Member

    Joined:
    Jun 27, 2007
    Messages:
    569
    Likes Received:
    18
    Trophy Points:
    0
    Hey i have a error in this script whats wrong with it?
    Code:
    Function Main()
    
    	Player = Actor()
    	D = OpenDialog(Player, ContextActor(), "Fat Ivan's Magic Shop")
    		DialogOutput(Player, D, "Welcome to my shop! And what may I do for you?", 255, 255, 255)
    		Result = DialogInput(Player, D, "Magic skill increase (10 gp)", "Mana boost (2 gp)", "Healing spell (15 gp)", "Charm creature spell (5 gp)", "Speed! (5 gp)", "Trade", "Nothing, goodbye")
    		If (Result == 1)
    			If (Gold(Player) > 9)
    				ChangeGold(Player, -10)
    				SetAttribute(Player, "Magic", Attribute(Player, "Magic") + 2)
    				DialogOutput(Player, D, "Attribute increased!", 255, 255, 255)
    				ScreenFlash(Player, 255, 255, 255, 255, 1000)
    			Else
    				DialogOutput(Player, D, "You do not have enough gold!", 255, 255, 255)
    			EndIf
    		ElseIf (Result == 2)
    			If (Gold(Player) > 1)
    				CurrentLevel = Attribute(Player, "Mana")
    				If (CurrentLevel < MaxAttribute(Player, "Mana"))
    					ChangeGold(Player, -2)
    					SetAttribute(Player, "Mana", CurrentLevel + 1)
    					DialogOutput(Player, D, "Mana restored!", 255, 255, 255)
    				Else
    					DialogOutput(Player, D, "Your mana is already full...", 255, 255, 255)
    				EndIf
    			Else
    				DialogOutput(Player, D, "You do not have enough gold!", 255, 255, 255)
    			EndIf
    		ElseIf (Result == 3)
    			If (Gold(Player) > 14)
    				If (Attribute(Player, "Magic") > 9)
    					ChangeGold(Player, -15)
    					AddAbility(Player, "Heal Self", 1)
    					DialogOutput(Player, D, "Spell learned!", 255, 255, 255)
    				Else
    					DialogOutput(Player, D, "Sorry, your magic skill is not high enough.", 255, 255, 255)
    				EndIf
    			Else
    				DialogOutput(Player, D, "You do not have enough gold!", 255, 255, 255)
    			EndIf
    		ElseIf (Result == 4)
    			If (Gold(Player) > 4)
    				If (Attribute(Player, "Magic") > 4)
    					ChangeGold(Player, -5)
    					AddAbility(Player, "Charm Creature", 1)
    					DialogOutput(Player, D, "Spell learned!", 255, 255, 255)
    				Else
    					DialogOutput(Player, D, "Sorry, your magic skill is not high enough.", 255, 255, 255)
    				EndIf
    			Else
    				DialogOutput(Player, D, "You do not have enough gold!", 255, 255, 255)
    			EndIf
    		ElseIf (Result == 5)
    			If (Gold(Player) > 4)
    				ChangeGold(Player, -5)
    				AddActorEffect(Player, "Speed!", "Speed", 15, 30, 131)
    				ScreenFlash(Player, 255, 50, 50, 255, 1000)
    				DialogOutput(Player, D, "Vrrrrooooom!", 255, 50, 50)
    			Else
    				DialogOutput(Player, D, "You do not have enough gold!", 255, 255, 255)
    			EndIf
    		ElseIf (Result == 6)
    			OpenTrading(Player, ContextActor())
    			DialogOutput(Player, D, "Thanks for coming!", 255, 255, 255)
    		ElseIf (Result == 7)
    			CloseDialog(Player, D)
    			Return()
    		EndIf
    		DialogInput(Player, D, "Goodbye...")
    	CloseDialog(Player, D)
             EndThen
    	Return()
    
    End Function
    
    
    
    
    
    and 
    
    
    
    
    
    
    Function Main()
    
    	GiveItem(Actor(), "Forge Hammer", 1)
    	GiveItem(Actor(), "questionmark", 1)
    	GiveItem(Actor(), "Razor Mace", 2)
    	GiveItem(Actor(), "Leather Shirt", 1)
    	GiveItem(Actor(), "Odd Mushroom", 4)
    	GiveItem(Actor(), "Beer", 11)
    	SetName(Actor(), "Thoreg")
    	Return()
    
    End Function
     
    Last edited by a moderator: Jun 12, 2008

Share This Page