// create our own compiled AppleScript file

dim a as AppleScriptMBS
dim b as BinaryStream
dim f as FolderItem
dim r as ResourceFork

a=new AppleScriptMBS

// compile a simply applescript:
a.Compile "beep"

// Mac OS X format
f=GetFolderItem("My Apple Script X")

b=f.CreateBinaryFile("applescript")
b.Write a.Binary
b.Close

// Mac OS 9 format
f=GetFolderItem("My Apple Script 9")

r=f.CreateResourceFork("applescript")
r.AddResource a.Binary,"scpt",128,""
r.Close

dim a as new AppleScriptMBS
// later
a.close

// the code below workarounds a limitation in AppleScript on processing unicode strings

dim theScript as new AppleScriptMBS
dim scripttext as string
dim chars(-1) as string
dim n as string
dim i,c as Integer

const text="Hello World" // add unicode characters here!

c=len(text)
for i=1 to c
  n=hex(asc(mid(text,i,1)))
  while len(n)<4
    n="0"+n
  wend
  chars.Append n
next

scripttext="display dialog (Åsdata utxt"+join(chars,"")+"Åt as Unicode text)"

MsgBox scripttext

// must use unicode to avoid error -1753
scripttext=ConvertEncoding(scripttext,encodings.UTF16)
theScript.UnicodeText=true
theScript.compile ScriptText
theScript.execute

dim s as String
dim a as AppleScriptMBS
dim i,c,cc as Integer
dim z,t as String

s=s+"property hello : ""Hallo Leute"""+chr(13)
s=s+"property just : ""Just a test"""+chr(13)
s=s+"display dialog hello"+chr(13)
s=s+"return just"+chr(13)

MsgBox "The script:"+chr(13)+s
a=new AppleScriptMBS

a.Compile s

MsgBox str(a.CountScriptProperties)+" properties"

dim a as AppleScriptMBS
dim e as AppleScriptErrorMBS
a=new AppleScriptMBS

a.Compile "tell application ""Finder"""+chr(13)+"open file ""test"""+chr(13)+"end tell"+chr(13)

// You may check for errors here.

a.Execute

e=a.Error

// in a breakpoint you can see an error message here.

dim a as new AppleScriptMBS

a.Compile "beep"
a.Execute

dim a as new AppleScriptMBS
dim lines(-1) as string

lines.append "on test(a,b,c)"
lines.append "display dialog a"
lines.append "display dialog b"
lines.append "display dialog c"
lines.append "end test"

a.Compile join(lines,EndOfLine.Macintosh)
a.Execute

dim s(2) as string
s(0)="Hello"
s(1)="World"
s(2)="!"

a.ExecuteEvent("test",s)

dim a as new AppleScriptMBS

a.Compile "return ""hello"""
a.Execute

MsgBox a.Result

dim a as new AppleScriptMBS

a.Compile "return {""Hello"", ""World""}"
a.Execute

MsgBox join(a.ResultAsStringArray,EndOfLine) // Shows Hello World in two lines

a.Compile "tell application ""Mail"""+EndOfLine.Macintosh+"return name of every mailbox"+EndOfLine.Macintosh+"end tell"
a.Execute

MsgBox join(a.ResultAsStringArray,EndOfLine) // shows your Mailboxes

dim a as new AppleScriptMBS

a.Compile "return ""hello"""
a.Execute

MsgBox a.ResultDisplayString

dim s as String
dim a as AppleScriptMBS
dim i,c,cc as Integer
dim z,t as String

s=s+"property hello : ""Hallo Leute"""+chr(13)
s=s+"property just : ""Just a test"""+chr(13)
s=s+"display dialog hello"+chr(13)
s=s+"return just"+chr(13)

MsgBox "The script:"+chr(13)+s
a=new AppleScriptMBS

a.Compile s

c=a.CountScriptProperties

cc=c-1
for i=0 to cc
  z=a.ScriptProperty(i)
  if z<>"" then
    if i=0 then
      t=z
    elseif i=cc then
      t=t+" and "+z
    else
      t=t+", "+z
    end if
  end if
next

MsgBox str(c)+" properties in the script: "+t

t=a.ScriptProperty(0)
z=a.ScriptPropertyValue(t)
MsgBox "Value of the property named "+t+" is: "+z

a.ScriptPropertyValue(t)="Hello World!"

z=a.ScriptPropertyValue(t)
MsgBox "The new value of the property named "+t+" is: "+z

a.Execute

MsgBox "The result is: "+a.Result

Sub NewEmailinMail(subject as string, body as string, sender as string, receiver as string)
  // make a new email in Apple Mail using AppleScript
  
  dim lines(-1) as string
  
  
  lines.append ""
  lines.append "property MySubject : ""My Subject"""
  lines.append "property MyBody : ""My Body"""
  lines.append "property MyReceiver : ""test@test.test"""
  lines.append "property MySender : ""test@test.test"""
  lines.append ""
  lines.append "tell application ""Mail"""
  lines.append "    activate"
  lines.append "    set NewMail to make new outgoing message with properties {visible:true, subject:MySubject, content:MyBody}"
  lines.append "    "
  lines.append "    tell NewMail"
  lines.append "        make new to recipient at beginning of to recipients with properties {address:MyReceiver}"
  lines.append "    end tell"
  lines.append "    "
  lines.append "    set the sender of NewMail to MySender"
  lines.append "end tell"
  
  dim a as new AppleScriptMBS
  
  a.Compile Join(lines,EndOfLine.Macintosh)
  
  // Change encoding
  subject = ConvertEncoding(subject, encodings.MacRoman)
  body = ConvertEncoding(body, encodings.MacRoman)
  sender = ConvertEncoding(sender, encodings.MacRoman)
  receiver = ConvertEncoding(receiver, encodings.MacRoman)
  
  // replace line endoings
  subject = ReplaceLineEndings(subject, EndOfLine.Macintosh)
  body = ReplaceLineEndings(body, EndOfLine.Macintosh)
  sender = ReplaceLineEndings(sender, EndOfLine.Macintosh)
  receiver = ReplaceLineEndings(receiver, EndOfLine.Macintosh)
  
  // set properties in Script
  a.ScriptPropertyValue("MySubject")=subject
  a.ScriptPropertyValue("MyBody")=body
  a.ScriptPropertyValue("MySender")=sender
  a.ScriptPropertyValue("MyReceiver")=receiver
  
  a.Execute
End Sub

dim a as new AppleScriptMBS

a.compile "beep"

MsgBox a.Source

dim a as new AppleScriptMBS

a.compile "beep"

EditField1.SetTextAndStyle a.Source, a.SourceTextStyle