Summon Ingots and HF Supplies

DESCRIPTION
Summon Ingots & Hearthfire Supplies:
by: M7
==============================
(Requires Hearthfire DLC)

This Mod adds 2 spell tomes to the Arcanaeum in the Winterhold Mages College,  on the desk or sold by Urag. One summons (10 each) metal ingots and the other summons supplies (10 each) needed in Hearthfire DLC.

M7 2016.

Ingots:
======
Iron, Gold, Ebony, Dwarven, Corundum, Silver.

HF Supplies:
==========
Iron Nails, Straw, Glass, Quarried Stone, Goat Horns, Clay bricks.

M7

 

Casino Skyrim

http://steamcommunity.com/sharedfiles/filedetails/?id=782357276

Casino Skyrim:
DESCRIPTION
This Mod adds a small Casino with working Theater to Solitude City in Skyrim.

(Dawnguard DLC is required)
M7 2016.

Casino:
======
3 Types of Slot Machines -- Cards, One-Arm Bandit, and normal Slot Machine.
Drinks Merchant included.

Theater:
=======
Choose one of 4 Acts:
----------------------------
1. Bard
2. Farmer
3. Magic
4. Animals

M7

A Casino Slot Machine Script

A Casino Slot Machine Script

by: M7

(This works using a Random Number Generator)


MiscObject Property Gold Auto

int random

Event OnActivate(ObjectReference akActionRef)

    If akActionRef == Game.GetPlayer()

random = Utility.RandomInt(1, 7) ; randomly generates a number from 1 to 7

     if random == 1
   Game.GetPlayer().additem(Gold, 100)
 
    elseif random == 2
   Debug.MessageBox("Sorry, you didn't win this time.")

  elseif random == 3
   Game.GetPlayer().additem(Gold, 10)

  elseif random == 4
   Debug.MessageBox("Sorry, you didn't win this time.")

  elseif random == 5
   Debug.MessageBox("Sorry, you didn't win this time.")

  elseif random == 6
   Game.GetPlayer().additem(Gold, 10)

    elseif random == 7
   Game.GetPlayer().additem(Gold, 1000)
   Debug.MessageBox("You won the Jackpot!")
 
  endif
endif

endEvent

;;

M7