Lottery System Reloaded v1.0

[Moderator]

14:41, 26th Mar 2015
IcemanBo: Check my post in thread.

 

[jvbtwentyone]

UPDATE version 1.0
This is the major update of lottery system.
The Minor update is 1.1-1.9
The Major is 1.0-2.0
_{This is my first time to create triggers and upload it. I'm a vb and c++ coder, and i want to learn more about GUI,jass, vjass etc.}

 

[GywGod133]

please post the trigger to easy review

 

[jvbtwentyone]

I'll Post the trigger on next update.

 

[Chaosy]

this the trigger.

system

• LotterySystem
  • Events
    • Player - Player 1 (Red) types a chat message containing -lot as A substring
  • Conditions
    • (Substring((Entered chat string), 1, 4)) Equal to -lot
  • Actions
    • If (All Conditions are True) then do (Then Actions) else do (Else Actions)
      • If - Conditions
        • (Substring((Entered chat string), 1, 7)) Equal to -lot /h
      • Then - Actions
        • Game - Display to (Player group((Triggering player))) the text: ---Lottery--- Max ...
      • Else - Actions
    • If (All Conditions are True) then do (Then Actions) else do (Else Actions)
      • If - Conditions
        • Or - Any (Conditions) are true
          • Conditions
            • (Integer((Substring((Entered chat string), 10, 12)))) Equal to 0
            • (Integer((Substring((Entered chat string), 10, 12)))) Equal to (Integer(<Empty String>))
            • (Integer((Substring((Entered chat string), 10, 999)))) Greater than 500
            • ((Triggering player) Current gold) Equal to 0
      • Then - Actions
        • Game - Display to (Player group((Triggering player))) the text: Your Bet is too lar...
      • Else - Actions
    • If (All Conditions are True) then do (Then Actions) else do (Else Actions)
      • If - Conditions
        • (Integer((Substring((Entered chat string), 10, 12)))) Less than or equal to 500
        • (Integer((Substring((Entered chat string), 10, 12)))) Not equal to 0
        • (Integer((Substring((Entered chat string), 10, 12)))) Not equal to (Integer(<Empty String>))
        • ((Triggering player) Current gold) Not equal to 0
      • Then - Actions
        • Set LotterySystem_Bet[1] = (Integer((Substring((Entered chat string), 10, 12))))
        • If (All Conditions are True) then do (Then Actions) else do (Else Actions)
          • If - Conditions
            • ((Triggering player) Current gold) Greater than or equal to LotterySystem_Bet[1]
          • Then - Actions
            • Set LotterySystem[1] = (String((Random integer number between 1 and 3)))
            • Set LotterySystem[2] = (String((Random integer number between 1 and 3)))
            • Set LotterySystem_Draws[1] = (LotterySystem[1] + (- + LotterySystem[2]))
            • Set LotterySystem_Draws[2] = (Substring((Entered chat string), 6, 8))
            • Game - Display to Player Group - Player 1 (Red) the text: (Draw : + LotterySystem_Draws[2])
            • Wait 1.00 seconds
            • Game - Display to Player Group - Player 1 (Red) the text: (String((Random integer number between 1 and 3)))
            • Wait 1.00 seconds
            • Game - Display to Player Group - Player 1 (Red) the text: (String((Random integer number between 1 and 3)))
            • Wait 1.00 seconds
            • Game - Display to Player Group - Player 1 (Red) the text: (String((Random integer number between 1 and 3)))
            • Wait 1.00 seconds
            • Game - Display to Player Group - Player 1 (Red) the text: (String((Random integer number between 1 and 3)))
            • Wait 1.00 seconds
            • Game - Display to Player Group - Player 1 (Red) the text: LotterySystem_Draws[1]
            • If (All Conditions are True) then do (Then Actions) else do (Else Actions)
              • If - Conditions
                • LotterySystem_Draws[1] Equal to LotterySystem_Draws[2]
              • Then - Actions
                • If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                  • If - Conditions
                    • (Integer((Substring((Entered chat string), 10, 13)))) Less than or equal to 500
                  • Then - Actions
                    • Game - Display to Player Group - Player 1 (Red) the text: (You Won! + (( + ((String((LotterySystem_Bet[1] x 2))) + )) + (Name of (Triggering player))))
                    • Player - Add (LotterySystem_Bet[1] x 2) to (Triggering player) Current gold
                  • Else - Actions
              • Else - Actions
            • If (All Conditions are True) then do (Then Actions) else do (Else Actions)
              • If - Conditions
                • LotterySystem_Draws[1] Not equal to LotterySystem_Draws[2]
              • Then - Actions
                • Game - Display to Player Group - Player 1 (Red) the text: Fail!.
                • Player - Set (Triggering player) Current gold to (((Triggering player) Current gold) - LotterySystem_Bet[1])
              • Else - Actions
          • Else - Actions
      • Else - Actions

and these are the demos:

demos

• DEMO
  • Events
    • Player - Player 1 (Red) types a chat message containing -random as An exact match
    • Player - Player 1 (Red) skips a cinematic sequence
  • Conditions
  • Actions
    • Player Group - Pick every player in (All players) and do (Actions)
      • Loop - Actions
        • -------- - --------
        • Unit - Remove DEMO_Random from the game
        • Player - Set (Picked player) Current gold to (Random integer number between 1 and (Random integer number between 1 and 1000000))
        • Player - Set (Picked player) Current lumber to (Random integer number between 1 and (Random integer number between 1 and 1000000))
        • Unit - Create 1 SaveLoad_Hero[(Random integer number between 1 and SaveLoad_HeroCount)] for (Picked player) at ((Picked player) start location) facing Default building facing degrees
        • Hero - Set (Last created unit) Hero-level to (Random integer number between 1 and 10), Show level-up graphics
        • Hero - Set (Last created unit) experience to (Random integer number between 1 and 9999), Show level-up graphics
        • Hero - Modify Strength of (Last created unit): Set to (Random integer number between 1 and 1000)
        • Hero - Modify Agility of (Last created unit): Set to (Random integer number between 1 and 1000)
        • Hero - Modify Intelligence of (Last created unit): Set to (Random integer number between 1 and 1000)
        • For each (Integer A) from 1 to 6, do (Actions)
          • Loop - Actions
            • Hero - Create SaveLoad_Item[(Random integer number between 1 and SaveLoad_ItemCount)] and give it to (Last created unit)
        • Set DEMO_Random = (Last created unit)
        • Set DEMO_Integers = (DEMO_Integers + 1)
        • Set DEMO_Strings[DEMO_Integers] = (((String(DEMO_Integers)) + .)) + (Name of (Last created unit)))
        • Game - Display to (All players) the text: DEMO_Strings[DEMO_Integers]

• DEMO II
  • Events
    • Player - Player 1 (Red) types a chat message containing -randomlist as An exact match
  • Conditions
  • Actions
    • For each (Integer A) from 1 to 10, do (Actions)
      • Loop - Actions
        • Game - Display to (All players) the text: DEMO_Strings[(Integer A)]

• (Integer((Substring((Entered chat string), 10, 999)))) Greater than 500

>>>>

• (Integer((Substring((Entered chat string), 10, (Length of (Entered chat string)))))) Greater than 500

waits are not allowed either. They prevent the system from being MPI. (search for it on the forum and you will find 999999 explanations about what it is and how to deal with it)

 

[Tal'Rarity]

Waits do not prevent MPI or MUI, however they are badly made timers so you should use real timers.

 

[Chaosy]

I am pretty sure it prevents MPI too I don't think I can prove it. Without making some tests that I don't feel like doing that is.

 

[gorillabull]

i see you have some gradient text in there

 

[Wrda]

For the love of god.........please
Don't say that waits are bad, unless they are used wrongly. Waits don't make a spell/system not MPI or MUI...so don't say that when you don't even have proof here. That is like saying that a woman reported his husband for treating her badly when she doesn't even have proof....

jvbtwentyone, you should post finished systems/spells and stuff like that, not works in progress.

 

[Chaosy]

Fine. Waits can work if done correctly. However 99% doesn't know how to use them properly so it's easier to say "It doesn't work." rather than writing a giant tutorial explaining how to use it.

 

[GywGod133]

Do Nothing
Should remove this

Save the Triggering Player
set tempPlayer = Triggering Player
then use it

 

[jvbtwentyone]

Do Nothing
Should remove this

Save the Triggering Player
set tempPlayer = Triggering Player
then use it

Why i can remove

• Do Nothing

Did you mean for "Save the Triggering Player"

• Set tempPlayer[(Player number of (Triggering player))] = (Triggering player)

I set the array to 12 for 12 players.
I'm using LotSys_Bet[(Player number of (Triggering player))] Less than or equal to ((Triggering player) Current gold) for multiplayer.

 

[Chaosy]

Because "Do Nothing" actually.. doesn't do anything (no shit?!)

Leave it blanc instead.

 

[jvbtwentyone]

Because "Do Nothing" actually.. doesn't do anything (no shit?!)

Leave it blanc instead.

Okay I'll do it .

 

[IcemanBo]

Why/when should someone use this system? Please add some description.

 

[IcemanBo]

I still need description of the purpose of this system.
Why are only 3 players in the trigger events?