Randomly Chosen murder Victim and Villian VBcode

This forum is meant for people to share their knowledge by writing their own tutorials for Adventure Maker.

Moderators: time-killer-games, Vengeance66, Candle, reneuend, GM-Support

Randomly Chosen murder Victim and Villian VBcode

Postby Bortdafarm » Sun Jan 29, 2006 4:00 am

very chunky but works fine i'm a newbie so it's aimed at newbies like my-self

enter into the VB code window in advanced in one of the first frames to set the game up--(i have it in my title frame properties/advanced/vbcode window)

Code: Select all
Lord_Farley = 0
Lady_Farley = 0
Bishop_Tracepe = 0
Archie_Borld = 0
George_Cant = 0
Margarie_Sene = 0
Cisile_Frankes = 0
Billingsgate = 0
Sir_Margrete_Hill = 0
Advocate_senior = 0
Mary_Cant = 0

Lord_Farley1 = 0
Lady_Farley1 = 0
Bishop_Tracepe1 = 0
Archie_Borld1 = 0
George_Cant1 = 0
Margarie_Sene1 = 0
Cisile_Frankes1 = 0
Billingsgate1 = 0
Sir_Margrete_Hill1 = 0
Advocate_senior1 = 0
Mary_Cant1 = 0

randomize
Dice = int(rnd*(11-1+1))+1

If Dice = 1 Then
Lord_Farley = 1
ElseIf Dice = 2 Then
Lady_Farley = 1
ElseIf Dice = 3 Then
Bishop_Tracepe = 1
ElseIf Dice = 4 Then
Archie_Borld = 1
ElseIf Dice = 5 Then
George_Cant = 1
ElseIf Dice = 6 Then
Margarie_Sene = 1
ElseIf Dice = 7 Then
Cisile_Frankes = 1
ElseIf Dice = 8 Then
Billingsgate = 1
ElseIf Dice = 9 Then
Sir_Margrete_Hill = 1
ElseIf Dice = 10 Then
Advocate_senior = 1
ElseIf Dice = 11 Then
Mary_Cant = 1
Else
Message "NILL."
End If

If Lord_Farley = 1 Then
randomize
Dice1 = int(rnd*(10-1+1))+1
ElseIf Lady_Farley = 1 Then
randomize
Dice2 = int(rnd*(10-1+1))+1
ElseIf Bishop_Tracepe = 1 Then
randomize
Dice3 = int(rnd*(10-1+1))+1
ElseIf Archie_Borld = 1 Then
randomize
Dice4 = int(rnd*(10-1+1))+1
ElseIf George_Cant = 1 Then
randomize
Dice5 = int(rnd*(10-1+1))+1
ElseIf Margarie_Sene = 1 Then
randomize
Dice6 = int(rnd*(10-1+1))+1
ElseIf Cisile_Frankes = 1 Then
randomize
Dice7 = int(rnd*(10-1+1))+1
ElseIf Billingsgate = 1 Then
randomize
Dice8 = int(rnd*(10-1+1))+1
ElseIf Sir_Margrete_Hill = 1 Then
randomize
Dice9 = int(rnd*(10-1+1))+1
ElseIf Advocate_senior = 1 Then
randomize
Dice10 = int(rnd*(10-1+1))+1
ElseIf Mary_Cant = 1 Then
randomize
Dice11 = int(rnd*(10-1+1))+1
Else
Message "NILL 1."
End If

If Dice1 = 1 Then
Mary_Cant1 = 1
ElseIf Dice1 = 2 Then
Lady_Farley1 = 1
ElseIf Dice1 = 3 Then
Bishop_Tracepe1 = 1
ElseIf Dice1 = 4 Then
Archie_Borld1 = 1
ElseIf Dice1 = 5 Then
George_Cant1 = 1
ElseIf Dice1 = 6 Then
Margarie_Sene1 = 1
ElseIf Dice1 = 7 Then
Cisile_Frankes1 = 1
ElseIf Dice1 = 8 Then
Billingsgate1 = 1
ElseIf Dice1 = 9 Then
Sir_Margrete_Hill1 = 1
ElseIf Dice1 = 10 Then
Advocate_senior1 = 1
Else
Message "NILL1."
End If

If Dice2 = 1 Then
Lord_Farley1 = 1
ElseIf Dice2 = 2 Then
Mary_Cant1 = 1
ElseIf Dice2 = 3 Then
Bishop_Tracepe1 = 1
ElseIf Dice2 = 4 Then
Archie_Borld1 = 1
ElseIf Dice2 = 5 Then
George_Cant1 = 1
ElseIf Dice2 = 6 Then
Margarie_Sene1 = 1
ElseIf Dice2 = 7 Then
Cisile_Frankes1 = 1
ElseIf Dice2 = 8 Then
Billingsgate1 = 1
ElseIf Dice2 = 9 Then
Sir_Margrete_Hill1 = 1
ElseIf Dice2 = 10 Then
Advocate_senior1 = 1
Else
Message "NILL2."
End If

If Dice3 = 1 Then
Lord_Farley1 = 1
ElseIf Dice3 = 2 Then
Lady_Farley1 = 1
ElseIf Dice3 = 3 Then
Mary_Cant1 = 1
ElseIf Dice3 = 4 Then
Archie_Borld1 = 1
ElseIf Dice3 = 5 Then
George_Cant1 = 1
ElseIf Dice3 = 6 Then
Margarie_Sene1 = 1
ElseIf Dice3 = 7 Then
Cisile_Frankes1 = 1
ElseIf Dice3 = 8 Then
Billingsgate1 = 1
ElseIf Dice3 = 9 Then
Sir_Margrete_Hill1 = 1
ElseIf Dice3 = 10 Then
Advocate_senior1 = 1
Else
Message "NILL3."
End If

If Dice4 = 1 Then
Lord_Farley1 = 1
ElseIf Dice4 = 2 Then
Lady_Farley1 = 1
ElseIf Dice4 = 3 Then
Mary_Cant1 = 1
ElseIf Dice4 = 4 Then
Bishop_Tracepe1 = 1
ElseIf Dice4 = 5 Then
George_Cant1 = 1
ElseIf Dice4 = 6 Then
Margarie_Sene1 = 1
ElseIf Dice4 = 7 Then
Cisile_Frankes1 = 1
ElseIf Dice4 = 8 Then
Billingsgate1 = 1
ElseIf Dice4 = 9 Then
Sir_Margrete_Hill1 = 1
ElseIf Dice4 = 10 Then
Advocate_senior1 = 1
Else
Message "NILL4."
End If

If Dice5 = 1 Then
Lord_Farley1 = 1
ElseIf Dice5 = 2 Then
Lady_Farley1 = 1
ElseIf Dice5 = 3 Then
Bishop_Tracepe1 = 1
ElseIf Dice5 = 4 Then
Archie_Borld1 = 1
ElseIf Dice5 = 5 Then
Mary_Cant1 = 1
ElseIf Dice5 = 6 Then
Margarie_Sene1 = 1
ElseIf Dice5 = 7 Then
Cisile_Frankes1 = 1
ElseIf Dice5 = 8 Then
Billingsgate1 = 1
ElseIf Dice5 = 9 Then
Sir_Margrete_Hill1 = 1
ElseIf Dice5 = 10 Then
Advocate_senior1 = 1
Else
Message "NILL5."
End If

If Dice6 = 1 Then
Lord_Farley1 = 1
ElseIf Dice6 = 2 Then
Lady_Farley1 = 1
ElseIf Dice6 = 3 Then
Bishop_Tracepe1 = 1
ElseIf Dice6 = 4 Then
Archie_Borld1 = 1
ElseIf Dice6 = 5 Then
George_Cant1 = 1
ElseIf Dice6 = 6 Then
Mary_Cant1 = 1
ElseIf Dice6 = 7 Then
Cisile_Frankes1 = 1
ElseIf Dice6 = 8 Then
Billingsgate1 = 1
ElseIf Dice6 = 9 Then
Sir_Margrete_Hill1 = 1
ElseIf Dice6 = 10 Then
Advocate_senior1 = 1
Else
Message "NILL6."
End If

If Dice7 = 1 Then
Lord_Farley1 = 1
ElseIf Dice7 = 2 Then
Lady_Farley1 = 1
ElseIf Dice7 = 3 Then
Bishop_Tracepe1 = 1
ElseIf Dice7 = 4 Then
Archie_Borld1 = 1
ElseIf Dice7 = 5 Then
George_Cant1 = 1
ElseIf Dice7 = 6 Then
Margarie_Sene1 = 1
ElseIf Dice7 = 7 Then
Mary_Cant1 = 1
ElseIf Dice7 = 8 Then
Billingsgate1 = 1
ElseIf Dice7 = 9 Then
Sir_Margrete_Hill1 = 1
ElseIf Dice7 = 10 Then
Advocate_senior1 = 1
Else
Message "NILL7."
End If

If Dice8 = 1 Then
Lord_Farley1 = 1
ElseIf Dice8 = 2 Then
Lady_Farley1 = 1
ElseIf Dice8 = 3 Then
Bishop_Tracepe1 = 1
ElseIf Dice8 = 4 Then
Archie_Borld1 = 1
ElseIf Dice8 = 5 Then
George_Cant1 = 1
ElseIf Dice8 = 6 Then
Margarie_Sene1 = 1
ElseIf Dice8 = 7 Then
Cisile_Frankes1 = 1
ElseIf Dice8 = 8 Then
Mary_Cant1 = 1
ElseIf Dice8 = 9 Then
Sir_Margrete_Hill1 = 1
ElseIf Dice8 = 10 Then
Advocate_senior1 = 1
Else
Message "NILL8."
End If

If Dice9 = 1 Then
Lord_Farley1 = 1
ElseIf Dice9 = 2 Then
Lady_Farley1 = 1
ElseIf Dice9 = 3 Then
Bishop_Tracepe1 = 1
ElseIf Dice9 = 4 Then
Archie_Borld1 = 1
ElseIf Dice9 = 5 Then
George_Cant1 = 1
ElseIf Dice9 = 6 Then
Margarie_Sene1 = 1
ElseIf Dice9 = 7 Then
Cisile_Frankes1 = 1
ElseIf Dice9 = 8 Then
Billingsgate1 = 1
ElseIf Dice9 = 9 Then
Mary_Cant1 = 1
ElseIf Dice9 = 10 Then
Advocate_senior1 = 1
Else
Message "NILL9."
End If

If Dice10 = 1 Then
Lord_Farley1 = 1
ElseIf Dice10 = 2 Then
Lady_Farley1 = 1
ElseIf Dice10 = 3 Then
Bishop_Tracepe1 = 1
ElseIf Dice10 = 4 Then
Archie_Borld1 = 1
ElseIf Dice10 = 5 Then
George_Cant1 = 1
ElseIf Dice10 = 6 Then
Margarie_Sene1 = 1
ElseIf Dice10 = 7 Then
Cisile_Frankes1 = 1
ElseIf Dice10 = 8 Then
Billingsgate1 = 1
ElseIf Dice10 = 9 Then
Sir_Margrete_Hill1 = 1
ElseIf Dice10 = 10 Then
Mary_Cant1 = 1
Else
Message "NILL10."
End If

If Dice11 = 1 Then
Lord_Farley1 = 1
ElseIf Dice11 = 2 Then
Lady_Farley1 = 1
ElseIf Dice11 = 3 Then
Bishop_Tracepe1 = 1
ElseIf Dice11 = 4 Then
Archie_Borld1 = 1
ElseIf Dice11 = 5 Then
George_Cant1 = 1
ElseIf Dice11 = 6 Then
Margarie_Sene1 = 1
ElseIf Dice11 = 7 Then
Cisile_Frankes1 = 1
ElseIf Dice11 = 8 Then
Billingsgate1 = 1
ElseIf Dice11 = 9 Then
Sir_Margrete_Hill1 = 1
ElseIf Dice11 = 10 Then
Advocate_senior1 = 1
Else
Message "NILL11."
End If



to check it's working correctly create a hot spot
and enter this into the advanced VB code window

the murder victim

Code: Select all
If Lord_Farley = 1 Then
Message "Lord Farley has been found murdered."
ElseIf Lady_Farley = 1 Then
Message "Lady Farley has been found murdered."
ElseIf Bishop_Tracepe = 1 Then
Message "Bishop Trancepe has been found murdered."
ElseIf Archie_Borld = 1 Then
Message "Archie Borld has been found murdered."
ElseIf George_Cant = 1 Then
Message "George Cant has been found murdered."
ElseIf Margarie_Sene = 1 Then
Message "Margarie Sene has been found murdered."
ElseIf Cisile_Frankes = 1 Then
Message "Cisile Frankes has been found murdered."
ElseIf Billingsgate = 1 Then
Message "Billingsgate has been found murdered."
ElseIf Sir_Margrete_Hill Then
Message "Sir Margrete Hill has been found murdered."
ElseIf Advocate_senior = 1 Then
Message " the Advocate Senior has been found murdered."
ElseIf Mary_Cant = 1 Then
Message "Mary Cant has been found murdered."
Else
Message "all variables nil."
End If


and this into another hotspot same method--

the villian

Code: Select all
If Lord_Farley1 = 1 Then
Message "Lord Farley has been found guilty."
ElseIf Lady_Farley1 = 1 Then
Message "Lady Farley has been found guilty."
ElseIf Bishop_Tracepe1 = 1 Then
Message "Bishop Trancepe has been found guilty."
ElseIf Archie_Borld1 = 1 Then
Message "Archie Borld has been found guilty."
ElseIf George_Cant1 = 1 Then
Message "George Cant has been found guilty."
ElseIf Margarie_Sene1 = 1 Then
Message "Margarie Sene has been found guilty."
ElseIf Cisile_Frankes1 = 1 Then
Message "Cisile Frankes has been found guilty."
ElseIf Billingsgate1 = 1 Then
Message "Billingsgate has been found guilty."
ElseIf Sir_Margrete_Hill1 Then
Message "Sir Margrete Hill has been found guilty."
ElseIf Advocate_senior1 = 1 Then
Message " the Advocate Senior has been found guilty."
ElseIf Mary_Cant1 = 1 Then
Message "Mary Cant has been found guilty."
Else
Message "all variables nil."
End If


you will need two variant variables for each character
entered into the Global variables window
menu option VBS Variables (advanced)

like so

Lord_Farley
Lady_Farley
Bishop_Tracepe
Archie_Borld
George_Cant
Margarie_Sene
Cisile_Frankes
Billingsgate
Sir_Margrete_Hill
Advocate_senior
Mary_Cant

Lord_Farley1
Lady_Farley1
Bishop_Tracepe1
Archie_Borld1
George_Cant1
Margarie_Sene1
Cisile_Frankes1
Billingsgate1
Sir_Margrete_Hill1
Advocate_senior1
Mary_Cant1

and

11 Dice variant variables in the same global window

Dice
Dice1
Dice2
Dice3
etc


it randomly selects a victim then randomly selects the Villian via a cunning plan (lol) that means the victim cannot be selected as the Villian
(touch wood)
each character has it's own specific Dice variable that is only used if he is selected as victim and it's this dice that choses the villian if you see what i mean

anyhuw--

you can then use this particular dice variable to control the items messages go to fram actions in a custom way for each character
or use the character name variable as i have done to display the name of the victim and murderer on screen

using things like

ie if the murderer is Lord Farley then go to frame1
if it's Lady Farley then go to frame 1b
and so on
could be hotspots turned on and of or diferent items items given --anything
in this way you can use the same variables to give the player clues as to the identity of the villian next time you play the victim, villian AND the clues will be different-and so on--i'm assured the save game option over rides this so you ca safely save your progress mid game and re-load retaining the same crime

Code: Select all
If Lord_Farley1 = 1 Then
Action.GoToFrame "Frame1"
ElseIf Lady_Farley1 = 1 Then
Action.GoToFrame "Frame1a"
ElseIf Bishop_Tracepe1 = 1 Then
Action.GoToFrame "Frame1c"
ElseIf Archie_Borld1 = 1 Then
Action.GoToFrame "Frame1d"
ElseIf George_Cant1 = 1 Then
Action.GoToFrame "Frame1e"
ElseIf Margarie_Sene1 = 1 Then
Action.GoToFrame "Frame1f"
ElseIf Cisile_Frankes1 = 1 Then
Action.GoToFrame "Frame1g"
ElseIf Billingsgate1 = 1 Then
Action.GoToFrame "Frame1h"
ElseIf Sir_Margrete_Hill1 Then
Action.GoToFrame "Frame1i"
ElseIf Advocate_senior1 = 1 Then
Action.GoToFrame "Frame1j"
ElseIf Mary_Cant1 = 1 Then
Action.GoToFrame "Frame1k"
Else
Message "all variables nil."
End If


(the else "all variables nil" message acts as an error check)

each time you start the game (with the code in the initial frame)
the victim and villian will be different
Last edited by Bortdafarm on Mon Jan 30, 2006 7:55 am, edited 1 time in total.
Bortdafarm
 

Postby Candle » Sun Jan 29, 2006 5:45 am

nice one Bortdafarm .

thanks
Please don't PM me questions, ask here in the forums!
``````````````
Between grand theft and a legal fee, there only stands a law degree.
User avatar
Candle
Administrator
 
Posts: 3061
Joined: Sat Feb 07, 2004 2:21 am
Location: Rudy's Bar

Postby Bortdafarm » Sun Jan 29, 2006 7:05 am

Cheers Candle!

doing the same trick with the location of the murder and the weapon
and it's professor plum in library with the revolver!!

i'm sure a point n click adventure version of cluedo is possible here

be great fun!
Bortdafarm
 

Postby Bortdafarm » Mon Jan 30, 2006 7:59 am

:oops: edited the code to correct for some sloppy bugs--now it works a lot more effeciently with no more NILL results--

working on a soloution to the crime puzzle now ---

pluys if folks want to add method of murder and location and motive to the the code here's an example (again newbie code so forgive the chunkyness)

new global variant variables

Farriers_Arms
Land_Lords
Grocers_Market

Strangled
Bludgeoned
Poisoned

Passion
Money
Political

Dice12
Dice13
Dice14



Code: Select all
Farriers_Arms = 0
Land_Lords = 0
Grocers_Market = 0

Strangled = 0
Bludgeoned = 0
Poisoned = 0

Passion = 0
Money = 0
Political = 0

randomize
Dice12 = int(rnd*(3-1+1))+1

If Dice12 = 1 Then
Farriers_Arms = 1
ElseIf Dice12 = 2 Then
Land_Lords =1
ElseIf Dice12 = 3 Then
Grocers_Market = 1
Else
Message "NILL LOCATION."
End If

randomize
Dice13 = int(rnd*(3-1+1))+1

If Dice13 = 1 Then
Strangled = 1
ElseIf Dice13 = 2 Then
Bludgeoned =1
ElseIf Dice13 = 3 Then
Poisoned = 1
Else
Message "NILL WEAPON."
End If

randomize
Dice14 = int(rnd*(3-1+1))+1

If Dice14 = 1 Then
Passion = 1
ElseIf Dice14 = 2 Then
Money =1
ElseIf Dice14 = 3 Then
Political = 1
Else
Message "NILL MOTIVE."
End If


getting the soloution to who did what where how and why is a bit more complicated- (and i hope i have got this right)

Code: Select all
If Lord_Farley1 = 1 And Farriers_Arms = 1 And Strangled = 1 And Passion = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method strangled..motive passion"
ElseIf Lord_Farley1 = 1 And Farriers_Arms = 1 And Bludgeoned = 1 And Passion = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method Bludgeoned..motive passion"
ElseIf Lord_Farley1 = 1 And Farriers_Arms = 1 And Poisoned = 1 And Passion = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method poisoned..motive passion"
ElseIf Lord_Farley1 = 1 And Land_Lords = 1 And Strangled = 1 And Passion = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method Bludgeoned..motive passion"
ElseIf Lord_Farley1 = 1 And Land_Lords = 1 And Bludgeoned = 1 And Passion = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method Bludgeoned..motive passion"
ElseIf Lord_Farley1 = 1 And Land_Lords = 1 And Poisoned = 1 And Passion = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method poisoned..motive passion"
ElseIf Lord_Farley1 = 1 And Grocers_Market = 1 And Strangled = 1 And Passion = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method Bludgeoned..motive passion"
ElseIf Lord_Farley1 = 1 And Grocers_Market = 1 And Bludgeoned = 1 And Passion = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method Bludgeoned..motive passion"
ElseIf Lord_Farley1 = 1 And Grocers_Market = 1 And Poisoned = 1 And Passion = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method poisoned..motive passion"
'------------------Farriers_Arms
ElseIf Lord_Farley1 = 1 And Farriers_Arms = 1 And Strangled = 1 And Money = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method Strangled..motive Money"
ElseIf Lord_Farley1 = 1 And Farriers_Arms = 1 And Strangled = 1 And Political = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method Strangled..motive Political"
'------------------
ElseIf Lord_Farley1 = 1 And Farriers_Arms = 1 And Bludgeoned = 1 And Money = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method Bludgeoned..motive Money"
ElseIf Lord_Farley1 = 1 And Farriers_Arms = 1 And Bludgeoned = 1 And Political = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method Bludgeoned..motive Political"
'------------------
ElseIf Lord_Farley1 = 1 And Farriers_Arms = 1 And Poisoned = 1 And Money = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method Bludgeoned..motive Money"
ElseIf Lord_Farley1 = 1 And Farriers_Arms = 1 And Poisoned = 1 And Political = 1 Then
Message "Lord Farley has been found guilty..location Farriers..method Bludgeoned..motive Political"
'------------------Land_Lords
ElseIf Lord_Farley1 = 1 And Land_Lords = 1 And Strangled = 1 And Money = 1 Then
Message "Lord Farley has been found guilty..location Land Lords..method Strangled..motive Money"
ElseIf Lord_Farley1 = 1 And Land_Lords = 1 And Strangled = 1 And Political = 1 Then
Message "Lord Farley has been found guilty..location Land Lords..method Strangled..motive Political"
'------------------
ElseIf Lord_Farley1 = 1 And Land_Lords = 1 And Bludgeoned = 1 And Money = 1 Then
Message "Lord Farley has been found guilty..location Land Lords..method Bludgeoned..motive Money"
ElseIf Lord_Farley1 = 1 And Land_Lords = 1 And Bludgeoned = 1 And Political = 1 Then
Message "Lord Farley has been found guilty..location Land Lords..method Bludgeoned..motive Political"
'------------------
ElseIf Lord_Farley1 = 1 And Land_Lords = 1 And Poisoned = 1 And Money = 1 Then
Message "Lord Farley has been found guilty..location Land Lords..method Bludgeoned..motive Money"
ElseIf Lord_Farley1 = 1 And Land_Lords = 1 And Poisoned = 1 And Political = 1 Then
Message "Lord Farley has been found guilty..location Land Lords..method Bludgeoned..motive Political"
'------------------Grocers_Market
ElseIf Lord_Farley1 = 1 And Grocers_Market = 1 And Strangled = 1 And Money = 1 Then
Message "Lord Farley has been found guilty..location Grocers Market..method Strangled..motive Money"
ElseIf Lord_Farley1 = 1 And Grocers_Market = 1 And Strangled = 1 And Political = 1 Then
Message "Lord Farley has been found guilty..location Grocers Market..method Strangled..motive Political"
'------------------
ElseIf Lord_Farley1 = 1 And Grocers_Market = 1 And Bludgeoned = 1 And Money = 1 Then
Message "Lord Farley has been found guilty..location Grocers Market..method Bludgeoned..motive Money"
ElseIf Lord_Farley1 = 1 And Grocers_Market = 1 And Bludgeoned = 1 And Political = 1 Then
Message "Lord Farley has been found guilty..location Grocers Market..method Bludgeoned..motive Political"
'------------------
ElseIf Lord_Farley1 = 1 And Grocers_Market = 1 And Poisoned = 1 And Money = 1 Then
Message "Lord Farley has been found guilty..location Grocers Market..method Bludgeoned..motive Money"
ElseIf Lord_Farley1 = 1 And Grocers_Market = 1 And Poisoned = 1 And Political = 1 Then
Message "Lord Farley has been found guilty..location Grocers Market..method Bludgeoned..motive Political"
Else
Message "this answer is incorrect"
End If


has to be done for each possible murder subject

hugely chunky

but can be condensed down i hope later on?

going to use something like this to allow the player to make a guess at the answer---by adding the soloution code (above) for each character to a hotspot (with picture) and use an Else to tell the player if he/she is incorrect--and maybe provide a hint at the same time (ALA Cluedo) dunno still working that bit out--

he he!! bit of fun when it's not turning my brain to swiss cheese :D
Bortdafarm
 

Postby Bortdafarm » Fri Feb 03, 2006 12:33 am

here is the entire code for checking if the player has entered (via selected variables) the correct soloution to the puzzle/crime


hold your breath this is so large it only just fits into the AM code window any larger and the code window won't allow it--(i know i had to trim it down a bit to get it past the limitation)

Code: Select all

If Lord_Farley1 = 1 And LF =1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lord_Farley1 = 1 And LF =1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Lady_Farley1 = 1 And LAF = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Bishop_Tracepe1 = 1 And BT = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Archie_Borld1 = 1 And AB = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf George_Cant1 = 1 And GC = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Margarie_Sene1 = 1 And MS = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Cisile_Frankes1 = 1 And CF = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Billingsgate1 = 1 And BILL = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Advocate_senior1 = 1 And AdSen = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Passion = 1 And PASMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Money = 1 And MMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Farriers_Arms = 1 And FA = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Land_Lords = 1 And LL = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Grocers_Market = 1 And GM = 1 And Strangled = 1 And SMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Farriers_Arms = 1 And FA = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Land_Lords = 1 And LL = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Grocers_Market = 1 And GM = 1 And Bludgeoned = 1 And BMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Farriers_Arms = 1 And FA = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Land_Lords = 1 And LL = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
ElseIf Mary_Cant1 = 1 And MC = 1 And Grocers_Market = 1 And GM = 1 And Poisoned = 1 And PMET = 1 And Political = 1 And POLMOT = 1 Then
Action.GoToFrame "end01"
Else
Hotspot(1).Enabled = True
End If


gulp--- thing is here -using wordpad you can replace my variable names with your own in a couple of minutes--same for all the code--

you may have to compensate for the way the forum has word-wrapped the code onto seperate lines to get the "And" variables all on the same line--dunno
Bortdafarm
 

Postby Bortdafarm » Fri Feb 03, 2006 12:44 am

here's some other code snippets simply because as a newbie --looking at other peoples working code examples (that are written at the same experience level i have obtained --ie basic chunky un-optomised tools for doing stuff)

here's some important (for me anyhow) code i wrote to hide and show "cards" (hotspot images) in a similar way to Cluedo showing cards to the player when he makes a guess--discovering i could nest one randomisation code INSIDE an IF-- ELSEIF code was really great news and hugely usefull and fun for hundreds of different situations and uses--and it's fairly straight forward to adapt as you go along

Code: Select all
If Lord_Farley1 = 1 And LF = 1 Then
randomize
i = int( RND * 10 ) + 1
If i = 1 then Action.LoadAPicture Hotspot(4), ""
If i = 2 then Action.LoadAPicture Hotspot(5), ""
If i = 3 then Action.LoadAPicture Hotspot(6), ""
If i = 4 then Action.LoadAPicture Hotspot(7), ""
If i = 5 then Action.LoadAPicture Hotspot(8), ""
If i = 6 then Action.LoadAPicture Hotspot(9), ""
If i = 7 then Action.LoadAPicture Hotspot(10), ""
If i = 8 then Action.LoadAPicture Hotspot(11), ""
If i = 9 then Action.LoadAPicture Hotspot(12), ""
If i = 10 then Action.LoadAPicture Hotspot(13), ""
ElseIf Lady_Farley1 = 1 And LAF = 1 Then
randomize
i = int( RND * 10 ) + 1
If i = 1 then Action.LoadAPicture Hotspot(3), ""
If i = 2 then Action.LoadAPicture Hotspot(5), ""
If i = 3 then Action.LoadAPicture Hotspot(6), ""
If i = 4 then Action.LoadAPicture Hotspot(7), ""
If i = 5 then Action.LoadAPicture Hotspot(8), ""
If i = 6 then Action.LoadAPicture Hotspot(9), ""
If i = 7 then Action.LoadAPicture Hotspot(10), ""
If i = 8 then Action.LoadAPicture Hotspot(11), ""
If i = 9 then Action.LoadAPicture Hotspot(12), ""
If i = 10 then Action.LoadAPicture Hotspot(13), ""
ElseIf Bishop_Tracepe1 = 1 And BT = 1 Then
randomize
i = int( RND * 10 ) + 1
If i = 1 then Action.LoadAPicture Hotspot(4), ""
If i = 2 then Action.LoadAPicture Hotspot(3), ""
If i = 3 then Action.LoadAPicture Hotspot(6), ""
If i = 4 then Action.LoadAPicture Hotspot(7), ""
If i = 5 then Action.LoadAPicture Hotspot(8), ""
If i = 6 then Action.LoadAPicture Hotspot(9), ""
If i = 7 then Action.LoadAPicture Hotspot(10), ""
If i = 8 then Action.LoadAPicture Hotspot(11), ""
If i = 9 then Action.LoadAPicture Hotspot(12), ""
If i = 10 then Action.LoadAPicture Hotspot(13), ""
ElseIf Archie_Borld1 = 1 And AB = 1 Then
randomize
i = int( RND * 10 ) + 1
If i = 1 then Action.LoadAPicture Hotspot(3), ""
If i = 2 then Action.LoadAPicture Hotspot(5), ""
If i = 3 then Action.LoadAPicture Hotspot(4), ""
If i = 4 then Action.LoadAPicture Hotspot(7), ""
If i = 5 then Action.LoadAPicture Hotspot(8), ""
If i = 6 then Action.LoadAPicture Hotspot(9), ""
If i = 7 then Action.LoadAPicture Hotspot(10), ""
If i = 8 then Action.LoadAPicture Hotspot(11), ""
If i = 9 then Action.LoadAPicture Hotspot(12), ""
If i = 10 then Action.LoadAPicture Hotspot(13), ""
ElseIf George_Cant1 = 1 And GC = 1 Then
randomize
i = int( RND * 10 ) + 1
If i = 1 then Action.LoadAPicture Hotspot(4), ""
If i = 2 then Action.LoadAPicture Hotspot(3), ""
If i = 3 then Action.LoadAPicture Hotspot(6), ""
If i = 4 then Action.LoadAPicture Hotspot(5), ""
If i = 5 then Action.LoadAPicture Hotspot(8), ""
If i = 6 then Action.LoadAPicture Hotspot(9), ""
If i = 7 then Action.LoadAPicture Hotspot(10), ""
If i = 8 then Action.LoadAPicture Hotspot(11), ""
If i = 9 then Action.LoadAPicture Hotspot(12), ""
If i = 10 then Action.LoadAPicture Hotspot(13), ""
ElseIf Margarie_Sene1 = 1 And MS = 1 Then
randomize
i = int( RND * 10 ) + 1
If i = 1 then Action.LoadAPicture Hotspot(3), ""
If i = 2 then Action.LoadAPicture Hotspot(5), ""
If i = 3 then Action.LoadAPicture Hotspot(4), ""
If i = 4 then Action.LoadAPicture Hotspot(7), ""
If i = 5 then Action.LoadAPicture Hotspot(4), ""
If i = 6 then Action.LoadAPicture Hotspot(9), ""
If i = 7 then Action.LoadAPicture Hotspot(10), ""
If i = 8 then Action.LoadAPicture Hotspot(11), ""
If i = 9 then Action.LoadAPicture Hotspot(12), ""
If i = 10 then Action.LoadAPicture Hotspot(13), ""
ElseIf Cisile_Frankes1 = 1 And CF = 1 Then
randomize
i = int( RND * 10 ) + 1
If i = 1 then Action.LoadAPicture Hotspot(4), ""
If i = 2 then Action.LoadAPicture Hotspot(3), ""
If i = 3 then Action.LoadAPicture Hotspot(6), ""
If i = 4 then Action.LoadAPicture Hotspot(5), ""
If i = 5 then Action.LoadAPicture Hotspot(8), ""
If i = 6 then Action.LoadAPicture Hotspot(7), ""
If i = 7 then Action.LoadAPicture Hotspot(10), ""
If i = 8 then Action.LoadAPicture Hotspot(11), ""
If i = 9 then Action.LoadAPicture Hotspot(12), ""
If i = 10 then Action.LoadAPicture Hotspot(13), ""
ElseIf Billingsgate1 = 1 And BILL = 1 Then
randomize
i = int( RND * 10 ) + 1
If i = 1 then Action.LoadAPicture Hotspot(3), ""
If i = 2 then Action.LoadAPicture Hotspot(5), ""
If i = 3 then Action.LoadAPicture Hotspot(4), ""
If i = 4 then Action.LoadAPicture Hotspot(7), ""
If i = 5 then Action.LoadAPicture Hotspot(4), ""
If i = 6 then Action.LoadAPicture Hotspot(9), ""
If i = 7 then Action.LoadAPicture Hotspot(6), ""
If i = 8 then Action.LoadAPicture Hotspot(11), ""
If i = 9 then Action.LoadAPicture Hotspot(12), ""
If i = 10 then Action.LoadAPicture Hotspot(13), ""
ElseIf Sir_Margrete_Hill1 = 1 And SMH = 1 Then
randomize
i = int( RND * 10 ) + 1
If i = 1 then Action.LoadAPicture Hotspot(3), ""
If i = 2 then Action.LoadAPicture Hotspot(5), ""
If i = 3 then Action.LoadAPicture Hotspot(4), ""
If i = 4 then Action.LoadAPicture Hotspot(7), ""
If i = 5 then Action.LoadAPicture Hotspot(4), ""
If i = 6 then Action.LoadAPicture Hotspot(9), ""
If i = 7 then Action.LoadAPicture Hotspot(10), ""
If i = 8 then Action.LoadAPicture Hotspot(6), ""
If i = 9 then Action.LoadAPicture Hotspot(12), ""
If i = 10 then Action.LoadAPicture Hotspot(13), ""
ElseIf Advocate_senior1 = 1 And AdSen = 1 Then
randomize
i = int( RND * 10 ) + 1
If i = 1 then Action.LoadAPicture Hotspot(4), ""
If i = 2 then Action.LoadAPicture Hotspot(3), ""
If i = 3 then Action.LoadAPicture Hotspot(6), ""
If i = 4 then Action.LoadAPicture Hotspot(5), ""
If i = 5 then Action.LoadAPicture Hotspot(8), ""
If i = 6 then Action.LoadAPicture Hotspot(7), ""
If i = 7 then Action.LoadAPicture Hotspot(10), ""
If i = 8 then Action.LoadAPicture Hotspot(11), ""
If i = 9 then Action.LoadAPicture Hotspot(9), ""
If i = 10 then Action.LoadAPicture Hotspot(13), ""
ElseIf Mary_Cant1 = 1 And MC = 1 Then
randomize
i = int( RND * 10 ) + 1
If i = 1 then Action.LoadAPicture Hotspot(3), ""
If i = 2 then Action.LoadAPicture Hotspot(5), ""
If i = 3 then Action.LoadAPicture Hotspot(4), ""
If i = 4 then Action.LoadAPicture Hotspot(7), ""
If i = 5 then Action.LoadAPicture Hotspot(8), ""
If i = 6 then Action.LoadAPicture Hotspot(9), ""
If i = 7 then Action.LoadAPicture Hotspot(6), ""
If i = 8 then Action.LoadAPicture Hotspot(11), ""
If i = 9 then Action.LoadAPicture Hotspot(12), ""
If i = 10 then Action.LoadAPicture Hotspot(10), ""
Else
Text(15).Caption = "."
End If


i hope it comes in handy for other new coders
Bortdafarm
 

Postby MikeTn1 » Sat Dec 19, 2009 3:23 pm

VERY nice. Yes, it is a bit chunky.... but it works. This one goes into my evergrowing file of tutorials that have information I can use as I do my own games.

Have any of you seen the movie "Murder by Death"? That might make an interesting game. 4 to 10 of the greatest detectives of fiction are invited to a dinner...and a murder. Lots of money (I think it was $1 million) goes to whoever solves the "murder mystery". The code you have in this post would work as the basis of the "core" of the game.
User avatar
MikeTn1
Member
 
Posts: 49
Joined: Fri Dec 11, 2009 3:25 pm

Postby reneuend » Sat Dec 19, 2009 9:10 pm

Welcome fellow AM Geek! :D

If it works, and it's readeable and easily maintainable, then it's good enough! :)

If you haven't already, you might want to consider using the Select statement. Anytime you have a lot of conditions, the Select statement is a great alternative!

Keep up the great work! Don't forget to share your game when it's done! :)
---


Image
Image
User avatar
reneuend
Administrator
 
Posts: 2731
Joined: Sat Nov 22, 2008 8:37 pm
Location: Midwest Cornfield, USA


Return to Post Your Own Tutorials

Who is online

Users browsing this forum: No registered users and 1 guest

cron