Question & Answer DS

Subject: Question & Answer DS Tue Mar 01, 2011 9:18 am

On the top floor of FPN we have 'The Purple Room' (Surprisingly named that because it's purple, believe it or not..)
In the room we have a special DS that allows for a Q&A System.
As brilliant as it is, unfortunately I still can't get a few minor bugs out of it.
The DS below is for another dream (So unedited by myself)

Unfortunately there's no 'tech support' for this DS at the moment since it's rather complex and not even I can work out all the bugs xD
Never the less, here it is. Enjoy!

Code:: ********************************************************
***** *****
***** No Talking / Q&A Que DS *****
***** *****
********************************************************
Zeroing Variabes
(0:0) (5:300) set variable %MeetingQNum to the value 0.
(5:300) set variable %MeetingQOn to the value 0.
Seat Variable
(5:300) set variable %SeatNum to the value 2413.
Question Seat Variables
One(Active) (5:300) set variable %QSeatNum1 to the value 2540.
Two (5:300) set variable %QSeatNum2 to the value 2541.
Three (5:300) set variable %QSeatNum3 to the value 2542.
Four (5:300) set variable %QSeatNum4 to the value 2543.
Five (5:300) set variable %QSeatNum5 to the value 2544.
Six (5:300) set variable %QSeatNum6 to the value 2545.
Seven (5:300) set variable %QSeatNum7 to the value 2546.
Eight (5:300) set variable %QSeatNum8 to the value 2547.
Nine (5:300) set variable %QSeatNum9 to the value 2548.
Ten (5:300) set variable %QSeatNum10 to the value 2549.
Eleven (5:300) set variable %QSeatNum11 to the value 2550.
Twelve (5:300) set variable %QSeatNum12 to the value 2551.
Thirteen (5:300) set variable %QSeatNum13 to the value 2552.
Fourteen (5:300) set variable %QSeatNum14 to the value 2553.
Fifteen (5:300) set variable %QSeatNum15 to the value 2554.
Sixteen (5:300) set variable %QSeatNum16 to the value 2555.
Seventeen (5:300) set variable %QSeatNum17 to the value 2556.
Eighteen (5:300) set variable %QSeatNum18 to the value 2557.
Nineteen (5:300) set variable %QSeatNum19 to the value 2558.
Twenty (5:300) set variable %QSeatNum20 to the value 2559.
Silence Settings
(5:300) set variable %TalkFloor to the value 645.
(5:300) set variable %TalkObject to the value 2560.

(5:300) set variable %SilentFloor to the value 646.
(5:300) set variable %SilentObject to the value 2561.
(5:214) Set the silence object to object type %SilentObject.
(5:213) Set the silence floor (where nobody can speak) to floor type %SilentFloor.

Area Settings
(5:300) set variable %TalkAreaTopLeft.x to the value 72.
(5:300) set variable %TalkAreaTopLeft.y to the value 48.

(5:300) set variable %TalkAreaBottomRight.x to the value 72.
(5:300) set variable %TalkAreaBottomRight.y to the value 100.

(5:300) set variable %Testspot.x to the value 70.
(5:300) set variable %Testspot.y to the value 76.

(0:31) When a furre says {@talk},
(1:11) and the triggering furre has got shared control (or is the dream owner),
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(3:3) within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(5:2) change floor type %SilentFloor to type %TalkFloor.
(5:5) change object type %QSeatNum1 to type %SeatNum.
(5:5) change object type %QSeatNum2 to type %SeatNum.
(5:5) change object type %QSeatNum3 to type %SeatNum.
(5:5) change object type %QSeatNum4 to type %SeatNum.
(5:5) change object type %QSeatNum5 to type %SeatNum.
(5:5) change object type %QSeatNum6 to type %SeatNum.
(5:5) change object type %QSeatNum7 to type %SeatNum.
(5:5) change object type %QSeatNum8 to type %SeatNum.
(5:5) change object type %QSeatNum9 to type %SeatNum.
(5:5) change object type %QSeatNum10 to type %SeatNum.
(5:5) change object type %QSeatNum11 to type %SeatNum.
(5:5) change object type %QSeatNum12 to type %SeatNum.
(5:5) change object type %QSeatNum13 to type %SeatNum.
(5:5) change object type %QSeatNum14 to type %SeatNum.
(5:5) change object type %QSeatNum15 to type %SeatNum.
(5:5) change object type %QSeatNum16 to type %SeatNum.
(5:5) change object type %QSeatNum17 to type %SeatNum.
(5:5) change object type %QSeatNum18 to type %SeatNum.
(5:5) change object type %QSeatNum19 to type %SeatNum.
(5:5) change object type %QSeatNum20 to type %SeatNum.
(5:5) change object type %SilentObject to type %TalkObject.
(5:300) set variable %MeetingQNum to the value 22.
(5:201) emit message {Talking Allowed.} to any furre present.

(0:31) When a furre says {@quiet},
(1:11) and the triggering furre has got shared control (or is the dream owner),
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(3:3) within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(5:2) change floor type %TalkFloor to type %SilentFloor.
(5:5) change object type %QSeatNum1 to type %SeatNum.
(5:5) change object type %QSeatNum2 to type %SeatNum.
(5:5) change object type %QSeatNum3 to type %SeatNum.
(5:5) change object type %QSeatNum4 to type %SeatNum.
(5:5) change object type %QSeatNum5 to type %SeatNum.
(5:5) change object type %QSeatNum6 to type %SeatNum.
(5:5) change object type %QSeatNum7 to type %SeatNum.
(5:5) change object type %QSeatNum8 to type %SeatNum.
(5:5) change object type %QSeatNum9 to type %SeatNum.
(5:5) change object type %QSeatNum10 to type %SeatNum.
(5:5) change object type %QSeatNum11 to type %SeatNum.
(5:5) change object type %QSeatNum12 to type %SeatNum.
(5:5) change object type %QSeatNum13 to type %SeatNum.
(5:5) change object type %QSeatNum14 to type %SeatNum.
(5:5) change object type %QSeatNum15 to type %SeatNum.
(5:5) change object type %QSeatNum16 to type %SeatNum.
(5:5) change object type %QSeatNum17 to type %SeatNum.
(5:5) change object type %QSeatNum18 to type %SeatNum.
(5:5) change object type %QSeatNum19 to type %SeatNum.
(5:5) change object type %QSeatNum20 to type %SeatNum.
(5:5) change object type %TalkObject to type %SilentObject.
(5:300) set variable %MeetingQNum to the value 22.
(5:201) emit message {Quiet Please.} to any furre present.
(5:215) set the 'you can't talk' message to {The silence DS is currently active in the central square. Please wait, there will likely be a chance to ask your questions afterward.}

(0:31) When a furre says {@question},
(1:11) and the triggering furre has got shared control (or is the dream owner),
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(3:3) within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(5:2) change floor type %TalkFloor to type %SilentFloor.
(5:5) change object type %QSeatNum11 to type %SilentObject.
(5:300) set variable %MeetingQNum to the value 0.
(5:300) set variable %MeetingQOn to the value 1.
(5:201) emit message {Questions anyone? Press F3 to get in line.} to any furre present.
(5:215) set the 'you can't talk' message to {The silence DS is currently active in the central square. Press F3 to get in line to have your questions answered.}

(0:31) When a furre says {@questionoff},
(1:11) and the triggering furre has got shared control (or is the dream owner),
(5:300) set variable %MeetingQOn to the value 0.
(3:3) within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(5:201) emit message {Final Questions! No more questions will be taken after the current ones are answered..} to any furre present.
(5:215) set the 'you can't talk' message to {The silence DS is currently active in the central square. No more questions are being taken.}

(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %MeetingQOn is equal to 1,
(5:300) set variable %ChairCheck to the value 1.

(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:118) and they (didn't move from/aren't standing at) object type 2412,
(1:118) and they (didn't move from/aren't standing at) object type %SeatNum,
(1:118) and they (didn't move from/aren't standing at) object type 2414,
(5:300) set variable %ChairCheck to the value 0.

(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 19,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 20.
(5:5) change object type %SeatNum, to type %QSeatNum20.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 18,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 19.
(5:5) change object type %SeatNum, to type %QSeatNum19.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 17,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 18.
(5:5) change object type %SeatNum, to type %QSeatNum18.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 16,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 17.
(5:5) change object type %SeatNum, to type %QSeatNum17.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 15,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 16.
(5:5) change object type %SeatNum, to type %QSeatNum16.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 14,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 15.
(5:5) change object type %SeatNum, to type %QSeatNum15.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 13,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 14.
(5:5) change object type %SeatNum, to type %QSeatNum14.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 12,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 13.
(5:5) change object type %SeatNum, to type %QSeatNum13.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 11,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 12.
(5:5) change object type %SeatNum, to type %QSeatNum12.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 10,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 11.
(5:5) change object type %SeatNum, to type %QSeatNum11.

(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 9,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 10.
(5:5) change object type %SeatNum, to type %QSeatNum10.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 8,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 9.
(5:5) change object type %SeatNum, to type %QSeatNum9.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 7,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 8.
(5:5) change object type %SeatNum, to type %QSeatNum8.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 6,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 7.
(5:5) change object type %SeatNum, to type %QSeatNum7.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 5,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 6.
(5:5) change object type %SeatNum, to type %QSeatNum6.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 4,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 5.
(5:5) change object type %SeatNum, to type %QSeatNum5.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 3,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 4.
(5:5) change object type %SeatNum, to type %QSeatNum4.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 2,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 3.
(5:5) change object type %SeatNum, to type %QSeatNum3.
(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 1,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 2.
(5:5) change object type %SeatNum, to type %QSeatNum2.

(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(1:200) and variable %MeetingQNum is equal to 0,
(3:7) where the triggering furre is currently at,
(5:300) set variable %MeetingQNum to the value 1.
(5:5) change object type %SeatNum, to type %QSeatNum1.
(5:2) change floor type %SilentFloor to type %TalkFloor.
(5:19) move any furre present 0 step(s) forward (in the direction they're facing) if there's nobody already there.

(0:19) When somebody uses object type 0,
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:200) and variable %ChairCheck is equal to 1,
(5:300) set variable %ChairCheck to the value 0.

(0:31) When a furre says {@next},
(1:11) and the triggering furre has got shared control (or is the dream owner),
(1:81) and the triggering furre is within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(1:1011) and position (%Testspot) is floor type %SilentFloor,
(1:201) and variable %MeetingQNum is greater than 0,
(5:304) take variable %MeetingQNum and subtract 1 from it.
(3:530) at a random spot within the rectangle (%TalkAreaTopLeft) - (%TalkAreaBottomRight), where the object is type %QSeatNum1,
(5:2) change floor type %TalkFloor to type %SilentFloor.
(5:5) change object type %QSeatNum1 to type %SeatNum.
(3:530) at a random spot within the rectangle (%TalkAreaTopLeft) - (%TalkAreaBottomRight), where the object is type %QSeatNum2,
(5:2) change floor type %SilentFloor to type %TalkFloor.
(5:5) change object type %QSeatNum2 to type %QSeatNum1.
(5:19) move any furre present 0 step(s) forward (in the direction they're facing) if there's nobody already there.
(3:3) within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(5:5) change object type %QSeatNum3 to type %QSeatNum2.
(5:5) change object type %QSeatNum4 to type %QSeatNum3.
(5:5) change object type %QSeatNum5 to type %QSeatNum4.
(5:5) change object type %QSeatNum6 to type %QSeatNum5.
(5:5) change object type %QSeatNum7 to type %QSeatNum6.
(5:5) change object type %QSeatNum8 to type %QSeatNum7.
(5:5) change object type %QSeatNum9 to type %QSeatNum8.
(5:5) change object type %QSeatNum10 to type %QSeatNum9.
(5:5) change object type %QSeatNum11 to type %QSeatNum10.
(5:5) change object type %QSeatNum12 to type %QSeatNum11.
(5:5) change object type %QSeatNum13 to type %QSeatNum12.
(5:5) change object type %QSeatNum14 to type %QSeatNum13.
(5:5) change object type %QSeatNum15 to type %QSeatNum14.
(5:5) change object type %QSeatNum16 to type %QSeatNum15.
(5:5) change object type %QSeatNum17 to type %QSeatNum16.
(5:5) change object type %QSeatNum18 to type %QSeatNum17.
(5:5) change object type %QSeatNum19 to type %QSeatNum18.
(5:5) change object type %QSeatNum20 to type %QSeatNum19.

(0:71) When a furre stays in the same square for 1 seconds,
(1:18) and the triggering furre (moved from/is standing at) object type %QSeatNum1,
(3:3) within the diamond (%TalkAreaTopLeft) - (%TalkAreaBottomRight),
(5:201) emit message {[FURRE] has the floor.} to any furre present.