[lua] Convert Rubbish Day to IF / Fix Compatability Events

[Skold177]

I affirm:

• I understand that if I do not agree to the following points by completing the checkboxes my PR will be ignored.
• I understand I should leave resolving conversations to the LandSandBoat team so that reviewers won't miss what was said.
• I have read and understood the Contributing Guide and the Code of Conduct.
• I have tested my code and the things my code has changed since the last commit in the PR and will test after any later commits.

What does this pull request do?

Converts Rubbish Day to IF and Fixes Compatibility Events

Used an event dump from @sruon to fix the event

function event_199(npc, player, params)
player:lockControls()
npc:lookAtAndTalk(player)
vm:waitFrameDelay()
vm:waitEntityRenderFlag()
npc:say(7577) -- "Shall I test your compatibility-wility?"
player:waitForKeypress()
result2 = 0
result = npc:dialog(7578, 1, 0) -- "Have your compatibility tested? Yes, please. No, thanks."
if result == 0 then
player:setCancelData()
npc:say(7580) -- "Very well. Just fill in the name of your partner where it says Password."
player:waitForKeypress()
vm:handleStringInput(scratch[0])
vm:handleStringInput(scratch[1])
vm:handleStringInput(scratch[2])
scratch[0] = params[0]
scratch[1] = params[1]
scratch[2] = params[2]
if scratch[2] == 0 then
if scratch[2] == 1 then
npc:say(7585) -- "What? With me!? Spare me."
player:waitForKeypress()
elseif scratch[2] == 2 then
npc:say(7586) -- "What? With that creep? Over my dead body!"
player:waitForKeypress()
elseif scratch[2] == 3 then
npc:say(7584) -- "Please fill in your partner's name."
player:waitForKeypress()
end
elseif scratch[1] == 0 then
npc:say(7582) -- "Your partner-wartner doesn't seem to be nearby."
player:waitForKeypress()
elseif scratch[1] == scratch[0] then
npc:say(7583) -- "Of course you're compatible with yourself! Hello!?"
player:waitForKeypress()
else
sub_02F3(npc, player, params)
result2 = 1
end
elseif result == 1 then
npc:say(7579) -- "Have a nice day."
player:waitForKeypress()
result2 = 1073741824
end
end

Steps to test these changes

Do the quest