Script HELP

scn BookPerkParadiseLostScriptandTTWParadiseLostRepGain

short doOnce
short BooksToRead
short BooksPerRank
short currSkill
short reqSkill

Begin OnEquip player

set currSkill to player.GetAV Speech
set reqSkill to ( 40 + ( 10 * GlobalBookPerkSpeechRank ) )

if ( currSkill < 25 )
	ShowMessage BookPerkInsufficientSkillMSG2

elseif ( currSkill < reqSkill ) && ( reqSkill <= 100 )
	ShowMessage BookPerkInsufficientSkillMSG, currSkill, reqSkill

else
	if (player.HasPerk Comprehension == 1 && GlobalBookPerkSpeechRank  < 7 )
		set BooksToRead to ( ( GlobalBookPerkSpeech % 3 ) +1 )
		set BooksPerRank to 3
		if ( GlobalBookPerkSpeech % 3 == 2 )
			player.AddPerk BookPerkSpeech
			ShowMessage BookPerkSpeechMSG
			set GlobalBookPerkSpeechRank to GlobalBookPerkSpeechRank + 1
		elseif ShowMessage BookPerkKeepReadingMSG, BooksToRead, BooksPerRank
		endif
		set GlobalBookPerkSpeech to GlobalBookPerkSpeech + 1

	elseif (player.HasPerk Comprehension == 0 && GlobalBookPerkSpeechRank  < 5 )
		set BooksToRead to ( ( GlobalBookPerkSpeech % 4 ) +1 )
		set BooksPerRank to 4
		if ( GlobalBookPerkSpeech % 4 == 3 )
			player.AddPerk BookPerkSpeech
			ShowMessage BookPerkSpeechMSG
			set GlobalBookPerkSpeechRank to GlobalBookPerkSpeechRank + 1
		elseif ShowMessage BookPerkKeepReadingMSG, BooksToRead, BooksPerRank
		endif
		set GlobalBookPerkSpeech to GlobalBookPerkSpeech + 1

	elseif ShowMessage BookPerkMasteryMSG

	endif

	player.RemoveItem FFUndeworldParadiseLostBook 1 1
	ModPCMiscStat "Books Read" 1
	player.AddItem BookSkillParadiseLostRead 1 1

endif

if doOnce ==0

    AddReputation RepTTWUnderworld 1 1

    if player.HasPerk Comprehension == 0
      player.modAV Speech 3
      showmessage TTWParadiseLostComp0
    elseif player.HasPerk Comprehension == 1
      player.modAV Speech 4
      showmessage TTWParadiseLostComp1
    endif

    set doOnce to 1

endif

END