Dark Souls - Modding - Ridiculous scripting example скачать в хорошем качестве

Dark Souls - Modding - Ridiculous scripting example

The scripting environment isn't ready for release yet but here's an example of some minor BS it can do. ...No, I don't know why I made this. I just don't. I'm sorry. Script that created this: function clr() SetLineHelpTextClear() SetKeyGuideTextClear() end function t1(str) SetKeyGuideText(str) end function t2(str) SetLineHelpText(str) end lhFontSizeLoc = 0x12E3C28 kgFontSizeLoc = 0x12E3C50 soulsFontSizeLoc = 0x12E3C3C WFloat(lhFontSizeLoc, 34.0) WFloat(lhFontSizeLoc + 4, 1.0) WFloat(lhFontSizeLoc + 8, 1.0) WFloat(kgFontSizeLoc, 34.0) WFloat(kgFontSizeLoc + 4, 1.0) WFloat(kgFontSizeLoc + 8, 1.0) WFloat(soulsFontSizeLoc, 24.0) WFloat(soulsFontSizeLoc + 4, 1.0) WFloat(soulsFontSizeLoc + 8, 1.0) DisableAI(true) player.NoGoodsConsume = false player.EnableLogic = false SetSaveEnable(false) player.StatEquipHead = 0 player.StatEquipChest = 0 player.StatEquipLegs = 0 player.StatEquipArms = 0 WFloat(0x11E7DD4, 1.14) ShowHUD(true) WarpNextStage(10, 2, 0, 0, -1) Wait(6000) crestfallen = Entity.FromName("m10_02_00_00","c0000_0018") crestfallen.SetDisableGravity = true WarpEntity_Coords(crestfallen.Pointer, -51, -60, 62.81, 180) clr() Warp_Coords(-51.99, -60.05, 60.33, 0) CamReset(10000, true) Wait(2000) SetKeyGuideTextPos(500, 250) SetLineHelpTextPos(750, 300) t1("Hello.") Wait(3000) clr() t2("Please to be shutting the up now.") Wait(3000) clr() t1("You insult me, sir.") Wait(3000) t1("I challenge you to...") Wait(3000) t1("Mortal Strip Pong!") Wait(1000) WFloat(kgFontSizeLoc, 40.0) Wait(1000) WFloat(kgFontSizeLoc, 45.0) Wait(1000) WFloat(kgFontSizeLoc, 50.0) Wait(3000) WFloat(kgFontSizeLoc, 34.0) clr() i = 0 ballx = 1000 bally = 360 paddle1x = 300 paddle1y = 360 paddle2x = 1000 paddle2y = 50 t1("|") t2("|") xdirval = -1 y1dirval = 1 y2dirval = 1 WFloat(lhFontSizeLoc, 60.0) WFloat(kgFontSizeLoc, 60.0) WarpEntity_Coords(crestfallen.Pointer, -51.5, -60.5, 61, 180) while ballx (lessthan) 1260 do --while ballx (lessthan) 1 do ballx = ballx + 10 * xdirval bally = bally + 10 * y1dirval paddle1y = paddle1y + 10 * y1dirval paddle2y = paddle2y - 10 * y2dirval SetLineHelpTextPos(paddle2x, paddle2y) SetKeyGuideTextPos(paddle1x, paddle1y) WarpEntity_Coords(crestfallen.Pointer, -55.5 + (7.0 * (ballx / 1280)), -57.8 - (3.5 * (bally / 720)), 61, 180) i = i + 1 Wait(33) if bally (greaterthan) 400 then y1dirval = -1 end if bally (lessthan) 100 then y1dirval = 1 end if (math.abs(paddle1y - paddle2y) (greaterthan) 200) then y2dirval = y1dirval end if ballx (lessthan) paddle1x + 100 then xdirval = 1 end end WFloat(lhFontSizeLoc, 34.0) WFloat(kgFontSizeLoc, 34.0) WarpEntity_Coords(crestfallen.Pointer, -51, -60, 62.81, 180) clr() Wait(100) SetKeyGuideTextPos(500, 250) SetLineHelpTextPos(750, 300) t2("I am having the defeat.") Wait(2000) clr() t1("To the victor go the spoils.") Wait(2000) clr() player.StatEquipLegs = crestfallen.StatEquipLegs crestfallen.StatEquipLegs = 0 Wait(500) t2("Those pants were leg-endary.") Wait(2000) clr() player.StatEquipArms = crestfallen.StatEquipArms crestfallen.StatEquipArms = 0 Wait(500) t2("I always found those handy.") Wait(2000) clr() player.StatEquipChest = crestfallen.StatEquipChest crestfallen.StatEquipChest = 0 Wait(500) t2("Yada yada, mail pun.") Wait(2000) clr() Wait(2000) t2("Oh noes!") Wait(2000) t2("Hollow, with Kevin Bacon!") Wait(2000) clr() crestfallen.ChrType = 8 t1("That movie sucked.") Wait(2000) t1("Now die, from my brain.") Wait(2000) clr() i = 0 while i (lessthan) 100 do crestfallen.StatAppearanceScaleHead = 0 - i Wait(33) i = i + 1 end t2("...Ow") Wait(2000) clr() t1("Now I must leave") Wait(2000) t1("For no raisin.") Wait(2000) clr() WFloat(0x11E7DD4, 1.39) Wait(4000) BlackScreen() ShowHUD(false) SetBriefingMsg("He was never heard from again.")