REFSKRIPT GET_N_PARAMS GET_RESULT np RETURN_IF_EQUAL np 0 ANIM_FX GET_PARAM_NR 1 GET_RESULT modus GET_PARAM_NR 2 GET_RESULT ich IF_STR_EQUAL_GOTO modus INIT init IF_STR_EQUAL_GOTO modus INIT_READ init_read IF_STR_EQUAL_GOTO modus START start IF_STR_EQUAL_GOTO modus PRE_RENDER prerender IF_STR_EQUAL_GOTO modus AFTER_RENDER afterrender IF_STR_EQUAL_GOTO modus FINISH finish IF_STR_EQUAL_GOTO modus GET_OBJS get_objs IF_STR_EQUAL_GOTO modus SET_OBJS set_objs IF_STR_EQUAL_GOTO modus GET_INFO get_info MELDUNG Falscher Aufruf RETURN 0 ;***************************************************** >init: ; Ergebnis: ; OK alles geklapp ; ER fehler ; AB abbruch ; ; ich brauche 1 objekt-variable. ; die enthält den prozentsatz des rüttels ; bei 0 wird gar nicht gerüttelt ; bei 1 wird maximal soviel gerüttelt wie das Objekt ; maximal in x,y,z-richtung ausgedehnt ist ; Objekt abfragen GET_GEO_OBJ Objektauswahl 1 RETURN_IF_ABBRUCH AB GET_RESULT sicht_obj ; sich selbst umbenennen in norender- ADD_STR ich - sicht_obj GET_RESULT ich1 OBJ_SET_NAME ich ich1 GET_RESULT ich goto init1 >init_read: ; Hier wird das animfx-objekt beim einlesen aufgerufen. ; wir init. die variable ruettel_obj auf - damit sie ; vorne benutzt werden kann SET_VAR sicht_obj ---- >init1: ; ich brauche interne-variablen ; 1 pointer-obj um sichtbar-objekt zu speichern AFX_ALLOK_INTERN_VARS ich 0 0 1 ; objekt 0 = sichtbar-objekt AFX_SET_OBJ ich 0 sicht_obj ; jetzt eine Objektvariable für den ; sichtbarfaktor vereinbaren ; heißt faktor und geht von 0 bis 1 AFX_SET_N_OBJ_VARS ich 1 AFX_DEFINE_OBJ_VAR ich 0 0 Sichtbar 0 1 OBJ_set_var ich 0 1 RETURN OK ;******************************************************** >start: ; hier mach ich noch nichts RETURN OK ;******************************************************* >prerender: ; hier das objekt sichtbar oder unsichtbar machen ; falls faktor=0, dann nichts machen OBJ_GET_VAR ich 0 GET_RESULT sicht RETURN_IF_NOT_EQUAL sicht 0 OK AFX_GET_OBJ ich 0 GET_RESULT sicht_obj ; die ausdehnung des objektes abfragen PRINT sicht_obj ist unsichtbar wait_secs 0.5 GEO_VISIBLE sicht_obj 0 RETURN OK ;********************************************************************* >afterrender: ; wieder sichtbar machen AFX_GET_OBJ ich 0 GET_RESULT sicht_obj GEO_VISIBLE sicht_obj 1 RETURN OK ;********************************************************* >finish: ; nichts zu tun RETURN OK ;********************************************************** >get_objs: ; ich brauche kein objekt, also returne ich - RETURN OK- ;********************************************************* >set_objs: RETURN OK ;********************************************************* >get_info: ; ; ich brauche keine Objekte also returne ich 0 RETURN OK0 ;*********************************************************