Mob Script Encryption Algorithm

[Jet]

I understand something in Visual Basic, but I want to see examples of scripst used in a quest.
[right][snapback]35976[/snapback][/right]

You can use MRT to check one.
Open an .mob then expand filed ID_OBJECT_FILE.
ID_SS_TEXT <- Here is a script used by .mob
Type of this filed is SCRIPT_ENC mean tats script kept in enconded format.
CAHEK7 post algorithm how to to decode encoded script using VB.

Here is script example for zone7chest.mob.

Код:

GlobalVars (
 NULL : object,
 VSS#i#val : object,
 i : object,
 AChest : object
)

DeclareScript VCheck#3#1 (  this : object )
DeclareScript VTriger#3#2 (  this : object )

Script VCheck#3#1
(
 if
 (
   Not( IsEqual( GSGetVar( 0, "q.gz7g.q9g" ) , 2 )  )
   IsEqual( GetLeverState( AChest ) , 1 )
 )
 then
 (
   KillScript(  )
   VTriger#3#2( this )
 )
)

Script VTriger#3#2
(
 if
 (
 )
 then
 (
   KillScript(  )
   GSSetVarMax( 0, "q.gz7g.q9g.2", 2 )
   GSSetVarMax( 0, "q.gz7g.q9g", 2 )
   GiveQuestItem( 0, "OrcLicense00" )
 )
)

WorldScript
(
 Sleep( 2 )
 AChest = GetObjectByID( "1000252" )
 VCheck#3#1( NULL )
)