5,599,677 Members 46,883 Now Online
XDA Developers Android and Mobile Development Forum

Easy Mortscript Writer(cab) Updated

Tip us?
 
imbunned
Old
(Last edited by imbunned; 22nd September 2010 at 11:23 AM.)
#1  
Senior Member - OP
Thanks Meter 4
Posts: 108
Join Date: Sep 2009
Default Easy Mortscript Writer(cab) Updated

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, 403 views)
The Following User Says Thank You to imbunned For This Useful Post: [ Click to Expand ]
 
howdykeith
Old
#2  
Senior Member
Thanks Meter 2
Posts: 876
Join Date: Oct 2009
Location: East Greenwich, RI
Very nice.
 
imbunned
Old
#3  
Senior Member - OP
Thanks Meter 4
Posts: 108
Join Date: Sep 2009
i am glad you like it
The Following User Says Thank You to imbunned For This Useful Post: [ Click to Expand ]
 
mike2nl
Old
#4  
mike2nl's Avatar
Senior Member
Thanks Meter 517
Posts: 3,570
Join Date: Jul 2009
Location: Near Utrecht
I like it too, simple and easy. Thanks for sharing this...
Sensation XE: 光盤 6, PYDX & AIO latest
SGT 10.1 3G: JellyBeanICS v8, Yoda 2.4
SGT 7 3G: CM 11, 4.4.2 storm31
HD2: 光盤 3.7, marc 0.2.3
Teams: CHTBeta & Art, CD
Apps: 3D Photo Browser Mods
Android Test Links: USB Echo
 
orb3000
Old
#5  
orb3000's Avatar
XDA News Writer / Senior Moderator
Thanks Meter 3010
Posts: 22,272
Join Date: Feb 2007
Location: T r a v e l i n g Likes: HTC & XDA Dislikes: apples...

 
DONATE TO ME
Thanks for sharing!
orb


HTC One Max - HTC Butterfly S - HTC Universal

XDA is about developing and is for developers. Any user that recognises that will gain the most benefit from this site


 
This is and always will be a site for developers, pure and simple. Without them we are nothing, without them there would be no reason for XDA Developers to exist; we should never ever forget that. Without them this place would not be called XDA-Developers but something else, e.g Mobile Phone User Support Services For Ungrateful Nerds.

Previous devices: HTC: Treo 650 - Excalibur - Diamond - Diamond 2 - Maple - HD2 - Rhodium - Desire Z - Desire HD - Vivid - Sensation - One V - One X - Titan II - One X+ - DNA - Butterfly
 
Yorick 37
Old
#6  
Junior Member
Thanks Meter 0
Posts: 1
Join Date: 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).
 
IdoL-67
Old
(Last edited by IdoL-67; 3rd September 2010 at 05:33 PM.)
#7  
Junior Member
Thanks Meter 0
Posts: 10
Join Date: Apr 2009
Quote:
Originally Posted by imbunned View Post
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
 
sv0911
Old
#8  
sv0911's Avatar
Senior Member
Thanks Meter 288
Posts: 678
Join Date: May 2010
Location: Baden-Baden
BIG THANKS FOR SHARING !!!!!!!!!

Greetings
sv0911
"If you like my work...... go and by yourself a drink... and enjoy the ride......"

My latest dedications to xda:
+ T H E M E Harmony Blue
+ T H E M E Gingerfire Black
+ T H E M E Gingerfire Blue
+ T H E M E Black Chrome
+ T H E M E White Chrome
+ T H E M E Glowing Blue

..more releases on my profile statistics...

 
Corias
Old
(Last edited by Corias; 9th September 2010 at 02:19 PM.)
#9  
Corias's Avatar
Senior Member
Thanks Meter 8
Posts: 161
Join Date: May 2009
Location: Moscow
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
 
bart3385
Old
#10  
Senior Member
Thanks Meter 9
Posts: 343
Join Date: Jul 2010
Hi. Sorry to be a bit ignorant. What does it do?

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes


XDA PORTAL POSTS

Keep Track of Everything Your Device Does with Event Logger

Regardless of their OS choice, computing power users generally share one common … more

A More Competitive Spin on the Addictive 2048 Puzzle

You may recall that a few weeks ago, we talked about a rather interesting take on … more

Multiboot in Progress for the Sony Xperia Z1

As we’ve mentioned quite a few times in the past, multiboot is quite the interesting … more

Samsung EFS Tool Updated to V5, Brings Universal Device Support

You may recall that we’ve talked about XDA Recognized Contributor … more