Eat wind FFC

ffc script EatWind
{
     void run(int npc_type)
     {
          int q; npc n; lweapon l; bool found;
          while(1)
          {
               for ( q = Screen->NumNPCs(); q > 0; --q )
               {
                    n = Screen->LoadNPC(q);
                    if ( n->Type == npc_type )
                    {
                         found = true; break;
                    }
               }
               if ( found )
               {
                    found = false;
                    for ( q = Screen->NumLWeapons(); q > 0; --q )
                    {
                         l = Screen->LoadLWeapon(q);
                         if ( l->ID == LW_WIND )
                         {
                              l->Step = 0; Remove(l);
                         }
                    }
               }
               Waitframe();
          } //end while(1)
     }     //end run()
} //end script scope