home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Kernel / SecretChar.tonyu < prev    next >
Text File  |  2001-12-08  |  447b  |  23 lines
  1. extends PlainChar;
  2.  
  3. //native _changeAttr;
  4. //native _inspect;
  5. //native _dynamicInspect;
  6.  
  7. function assignChar() {
  8.    $_secretChar_seq+=1;
  9.    return ((($_secretChar_seq-1) % 15)+17);
  10. }
  11.  
  12. function setDefaultProperties(xx,yy) {
  13.    super.setDefaultProperties(xx,yy);
  14.    pat=assignChar();
  15.    changeAttr("pat",pat);
  16. }
  17.  
  18. function draw() {
  19.     if ($_design_Mode==1) drawSprite(x,y,pat,0,zOrder);
  20.     super.draw();
  21. }
  22.  
  23. while(1) {update();}