Skip to content

Instantly share code, notes, and snippets.

View yggdrasil75's full-sized avatar

yggdrasil75

  • Crystal Caves of Ilum
View GitHub Profile
//quick add to list. simple solution for reuseability.
procedure AddItemToLVLI(level: integer; item: IInterface; count: integer; List: IInterface);
var
tempRecord: IInterface;
begin
tempRecord := ElementAssign(ElementByPath(currentList, 'Leveled List Entries'), HighInteger, nil, false);
beginUpdate(tempRecord);
try
SetElementEditValues(tempRecord, 'LVLO\Level', level);
SetElementEditValues(tempRecord, 'LVLO\Reference', name(item));
unit CustomFunctionList;
{
```pascal
```
}
{ General Notes
If the code says it expects 'end;' but finds 'end of file' check that 'if' statements are followed by 'then' and 'for' statement are followed by 'do'
}
---- Minecraft Crash Report ----
WARNING: coremods are present:
wings (wings-1.1.6-1.12.2.jar)
IELoadingPlugin (ImmersiveEngineering-core-0.12-98.jar)
EngineersDoorsLoadingPlugin (engineers_doors-1.12.2-0.9.1.jar)
MixinBooter (mixinbooter-2.0.jar)
Quark Plugin (Quark-r1.6-179.jar)
AppleCore (AppleCore-mc1.12.2-3.4.0.jar)
DCLoadingPlugin (DummyCoreUnofficial-2.4.112.5.jar)
unit CustomFunctionList;
{
```pascal
```
}
{ General Notes
If the code says it expects 'end;' but finds 'end of file' check that 'if' statements are followed by 'then' and 'for' statement are followed by 'do'
}
This file has been truncated, but you can view the full file.
Apr 19, 2021 21:42:48.248 [21208] INFO - Plex Media Server v1.22.2.4282-a97b03fad - Microsoft PC x64 - build: windows-x86 windows - GMT -04:00
Apr 19, 2021 21:42:48.248 [21208] INFO - Windows version: 10.0 (Build 19042), language en-US
Apr 19, 2021 21:42:48.248 [21208] INFO - 8 4200 MHz processor(s): Architecture=0, Level=6, Revision=40457 Processor Identifier=Intel64 Family 6 Model 158 Stepping 9, GenuineIntel
Apr 19, 2021 21:42:48.248 [21208] DEBUG - "C:\Program Files (x86)\Plex\Plex Media Server\Plex Media Server.exe"
Apr 19, 2021 21:42:48.271 [7096] DEBUG - Plex for Windows Store application is not installed
Apr 19, 2021 21:42:48.274 [7096] DEBUG - BPQ: [Idle] -> [Starting]
Apr 19, 2021 21:42:48.275 [7096] DEBUG - FeatureManager: Using cached data for features list
Apr 19, 2021 21:42:48.277 [7096] DEBUG - Opening 20 database sessions to library (com.plexapp.plugins.library), SQLite 3.26.0, threadsafe=1
Apr 19, 2021 21:42:48.282 [7096] INFO - SQLITE3:0xcc559c40, 283, recovered 999 frames from WAL file C:\
This file has been truncated, but you can view the full file.
[
{
"type": "info",
"host": "127.0.0.1:32400",
"userAgent": "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.128 Safari/537.36 Edg/89.0.774.77",
"browser": {
"platformVersion": "10",
"id": "edge",
"name": "Microsoft Edge",
"version": "89.0",
procedure templatelists;
var
j, i: int;
cini: TMemIniFile;
overrides, overrideprimary, debugmsg: boolean;
IniFilestreams, IniTemplates:TStringlist;
cg:string;
begin
templateMegaList := tstringlist.create;
procedure templatelists;
begin
//setup template files
//ALLATemplate.ini
//ALLAUserTemplate.ini
//ALLA+<modname>+template.ini in data folder (ie: ALLAYggKeywordsTemplate.ini
//templates at +<name> are in scripts folder, templates at -<name> are in data.
IniTemplates := TStringList.Create;
IniTemplates.add('+ALLATemplate.ini');
[clothing]
grup=ARMO
types=head,hands,feet,neck
ident=
primarypath=data\value:.01
secondarypaths=data\weight:.2
head=skyrim.esm|ClothesRedguardHood:3,skyrim.esm|ClothesChefHat:3,skyrim.esm|DBClothesJesterHatCicero:3
headKeywords=clothingHat,hat,clothingHead
hands=<items>
body=skyrim.esm|ClothesFineClothes01:4,skyrim.esm|ClothesFineClothes02:4,skyrim.esm|ClothesFarmClothes01:2,skyrim.esm|ClothesFarmClothes01:2,skyrim.esm|ClothesBlackSmith:3,skyrim.esm|ClothesBlackSmithVariant:3,skyrim.esm|ClothesChef:3,skyrim.esm|DBClothesJesterCicero:3
// This section filters clothing items
slKeywordList(aRecord, slKeywords);
if StrWithinSL('Clothing', slKeywords) then begin
if debugMsg then msg('filtering clothing');
slTemp.Clear;
//Randomize; //why is this here?
slTemp.CommaText := 'ArmorClothing, VendorItemClothing, ClothingBody';
for i := 0 to slTemp.Count-1 do begin
if HasKeyword(aRecord, slTemp[i]) then begin
if ContainsText(full(aRecord), 'Fine') then begin