Hi,
There's a possibility to append your script after the REBOL executable,
at least Windows loader does not complain. But you must then run REBOL
with a long command line from a shortcut, not just rebol.exe.
First, make a directory, copy REBOL.exe, hide-script.r and the script
you want to hide (I use a random example dancelady.r) to that
directory. Then run hide-script.r - it will create a modified REBOL
executable and print a command line - copy it and paste into some
shortcut.
You can then delete dancelady.r file from disk - modified REBOL will
still run it.
Scripts and example shortcut (renamed, because Netscape Messenger
tries to follow it) are attached.
Hope this helps,
--
Michal Kracik
[EMAIL PROTECTED] wrote:
>
> I would like to be able to put together an client side standalone
> application that uses REBOL - but
> I do not want to require the user to download the REBOL and see the scripts
> that make up the application.
>
> Is it possible to create a REBOL app that completely encapsulates the REBOL
> engine and hides the script(s)....
> And if so, how?
>
> - Scanzoni
REBOL [
TITLE: "The Dance Lady"
AUTHOR: "Ralph Roberts, Š2000"
DATE: "13-Jan-2000"
PURPOSE: "console animation demo"
FILE: %dancelady.r]
print newline
print "^(1B)[10CPresenting the exotic"
print "^(1B)[10C MS. ASCII REBOLI"
print newline
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C _#*_*#_) "
print "^(1B)[12C--(--/__\------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------/_/------"
print "^(1B)[12C _\ \_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C ___#*_*#___ "
print "^(1B)[12C------\_\------"
print "^(1B)[12C _/ /_ "
wait .2 prin "^(1B)[4A"
print "^(1B)[12C .###. "
print "^(1B)[12C (_#*_*#_ "
print "^(1B)[12C-----/__\-)----"
print "^(1B)[12C _/ /_ "
print [newline "^(1B)[10C**applause**applause***^/"]
print "^(1B)[12CNext Show 10 p.m."
REBOL []
rebol-executable: read/binary %rebol.exe
original-length: length? rebol-executable
append rebol-executable read %dancelady.r
write/binary %modified-rebol.exe rebol-executable
print rejoin [ {modified-rebol.exe --do "do load to-string skip read/binary
%modified-rebol.exe } original-length {"} ]
modified-rebol.exe.lnk__
