獻給杰少
此版不知能否用中文;忘記測試了;不行的話就用英文的
卷軸放主包包
身上要有魔法書(廢話
卷軸自動偵測並添加進魔法書
在
我最愛的人是黑豬選項裏;按
確定方可進行^^ 
======================================================================
INITEVENTS
DISPLAY OKcancel 我最愛的人是黑豬 ^^
IF #dispres = cancel
  {
  HALT
  }
DISPLAY ok 等滑鼠變圓圈後,點選魔法書
SET #TARGCURS 1
MAIN2:
IF #TARGCURS = 1
  {
  GOTO MAIN2
  }
SET %BOOKBOX #LTARGETID
LOOP:
IGNOREITEM RESET
FINDITEM MPF C_ , #BACKPACKID
IF #FINDKIND = -1
  {
  DISPLAY OK 沒有卷軸可加入了
  HALT
  }
SET %BOOK #FINDID
LOOP1:
SET #LTARGETID %BOOK
SET #LTARGETKIND 1
FINDITEM NXL_QXL_PXL_AYL_ZXL_CYL_BYL_WXL_VXL_YXL_XXL_IYL_HYL_KYL_JYL_EYL_DYL_GYL_FYL_STL_RTL_UTL_
TTL_OTL_NTL_QTL_PTL_AUL_ZTL_CUL_BUL_WTL_VTL_YTL_XTL_IUL_HUL_KUL_JUL_EUL_DUL_GUL_FUL_
QUL_PUL_SUL_RUL_MUL_LUL_OUL_NUL_YUL_XUL_AVL_ZUL_UUL_TUL_WUL_VUL_GVL_FVL_IVL_HVL_CVL C_ , #BACKPACKID
IF #FINDKIND = -1
  {
  GOTO LOOP3
  }
EXEVENT POPUP #FINDID 1
TARGET 10s
LOOP2:
EVENT MACRO 22 0
IF #TARGCURS = 1
  {
  GOTO LOOP2
  }
IGNOREITEM #FINDID
GOTO LOOP1
LOOP3:
FINDITEM %BOOK C_ , #BACKPACKID
IF #FINDKIND = -1
  {
  GOTO LOOP
  }
EXEVENT DRAG %BOOK
wait 10
EXEVENT DROPC %BOOKBOX
GOTO LOOP3