Cyngn, OnePlus, Micromax – The Legal Battle

Recently, a battle has been waging in India over the rights to distribute the commercial … more

Lean Mean Battery Power Saving App Review

We talk a lot about battery topics here at XDA TV. We talk about everything from Power Banks to USB … more

Android 5.1 Possibly Coming February 2015

Google released Android 5.0 just over a month ago, and since then Lollipop has been trying to … more

Double Tap to Wake on the Nexus 6 Without Root

A few weeks ago, we featured an app which allowed the Nexus 6 to regain the double tap to wake … more

Welcome to XDA

Search to go directly to your device's forum

Register an account

Unlock full posting privileges

Ask a question

No registration required
Post Reply

Easy Mortscript Writer(cab) Updated

OP imbunned

1st September 2010, 09:13 PM   |  #1  
OP Senior Member
Thanks Meter: 4
 
108 posts
Join Date:Joined: Sep 2009
1- click start-programs-mscrWrite
2-write your script
3- save( do not save as)
3-click MscrRun


if you rename your script,
go to \My Documents (your script here)


For a beginner like me, not bad

Attached Files
File Type: cab easy mscr writer.cab - [Click for QR Code] (256.5 KB, 417 views)
Last edited by imbunned; 22nd September 2010 at 12:23 PM.
The Following User Says Thank You to imbunned For This Useful Post: [ View ]
2nd September 2010, 04:55 PM   |  #2  
Senior Member
Flag East Greenwich, RI
Thanks Meter: 2
 
876 posts
Join Date:Joined: Oct 2009
More
Very nice.
2nd September 2010, 09:19 PM   |  #3  
OP Senior Member
Thanks Meter: 4
 
108 posts
Join Date:Joined: Sep 2009
i am glad you like it
The Following User Says Thank You to imbunned For This Useful Post: [ View ]
2nd September 2010, 09:29 PM   |  #4  
mike2nl's Avatar
Senior Member
Flag Near Utrecht
Thanks Meter: 535
 
3,608 posts
Join Date:Joined: Jul 2009
More
I like it too, simple and easy. Thanks for sharing this...
3rd September 2010, 12:01 AM   |  #5  
orb3000's Avatar
XDA Portal Team / Senior Moderator
Flag T r a v e l i n g Likes: HTC & XDA Dislikes: apples...
Thanks Meter: 3,045
 
22,289 posts
Join Date:Joined: Feb 2007
Donate to Me
Thanks for sharing!
3rd September 2010, 07:43 AM   |  #6  
Junior Member
Thanks Meter: 0
 
1 posts
Join Date:Joined: May 2009
Hi! Very well, thank you! Only after the installation .cab in the start menu, nothing appears, had to create shortcuts manually (WM 6.5.3 rus).
3rd September 2010, 12:02 PM   |  #7  
Junior Member
Thanks Meter: 0
 
10 posts
Join Date:Joined: Apr 2009
Quote:
Originally Posted by imbunned

1- click start-programs-write (notepad will open automaticly)
2-write your script
3-close notepad
4-go to \My Documents (your script here)
5- if you want rename script, click rename

Or something like this: Copy the contents of the code of any message, and run the script

Pardon google.ru/language

Code:
rms='HKCU'
pms='\Software\Mort'\SystemPath("ScriptName")
SetChoiceEntryFormat(20,12,"Tahoma")
SetMessageFont (9,"Tahoma")
ver=MortScriptVersion()
If(ver eq '4.3.0.15')
@AllFiles('','')
Else
SleepMessage(5,'You are using an older version  MortScript '&MortScriptVersion()&' A working 4.3.0.15','Pity...',1)
EndIf

Sub AllFiles(allf,st)
Local(ind,list,ext)
If(omd eq '')
 omd=1
EndIf
If(allf eq '')
  allf=@RegR(0,'fille')
  del=@RegR(0,'del')
EndIf
  GetClipText(bufer)
If(bufer eq '')
  as=0
Else
  as=1
EndIf
  list[1]='* Run("'&FileBase(allf)&'")'
If(not st)
  list[2]='*     SETTINGS      *'
Else
  list[2]='* Hide Settings   *'
  If(allf eq '')
  list[3]='*Select a file to test *'
  Else
  list[3]=FilePath(allf)
  EndIf
  list[4]=FileBase(allf)
  list[5]=FileExt(allf)
  If(del=1)
  list[6]='*Delete after launch *'
  ElseIf(del=2)
  list[6]='*  Save copies   *'
  ElseIf(del=0)
  list[6]='*    DO NOT DELETE      *'
  EndIf
  If(as) 
  list[7]='*  Review the buffer   *'
  EndIf
EndIf
 ind=Choice("Run +",allf,omd,0,list)
      omd=ind
If(ind=0)
 Exit
ElseIf(ind=2)
 If(st)
  @AllFiles(allf,0)
 Else
  @AllFiles(allf,1)
 EndIf
ElseIf(ind=3)
 allff=@SelectFiles('*.*',list[ind],'Edit  '&list[ind])
  If(allff ne '')
   allff=FilePath(allff)\FileBase(allff)&'.mscr'
   @RegR(2,'del',0)
   @RegR(1,'fille',allff)
   @AllFiles(allff,st)
  Else
   @AllFiles(allf,1)
  EndIf
ElseIf(ind=4)
 allff=Input(list[ind],"Run +",0,0,list[ind])
  If(allff ne '')
   allff=FilePath(allf)\allff&FileExt(allf)
   @RegR(1,'fille',allff)
   @AllFiles(allff,st)
  Else
   @AllFiles(allf,st)
  EndIf
ElseIf(ind=5)
 allff=Input(list[ind],"Run +",0,0,list[ind])
  If(allff ne '')
   allff=FilePath(allf)\FileBase(allf)&allff
   @RegR(1,'fille',allff)
   @AllFiles(allff,st)
  Else
   @AllFiles(allf,st)
  EndIf
ElseIf(ind=6)
  If(del=1)
    del=2
  ElseIf(del=2)
    del=0
  ElseIf(del=0)
    del=1
  EndIf
 @RegR(2,'del',del)
 @AllFiles(allf,st)
ElseIf(ind=1)
 WriteFile(allf,bufer)
  If(del=2)
   @Duplicat(allf,rty)
  EndIf
 @Ergor(allf)
  If(del=1)
   sleep 500
   Delete(allf)
  EndIf
ElseIf(ind=7)
 BigMessage(SubStr(bufer,0,7000))
 @AllFiles(allf,st)
EndIf
EndSub
# --------
Sub Ergor(fff)
If((fff eq ''))
   @Uand('')
Else
 Run(fff)
 fff=FileBase(fff)&FileExt(fff)
   Sleep 200
 While(ScriptProcExists(fff))
  If(d ne '')
   Close('Error')
   d=Replace(d,'^LF^','^NL^')&'^NL^'
   SetClipText(d)
   SleepMessage(1,SubStr(d,0,50),'The error text in the buffer')
   ExitSub(d)
  Else
   d=@Uand('')
   Sleep 100
  EndIf  
 EndWhile
#;~  SleepMessage(2,'Check buffer','',0)
EndIf
EndSub
# --------
Sub Duplicat(fll,rt)
If(not rt)
 flll=fll
EndIf
If(FileExists(fll))
 fgd=fgd+1
 @Duplicat(FilePath(fll)\FileBase(flll)&fgd&FileExt(fll),1)
Else
 Copy(flll,fll)
 SleepMessage(1,fll,'Copy retained',0)
 Return(flll)
EndIf
EndSub
# --------
Sub Uand(b)
If(WndExists('Error'))
 Show('Error')
 WaitForActive('Error',5)
 Sleep 500
 n=ScreenshotClick('CLICK ON THE TEXT OF ERRORS.',40,0,0,16777215)
 wtix=WindowText(n[1],n[2])
 If((wtix ne '')and(wtix ne 'Error'))
   Return(wtix)
 Else
   SleepMessage(1,wtix&'^LF^'&gh,'Attempt  №'&2-b)
   @Uand(b+1)
 EndIf
EndIf
EndSub
# --------
Sub RegR(sam,rkey,rv,plus)
   If(sam=1)
      RegWriteString(rms,pms,rkey,rv)
   ElseIf(sam=2)
      RegWriteDWord(rms,pms,rkey,rv)
   ElseIf(sam=0)
      Return(RegRead(rms,pms,rkey))
   EndIf
EndSub
# --------
Sub SelectFiles(Ext,default,info)
Local(list,idex,Ext,Dir,info)
 Dir=SelectDirectory(title,info,default)
If(Dir ne '')
 list=DirContents(Dir\Ext,DC_ALL)
 idex=Choice(title,Dir,1,0,list)
 If(not idex=0)
  indt=list[idex]
  Return(Dir\indt)
 EndIf
EndIf
EndSub
Last edited by IdoL-67; 3rd September 2010 at 06:33 PM.
9th September 2010, 01:53 PM   |  #8  
sv0911's Avatar
Senior Member
Thanks Meter: 288
 
679 posts
Join Date:Joined: May 2010
More
Thumbs up
BIG THANKS FOR SHARING !!!!!!!!!

Greetings
sv0911
9th September 2010, 03:13 PM   |  #9  
Corias's Avatar
Senior Member
Flag Moscow
Thanks Meter: 8
 
164 posts
Join Date:Joined: May 2009
More
Following code:
Code:
if Procexists fexplore.exe
Close "File Explorer"
endif
will not close file explorer if locale is other than en-us. Use kill (fexplore.exe) instead
Last edited by Corias; 9th September 2010 at 03:19 PM.
9th September 2010, 05:34 PM   |  #10  
Senior Member
Thanks Meter: 9
 
343 posts
Join Date:Joined: Jul 2010
Hi. Sorry to be a bit ignorant. What does it do?

Post Reply Subscribe to Thread
Previous Thread Next Thread
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes