Zenithtb
Active Member
- Oct 21, 2017
- 944
- 1,033
- 264
Shhhhhhhhhhhhhh. No more need be said!I'm falling more and more in Love with Luna with each new release. She is the absolute greatest!
Last edited:
Shhhhhhhhhhhhhh. No more need be said!I'm falling more and more in Love with Luna with each new release. She is the absolute greatest!
Dude, just some friendly advice from someone who has gotten in "trouble" for something very similar... You may want to hide all of this with a "Spoiler".Wot i usd 2 b abl 2 doo ina previous life:
Function SplitLine(Line:String; SplitCh:Char; Part:Byte):String;
Var Parts:Array[1..99] of String;
Bit:Byte;
i:Integer;
Begin
If(SplitCh='') then Exit;
Bit:=1;
For i:=1 to (Length(Line)) do
If (Line<>SplitCh) then Parts[Bit]:=Parts[Bit]+Line
else Inc(Bit);
SplitLine:=Parts[Part];
End;
Function SplitLine(Line:String; SplitCh:Char; Part:Byte; IfNull:String):String;
Var s:String;
Begin
s:= Splitline(Line,SplitCh,Part);
If(s='') then s:=IfNull;
Splitline:= s;
End;
Function CountSplitParts(Line:String;Sp:Char):Integer;
Var i:Integer;
Count:Integer;
Begin
If(Line='') then Begin
CountSplitParts:=0;
Exit;
End;
Count:=1;
For i:=1 to Length(Line) do If(Line=Sp) then Inc(Count);
CountSplitParts:=Count;
End;
Function ChangeSplitPart(Line:String; SplitCh:Char; Part:Integer; ChangeTo:String):String;
Var i:Integer;
OutStr:String;
Begin
For i:=1 to CountSplitParts(Line,SplitCh) do Begin
If(i<>Part) then OutStr:=OutStr+Splitline(Line,SplitCh,i)+SplitCh
else OutStr:=OutStr+ChangeTo+SplitCh;
End;
Delete(OutStr,Length(OutStr),1);
ChangeSplitPart:=OutStr;
End;
Function SplitStrings(Lines:tHashedStringList; SplitCh:Char; Part:Byte):tHashedStringList;
Var i:Integer;
IntLines:tHashedStringList;
Begin
IntLines:=tHashedStringList.Create;
IntLines.AddStrings(Lines);
For i:=0 to IntLines.Count-1 do IntLines:=SplitLine(IntLines,SplitCh,Part);
SplitStrings:=IntLines;
End;
Function SplitStrings(Lines:tStringList; SplitCh:Char; Part:Byte):tStringList;
Var i:Integer;
IntLines:tStringList;
Begin
IntLines:=tStringList.Create;
IntLines.AddStrings(Lines);
For i:=0 to IntLines.Count-1 do IntLines:=SplitLine(IntLines,SplitCh,Part);
SplitStrings:=IntLines;
End;
Function MousePos(Which:Char):Integer;
var
Mouse: TPoint;
begin
MousePos:=0;
Which:=UpCase(Which);
If GetCursorPos(Mouse) then Case Which of
'X':MousePos:=Mouse.X;
'Y':MousePos:=Mouse.Y;
End;
End;
Function UpperStr(S:String):String;
Var i:Integer;
Begin
If(Length(S)>0) then For i:=1 to Length(S) do S:=UpCase(S);
UpperStr:=S;
End;
Function zExtractPath(Path:String):String;
Begin
Path:=ExtractFilePath(Path);
If(Path[Length(Path)]='\') then Delete(Path,Length(Path),1);
zExtractPath:=Path;
End;
Function FindNextIniSpace(IniS,Section,Key:String):Integer;
Var Ini:tIniFile;
i:Integer;
InternalKey:String;
FoundSpace:Boolean;
Begin
Ini:=TIniFile.Create(IniS);
i:=0;
FoundSpace:=False;
Repeat
Inc(i);
InternalKey:=Key+IntToStr(i);
If(Not(Ini.ValueExists(Section,InternalKey))) then FoundSpace:=True;
Until FoundSpace;
FindNextIniSpace:=i;
Ini.Free;
End;
Function FindInIni(IniS,Section,Key,LookingFor:String):THashedStringList;
Var Ini:tMemIniFile;
InternalKey,ST1:String;
Strs:THashedStringList;
i:Integer;
Begin
Ini:=tMemIniFile.Create(IniS);
Strs:=THashedStringList.Create;
Strs.Clear;
For i:=0 to FindNextIniSpace(IniS,Section,Key) do Begin
InternalKey:=Key+IntToStr(i);
If(Ini.ValueExists(Section,InternalKey)) then Begin
ST1:=Ini.ReadString(Section,InternalKey,'0');
If(Pos(UpperStr(LookingFor),UpperStr(ST1))<>0) then Strs.Add(InternalKey+#9+ST1);
End;
End;
FindInIni:=Strs;
Ini.Free;
End;
Function FindInSL(SL:tHashedStringlist;LookingFor:String):THashedStringList;
Var Strs:THashedStringList;
i:Integer;
Begin
Strs:=THashedStringList.Create;
Strs.Clear;
If(SL.Count>0) then For i:=0 to SL.Count-1 do If(Pos(UpperStr(LookingFor),UpperStr(SL))<>0) then Strs.Add(SL);
FindInSL:=Strs;
End;
Function FindInSL(SL:tStringlist;LookingFor:String):tStringList;
Var Strs:tStringList;
i:Integer;
Begin
Strs:=tStringList.Create;
Strs.Clear;
If(SL.Count>0) then For i:=0 to SL.Count-1 do If(Pos(UpperStr(LookingFor),UpperStr(SL))<>0) then Strs.Add(SL);
FindInSL:=Strs;
End;
Function ReadStringFromIni(IniS,Section,Key:String):String;
Var s:String;
Ini:tIniFile;
Begin
Ini:=tIniFile.Create(IniS);
S:=Ini.ReadString(Section,Key,'');
ReadStringFromIni:=s;
Ini.Free;
End;
Function StrToHashed(LinesIn:tStrings):thashedStringList;
Var LinesOut:tHashedStringList;
i:Integer;
Begin
LinesOut:=tHashedStringList.Create;
For i:=0 to LinesIn.Count-1 do LinesOut.Add(LinesIn.Strings);
StrToHashed:=LinesOut;
End;
Function HashedToStr(LinesIn:thashedStringList):tStrings;
Var LinesOut:tStringlist;
i:Integer;
Begin
LinesOut:=tStringlist.Create;
For i:=0 to LinesIn.Count-1 do LinesOut.Add(LinesIn.Strings);
HashedToStr:=LinesOut;
End;
Function StringsToStringlist(Strs:tStrings):tStringlist;
Var sl:tStringlist;
Begin
sl:= tStringlist.Create;
sl.AddStrings(Strs);
StringsToStringlist:= sl;
End;
Function StringlistToString(LinesIn:tStringList;Sp:Char):String;
Var LineOut:String;
i:Integer;
Begin
If(LinesIn.Count=0) then Begin
StringlistToString:='';
Exit;
End;
LineOut:='';
For i:=0 to LinesIn.Count-2 do LineOut:=LineOut+LinesIn.Strings+Sp;
LineOut:=LineOut+LinesIn.Strings[LinesIn.Count-1];
StringlistToString:=LineOut;
End;
:*(
Um, I think I copy-pasta wong. Lemmee go back and check as it looks wrongDude, just some friendly advice from someone who has gotten in "trouble" for something very similar... You may want to hide all of this with a "Spoiler".![]()
Here man:
In the work menu go to Events
CORDIA stole my heart again...Give it back you mafia bitch! That's two hearts too many!
Hmm so I think I've completed the current main story, at least from the event tab anyways, I've gotten to the point where MC asks if Lady Cordia is his mother. On the events though, there are two for Luna that I've not gotten to unlock for some reason. Femme Fatale and The Cave, It says living room and day time are required, and I've gone there several days and spoken with Luna but nothing new occurs... what am I missing?
Not seeing anything there either x.xIn the work menu go to Events
What do you guys think Antonio's fate will be?
His dwindling sex life with Isabelle was the result of her miscarriage. Totally understandable. He sort of took in MC under his wing and was always nice to him. He has a bit of a temper, but always looks out for his family. He is defeinitely a good guy so far. That makes it a bit hard for MC to go for Isabelle without being a total asshole. I think he will die somewhere down the road doing a heroic deed or have skeletons in his closet.
But then again, MC is already trying to seduce all the woman in the household and setting up spy cameras everywhere. A little netori action might not be too out of place lol.
Oh. That was for me. Make sure you're at X XP)Not seeing anything there either x.x
In simple country terms: He gun die.What do you guys think Antonio's fate will be?
His dwindling sex life with Isabelle was the result of her miscarriage. Totally understandable. He sort of took in MC under his wing and was always nice to him. He has a bit of a temper, but always looks out for his family. He is defeinitely a good guy so far. That makes it a bit hard for MC to go for Isabelle without being a total asshole. I think he will die somewhere down the road doing a heroic deed or have skeletons in his closet.
But then again, MC is already trying to seduce all the woman in the household and setting up spy cameras everywhere. A little netori action might not be too out of place lol.
Yeah everything is maxed out, I am an elite soldato level 10. I've done so many jobs to pass days I am at 6k >.< just for the life of me can't figure out why femme fatale mission isn't starting. Not sure if something glitched that needs to reported to the dev or not x.xOh. That was for me. Make sure you're at X XP)
As I completed it, probably not...Yeah everything is maxed out, I am an elite soldato level 10. I've done so many jobs to pass days I am at 6k >.< just for the life of me can't figure out why femme fatale mission isn't starting. Not sure if something glitched that needs to reported to the dev or not x.x
>.< okay so what am I doing wrong then? I've not cheated anything and didn't use the mod soooo it's a technical difficulty is it not?As I completed it, probably not...
Femme Fatale starts in the living room where the TV is. Go there during the daytime i think to watch a movie with the sisters.>.< okay so what am I doing wrong then? I've not cheated anything and didn't use the mod soooo it's a technical difficulty is it not?
I watched the movie with the sisters, we all got grounded xD damn old man >.< The quest isn't green though in the tab, and the cave isn't starting either x.xFemme Fatale starts in the living room where the TV is. Go there during the daytime i think to watch a movie with the sisters.
After that I think you need to check the spy camera. Then talk to Luna in her room. Then buy shoes. Then talk to Luna again. Then talk to Isabelle in her room. Then wait like a week until The Cave startsI watched the movie with the sisters, we all got grounded xD damn old man >.< The quest isn't green though in the tab, and the cave isn't starting either x.x