(script-fu-register
    "script-fu-scrollup"  ;func name
    "scrollup "    ;menu label
    " "    ;description
    " "    ;author
    " "    ;copyright notice
    " "    ;date created
    "*"    ;image type that the script works on
    SF-IMAGE    "Image"     0
    SF-DRAWABLE "Drawable"  0
    SF-ADJUSTMENT  "line-space"  '(-200 -200 200 5 10 0 SF-SLIDER)
)
(script-fu-menu-register "script-fu-scrollup" "<Image>/Tools")
(define (script-fu-scrollup image drawable line-space)

    ;start
    (gimp-context-push)
    (gimp-image-undo-group-start image)
    
(let* ((new-layer (car (gimp-layer-copy drawable FALSE))))
    (gimp-image-insert-layer image new-layer 0 -1)
    (gimp-item-set-visible new-layer TRUE)
    (gimp-drawable-offset new-layer TRUE 2 '(0 0 0) 0 line-space)
)

    ;finish
    (gimp-image-undo-group-end image)
    (gimp-context-pop)
    (gimp-displays-flush)
)