local f=createForm(false)
f.position=poScreenCenter
f.Caption='Cheat-E-Coin payments'
local p=createLabel(f)
p.caption='Scanning for bank accounts...    '
f.BorderStyle=bsDialog
f.OnCloseQuery=function()
  return false
end


p.AutoSize=true
f.autoSize=true



t1=createTimer(2000,function() 
  t1.Enabled=false --deal with bug in createTimer(timeout,func) where it won't disable the timer before executing the code
  p.Caption='Scanning for crypto...    '

  t2=createTimer(2000,function()
    t2.Enabled=false
    p.Caption='Executing exploits to obtain access to funds...    '
    t3=createTimer(3000,function()
      t3.Enabled=false
      p.Caption='Transfering funds...    '

      t4=createTimer(2000,function()
        t4.Enabled=false
        f.OnCloseQuery=nil
        f.ModalResult=mrOK
        messageDialog('Thank you for your payment!', mtInformation, mbOK)

        local f2=getApplication().frmMicroTransactions
        if f2 then f2.hide() end
      end)
    end)


  end)
end)

f.showModal()