It's not much of a change, just change this:
IF ~~ MERIT
SAY @95 IF ~~ GOTO HERE
END
IF ~~ PERCEIVE
SAY @96 IF ~~ GOTO HERE
END
to this:
IF ~~ MERIT
SAY @95 IF ~Global("U!SYoshimo","GLOBAL",1) ~ DO
~GiveItemCreate("U!SBOOK1",LastTalkedToBy,1,1,0)
GiveItemCreate("U!SWAKIZ",LastTalkedToBy,1,1,0)~
+ HERE
IF ~OR(2)
Global("U!SYoshimo","GLOBAL",0)
Global("U!SYoshimo","GLOBAL",2)~ DO
~GiveItemCreate("U!SBOOK2",LastTalkedToBy,1,1,0)
GiveItemCreate("U!SWAKIZ",LastTalkedToBy,1,1,0)~
+ HERE
IF ~Global("U!SYoshimo","GLOBAL",3)~ DO
~GiveItemCreate("U!SBOOK3",LastTalkedToBy,1,1,0)
GiveItemCreate("U!SWAKIZ",LastTalkedToBy,1,1,0)~
+ HERE
END
IF ~~ PERCEIVE
SAY @96 IF ~Global("U!SYoshimo","GLOBAL",1) ~ DO
~GiveItemCreate("U!SBOOK1",LastTalkedToBy,1,1,0)
GiveItemCreate("U!SWAKIZ",LastTalkedToBy,1,1,0)~
+ HERE
IF ~OR(2)
Global("U!SYoshimo","GLOBAL",0)
Global("U!SYoshimo","GLOBAL",2)~ DO
~GiveItemCreate("U!SBOOK2",LastTalkedToBy,1,1,0)
GiveItemCreate("U!SWAKIZ",LastTalkedToBy,1,1,0)~
+ HERE
IF ~Global("U!SYoshimo","GLOBAL",3)~ DO
~GiveItemCreate("U!SBOOK3",LastTalkedToBy,1,1,0)
GiveItemCreate("U!SWAKIZ",LastTalkedToBy,1,1,0)~
+ HERE
END
in u!sare1.d