/* http://www.irizone.net - plugin 3dsettings */ /* by iri - septembre 2004 */ typeof plugin=S;; typeof class=S;; typeof ed = PluginEditor;; proto save=fun [ [Inst r1] ] [[S r1] [S r1] [[S r1]r1] [[S r1]r1]];; fun save(l)= let l -> [UI nl] in [ nil nil ("plugin"::plugin::nil)::nil ("actionC"::(strcat class ".chgDarkbase")::nil):: /* action */ ("actionC"::(strcat class ".chgFog")::nil):: ("actionC"::(strcat class ".chgInbox")::nil):: ("actionC"::(strcat class ".chgSpeedAv")::nil):: ("actionC"::(strcat class ".chgBackgroundcolor")::nil):: ("actionC"::(strcat class ".chgFocale")::nil):: ("actionC"::(strcat class ".chgGravity")::nil):: ("actionC"::(strcat class ".chgName3d")::nil):: ("actionC"::(strcat class ".reverseDarkbase")::nil):: ("actionC"::(strcat class ".reverseFog")::nil):: ("actionC"::(strcat class ".reverseInbox")::nil):: ("actionC"::(strcat class ".reverseSpeedAv")::nil):: ("actionC"::(strcat class ".reverseBackgroundcolor")::nil):: ("actionC"::(strcat class ".reverseFocale")::nil):: ("actionC"::(strcat class ".reverseGravity")::nil):: ("actionC"::(strcat class ".reverseName3d")::nil):: ("actionC"::(strcat class ".getDarkbase")::nil):: ("actionC"::(strcat class ".getFog")::nil):: ("actionC"::(strcat class ".getInbox")::nil):: ("actionC"::(strcat class ".getSpeedAv")::nil):: ("actionC"::(strcat class ".getBackgroundcolor")::nil):: ("actionC"::(strcat class ".getFocale")::nil):: ("actionC"::(strcat class ".getGravity")::nil):: ("actionC"::(strcat class ".getName3d")::nil):: ("actionC"::(strcat class ".screenShot")::nil):: ("actionC"::(strcat class ".getLastScreenShot")::nil):: ("actionC"::(strcat class ".getListAv")::nil):: ("actionC"::(strcat class ".getTimeLocal")::nil):: ("actionC"::(strcat class ".setInit")::nil):: ("actionC"::(strcat class ".getInit")::nil):: ("event" ::(strcat class ".notRegistered")::nil):: /* event */ ("eventC" ::(strcat class ".getName")::nil):: ("eventC" ::(strcat class ".getListAv")::nil):: ("eventC" ::(strcat class ".getBackgroundColor")::nil):: ("eventC" ::(strcat class ".getGravity")::nil):: ("eventC" ::(strcat class ".getSpeedAv")::nil):: ("eventC" ::(strcat class ".getPathInbox")::nil):: ("eventC" ::(strcat class ".getFog")::nil):: ("eventC" ::(strcat class ".getDarkbase")::nil):: ("eventC" ::(strcat class ".getFocale")::nil):: ("eventC" ::(strcat class ".getInit")::nil):: ("eventC" ::(strcat class ".getScreenShot")::nil):: ("eventC" ::(strcat class ".getLocalTime")::nil):: ("eventC" ::(strcat class ".errorVersion45b")::nil):: nil ] ;; fun IniPlug(file)= set plugin = file; set class = getInfo strextr _getpack _checkpack file "name"; PlugRegister class @save nil nil nil;;