Casino script - Skyrim Mod

 MiscObject Property G1 Auto ; gold coins septims

Message Property M7 Auto

int random

Event OnActivate(ObjectReference akActionRef)

Int iButton = M7.Show()

random = Utility.RandomInt(1, 30)

if iButton == 0 ; work slot machine remove 1 gold per turn

  if random == 1 ; win 10 gold
  Game.GetPlayer().additem(G1, 10)
  Debug.MessageBox("Bar. Fruit. Fruit. You win 10 Gold.")

  elseif random == 2 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)
  
  elseif random == 3 ; lose gold
   Game.GetPlayer().removeitem(G1, 1)
   Debug.MessageBox("Sorry, better luck next time.")

  elseif random == 4 ; win gold
  Game.GetPlayer().additem(G1, 500)
  Debug.MessageBox("Fruit. Fruit. Fruit. You win 500 Gold.")

  elseif random == 5 ; win gold
  Game.GetPlayer().additem(G1, 25)
  Debug.MessageBox("Fruit. Bar. Fruit. You win 25 Gold.")

  elseif random == 6 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 7 ; win jackpot
  Game.GetPlayer().additem(G1, 1000)
  Debug.MessageBox("Bar. Bar. Fruit. You won a Major Jackpot!")

  elseif random == 8 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 9 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 10 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 11 ; win gold
  Game.GetPlayer().additem(G1, 25)
  Debug.MessageBox("Fruit. Fruit. Leek. You win 25 Gold.")

  elseif random == 12 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 13 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 14 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

   elseif random == 15 ; win gold
  Game.GetPlayer().additem(G1, 25)
  Debug.MessageBox("Fruit. Leek. Fruit. You win 25 Gold.")

  elseif random == 16 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 17 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 18 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

   elseif random == 19 ; win gold
  Game.GetPlayer().additem(G1, 25)
  Debug.MessageBox("Fruit. Bar. Fruit. You win 25 Gold.")

  elseif random == 20 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 21 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 22 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

   elseif random == 23 ; win jackpot
  Game.GetPlayer().additem(G1, 2000)
  Debug.MessageBox("Bar. Bar. Bar. You won a Major Jackpot!")

   elseif random == 24 ; win gold
  Game.GetPlayer().additem(G1, 25)
  Debug.MessageBox("Fruit. Leek. Fruit. You win 25 Gold.")

  elseif random == 25 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 26 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 27 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

   elseif random == 28 ; win gold
  Game.GetPlayer().additem(G1, 25)
  Debug.MessageBox("Fruit. Fruit. Leek. You win 25 Gold.")

  elseif random == 29 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif random == 30 ; lose gold
  Debug.MessageBox("Sorry, better luck next time.")
  Game.GetPlayer().removeitem(G1, 1)

  elseif iButton == 1 ; nothing
  endif
endif

endEvent